--- loncom/interface/lonparmset.pm 2000/11/24 21:41:43 1.11 +++ loncom/interface/lonparmset.pm 2000/11/27 12:14:32 1.13 @@ -9,7 +9,7 @@ # # 10/11,10/12,10/16 Gerd Kortemeyer) # -# 11/20,11/21,11/22,11/23,11/24,11/25 Gerd Kortemeyer +# 11/20,11/21,11/22,11/23,11/24,11/25,11/27 Gerd Kortemeyer package Apache::lonparmset; @@ -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=''; } @@ -237,6 +267,10 @@ sub handler { } } } keys %bighash; +# ---------------------------------------------------------- Anything to store? + if ($ENV{'form.pres_marker'}) { + $message.="
Sort list by '); + + $r->print($message.'
Sort list by '); $r->print('