[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[ng]

ng		Fri Aug  2 17:11:55 2002 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  Fixed the ireceipt function as per Guy's instructions.
  
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.259 loncom/lonnet/perl/lonnet.pm:1.260
--- loncom/lonnet/perl/lonnet.pm:1.259	Thu Aug  1 11:26:23 2002
+++ loncom/lonnet/perl/lonnet.pm	Fri Aug  2 17:11:55 2002
@@ -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 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 {