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

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

version 1.48, 2001/07/02 15:02:44 version 1.49, 2001/07/18 18:45:37
Line 269  sub renderpage { Line 269  sub renderpage {
 # with no arg it returns a HTML <option> list of the template titles  # with no arg it returns a HTML <option> list of the template titles
 # with one arg it returns the filename associated with the arg passed  # with one arg it returns the filename associated with the arg passed
 sub get_template_list {  sub get_template_list {
   my ($namewanted) = @_;    my ($namewanted,$extension) = @_;
   my $result;    my $result;
   foreach my $file (</home/httpd/html/res/adm/includes/templates/*.problem>) {    &Apache::lonxml::debug("Looking for :$extension:");
     foreach my $file (</home/httpd/html/res/adm/includes/templates/*.$extension>) {
     my $name=&Apache::lonnet::metadata($file,'title');      my $name=&Apache::lonnet::metadata($file,'title');
     if ($namewanted && ($name eq $namewanted)) {      if ($namewanted && ($name eq $namewanted)) {
       $result=$file;        $result=$file;
Line 288  sub newproblem { Line 289  sub newproblem {
   
   if ($ENV{'form.template'}) {    if ($ENV{'form.template'}) {
     use File::Copy;      use File::Copy;
     my $file = &get_template_list($ENV{'form.template'});      my $extension=$request->uri;
       $extension=~s:\.([\w]+)$:$1:;
       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);
Line 296  sub newproblem { Line 299  sub newproblem {
     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);      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 />
Line 335  sub handler { Line 332  sub handler {
   #my $t0 = [&gettimeofday()];    #my $t0 = [&gettimeofday()];
   my $request=$_[0];    my $request=$_[0];
   
   #if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;}    if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;}
   
   if (&setupheader($request)) { return OK; }    if (&setupheader($request)) { return OK; }
   $ENV{'request.uri'}=$request->uri;    $ENV{'request.uri'}=$request->uri;
Removed from v.1.48  
changed lines
  Added in v.1.49

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