|
Resource Level |
in Course |
ENDTABLETWO
@@ -544,7 +563,10 @@ ENDTABLEHEADFOUR
my $defbgtwo='';
map {
my $rid=$_;
- if (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid})) {
+ my ($inmapid)=($rid=~/\.(\d+)$/);
+ if (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid}) ||
+ ($pssymb eq $mapp{$rid}.'___'.$inmapid.'___'.
+ &Apache::lonnet::declutter($bighash{'src_'.$rid}))) {
# ------------------------------------------------------ Entry for one resource
if ($defbgone eq '"E0E099"') {
$defbgone='"E0E0DD"';
@@ -656,7 +678,14 @@ ENDTABLEHEADFOUR
'parmform.pres','psub').'');
}
$r->print(
- ''.&valout($outpar[$result],$type{$_}).' | ');
+ ''.&valout($outpar[$result],$type{$_}).' | ');
+ my $sessionval=&Apache::lonnet::EXT('resource.'.$part{$_}.
+ '.'.$name{$_},$mapp{$rid}.'___'.$inmapid.'___'.$uri);
+ if (($type{$_}=~/^date/) && ($sessionval))
+ { $sessionval=localtime($sessionval); }
+ $r->print(
+ ''.$sessionval.' '.
+ ' | ');
$r->print("
\n