version 1.2, 2001/01/31 23:28:06
|
version 1.3, 2001/02/05 18:58:04
|
Line 209 sub handler {
|
Line 209 sub handler {
|
'Data not available: '.$name; |
'Data not available: '.$name; |
} else { |
} else { |
my %reply=&Apache::lonnet::idrget($sdom,$sname); |
my %reply=&Apache::lonnet::idrget($sdom,$sname); |
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. |
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. |
':environment:firstname&middlename&lastname&generation', |
':environment:lastname&generation&firstname&middlename', |
&Apache::lonnet::homeserver($sname,$sdom)); |
&Apache::lonnet::homeserver($sname,$sdom)); |
$rowlabels[$thisindex]= |
$rowlabels[$thisindex]= |
$ssec.' '.$reply{$sname}.' '; |
sprintf('%3s',$ssec).' '.$reply{$sname}.' '; |
|
my $i=0; |
map { |
map { |
$rowlabels[$thisindex].=&Apache::lonnet::unescape($_).' '; |
$i++; |
|
if ( $_ ne '') { |
|
$rowlabels[$thisindex].=&Apache::lonnet::unescape($_).' |
|
'; |
|
} |
|
if ($i == 2) { |
|
chop($rowlabels[$thisindex]); |
|
$rowlabels[$thisindex].=', '; |
|
} |
} split(/\&/,$reply); |
} split(/\&/,$reply); |
} |
|
|
} |
} |
} |
} sort split(/\&/,$classlst); |
} sort split(/\&/,$classlst); |
|
|