print('value="'.$tempkey.'"'); + if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) { + $r->print(' checked'); + } + $r->print('>'.$$allparms{$tempkey}.' | '); + } + $r->print(' +|
+ + | + + | +'); + $r->print('
'.&mt('Sort list by').' | '); + $r->print(' | '); + + $r->print('|
".&mt('Specific Resource')." | $resource | "); - $r->print(''); + $r->print(' | '); $r->print(' | |
print(" checked ");} - $r->print(' name="showoptions" value="show">'.&mt('Show More Options').' | ||||
Show: $showoptions | ||||
pscat: @pscat | ||||
psprt: @psprt | ||||
fcat: $fcat | ||||
'.&mt('Select Parameters to View').' | ||||
| ||||
Select Parts | '); - $r->print(' | |||
'.&mt('Sort list by').' | '); - $r->print(' | '); - - $r->print('|||
'); @@ -1158,8 +1157,8 @@ ENDTABLETWO $r->print(< | |||||||||||||||||||
$lt{'aut'} | $lt{'type'} | $lt{'emof'} | $lt{'part'} | $lt{'pn'} | -$lt{'gen'} | $lt{'femof'} | -$lt{'def'} | $lt{'foremf'} | $lt{'fr'} | +$lt{'gen'} | $lt{'foremf'} | +$lt{'def'} | $lt{'femof'} | $lt{'fr'} | ENDTABLEHEADFOUR if ($csec) { @@ -1202,7 +1201,7 @@ ENDTABLEHEADFOUR my %display=(); my %type= (); my %default=(); - my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid}); + my $uri=&Apache::lonnet::declutter($uris{$rid}); foreach (split(/\,/,$keyp{$rid})) { my $tempkeyp = $_; @@ -1255,16 +1254,16 @@ ENDTABLEHEADFOUR undef $firstrow; } - &print_row($r,$_,\%part,\%name,$rid,\%default, + &print_row($r,$_,\%part,\%name,\%symbp,$rid,\%default, \%type,\%display,$defbgone,$defbgtwo, - $parmlev); + $parmlev,$uname,$udom,$csec); } } } } # end foreach ids # -------------------------------------------------- End entry for one resource $r->print('
---|