version 1.1, 2001/01/31 23:21:06
|
version 1.3, 2001/02/05 18:58:04
|
Line 32 my @students;
|
Line 32 my @students;
|
# ------------------------------------------------------------- Find out status |
# ------------------------------------------------------------- Find out status |
|
|
sub astatus { |
sub astatus { |
my $rid=shift; |
my ($rid,$student)=@_; |
|
my ($uname,$udom)=split(/\:/,$student); |
my $code=' '; |
my $code=' '; |
$rid=~/(\d+)\.(\d+)/; |
$rid=~/(\d+)\.(\d+)/; |
my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. |
my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
my $answer=&Apache::lonnet::reply( |
my $answer=&Apache::lonnet::reply( |
"restore:$ENV{'user.domain'}:$ENV{'user.name'}:". |
"restore:$udom:$uname:". |
$ENV{'request.course.id'}.':'. |
$ENV{'request.course.id'}.':'. |
&Apache::lonnet::escape($symb), |
&Apache::lonnet::escape($symb), |
"$ENV{'user.home'}"); |
&Apache::lonnet::homeserver($uname,$udom)); |
my %returnhash=(); |
my %returnhash=(); |
map { |
map { |
my ($name,$value)=split(/\=/,$_); |
my ($name,$value)=split(/\=/,$_); |
Line 208 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); |
|
|
Line 240 sub handler {
|
Line 251 sub handler {
|
$r->print( |
$r->print( |
substr($students[$index]. |
substr($students[$index]. |
' ',0,14).' ! '. |
' ',0,14).' ! '. |
substr($rowlabels[$index]. |
substr($rowlabels[$index]. |
' ',0,45).' ! '); |
' ',0,45).' ! '); |
map { |
map { |
if ($_) { |
if ($_) { |