[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'));
}