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

Diff for /loncom/interface/lonparmset.pm between versions 1.143 and 1.149

version 1.143, 2003/12/08 23:17:52 version 1.149, 2004/01/28 17:16:27
Line 306  sub startpage { Line 306  sub startpage {
     'oi'    => "or ID",      'oi'    => "or ID",
     'ad'    => "at Domain"      'ad'    => "at Domain"
        );         );
       my $overallhelp=
    &Apache::loncommon::help_open_topic("Course_Setting_Parameters").
    &Apache::loncommon::help_open_faq(10).
    &Apache::loncommon::help_open_bug('Instructor Interface');
       my $assessparmhelp=&Apache::loncommon::help_open_topic("Cascading_Parameters","Assessment Parameters");
     $r->print(<<ENDHEAD);      $r->print(<<ENDHEAD);
 <html>  <html>
 <head>  <head>
Line 354  sub startpage { Line 359  sub startpage {
 $selscript  $selscript
 </head>  </head>
 $bodytag  $bodytag
   $overallhelp
 ENDHEAD  ENDHEAD
   
     unless ($trimheader) {$r->print(<<ENDHEAD2);      unless ($trimheader) {$r->print(<<ENDHEAD2);
Line 362  ENDHEAD Line 368  ENDHEAD
 <input type="submit" name="crsenv" value="$lt{'scep'}" />  <input type="submit" name="crsenv" value="$lt{'scep'}" />
 </form>  </form>
 <hr />  <hr />
   $assessparmhelp
 <form method="post" action="/adm/helper/parameter.helper" name="helpform">  <form method="post" action="/adm/helper/parameter.helper" name="helpform">
 <h4>$lt{'caphm'}</h4>  <h4>$lt{'caphm'}</h4>
 <input type="submit" value="$lt{'smcap'}" />  <input type="submit" value="$lt{'smcap'}" />
Line 1596  sub crsenv { Line 1603  sub crsenv {
              'languages' => '<b>'.&mt('Languages used').'</b>',               'languages' => '<b>'.&mt('Languages used').'</b>',
              'disable_receipt_display'               'disable_receipt_display'
                  => '<b>'.&mt('Disable display of problem receipts').'</b><br />'.                   => '<b>'.&mt('Disable display of problem receipts').'</b><br />'.
                     ' ("<tt>'.&mt('yes').'</tt>" '.&mt('to disable, anything else if not').')'                      ' ("<tt>'.&mt('yes').'</tt>" '.&mt('to disable, anything else if not').')',
        'tthoptions'
            => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'
              );                ); 
         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 1623  sub crsenv {
                              'hideemptyrows',                               'hideemptyrows',
                              'default_enrollment_start_date',                               'default_enrollment_start_date',
                              'default_enrollment_end_date',                               'default_enrollment_end_date',
        'tthoptions'
                              );                               );
  foreach my $parameter (sort(keys(%values))) {   foreach my $parameter (sort(keys(%values))) {
             unless ($parameter =~ m/^internal\./) {              unless ($parameter =~ m/^internal\./) {
Line 1764  ENDOVER Line 1774  ENDOVER
  }   }
     }      }
 # Store  # Store
     &Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs);      my $delentries=$#deldata+1;
     &Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs);      my @newdatakeys=keys %newdata;
       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 1773  ENDOVER Line 1800  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 1810  ENDOVER Line 1838  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 1828  ENDOVER Line 1857  ENDOVER
  }   }
     }      }
           
     $r->print(&tableend().      $r->print(&tableend().'<p>'.
       '<p><input type="submit" value="'.&mt('Modify Parameters').'" /></p></form></body></html>');   ($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no course or section parameters.')).'</p></form></body></html>');
 }  }
   
 ##################################################  ##################################################
Removed from v.1.143  
changed lines
  Added in v.1.149

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