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

Diff for /loncom/interface/lonparmset.pm between versions 1.123 and 1.124

version 1.123, 2003/09/04 22:36:47 version 1.124, 2003/09/05 03:47:47
Line 1666  ENDENV Line 1666  ENDENV
 }  }
 ##################################################  ##################################################
   
   my $tableopen;
   
   sub tablestart {
       if ($tableopen) {
    return '';
       } else {
    $tableopen=1;
    return '<table border="2"><tr><th>Parameter</th><th>Delete</th><th>Set to ...</th></tr>';
       }
   }
   
   sub tableend {
       if ($tableopen) {
    $tableopen=0;
    return '</table>';
       } else {
    return'';
       }
   }
   
 sub overview {  sub overview {
     my $r=shift;      my $r=shift;
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
Line 1681  $bodytag Line 1701  $bodytag
 <form method="post" action="/adm/parmset" name="overviewform">  <form method="post" action="/adm/parmset" name="overviewform">
 <input type="hidden" name="overview" value="1" />  <input type="hidden" name="overview" value="1" />
 ENDOVER  ENDOVER
   # Setting
       my %olddata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
       my %newdata=();
       undef %newdata;
       my @deldata=();
       undef @deldata;
       foreach (keys %ENV) {
    if ($_=~/^form\.([a-z]+)\_(.+)$/) {
       my $cmd=$1;
       my $thiskey=$2;
       if ($cmd eq 'set') {
    my $data=$ENV{$_};
    if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
       } elsif ($cmd eq 'del') {
    push (@deldata,$thiskey);
       } elsif ($cmd eq 'datepointer') {
    my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_});
    if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
       }
    }
       }
   # Store
       &Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs);
       &Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs);
 # 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='';
     my $oldrealm='';      my $oldrealm='';
     my $oldpart='';      my $oldpart='';
     my $pointer=0;      my $pointer=0;
       $tableopen=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 1704  ENDOVER Line 1749  ENDOVER
  $realm='<font color="orange">Resource: '.&Apache::lonnet::gettitle($middle).'</font>';   $realm='<font color="orange">Resource: '.&Apache::lonnet::gettitle($middle).'</font>';
     }      }
     if ($section ne $oldsection) {      if ($section ne $oldsection) {
  $r->print("\n<hr /><h1>$section</h1>");   $r->print(&tableend()."\n<hr /><h1>$section</h1>");
  $oldsection=$section;   $oldsection=$section;
  $oldrealm='';   $oldrealm='';
     }      }
     if ($realm ne $oldrealm) {      if ($realm ne $oldrealm) {
  $r->print("\n<h2>$realm</h2>");   $r->print(&tableend()."\n<h2>$realm</h2>");
  $oldrealm=$realm;   $oldrealm=$realm;
  $oldpart='';   $oldpart='';
     }      }
     if ($part ne $oldpart) {      if ($part ne $oldpart) {
  $r->print("\n<h3><font color='blue'>Part: $part</font></h3>");   $r->print(&tableend().
     "\n<h3><font color='blue'>Part: $part</font></h3>");
  $oldpart=$part;   $oldpart=$part;
     }      }
 #  #
 # Ready to print  # Ready to print
 #  #
     $r->print('<br /><b>'.$name.':</b>');      $r->print(&tablestart().'<tr><td><b>'.$name.
         ':</b></td><td><input type="checkbox" name="del_'.
         $thiskey.'" /></td><td>');
     if ($resourcedata{$thiskey.'.type'}=~/^date/) {      if ($resourcedata{$thiskey.'.type'}=~/^date/) {
  my $jskey='key_'.$pointer;   my $jskey='key_'.$pointer;
  $pointer++;   $pointer++;
Line 1735  ENDOVER Line 1783  ENDOVER
   '<input type="text" name="set_'.$thiskey.'" value="'.    '<input type="text" name="set_'.$thiskey.'" value="'.
   $resourcedata{$thiskey}.'">');    $resourcedata{$thiskey}.'">');
     }      }
       $r->print('</td></tr>');
  }   }
     }      }
     $r->print('</form></body></html>');      
       $r->print(&tableend().
         '<p><input type="submit" value="Modify Parameters" /></p></form></body></html>');
 }  }
   
 ##################################################  ##################################################
Removed from v.1.123  
changed lines
  Added in v.1.124

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