loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.289, 2003/10/29 18:29:24	version 1.292, 2003/11/11 16:48:11
Line 337 sub xmlparse {	Line 337 sub xmlparse {
&Apache::style::styleparser($target,$styletext));	&Apache::style::styleparser($target,$styletext));
}	}
}	}
	} elsif ($ENV{'construct.style'} && ($ENV{'request.state'} eq 'construct')) {
	my $location=&Apache::lonnet::filelocation('',$ENV{'construct.style'});
	my $styletext=&Apache::lonnet::getfile($location);
	if ($styletext ne '-1') {
	%style_for_target = (%style_for_target,
	&Apache::style::styleparser($target,$styletext));
	}
}	}
#&printalltags();	#&printalltags();
my @pars = ();	my @pars = ();
Line 1060 ENDSCRIPT	Line 1067 ENDSCRIPT

sub storefile {	sub storefile {
my ($file,$contents)=@_;	my ($file,$contents)=@_;
	&Apache::lonnet::correct_line_ends(\$contents);
if (my $fh=Apache::File->new('>'.$file)) {	if (my $fh=Apache::File->new('>'.$file)) {
print $fh $contents;	print $fh $contents;
$fh->close();	$fh->close();