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

Diff for /loncom/interface/lonparmset.pm between versions 1.120 and 1.121

version 1.120, 2003/09/03 15:44:57 version 1.121, 2003/09/03 21:24:32
Line 1672  sub overview { Line 1672  sub overview {
                              'Set/Modify Course Assessment Parameters');                               'Set/Modify Course Assessment Parameters');
     my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};      my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
     my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};      my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
       my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
     $r->print(<<ENDOVER);      $r->print(<<ENDOVER);
 <html>  <html>
 <head>  <head>
Line 1679  sub overview { Line 1680  sub overview {
 </head>  </head>
 $bodytag  $bodytag
 <form method="post" action="/adm/parmset" name="overview">  <form method="post" action="/adm/parmset" name="overview">
 Not yet implemented.  
 <input type="hidden" name="overview" value="1" />  <input type="hidden" name="overview" value="1" />
 </form>  
 </body>  
 </html>  
 ENDOVER  ENDOVER
       foreach (sort keys %resourcedata) {
    $r->print($_.' - '.$resourcedata{$_}.'<br />');
       }
       $r->print('</form></body></html>');
 }  }
   
 ##################################################  ##################################################
 ##################################################  ##################################################
   
Line 1720  sub handler { Line 1722  sub handler {
     
         $coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};          $coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
   
  unless (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) {   if (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) {
 # --------------------------------------------------------- Bring up assessment  
     &assessparms($r);  
 # ---------------------------------------------- This is for course environment  # ---------------------------------------------- This is for course environment
   # -------------------------- also call if toplevel map coudl not be initialized
       &crsenv($r);
  } elsif ($ENV{'form.overview'}) {   } elsif ($ENV{'form.overview'}) {
   # --------------------------------------------------------------- Overview mode
       &overview($r);
  } else {   } else {
     &crsenv($r);  # --------------------------------------------------------- Bring up assessment
       &assessparms($r);
  }   }
     } else {      } else {
 # ----------------------------- Not in a course, or not allowed to modify parms  # ----------------------------- Not in a course, or not allowed to modify parms
Removed from v.1.120  
changed lines
  Added in v.1.121

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