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.10, 2000/08/11 14:57:33
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="/home/httpd/html/res".$filename;
	if (! -e $filename ) {
	&Apache::lonnet::subscribe($filename);
	&Apache::lonnet::repcopy($filename);
	}
{	{
my $fh=Apache::File->new("/home/httpd/html/res".$filename);	my $fh=Apache::File->new($filename);
while (<$fh>) {	while (<$fh>) {
$a .=$_;	$a .=$_;
}	}