version 1.16, 2006/03/15 19:41:26
|
version 1.19, 2007/08/28 22:23:22
|
Line 40 use Apache::lonmeta;
|
Line 40 use Apache::lonmeta;
|
use Apache::File; |
use Apache::File; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use HTML::Entities; |
use HTML::Entities; |
|
use LONCAPA; |
|
|
sub make_link { |
sub make_link { |
my ($filename, $listname) = @_; |
my ($filename, $listname) = @_; |
my $sourcelink = "/adm/source?filename=".$filename."&listname=".$listname; |
my $sourcelink = "/adm/source?inhibitmenu=yes&filename=".$filename."&listname=".$listname; |
|
|
return $sourcelink; |
return $sourcelink; |
} |
} |
Line 75 sub copy_stage {
|
Line 76 sub copy_stage {
|
my $author_name; |
my $author_name; |
#Figure out if we are author or co-author |
#Figure out if we are author or co-author |
|
|
if($env{'request.role'} =~ m|ca.|) { |
if ($env{'request.role'} =~ m{^ca\.}) { |
($role, $domain, $author_name) = split(/\//,$env{'request.role'}); |
($role, $domain, $author_name) = split(/\//,$env{'request.role'}); |
} else { |
} else { |
$role = "au."; |
$role = "au."; |
Line 166 sub copy_file {
|
Line 167 sub copy_file {
|
} |
} |
$r->print("<br /><b>Copying File</b>"); |
$r->print("<br /><b>Copying File</b>"); |
my $problem_filename = $Apache::lonnet::perlvar{'lonDocRoot'}.$filename; |
my $problem_filename = $Apache::lonnet::perlvar{'lonDocRoot'}.$filename; |
my $file_output = &Apache::lonnet::getfile($problem_filename); |
my $file_output = &includemeta(&Apache::lonnet::getfile($problem_filename),$filename); |
my $fs=Apache::File->new(">$path_to_new_file"); |
my $fs=Apache::File->new(">$path_to_new_file"); |
if (defined($fs)) { |
if (defined($fs)) { |
print $fs $file_output; |
print $fs $file_output; |
Line 178 sub copy_file {
|
Line 179 sub copy_file {
|
|
|
sub print_item { |
sub print_item { |
my ($r, $filename) = @_; |
my ($r, $filename) = @_; |
$filename = $Apache::lonnet::perlvar{'lonDocRoot'}.$filename; |
my $file_output = &includemeta(&Apache::lonnet::getfile($Apache::lonnet::perlvar{'lonDocRoot'}.$filename),$filename); |
&Apache::lonnet::logthis("print_item filename = $filename"); |
|
my $file_output = &Apache::lonnet::getfile($filename); |
|
my $count=0; |
my $count=0; |
my $maxlength=-1; |
my $maxlength=-1; |
foreach (split ("\n", $file_output)) { |
foreach (split ("\n", $file_output)) { |
Line 198 sub print_item {
|
Line 197 sub print_item {
|
|
|
} |
} |
|
|
|
sub includemeta { |
|
my ($file_output,$orgfilename)=@_; |
|
my $escfilename=&escape($orgfilename); |
|
my $copytime=time; |
|
if ($file_output=~/\<meta\s*name\=\"isbasedonres\"/i) { |
|
$file_output=~s/(\<meta\s*name\=\"isbasedonres\"\s*content\=\"[^\"]*)\"/$1\,\Q$escfilename\E\"/i; |
|
} else { |
|
$file_output=~s/(\<(?:html|problem)[^\>]*\>)/$1\n\<meta name=\"isbasedonres\" content=\"\Q$escfilename\E\" \/\>/i; |
|
} |
|
if ($file_output=~/\<meta\s*name\=\"isbasedontime\"/i) { |
|
$file_output=~s/(\<meta\s*name\=\"isbasedontime\"\s*content\=\"[^\"]*)\"/$1\,\Q$copytime\E\"/i; |
|
} else { |
|
$file_output=~s/(\<(?:html|problem)[^\>]*\>)/$1\n\<meta name=\"isbasedontime\" content=\"\Q$copytime\E\" \/\>/i; |
|
} |
|
return $file_output; |
|
} |
|
|
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |