loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.499, 2007/04/20 20:33:35	version 1.500, 2007/04/26 09:32:23
Line 60 sub fetch_raw_resource {	Line 60 sub fetch_raw_resource {
my ($url) = @_;	my ($url) = @_;

my $filename = &Apache::lonnet::filelocation("", $url);	my $filename = &Apache::lonnet::filelocation("", $url);
#	my $contents = &Apache::lonnet::getfile($filename);
# fetch if needed:
#
if (! -e $filename) {
my $repcopy_result = &Apache::lonnet::repcopy($filename);

if ($repcopy_result ne 'ok') {	if ($contents == -1) {
return "File open failed for $filename"; # This will bomb the print.	return "File open failed for $filename"; # This will bomb the print.
}
}	}
my $contents = &Apache::lonnet::readfile($filename);

return $contents;	return $contents;


}	}