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

Diff for /loncom/interface/lonparmset.pm between versions 1.33 and 1.34

version 1.33, 2001/08/09 19:28:47 version 1.34, 2001/09/01 14:13:47
Line 12 Line 12
 # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,  # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,
 # 12/08,12/12,  # 12/08,12/12,
 # 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09,  # 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09,
 # 07/05,07/06,08/08,08/09 Gerd Kortemeyer  # 07/05,07/06,08/08,08/09,09/01 Gerd Kortemeyer
   
 package Apache::lonparmset;  package Apache::lonparmset;
   
Line 500  ENDHEAD Line 500  ENDHEAD
     $r->print('<option value="'.$_.'"');      $r->print('<option value="'.$_.'"');
             if ($fcat eq $_) { $r->print(' selected'); }              if ($fcat eq $_) { $r->print(' selected'); }
             $r->print('>'.$allkeys{$_}.'</option>');              $r->print('>'.$allkeys{$_}.'</option>');
         } keys %allkeys;          } reverse sort keys %allkeys;
        $r->print(         $r->print(
     '</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>');      '</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>');
         $r->print('<option value=all>All Maps</option>');          $r->print('<option value=all>All Maps</option>');
Line 517  ENDHEAD Line 517  ENDHEAD
     $r->print('<option value="'.$_.'"');      $r->print('<option value="'.$_.'"');
             if ($pscat eq $_) { $r->print(' selected'); }              if ($pscat eq $_) { $r->print(' selected'); }
             $r->print('>'.$allkeys{$_}.'</option>');              $r->print('>'.$allkeys{$_}.'</option>');
         } keys %allkeys;          } reverse sort keys %allkeys;
         $r->print(          $r->print(
 '</select></td></tr></table><br><input name=dis type="submit" value="Display">'  '</select></td></tr></table><br><input name=dis type="submit" value="Display">'
                  );                   );
Line 558  ENDTABLEHEADFOUR Line 558  ENDTABLEHEADFOUR
     if ($uname) {      if ($uname) {
   $r->print('<th>general</th><th>for Enclosing Map</th><th>for Resource</th>');    $r->print('<th>general</th><th>for Enclosing Map</th><th>for Resource</th>');
     }      }
  $r->print('</tr><tr>');   $r->print('</tr>');
          my $defbgone='';           my $defbgone='';
          my $defbgtwo='';           my $defbgtwo='';
   map {    map {
Line 581  ENDTABLEHEADFOUR Line 581  ENDTABLEHEADFOUR
     @outpar=();      @outpar=();
             my $thistitle='';              my $thistitle='';
             my %name=   ();              my %name=   ();
        undef %name;
             my %part=   ();              my %part=   ();
     my %display=();      my %display=();
     my %type=   ();      my %type=   ();
Line 588  ENDTABLEHEADFOUR Line 589  ENDTABLEHEADFOUR
             my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});              my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
   
             map {              map {
        if (($_ eq $catmarker) || ($pscat eq 'all')) {
  $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');   $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
                 $name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');                  $name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');
                 $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');                  $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
Line 596  ENDTABLEHEADFOUR Line 598  ENDTABLEHEADFOUR
                 $default{$_}=&Apache::lonnet::metadata($uri,$_);                  $default{$_}=&Apache::lonnet::metadata($uri,$_);
                 $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');                  $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
                 $thistitle=&Apache::lonnet::metadata($uri,$_.'.title');                  $thistitle=&Apache::lonnet::metadata($uri,$_.'.title');
        }
             } split(/\,/,$keyp{$rid});              } split(/\,/,$keyp{$rid});
   
     my $totalparms=scalar keys %name;      my $totalparms=scalar keys %name;
     my $isdef=1;    if ($totalparms>0) {
     unless ($totalparms) { $totalparms=1; $isdef=0; }              my $firstrow=1;
     if ($pscat ne 'all') { $totalparms=1; }              $r->print('<tr><td bgcolor='.$defbgone.
             $r->print('<td bgcolor='.$defbgone.  
                 ' rowspan='.$totalparms.'><tt><font size=-1>'.                  ' rowspan='.$totalparms.'><tt><font size=-1>'.
                 join(' / ',split(/\//,$uri)).                  join(' / ',split(/\//,$uri)).
                 '</font></tt><p><b>'.                  '</font></tt><p><b>'.
Line 616  ENDTABLEHEADFOUR Line 618  ENDTABLEHEADFOUR
             $r->print('<td bgcolor='.$defbgone.              $r->print('<td bgcolor='.$defbgone.
                     ' rowspan='.$totalparms.'><tt><font size=-1>'.                      ' rowspan='.$totalparms.'><tt><font size=-1>'.
       join(' / ',split(/\//,$mapp{$rid})).'</font></tt></td>');        join(' / ',split(/\//,$mapp{$rid})).'</font></tt></td>');
   if ($isdef) {  
             map {              map {
      if (($_ eq $catmarker) || ($pscat eq 'all')) {  
        my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});         my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});
                  unless ($firstrow) { 
                     $r->print('<tr>'); 
                  } else {
      $firstrow=0;
                  }
                $r->print("<td bgcolor=".$defbgtwo.                 $r->print("<td bgcolor=".$defbgtwo.
                   ">$part{$_}</td><td bgcolor=".$defbgone.                    ">$part{$_}</td><td bgcolor=".$defbgone.
                   ">$display{$_}</td>");                    ">$display{$_}</td>");
Line 686  ENDTABLEHEADFOUR Line 690  ENDTABLEHEADFOUR
                $r->print(                 $r->print(
  '<td bgcolor=#999999><font color=#FFFFFF>'.$sessionval.'&nbsp;'.   '<td bgcolor=#999999><font color=#FFFFFF>'.$sessionval.'&nbsp;'.
         '</font></td>');          '</font></td>');
                $r->print("</tr>\n<tr>");                 $r->print("</tr>");
    }  
    } sort keys %name;     } sort keys %name;
  } else {   }
      $r->print("</tr>\n<tr>");  
         }  
 # -------------------------------------------------- End entry for one resource  # -------------------------------------------------- End entry for one resource
  }   }
  } @ids;   } @ids;
Removed from v.1.33  
changed lines
  Added in v.1.34

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