--- loncom/homework/lonhomework.pm 2001/06/26 21:39:15 1.47
+++ loncom/homework/lonhomework.pm 2001/07/02 15:02:44 1.48
@@ -295,6 +295,13 @@ sub newproblem {
} else {
my $templatelist=&get_template_list();
my $url=$request->uri;
+ my $dest = &Apache::lonnet::filelocation("",$request->uri);
+ unless (-e $dest) {
+ print "fnx=$dest
";
+ my $fh=Apache::File->new(">".$dest);
+ print $fh "\n";
+ $fh->close;
+ }
$request->print(<
The request file $url doesn\'t exist. You can create a new problem