--- loncom/interface/lonparmset.pm 2000/11/24 15:27:27 1.8 +++ loncom/interface/lonparmset.pm 2000/11/24 17:22:13 1.9 @@ -9,7 +9,7 @@ # # 10/11,10/12,10/16 Gerd Kortemeyer) # -# 11/20,11/21,11/22,11/23,11/24 Gerd Kortemeyer +# 11/20,11/21,11/22,11/23,11/24,11/25 Gerd Kortemeyer package Apache::lonparmset; @@ -107,13 +107,21 @@ sub bycat { } } +# ------------------------------------------------------------ Output for value + +sub valout { + my ($value,$type)=@_; + return + ($value?(($type=~/^date/)?localtime($value):$value):' '); +} + # -------------------------------------------------------- Produces link anchor sub plink { my ($type,$dis,$value,$marker,$return,$call)=@_; return ''. - ($value?(($type=~/^date/)?localtime($value):$value):' ').''; + &valout($value,$type).''; } # ================================================================ Main Handler @@ -261,7 +269,24 @@ ENDHEAD $r->print('>'.$sopt[$k+1].''); } $r->print(''); - $r->print("\n
Assessment URL and Title | Part No. | Parameter Name | +Resource Metadata | Enclosing Map Parameter | +Course | +ENDTABLEHEAD + if ($csec) { + $r->print('Section/Group: '.$csec.' | '); + } + $r->print('Resource in Course | '); + if ($uname) { + $r->print('User in Course | '); + if ($csec) { + $r->print('User in Section/Group: '.$csec.' | '); + } + $r->print('User for Resource in Course | '); + } + $r->print('||
---|---|---|---|---|---|---|---|---|---|---|---|---|
$part[$i] | $display[$i] | "); - my $j; - for ($j=1;$j<=7;$j++) { - $r->print(''.&plink($type[$i],$display[$i],$outpar[$j]).' | ');} + $r->print("$part[$i] | $display[$i] | "); + $r->print(''.&valout($outpar[8],$type[$i]).' | '); + $r->print(''.&valout($outpar[7],$type[$i]).' | '); + $r->print(''. + &plink($type[$i],$display[$i],$outpar[6]).' | '); + if ($csec) { + $r->print(''. + &plink($type[$i],$display[$i],$outpar[5]).' | '); + } + $r->print(''. + &plink($type[$i],$display[$i],$outpar[4]).' | '); + if ($uname) { + $r->print(''. + &plink($type[$i],$display[$i],$outpar[3]).' | '); + if ($csec) { + $r->print(''. + &plink($type[$i],$display[$i],$outpar[2]).' | '); + } + $r->print(''. + &plink($type[$i],$display[$i],$outpar[1]).' | '); + } $r->print("