loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.47, 2001/06/26 21:39:15	version 1.48, 2001/07/02 15:02:44
Line 295 sub newproblem {	Line 295 sub newproblem {
} else {	} else {
my $templatelist=&get_template_list();	my $templatelist=&get_template_list();
my $url=$request->uri;	my $url=$request->uri;
	my $dest = &Apache::lonnet::filelocation("",$request->uri);
	unless (-e $dest) {
	print "fnx=$dest<br>";
	my $fh=Apache::File->new(">".$dest);
	print $fh "<problem>\n</problem>";
	$fh->close;
	}
$request->print(<<ENDNEWPROBLEM);	$request->print(<<ENDNEWPROBLEM);
<body bgcolor="#FFFFFF">	<body bgcolor="#FFFFFF">
The request file $url doesn\'t exist. You can create a new problem <br />	The request file $url doesn\'t exist. You can create a new problem <br />