loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.9, 2000/08/11 14:32:19	version 1.12, 2000/08/11 15:27:58
Line 92 sub editfield {	Line 92 sub editfield {
sub getfile {	sub getfile {
my ($filename) = @_;	my ($filename) = @_;
my $a="";	my $a="";
&Apache::lonnet::repcopy("/raw".$filename);
{	$filename=~ s/^\s(\S+)\s$/$1/; ## strip off leading and trailing spaces
my $fh=Apache::File->new("/home/httpd/html/res".$filename);	$filename="/home/httpd/html/res".$filename;
while (<$fh>) {	if (! -e $filename ) {
	&Apache::lonnet::subscribe($filename);
	&Apache::lonnet::repcopy($filename);
	}
	my $fh=Apache::File->new($filename);
	while (<$fh>) {
$a .=$_;	$a .=$_;
}
}	}
return $a	return $a
}	}