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

Diff for /loncom/interface/lonparmset.pm between versions 1.50 and 1.51

version 1.50, 2002/04/10 15:30:45 version 1.51, 2002/04/11 18:08:46
Line 754  sub crsenv { Line 754  sub crsenv {
                                   'TA, "<tt>in</tt>": '.                                    'TA, "<tt>in</tt>": '.
                                   'instructor;<br><tt>role,role,...</tt>)',                                    'instructor;<br><tt>role,role,...</tt>)',
              'spreadsheet_default_classcalc'                'spreadsheet_default_classcalc' 
                  => '<b>Default course spreadsheet</b>'.                   => '<b>Default course spreadsheet</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_classcalc'".                      "('envform','spreadsheet_default_classcalc'".
                     ",'spreadsheet')\">Browse</a><br>",                      ",'spreadsheet')\">Browse</a><br>",
              'spreadsheet_default_studentcalc'                'spreadsheet_default_studentcalc' 
                  => '<b>Default student spreadsheet</b>'.                   => '<b>Default student spreadsheet</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_calc'".                      "('envform','spreadsheet_default_calc'".
                     ",'spreadsheet')\">Browse</a><br>",                      ",'spreadsheet')\">Browse</a><br>",
              'spreadsheet_default_assesscalc'                'spreadsheet_default_assesscalc' 
                  => '<b>Default assessment spreadsheet</b>'.                   => '<b>Default assessment spreadsheet</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_assesscalc'".                      "('envform','spreadsheet_default_assesscalc'".
                     ",'spreadsheet')\">Browse</a><br>",                      ",'spreadsheet')\">Browse</a><br>",
Line 775  sub crsenv { Line 775  sub crsenv {
     }      }
  }   }
  foreach (sort keys %descriptions) {   foreach (sort keys %descriptions) {
     $output.='<tr><td>'.$descriptions{$_}.'</td><td><input name="'.              # onchange is javascript to automatically check the 'Set' button.
  $_.'_value" size=40 value="'.              my $onchange = 'onchange="javascript:window.document.forms'.
  $values{$_}.'"></td><td><input type=checkbox name="'.                  '[\'envform\'].elements[\''.$_.'_setparmval\']'.
  $_.'_setparmval"></td></tr>';                  '.checked=true;"';
       $output.='<tr><td>'.$descriptions{$_}.'</td>'.
                   '<td><input name="'.$_.'_value" size=40 '.
                   'value="'.$values{$_}.'" '.$onchange.' /></td>'.
                   '<td><input type=checkbox name="'.$_.'_setparmval"></td>'.
                   '</tr>'."\n";
  }   }
  $output.='<tr><td><i>Create New Environment Variable</i><br>'.          my $onchange = 'onchange="javascript:window.document.forms'.
     '<input type="text" size=40 name="newp_name"  ></td><td>'.              '[\'envform\'].elements[\'newp_setparmval\']'.
             '<input type="text" size=40 name="newp_value" ></td><td>'.              '.checked=true;"';
     '<input type="checkbox" name="newp_setparmval"></td></tr>';   $output.='<tr><td><i>Create New Environment Variable</i><br />'.
       '<input type="text" size=40 name="newp_name" '.
                   $onchange.' /></td><td>'.
               '<input type="text" size=40 name="newp_value" '.
                   $onchange.' /></td><td>'.
       '<input type="checkbox" name="newp_setparmval" /></td></tr>';
     }      }
     $r->print(<<ENDENV);      $r->print(<<ENDENV);
 <html>  <html>
Removed from v.1.50  
changed lines
  Added in v.1.51

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