[BACK]Return to lonhomework.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/lonhomework.pm between versions 1.49 and 1.50

version 1.49, 2001/07/18 18:45:37 version 1.50, 2001/07/18 20:08:34
Line 287  sub get_template_list { Line 287  sub get_template_list {
 sub newproblem {  sub newproblem {
   my ($request) = @_;    my ($request) = @_;
   
     my $extension=$request->uri;
     $extension=~s:^.*\.([\w]+)$:$1:;
     &Apache::lonxml::debug("Looking for :$extension:");
   if ($ENV{'form.template'}) {    if ($ENV{'form.template'}) {
     use File::Copy;      use File::Copy;
     my $extension=$request->uri;  
     $extension=~s:\.([\w]+)$:$1:;  
     my $file = &get_template_list($ENV{'form.template'},$extension);      my $file = &get_template_list($ENV{'form.template'},$extension);
     my $dest = &Apache::lonnet::filelocation("",$request->uri);      my $dest = &Apache::lonnet::filelocation("",$request->uri);
     copy($file,$dest);      copy($file,$dest);
     &renderpage($request,$file);      &renderpage($request,$file);
   } else {    } else {
     my $templatelist=&get_template_list();      my $templatelist=&get_template_list('',$extension);
     my $url=$request->uri;      my $url=$request->uri;
     my $dest = &Apache::lonnet::filelocation("",$request->uri);      my $dest = &Apache::lonnet::filelocation("",$request->uri);
     $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 $extension <br />
 <form action="$url" method="POST">  <form action="$url" method="POST">
 <input type="submit" value="New Problem"><br />  <input type="submit" value="New $extension"><br />
 <select name="template">  <select name="template">
 $templatelist  $templatelist
 </select>  </select>
Removed from v.1.49  
changed lines
  Added in v.1.50

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