[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

albertel lon-capa-cvs-allow@mail.lon-capa.org
Mon, 18 Jun 2007 23:19:13 -0000


albertel		Mon Jun 18 19:19:13 2007 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - check for valid inputs
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.536 loncom/interface/loncommon.pm:1.537
--- loncom/interface/loncommon.pm:1.536	Tue May 29 13:48:44 2007
+++ loncom/interface/loncommon.pm	Mon Jun 18 19:19:12 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.536 2007/05/29 17:48:44 raeburn Exp $
+# $Id: loncommon.pm,v 1.537 2007/06/18 23:19:12 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2054,6 +2054,7 @@
 ###############################################################
 sub plainname {
     my ($uname,$udom,$first)=@_;
+    return if (!defined($uname) || !defined($udom));
     my %names=&getnames($uname,$udom);
     my $name=&Apache::lonnet::format_name($names{'firstname'},
 					  $names{'middlename'},
@@ -2085,6 +2086,7 @@
 
 sub nickname {
     my ($uname,$udom)=@_;
+    return if (!defined($uname) || !defined($udom));
     my %names=&getnames($uname,$udom);
     my $name=$names{'nickname'};
     if ($name) {
@@ -2100,6 +2102,7 @@
 
 sub getnames {
     my ($uname,$udom)=@_;
+    return if (!defined($uname) || !defined($udom));
     if ($udom eq 'public' && $uname eq 'public') {
 	return ('lastname' => &mt('Public'));
     }