Diff for /loncom/homework/lonhomework.pm between versions 1.47 and 1.48

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 />

Removed from v.1.47  
changed lines
  Added in v.1.48


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>