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

Diff for /loncom/interface/lonparmset.pm between versions 1.19 and 1.21

version 1.19, 2000/12/08 17:16:37 version 1.21, 2001/01/16 15:52:09
Line 9 Line 9
 #  #
 # 10/11,10/12,10/16 Gerd Kortemeyer)  # 10/11,10/12,10/16 Gerd Kortemeyer)
 #  #
 # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,12/08 Gerd Kortemeyer  # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,
   # 12/08,12/12,
   # 16/01/01 Gerd Kortemeyer
   
 package Apache::lonparmset;  package Apache::lonparmset;
   
Line 250  sub handler { Line 252  sub handler {
                           $allkeys{$allkey}=$display;                            $allkeys{$allkey}=$display;
                           if ($allkey eq $fcat) {                            if ($allkey eq $fcat) {
                              $defp{$id}=                               $defp{$id}=
                               &Apache::lonnet::metadata($srcf,$key.'.default');                                &Apache::lonnet::metadata($srcf,$key);
   }    }
                           if ($keyp{$id}) {                            if ($keyp{$id}) {
       $keyp{$id}.=','.$key;        $keyp{$id}.=','.$key;
Line 490  ENDTABLEHEADFOUR Line 492  ENDTABLEHEADFOUR
                 $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');                  $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
                 unless ($display{$_}) { $display{$_}=''; }                  unless ($display{$_}) { $display{$_}=''; }
                 $display{$_}.=' ('.$name{$_}.')';                  $display{$_}.=' ('.$name{$_}.')';
                 $default{$_}=&Apache::lonnet::metadata($uri,$_.'.default');                  $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;
       unless ($totalparms) { $totalparms=1; $isdef=0; }
             $r->print('<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)).
Line 510  ENDTABLEHEADFOUR Line 514  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 {
        my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});         my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});
   
Line 574  ENDTABLEHEADFOUR Line 579  ENDTABLEHEADFOUR
         '<td bgcolor=#CCCCFF>'.&valout($outpar[$result],$type{$_}).'</td>');          '<td bgcolor=#CCCCFF>'.&valout($outpar[$result],$type{$_}).'</td>');
                $r->print("</tr>\n<tr>");                 $r->print("</tr>\n<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;
          $r->print('</table></form></body></html>');           $r->print('</table></form></body></html>');
Removed from v.1.19  
changed lines
  Added in v.1.21

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