version 1.16, 2006/03/15 19:41:26
|
version 1.17, 2006/06/22 18:17:23
|
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) = @_; |
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; |