loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.270, 2003/08/11 20:05:53	version 1.271, 2003/08/13 14:23:37
Line 69 use Safe::Hole();	Line 69 use Safe::Hole();
use Math::Cephes();	use Math::Cephes();
use Math::Random();	use Math::Random();
use Opcode();	use Opcode();
	use POSIX qw(strftime);


sub register {	sub register {
Line 1137 sub storefile {	Line 1138 sub storefile {
if (my $fh=Apache::File->new('>'.$file)) {	if (my $fh=Apache::File->new('>'.$file)) {
print $fh $contents;	print $fh $contents;
$fh->close();	$fh->close();
	return 1;
} else {	} else {
&warning("Unable to save file $file");	&warning("Unable to save file $file");
	return 0;
}	}
}	}

Line 1242 sub handler {	Line 1245 sub handler {
#	#
unless ($ENV{'request.state'} eq 'published') {	unless ($ENV{'request.state'} eq 'published') {
if (($ENV{'form.savethisfile'}) \|\| ($ENV{'form.attemptclean'})) {	if (($ENV{'form.savethisfile'}) \|\| ($ENV{'form.attemptclean'})) {
&storefile($file,$ENV{'form.filecont'});	if (&storefile($file,$ENV{'form.filecont'})) {
	$request->print("<font COLOR=\"#0000FF\">Updated: ". strftime("%d %b %H:%M:%S",localtime())." </font>");
	}
}	}
}	}
my %mystyle;	my %mystyle;