'.
+ $r->print(''.$typep{$rid}.' | ');
+ $r->print(''.
join(' / ',split(/\//,$mapp{$rid})).' | ');
map {
-
my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});
- $r->print("$part{$_} | $display{$_} | ");
+ $r->print("$part{$_} | $display{$_} | ");
my $thismarker=$_;
$thismarker=~s/^parameter\_//;
my $mprefix=$rid.'&'.$thismarker.'&';
- $r->print(''.
+ $r->print(' | '.
&valout($outpar[11],$type{$_}).' | ');
- $r->print(''.
+ $r->print(' | '.
&valout($outpar[10],$type{$_}).' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[9],$mprefix.'9',
'parmform.pres','psub').' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[8],$mprefix.'8',
'parmform.pres','psub').' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[7],$mprefix.'7',
'parmform.pres','psub').' | ');
if ($csec) {
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[6],$mprefix.'6',
'parmform.pres','psub').' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[5],$mprefix.'5',
'parmform.pres','psub').' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[4],$mprefix.'4',
'parmform.pres','psub').' | ');
}
if ($uname) {
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[3],$mprefix.'3',
'parmform.pres','psub').' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[2],$mprefix.'2',
'parmform.pres','psub').' | ');
- $r->print(''.
+ $r->print(' | '.
&plink($type{$_},$display{$_},$outpar[1],$mprefix.'1',
'parmform.pres','psub').' | ');
}
- $r->print(''.&valout($outpar[$result],$type{$_}).' | ');
+ $r->print(
+ ''.&valout($outpar[$result],$type{$_}).' | ');
$r->print("