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

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

version 1.141, 2003/12/04 21:45:18 version 1.148, 2004/01/15 03:18:19
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 1099  sub assessparms { Line 1106  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'   => &mt('Type'),    'type'   => 'Type',
   'emof'   => "Enclosing Map or Folder",    'emof'   => "Enclosing Map or Folder",
   'part'   => &mt('Part'),    'part'   => 'Part',
                                   'pn'     => 'Parameter Name',                                    'pn'     => 'Parameter Name',
   'def'    => 'default',    'def'    => 'default',
   'femof'  => 'from Enclosing Map or Folder',    'femof'  => 'from Enclosing Map or Folder',
Line 1616  sub crsenv { Line 1623  sub crsenv {
                              'default_enrollment_end_date',                               'default_enrollment_end_date',
                              );                               );
  foreach my $parameter (sort(keys(%values))) {   foreach my $parameter (sort(keys(%values))) {
     if (! $descriptions{$parameter}) {              unless ($parameter =~ m/^internal\./) {
                 $descriptions{$parameter}=$parameter;                  if (! $descriptions{$parameter}) {
                 push(@Display_Order,$parameter);                      $descriptions{$parameter}=$parameter;
     }                      push(@Display_Order,$parameter);
                   }
               }
  }   }
         foreach my $parameter (@Display_Order) {          foreach my $parameter (@Display_Order) {
             my $description = $descriptions{$parameter};              my $description = $descriptions{$parameter};
Line 1762  ENDOVER Line 1771  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 1771  ENDOVER Line 1797  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 1808  ENDOVER Line 1835  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 1826  ENDOVER Line 1854  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.141  
changed lines
  Added in v.1.148

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