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

[foxr]

foxr		Tue Nov 29 11:54:34 2011 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  Add username/domain and course info parameters to a few subs so that these 
  items only get pulled by default from env.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1145 loncom/lonnet/perl/lonnet.pm:1.1146
--- loncom/lonnet/perl/lonnet.pm:1.1145	Wed Nov  9 13:14:20 2011
+++ loncom/lonnet/perl/lonnet.pm	Tue Nov 29 11:54:33 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1145 2011/11/09 13:14:20 bisitz Exp $
+# $Id: lonnet.pm,v 1.1146 2011/11/29 11:54:33 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9751,9 +9751,11 @@
     if (!defined($symb)) {
 	unless ($symb=$wsymb) { return time; }
     }
-    if (!$courseid) { $courseid=$wcourseid; }
-    if (!$domain) { $domain=$wdomain; }
-    if (!$username) { $username=$wusername }
+    if (!defined $courseid) { 
+	$courseid=$wcourseid; 
+    }
+    if (!defined $domain) { $domain=$wdomain; }
+    if (!defined $username) { $username=$wusername }
 
     my $which;
     if (defined($cenv->{'rndseed'})) {
@@ -9761,7 +9763,6 @@
     } else {
 	$which =&get_rand_alg($courseid);
     }
-
     if (defined(&getCODE())) {
 
 	if ($which eq '64bit5') {