loncom/interface/lonchart.pm - diff

Return to lonchart.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2001/01/31 23:21:06	version 1.2, 2001/01/31 23:28:06
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 240 sub handler {	Line 241 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 ($_) {