loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.10, 2000/08/11 14:57:33	version 1.11, 2000/08/11 15:22:00
Line 92 sub editfield {	Line 92 sub editfield {
sub getfile {	sub getfile {
my ($filename) = @_;	my ($filename) = @_;
my $a="";	my $a="";

	$filename=~ s/\s+//g;
$filename="/home/httpd/html/res".$filename;	$filename="/home/httpd/html/res".$filename;
if (! -e $filename ) {	if (! -e $filename ) {
&Apache::lonnet::subscribe($filename);	&Apache::lonnet::subscribe($filename);
&Apache::lonnet::repcopy($filename);	&Apache::lonnet::repcopy($filename);
}	}
{	my $fh=Apache::File->new($filename);
my $fh=Apache::File->new($filename);	while (<$fh>) {
while (<$fh>) {
$a .=$_;	$a .=$_;
}
}	}
return $a	return $a
}	}