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

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

version 1.139.2.2, 2003/12/12 19:41:11 version 1.141, 2003/12/04 21:45:18
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 $SelectSpreadsheetFile=&mt('Select Spreadsheet 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>'.&mt('Feedback Addresses for Resource Content Question').
                                  'Questions</b><br />(<tt>user:domain,'.                                   '</b><br />(<tt>user:domain,'.
                                  'user:domain(section;section;...;*;...),...</tt>)',                                   'user:domain(section;section;...;*;...),...</tt>)',
              'comment.email'  => '<b>Feedback Addresses for Course Content Comments</b><br />'.               'comment.email'  => '<b>'.&mt('Feedback Addresses for Course Content Comments').'</b><br />'.
                                  '(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',                                   '(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
              'policy.email'   => '<b>Feedback Addresses for Course Policy</b>'.               'policy.email'   => '<b>'.&mt('Feedback Addresses for Course Policy').'</b>'.
                                  '<br />(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',                                   '<br />(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
              'hideemptyrows'  => '<b>Hide Empty Rows in Spreadsheets</b><br />'.               'hideemptyrows'  => '<b>'.&mt('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 />'.               'pageseparators'  => '<b>'.&mt('Visibly Separate Items on Pages').'</b><br />'.
                                  '("<tt>yes</tt>" for visible separation, '.                                   '("<tt>'.&mt('yes').'</tt>" '.&mt('for visible separation').', '.
                                  'changes will not show until next login)',                                   &mt('changes will not show until next login').')',
   
              'plc.roles.denied'=> '<b>Disallow live chatroom use for '.               'plc.roles.denied'=> '<b>'.&mt('Disallow live chatroom use for Roles').
                                   'Roles</b><br />"<tt>st</tt>": '.                                    '</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"),         Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
              'plc.users.denied' =>                'plc.users.denied' => 
                           '<b>Disallow live chatroom use for Users</b><br />'.                            '<b>'.&mt('Disallow live chatroom use for Users').'</b><br />'.
                                  '(<tt>user:domain,user:domain,...</tt>)',                                   '(<tt>user:domain,user:domain,...</tt>)',
   
              'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.               'pch.roles.denied'=> '<b>'.&mt('Disallow Resource Discussion for Roles').
                                   'Roles</b><br />"<tt>st</tt>": '.                                    '</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"),         Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
              'pch.users.denied' =>                'pch.users.denied' => 
                           '<b>Disallow Resource Discussion for Users</b><br />'.                            '<b>'.&mt('Disallow Resource Discussion for Users').'</b><br />'.
                                  '(<tt>user:domain,user:domain,...</tt>)',                                   '(<tt>user:domain,user:domain,...</tt>)',
              'spreadsheet_default_classcalc'                'spreadsheet_default_classcalc' 
                  => '<b>Default Course Spreadsheet</b> '.                   => '<b>'.&mt('Default Course Spreadsheet').'</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_classcalc'".                      "('envform','spreadsheet_default_classcalc'".
                     ",'spreadsheet')\">Select Spreadsheet File</a><br />",                      ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
              'spreadsheet_default_studentcalc'                'spreadsheet_default_studentcalc' 
                  => '<b>Default Student Spreadsheet</b> '.                   => '<b>'.&mt('Default Student Spreadsheet').'</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_calc'".                      "('envform','spreadsheet_default_calc'".
                     ",'spreadsheet')\">Select Spreadsheet File</a><br />",                      ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
              'spreadsheet_default_assesscalc'                'spreadsheet_default_assesscalc' 
                  => '<b>Default Assessment Spreadsheet</b> '.                   => '<b>'.&mt('Default Assessment Spreadsheet').'</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_assesscalc'".                      "('envform','spreadsheet_default_assesscalc'".
                     ",'spreadsheet')\">Select Spreadsheet File</a><br />",                      ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
      'allow_limited_html_in_feedback'       'allow_limited_html_in_feedback'
          => '<b>Allow limited HTML in discussion posts</b><br />'.           => '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.
             '(Set value to "<tt>yes</tt>" to allow)',              '('.&mt('Set value to').' "<tt>'.&mt('yes').'</tt>" '.&mt('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>'.&mt('Allow problems to be split over pages').'</b><br />'.
                     ' ("<tt>yes</tt>" if allowed, anything else if not)',                      ' ("<tt>'.&mt('yes').'</tt>" '.&mt('if allowed, anything else if not').')',
              'anonymous_quiz'               'anonymous_quiz'
                  => '<b>Anonimous quiz/exam</b><br />'.                   => '<b>'.&mt('Anonimous quiz/exam').'</b><br />'.
                     ' (<tt><b>yes</b> to avoid print students names </tt>)',                      ' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',
              'default_enrollment_start_date' => '<b>Default beginning date '.               'default_enrollment_start_date' => '<b>'.&mt('Default beginning date when enrolling students').'</b>',
                                                 'when enrolling students</b>',               'default_enrollment_end_date'   => '<b>'.&mt('Default ending date when enrolling students').'</b>',
              'default_enrollment_end_date'   => '<b>Default ending date '.               'languages' => '<b>'.&mt('Languages used').'</b>',
                                                 'when enrolling students</b>',  
              'languages' => '<b>Languages used</b>',  
              'disable_receipt_display'               'disable_receipt_display'
                  => '<b>Disable display of problem receipts</b><br />'.                   => '<b>'.&mt('Disable display of problem receipts').'</b><br />'.
                     ' ("<tt>yes</tt>" to disable, anything else if not)'                      ' ("<tt>'.&mt('yes').'</tt>" '.&mt('to disable, anything else if not').')'
              );                ); 
         my @Display_Order = ('url','description','courseid','grading',          my @Display_Order = ('url','description','courseid','grading',
                              'default_xml_style','pageseparators',                               'default_xml_style','pageseparators',
Line 1614  sub crsenv { Line 1616  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 1656  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');
       my $Set=&mt('Set');
     $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.141

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