print(' | ||||||||||||||
Show: $showoptions | ||||||||||||||
pscat: @pscat | ||||||||||||||
psprt: @psprt | ||||||||||||||
$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) { @@ -1185,15 +1223,15 @@ ENDTABLEHEADFOUR || ($pssymb && $pssymb eq $symbp{$rid})) { # ------------------------------------------------------ Entry for one resource - if ($defbgone eq '"E0E099"') { - $defbgone='"E0E0DD"'; + if ($defbgone eq '"#E0E099"') { + $defbgone='"#E0E0DD"'; } else { - $defbgone='"E0E099"'; + $defbgone='"#E0E099"'; } - if ($defbgtwo eq '"FFFF99"') { - $defbgtwo='"FFFFDD"'; + if ($defbgtwo eq '"#FFFF99"') { + $defbgtwo='"#FFFFDD"'; } else { - $defbgtwo='"FFFF99"'; + $defbgtwo='"#FFFF99"'; } my $thistitle=''; my %name= (); @@ -1202,7 +1240,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,9 +1293,9 @@ 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); } } } @@ -1301,7 +1339,7 @@ ENDTABLEHEADFOUR # $r->print("$mapid:$map: $rid
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
resource.$part{$_}.$name{$_},$symbp{$mapid} |