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

Diff for /loncom/interface/lonparmset.pm between versions 1.45 and 1.56

version 1.45, 2002/03/13 21:24:24 version 1.56, 2002/08/08 13:44:17
Line 43 Line 43
 # 12/19 Guy Albertelli  # 12/19 Guy Albertelli
 # 12/26,12/27 Gerd Kortemeyer  # 12/26,12/27 Gerd Kortemeyer
 #  #
   # YEAR=2002
   # 7/19 Jeremy Bowers
 ###  ###
   
 package Apache::lonparmset;  package Apache::lonparmset;
Line 557  sub assessparms { Line 559  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 732  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><br><font color=red> '.      ('url'            => '<b>Top Level Map</b> '.
                                    '<a href="javascript:openbrowser'.
                                    "('envform','url','sequence')\">".
                                    'Browse</a><br><font color=red> '.
                                  'Modification may make assessment data '.                                   'Modification may make assessment data '.
                                  'inaccessible</font>',                                   'inaccessible</font>',
              'description'    => '<b>Course Description</b>',               'description'    => '<b>Course Description</b>',
              'courseid'       => '<b>Course ID or number</b><br>'.               'courseid'       => '<b>Course ID or number</b><br>'.
                                  '(internal, optional)',                                   '(internal, optional)',
                'default_xml_style' => '<b>Default XML Style File</b> '.
                       '<a href="javascript:openbrowser'.
                       "('envform','default_xml_style'".
                       ",'sty')\">Browse</a><br>",
              'question.email' => '<b>Feedback Addresses for Content '.               'question.email' => '<b>Feedback Addresses for Content '.
                                  'Questions</b><br>(<tt>user:domain,'.                                   'Questions</b><br>(<tt>user:domain,'.
                                  'user:domain,...</tt>)',                                   'user:domain,...</tt>)',
Line 745  sub crsenv { Line 754  sub crsenv {
                                  '<br>(<tt>user:domain,user:domain,...</tt>)',                                   '<br>(<tt>user:domain,user:domain,...</tt>)',
              'hideemptyrows'  => '<b>Hide Empty Rows in Spreadsheets</b><br>'.               'hideemptyrows'  => '<b>Hide Empty Rows in Spreadsheets</b><br>'.
                                  '("<tt>yes</tt>" for default hiding)',                                   '("<tt>yes</tt>" for default hiding)',
                'pageseparators'  => '<b>Visibly Separate Items on Pages</b><br>'.
                                    '("<tt>yes</tt>" for visible separation)',
              'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.               'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.
                                   'Students</b><br>"<tt>st</tt>": '.                                    'Roles</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>) '.
          Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
                'pch.users.denied' => 
                             '<b>Disallow Resource Discussion for Users</b><br>'.
                                    '(<tt>user:domain,user:domain,...</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 757  sub crsenv { Line 787  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>'.
  $output.='<tr><td><i>Create New Environment Variable</i><br>'.                  '<td><input name="'.$_.'_value" size=40 '.
     '<input type="text" size=40 name="newp_name"  ></td><td>'.                  'value="'.$values{$_}.'" '.$onchange.' /></td>'.
             '<input type="text" size=40 name="newp_value" ></td><td>'.                  '<td><input type=checkbox name="'.$_.'_setparmval"></td>'.
     '<input type="checkbox" name="newp_setparmval"></td></tr>';                  '</tr>'."\n";
    }
           my $onchange = 'onchange="javascript:window.document.forms'.
               '[\'envform\'].elements[\'newp_setparmval\']'.
               '.checked=true;"';
    $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>
   <script type="text/javascript" language="Javascript" >
       var editbrowser;
       function openbrowser(formname,elementname,only,omit) {
           var url = '/res/?';
           if (editbrowser == null) {
               url += 'launch=1&';
           }
           url += 'catalogmode=interactive&';
           url += 'mode=parmset&';
           url += 'form=' + formname + '&';
           if (only != null) {
               url += 'only=' + only + '&';
           } 
           if (omit != null) {
               url += 'omit=' + omit + '&';
           }
           url += 'element=' + elementname + '';
           var title = 'Browser';
           var options = 'scrollbars=1,resizable=1,menubar=0';
           options += ',width=700,height=600';
           editbrowser = open(url,title,options,'1');
           editbrowser.focus();
       }
   </script>
 <head>  <head>
 <title>LON-CAPA Course Environment</title>  <title>LON-CAPA Course Environment</title>
 </head>  </head>
Removed from v.1.45  
changed lines
  Added in v.1.56

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