Diff for /loncom/interface/lonparmset.pm between versions 1.139.2.2 and 1.140

version 1.139.2.2, 2003/12/12 19:41:11 version 1.140, 2003/12/04 20:06:29
Line 1099  sub assessparms { Line 1099  sub assessparms {
                                   'rl'     => "Resource Level",                                    'rl'     => "Resource Level",
   'ic'     => 'in Course',    'ic'     => 'in Course',
   'aut'    => "Assessment URL and Title",    'aut'    => "Assessment URL and Title",
   'type'   => 'Type',    'type'   => &mt('Type'),
   'emof'   => "Enclosing Map or Folder",    'emof'   => "Enclosing Map or Folder",
   'part'   => 'Part',    'part'   => &mt('Part'),
                                   'pn'     => 'Parameter Name',                                    'pn'     => 'Parameter Name',
   'def'    => 'default',    'def'    => 'default',
   'femof'  => 'from Enclosing Map or Folder',    'femof'  => 'from Enclosing Map or Folder',
Line 1507  sub crsenv { Line 1507  sub crsenv {
 # -------------------------------------------------------- Get parameters again  # -------------------------------------------------------- Get parameters again
   
     my %values=&Apache::lonnet::dump('environment',$dom,$crs);      my %values=&Apache::lonnet::dump('environment',$dom,$crs);
       my $SelectStyleFile=&mt('Select Style File');
     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>'.&mt('Top Level Map').'</b> '.
                                  '<a href="javascript:openbrowser'.                                   '<a href="javascript:openbrowser'.
                                  "('envform','url','sequence')\">".                                   "('envform','url','sequence')\">".
                                  'Select Map</a><br /><font color=red> '.                                   &mt('Select Map').'</a><br /><font color=red> '.
                                  'Modification may make assessment data '.                                   &mt('Modification may make assessment data inaccessible').
                                  'inaccessible</font>',                                   '</font>',
              'description'    => '<b>Course Description</b>',               'description'    => '<b>'.&mt('Course Description').'</b>',
              'courseid'       => '<b>Course ID or number</b><br />'.               'courseid'       => '<b>'.&mt('Course ID').' '.&mt('or').' '.&mt('number').
                                  '(internal, optional)',                                   '</b><br />'.
              'grading'        => '<b>Grading</b>'.                                   '('.&mt('internal').', '.&mt('optional').')',
                                  '"standard", "external", or any other value.'.               'grading'        => '<b>'.&mt('Grading').'</b>'.
                                  '  Default for new courses is "standard".',                                   ' "'.&mt('standard').'", "'.&mt('external').'", '.
                                    &mt('or any other value').'.'.
              'default_xml_style' => '<b>Default XML Style File</b> '.                                   '  '.&mt('Default for new courses is').' "'.
                                    &mt('standard').'".',
                'default_xml_style' => '<b>'.&mt('Default XML Style File').'</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','default_xml_style'".                      "('envform','default_xml_style'".
                     ",'sty')\">Select Style File</a><br>",                      ",'sty')\">$SelectStyleFile</a><br>",
              'question.email' => '<b>Feedback Addresses for Resource Content '.               'question.email' => '<b>Feedback Addresses for Resource Content '.
                                  'Questions</b><br />(<tt>user:domain,'.                                   'Questions</b><br />(<tt>user:domain,'.
                                  'user:domain(section;section;...;*;...),...</tt>)',                                   'user:domain(section;section;...;*;...),...</tt>)',
Line 1578  sub crsenv { Line 1581  sub crsenv {
          => '<b>Allow limited HTML in discussion posts</b><br />'.           => '<b>Allow limited HTML in discussion posts</b><br />'.
             '(Set value to "<tt>yes</tt>" to allow)',              '(Set value to "<tt>yes</tt>" to allow)',
      'rndseed'       'rndseed'
          => '<b>Randomization algorithm used</b> <br />'.           => '<b>'.&mt('Randomization algorithm used').'</b> <br />'.
                     '<font color="red">Modifying this will make problems '.                      '<font color="red">'.&mt('Modifying this will make problems').' '.
                     'have different numbers and answers</font>',                      &mt('have different numbers and answers').'</font>',
              'problem_stream_switch'               '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)',
Line 1591  sub crsenv { Line 1594  sub crsenv {
                                                 'when enrolling students</b>',                                                  'when enrolling students</b>',
              'default_enrollment_end_date'   => '<b>Default ending date '.               'default_enrollment_end_date'   => '<b>Default ending date '.
                                                 'when enrolling students</b>',                                                  'when enrolling students</b>',
              'languages' => '<b>Languages used</b>',               'languages' => '<b>'.&mt('Languages used').'</b>',
              'disable_receipt_display'               'disable_receipt_display'
                  => '<b>Disable display of problem receipts</b><br />'.                   => '<b>Disable display of problem receipts</b><br />'.
                     ' ("<tt>yes</tt>" to disable, anything else if not)'                      ' ("<tt>yes</tt>" to disable, anything else if not)'
Line 1614  sub crsenv { Line 1617  sub crsenv {
                              'default_enrollment_end_date',                               'default_enrollment_end_date',
                              );                               );
  foreach my $parameter (sort(keys(%values))) {   foreach my $parameter (sort(keys(%values))) {
             unless ($parameter =~ m/^internal\./) {      if (! $descriptions{$parameter}) {
                 if (! $descriptions{$parameter}) {                  $descriptions{$parameter}=$parameter;
                     $descriptions{$parameter}=$parameter;                  push(@Display_Order,$parameter);
                     push(@Display_Order,$parameter);      }
                 }  
             }  
  }   }
         foreach my $parameter (@Display_Order) {          foreach my $parameter (@Display_Order) {
             my $description = $descriptions{$parameter};              my $description = $descriptions{$parameter};
Line 1656  sub crsenv { Line 1657  sub crsenv {
                 $onchange.' /></td><td>'.                  $onchange.' /></td><td>'.
     '<input type="checkbox" name="newp_setparmval" /></td></tr>';      '<input type="checkbox" name="newp_setparmval" /></td></tr>';
     }      }
       my $Parameter=&mt('Parameter');
       my $Value=&mt('Value');
     $r->print(<<ENDENV);      $r->print(<<ENDENV);
 <html>  <html>
 <script type="text/javascript" language="Javascript" >  <script type="text/javascript" language="Javascript" >
Line 1690  $bodytag Line 1693  $bodytag
 $setoutput  $setoutput
 <p>  <p>
 <table border=2>  <table border=2>
 <tr><th>Parameter</th><th>Value</th><th>Set?</th></tr>  <tr><th>$Parameter</th><th>$Value</th><th>Set?</th></tr>
 $output  $output
 </table>  </table>
 <input type="submit" name="crsenv" value="Set Course Environment">  <input type="submit" name="crsenv" value="Set Course Environment">
Line 1759  ENDOVER Line 1762  ENDOVER
  }   }
     }      }
 # Store  # Store
     my $delentries=$#deldata+1;      &Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs);
     my @newdatakeys=keys %newdata;      &Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs);
     my $putentries=$#newdatakeys+1;  
     if ($delentries) {  
  if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {  
     $r->print('<h2>'.&mt('Deleted [_1] parameter(s)</h2>',$delentries));  
  } else {  
     $r->print('<h2><font color="red">'.  
       &mt('Error deleting parameters').'</font></h2>');  
  }  
     }  
     if ($putentries) {  
  if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {  
     $r->print('<h2>'.&mt('Stored [_1] parameter(s)</h2>',$putentries));  
  } else {  
     $r->print('<h2><font color="red">'.  
       &mt('Error storing parameters').'</font></h2>');  
  }  
     }  
 # Read and display  # Read and display
     my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);      my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
     my $oldsection='';      my $oldsection='';
Line 1785  ENDOVER Line 1771  ENDOVER
     my $oldpart='';      my $oldpart='';
     my $pointer=0;      my $pointer=0;
     $tableopen=0;      $tableopen=0;
     my $foundkeys=0;  
     foreach my $thiskey (sort keys %resourcedata) {      foreach my $thiskey (sort keys %resourcedata) {
  if ($resourcedata{$thiskey.'.type'}) {   if ($resourcedata{$thiskey.'.type'}) {
     my ($course,$middle,$part,$name)=      my ($course,$middle,$part,$name)=
Line 1823  ENDOVER Line 1808  ENDOVER
     $r->print(&tablestart().'<tr><td><b>'.$name.      $r->print(&tablestart().'<tr><td><b>'.$name.
       ':</b></td><td><input type="checkbox" name="del_'.        ':</b></td><td><input type="checkbox" name="del_'.
       $thiskey.'" /></td><td>');        $thiskey.'" /></td><td>');
     $foundkeys++;  
     if ($resourcedata{$thiskey.'.type'}=~/^date/) {      if ($resourcedata{$thiskey.'.type'}=~/^date/) {
  my $jskey='key_'.$pointer;   my $jskey='key_'.$pointer;
  $pointer++;   $pointer++;
Line 1842  ENDOVER Line 1826  ENDOVER
  }   }
     }      }
           
     $r->print(&tableend().'<p>'.      $r->print(&tableend().
  ($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no course or section parameters.')).'</p></form></body></html>');        '<p><input type="submit" value="'.&mt('Modify Parameters').'" /></p></form></body></html>');
 }  }
   
 ##################################################  ##################################################

Removed from v.1.139.2.2  
changed lines
  Added in v.1.140


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