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

Diff for /loncom/interface/lonparmset.pm between versions 1.110 and 1.114

version 1.110, 2003/06/24 20:19:45 version 1.114, 2003/07/10 06:16:29
Line 488  sub print_row { Line 488  sub print_row {
 sub print_td {  sub print_td {
     my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;      my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;
     $r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).      $r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).
               ' align="center">'.                ' align="center">');
               &plink($$typeoutpar[$which],$$display{$value},$$outpar[$which],      if ($which<10) {
                      $mprefix."$which",'parmform.pres','psub').'</td>'."\n");   $r->print(&plink($$typeoutpar[$which],
    $$display{$value},$$outpar[$which],
    $mprefix."$which",'parmform.pres','psub'));
       } else {
    $r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
       }
       $r->print('</td>'."\n");
 }  }
   
 sub get_env_multiple {  sub get_env_multiple {
Line 892  sub assessparms { Line 898  sub assessparms {
   
     &startpage($r,$id,$udom,$csec,$uname,$have_assesments);      &startpage($r,$id,$udom,$csec,$uname,$have_assesments);
   
     if (!$have_assesments) { return ''; }      if (!$have_assesments) {
    untie(%bighash);
    untie(%parmhash);
    return '';
       }
 #    if ($ENV{'form.url'}) {  #    if ($ENV{'form.url'}) {
 # $r->print('<input type="hidden" value="'.$ENV{'form.url'}.  # $r->print('<input type="hidden" value="'.$ENV{'form.url'}.
 #  '" name="url"><input type="hidden" name="command" value="set">');  #  '" name="url"><input type="hidden" name="command" value="set">');
Line 1517  sub crsenv { Line 1527  sub crsenv {
          => '<b>Randomization algorithm used</b> <br />'.           => '<b>Randomization algorithm used</b> <br />'.
                     '<font color="red">Modifying this will make problems '.                      '<font color="red">Modifying this will make problems '.
                     'have different numbers and answers</font>',                      'have different numbers and answers</font>',
              'problem_split'               'problem_stream_switch'
                  => '<b>Allow problems to be split over pages</b><br />'.                   => '<b>Allow problems to be split over pages</b><br />'.
                     ' ("<tt>yes</tt>" if allowed, anything else if not)',,                      ' ("<tt>yes</tt>" if allowed, anything else if not)',,
              'anonimous_quiz'               'anonymous_quiz'
                  => '<b>Anonimous quiz/exam</b><br />'.                   => '<b>Anonimous quiz/exam</b><br />'.
                     ' (<tt><b>yes</b> to avoid print students names </tt>)',                      ' (<tt><b>yes</b> to avoid print students names </tt>)',
              'default_enrollment_start_date' => '<b>Default beginning date '.               'default_enrollment_start_date' => '<b>Default beginning date '.
Removed from v.1.110  
changed lines
  Added in v.1.114

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