--- loncom/lonnet/perl/lonnet.pm	2002/08/01 15:26:23	1.259
+++ loncom/lonnet/perl/lonnet.pm	2002/08/02 21:11:55	1.260
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.259 2002/08/01 15:26:23 www Exp $
+# $Id: lonnet.pm,v 1.260 2002/08/02 21:11:55 ng Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2918,10 +2918,10 @@ sub ireceipt {
 }
 
 sub receipt {
-    return &ireceipt($ENV{'user.name'},$ENV{'user.domain'},
-                     $ENV{'request.course.id'},&symbread());
+  my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
+  return &ireceipt($name,$domain,$courseid,$symb);
 }
-  
+
 # ------------------------------------------------------------ Serves up a file
 # returns either the contents of the file or a -1
 sub getfile {