--- loncom/interface/lonparmset.pm 2000/11/24 21:41:43 1.11 +++ loncom/interface/lonparmset.pm 2000/11/25 19:57:17 1.12 @@ -173,22 +173,52 @@ sub handler { %symbp=(); %typep=(); - $uname=$ENV{'form.uname'}; + my $message=''; + + $csec=$ENV{'form.csec'}; $udom=$ENV{'form.udom'}; + my $id=$ENV{'form.id'}; + if (($id) && ($udom)) { + $uname=(&Apache::lonnet::idget($udom,$id))[1]; + if ($uname) { + $id=''; + } else { + $message= + "
\nFull Name: ". + $name{'firstname'}.' '.$name{'middlename'} + .$name{'lastname'}.' '.$name{'generation'}. + "\nID: ".$name{'id'}.'
'; + } + } } - $csec=$ENV{'form.csec'}; unless ($csec) { $csec=''; } + $fcat=$ENV{'form.fcat'}; unless ($fcat) { $fcat=''; } @@ -269,22 +299,19 @@ sub handler {
Sort list by '); + + $r->print($message.'
Sort list by '); $r->print(''); my $k; my @sopt=('map','Map','name','Problem Name','deadline','Deadline'); @@ -371,30 +398,32 @@ ENDTABLEHEADFOUR my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_}); $r->print("$part{$_}$display{$_}"); - - $r->print(''.&valout($outpar[11],$type{$_}).''); - $r->print(''.&valout($outpar[10],$type{$_}).''); - $r->print(''. - &plink($type{$_},$display{$_},$outpar[9]).''); - $r->print(''. - &plink($type{$_},$display{$_},$outpar[8]).''); - $r->print(''. - &plink($type{$_},$display{$_},$outpar[7]).''); + my $mprefix=$rid.'&'.$_.'&'; + $r->print(''. + &valout($outpar[11],$type{$_}).''); + $r->print(''. + &valout($outpar[10],$type{$_}).''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[9],$mprefix.'9').''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[8],$mprefix.'8').''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[7],$mprefix.'7').''); if ($csec) { - $r->print(''. - &plink($type{$_},$display{$_},$outpar[6]).''); - $r->print(''. - &plink($type{$_},$display{$_},$outpar[5]).''); - $r->print(''. - &plink($type{$_},$display{$_},$outpar[4]).''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[6],$mprefix.'6').''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[5],$mprefix.'5').''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[4],$mprefix.'4').''); } if ($uname) { - $r->print(''. - &plink($type{$_},$display{$_},$outpar[3]).''); - $r->print(''. - &plink($type{$_},$display{$_},$outpar[2]).''); - $r->print(''. - &plink($type{$_},$display{$_},$outpar[1]).''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[3],$mprefix.'3').''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[2],$mprefix.'2').''); + $r->print(''. + &plink($type{$_},$display{$_},$outpar[1],$mprefix.'1').''); } $r->print(''.&valout($outpar[$result],$type{$_}).''); $r->print("\n");