--- loncom/interface/Attic/lonchart.pm	2001/01/31 23:21:06	1.1
+++ loncom/interface/Attic/lonchart.pm	2001/01/31 23:28:06	1.2
@@ -32,16 +32,17 @@ my @students;
 # ------------------------------------------------------------- Find out status
 
 sub astatus {
-    my $rid=shift;
+    my ($rid,$student)=@_;
+    my ($uname,$udom)=split(/\:/,$student);
     my $code=' ';
     $rid=~/(\d+)\.(\d+)/;
     my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.
 	     &Apache::lonnet::declutter($hash{'src_'.$rid});
     my $answer=&Apache::lonnet::reply(
-              "restore:$ENV{'user.domain'}:$ENV{'user.name'}:".
+              "restore:$udom:$uname:".
               $ENV{'request.course.id'}.':'.
               &Apache::lonnet::escape($symb),
-              "$ENV{'user.home'}");
+              &Apache::lonnet::homeserver($uname,$udom));
     my %returnhash=();
     map {
 	my ($name,$value)=split(/\=/,$_);
@@ -240,7 +241,7 @@ sub handler {
                               $r->print(
                                        substr($students[$index].
        '                                                        ',0,14).' ! '.
-					substr($rowlabels[$index].
+        			       substr($rowlabels[$index].
        '                                                        ',0,45).' ! ');
                               map {
                                   if ($_) {