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

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

version 1.119, 2003/08/06 18:08:02 version 1.120, 2003/09/03 15:44:57
Line 287  sub plink { Line 287  sub plink {
 sub startpage {  sub startpage {
     my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_;      my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_;
   
     my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',      my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
                                             'onUnload="pclose()"');                                              'onUnload="pclose()"');
     my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.      my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
         &Apache::loncommon::selectstudent_link('parmform','uname','udom');          &Apache::loncommon::selectstudent_link('parmform','uname','udom');
Line 343  $selscript Line 343  $selscript
 $bodytag  $bodytag
   
 <form method="post" action="/adm/parmset" name="envform">  <form method="post" action="/adm/parmset" name="envform">
 <h3>Course Environment</h3>  <h4>Course Environment Parameters</h4>
 <input type="submit" name="crsenv" value="Set Course Environment">  <input type="submit" name="crsenv" value="Set Course Environment Parameters" />
   </form>
   <hr />
   <form method="post" action="/adm/helper/parameter.helper" name="helpform">
   <h4>Course Assessment Parameter - Helper Mode</h4>
   <input type="submit" value="Set/Modify Course Assessment Parameter" />
   </form>
   <hr />
   <form method="post" action="/adm/parmset" name="overview">
   <h4>Course Assessment Parameters - Overview Mode</h4>
   <input type="submit" name="overview" value="Modify Course Assessment Parameters" />
 </form>  </form>
 <hr />  <hr />
 <form method="post" action="/adm/parmset" name="parmform">  <form method="post" action="/adm/parmset" name="parmform">
 <h3>Course Assessments</h3>  <h4>Course Assessments Parameters - Table Mode</h4>
   
 <a href="/adm/helper/parameter.helper">Use Assignment Parameter Helper</a>, a  
 simpler interface to set open, due, or answer open dates for problems or  
 sequences.<br />&nbsp;<br />  
 ENDHEAD  ENDHEAD
   
     if (!$have_assesments) {      if (!$have_assesments) {
Line 1040  sub assessparms { Line 1046  sub assessparms {
     if (($prevvisit) || ($pschp) || ($pssymb)) {      if (($prevvisit) || ($pschp) || ($pssymb)) {
         $submitmessage = "Update Course Assessment Parameter Display";          $submitmessage = "Update Course Assessment Parameter Display";
     } else {      } else {
         $submitmessage = "Set Course Assessment Parameters";          $submitmessage = "Set/Modify Course Assessment Parameters";
     }      }
     $r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');      $r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');
   
Line 1658  $output Line 1664  $output
 </html>      </html>    
 ENDENV  ENDENV
 }  }
   ##################################################
   
   sub overview {
       my $r=shift;
       my $bodytag=&Apache::loncommon::bodytag(
                                'Set/Modify Course Assessment Parameters');
       my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
       my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
       $r->print(<<ENDOVER);
   <html>
   <head>
   <title>LON-CAPA Course Environment</title>
   </head>
   $bodytag
   <form method="post" action="/adm/parmset" name="overview">
   Not yet implemented.
   <input type="hidden" name="overview" value="1" />
   </form>
   </body>
   </html>
   ENDOVER
   }
 ##################################################  ##################################################
 ##################################################  ##################################################
   
Line 1697  sub handler { Line 1724  sub handler {
 # --------------------------------------------------------- Bring up assessment  # --------------------------------------------------------- Bring up assessment
     &assessparms($r);      &assessparms($r);
 # ---------------------------------------------- This is for course environment  # ---------------------------------------------- This is for course environment
    } elsif ($ENV{'form.overview'}) {
  } else {   } else {
     &crsenv($r);      &crsenv($r);
  }   }
Removed from v.1.119  
changed lines
  Added in v.1.120

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