');
- } else {
- $firstrow=0;
- }
- $r->print("$part{$_} | $display{$_} | ");
- my $thismarker=$_;
- $thismarker=~s/^parameter\_//;
- my $mprefix=$rid.'&'.$thismarker.'&';
-
- $r->print(''.
- &valout($outpar[11],$type{$_}).' | ');
- $r->print(''.
- &valout($outpar[10],$type{$_}).' | ');
-
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[9],$mprefix.'9',
- 'parmform.pres','psub').' | ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[8],$mprefix.'8',
- 'parmform.pres','psub').' | ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[7],$mprefix.'7',
- 'parmform.pres','psub').' | ');
-
- if ($csec) {
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[6],$mprefix.'6',
- 'parmform.pres','psub').' | ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[5],$mprefix.'5',
- 'parmform.pres','psub').' | ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[4],$mprefix.'4',
- 'parmform.pres','psub').' | ');
- }
-
- if ($uname) {
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[3],$mprefix.'3',
- 'parmform.pres','psub').' | ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[2],$mprefix.'2',
- 'parmform.pres','psub').' | ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[1],$mprefix.'1',
- 'parmform.pres','psub').' | ');
- }
- $r->print(''.&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("
");
- }
- }
-# -------------------------------------------------- End entry for one resource
- }
- }
- $r->print('