[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Tue, 10 Jun 2003 18:17:34 -0000
matthew Tue Jun 10 14:17:34 2003 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
Calls to whichuser can now take symb. Guy.
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.377 loncom/lonnet/perl/lonnet.pm:1.378
--- loncom/lonnet/perl/lonnet.pm:1.377 Tue Jun 10 11:52:51 2003
+++ loncom/lonnet/perl/lonnet.pm Tue Jun 10 14:17:34 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.377 2003/06/10 15:52:51 matthew Exp $
+# $Id: lonnet.pm,v 1.378 2003/06/10 18:17:34 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3196,7 +3196,7 @@
my $publicuser;
if (!($uname && $udom)) {
(my $cursymb,$courseid,$udom,$uname,$publicuser)=
- &Apache::lonxml::whichuser();
+ &Apache::lonxml::whichuser($symbparm);
if (!$symbparm) { $symbparm=$cursymb; }
} else {
$courseid=$ENV{'request.course.id'};