'.
+ join(' / ',split(/\//,$uri)).
+ ' '.
+ $bighash{'title_'.$rid});
+ if ($thistitle) {
+ $r->print(' ('.$thistitle.')');
}
- my $totalparms=scalar keys %name;
- if ($totalparms>0) {
- my $firstrow=1;
- $r->print(''.
- join(' / ',split(/\//,$uri)).
- ' '.
- $bighash{'title_'.$rid});
- if ($thistitle) {
- $r->print(' ('.$thistitle.')');
- }
- $r->print(' | ');
- $r->print(''.$typep{$rid}.' | ');
- $r->print(''.
- join(' / ',split(/\//,$mapp{$rid})).' | ');
- foreach (sort keys %name) {
- my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});
- unless ($firstrow) {
- $r->print(' ');
- } 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(" ");
+ $r->print(' | ');
+ $r->print(''.$typep{$rid}.' | ');
+ $r->print(''.
+ join(' / ',split(/\//,$mapp{$rid})).' | ');
+ foreach (sort keys %name) {
+ unless ($firstrow) {
+ $r->print('