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

Diff for /loncom/interface/lonparmset.pm between versions 1.46 and 1.49

version 1.46, 2002/03/19 19:55:52 version 1.49, 2002/04/09 18:39:30
Line 557  sub assessparms { Line 557  sub assessparms {
     if (!$pssymb) {      if (!$pssymb) {
  $r->print('</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>');   $r->print('</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>');
  $r->print('<option value=all>All Maps</option>');   $r->print('<option value=all>All Maps</option>');
  foreach (keys %allmaps) {   foreach (sort keys %allmaps) {
     $r->print('<option value="'.$_.'"');      $r->print('<option value="'.$_.'"');
     if (($pssymb=~/^$allmaps{$_}/) ||       if (($pssymb=~/^$allmaps{$_}/) || 
  ($pschp eq $_)) { $r->print(' selected'); }   ($pschp eq $_)) { $r->print(' selected'); }
Line 730  sub crsenv { Line 730  sub crsenv {
     my $output='';      my $output='';
     if (! exists($values{'con_lost'})) {      if (! exists($values{'con_lost'})) {
         my %descriptions=          my %descriptions=
     ('url'            => '<b>Top Level Map</b>'.      ('url'            => '<b>Top Level Map</b> '.
                                  '<a href="javascript:openbrowser'.                                   '<a href="javascript:openbrowser'.
                                  "('envform','url')\">".                                   "('envform','url','sequence')\">".
                                  'Browse</a><br><font color=red> '.                                   'Browse</a><br><font color=red> '.
                                  'Modification may make assessment data '.                                   'Modification may make assessment data '.
                                  'inaccessible</font>',                                   'inaccessible</font>',
Line 752  sub crsenv { Line 752  sub crsenv {
                                   'Students</b><br>"<tt>st</tt>": '.                                    'Students</b><br>"<tt>st</tt>": '.
                                   'student, "<tt>ta</tt>": '.                                    'student, "<tt>ta</tt>": '.
                                   'TA, "<tt>in</tt>": '.                                    'TA, "<tt>in</tt>": '.
                                   'instructor;<br><tt>role,role,...</tt>)'                                    'instructor;<br><tt>role,role,...</tt>)',
                'spreadsheet_default_classcalc' 
                    => '<b>Default course spreadsheet</b>',
   #                    '<a href="javascript:openbrowser'.
   #                    "('envform','spreadsheet_default_classcalc'".
   #                    ",'spreadsheet')\">Browse</a><br>",
                'spreadsheet_default_studentcalc' 
                    => '<b>Default student spreadsheet</b>',
   #                    '<a href="javascript:openbrowser'.
   #                    "('envform','spreadsheet_default_calc'".
   #                    ",'spreadsheet')\">Browse</a><br>",
                'spreadsheet_default_assesscalc' 
                    => '<b>Default assessment spreadsheet</b>'
   #                    '<a href="javascript:openbrowser'.
   #                    "('envform','spreadsheet_default_assesscalc'".
   #                    ",'spreadsheet')\">Browse</a><br>",
              );               );
  foreach (keys(%values)) {   foreach (keys(%values)) {
     unless ($descriptions{$_}) {      unless ($descriptions{$_}) {
Line 774  sub crsenv { Line 789  sub crsenv {
 <html>  <html>
 <script type="text/javascript" language="Javascript" >  <script type="text/javascript" language="Javascript" >
     var editbrowser;      var editbrowser;
     function openbrowser(formname,elementname) {      function openbrowser(formname,elementname,only,omit) {
         var url = '/res/?';          var url = '/res/?';
         if (editbrowser == null) {          if (editbrowser == null) {
             url += 'launch=1&';              url += 'launch=1&';
Line 782  sub crsenv { Line 797  sub crsenv {
         url += 'catalogmode=interactive&';          url += 'catalogmode=interactive&';
         url += 'mode=parmset&';          url += 'mode=parmset&';
         url += 'form=' + formname + '&';          url += 'form=' + formname + '&';
           if (only != null) {
               url += 'only=' + only + '&';
           } 
           if (omit != null) {
               url += 'omit=' + omit + '&';
           }
         url += 'element=' + elementname + '';          url += 'element=' + elementname + '';
         var title = 'Browser';          var title = 'Browser';
         var options = 'scrollbars=1,resizable=1,menubar=0';          var options = 'scrollbars=1,resizable=1,menubar=0';
Removed from v.1.46  
changed lines
  Added in v.1.49

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