--- loncom/interface/lonsource.pm 2006/03/15 19:41:26 1.16
+++ loncom/interface/lonsource.pm 2006/06/22 18:17:23 1.17
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Souce Code handler
#
-# $Id: lonsource.pm,v 1.16 2006/03/15 19:41:26 albertel Exp $
+# $Id: lonsource.pm,v 1.17 2006/06/22 18:17:23 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -40,6 +40,7 @@ use Apache::lonmeta;
use Apache::File;
use Apache::lonlocal;
use HTML::Entities;
+use LONCAPA;
sub make_link {
my ($filename, $listname) = @_;
@@ -166,7 +167,7 @@ sub copy_file {
}
$r->print("
Copying File");
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");
if (defined($fs)) {
print $fs $file_output;
@@ -178,9 +179,7 @@ sub copy_file {
sub print_item {
my ($r, $filename) = @_;
- $filename = $Apache::lonnet::perlvar{'lonDocRoot'}.$filename;
- &Apache::lonnet::logthis("print_item filename = $filename");
- my $file_output = &Apache::lonnet::getfile($filename);
+ my $file_output = &includemeta(&Apache::lonnet::getfile($Apache::lonnet::perlvar{'lonDocRoot'}.$filename),$filename);
my $count=0;
my $maxlength=-1;
foreach (split ("\n", $file_output)) {
@@ -198,6 +197,22 @@ sub print_item {
}
+sub includemeta {
+ my ($file_output,$orgfilename)=@_;
+ my $escfilename=&escape($orgfilename);
+ my $copytime=time;
+ if ($file_output=~/\]*\>)/$1\n\/i;
+ }
+ if ($file_output=~/\]*\>)/$1\n\/i;
+ }
+ return $file_output;
+}
sub handler {
my $r=shift;