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

[albertel]

albertel		Wed Aug 13 15:38:16 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - typo
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.211 loncom/interface/lonprintout.pm:1.212
--- loncom/interface/lonprintout.pm:1.211	Wed Aug 13 14:57:28 2003
+++ loncom/interface/lonprintout.pm	Wed Aug 13 15:38:16 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.211 2003/08/13 18:57:28 albertel Exp $
+# $Id: lonprintout.pm,v 1.212 2003/08/13 19:38:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -465,7 +465,7 @@
 sub get_name {
     my ($uname,$udom)=@_;
     if (!defined($uname)) { $uname=$ENV{'user.name'}; }
-    if (!defined($udom)) { $uname=$ENV{'user.domain'}; }
+    if (!defined($udom)) { $udom=$ENV{'user.domain'}; }
     my $plainname=&Apache::loncommon::plainname($uname,$udom);
     if ($plainname=~/^\s*$/) { $plainname=$uname; }
     return &Apache::lonxml::latex_special_symbols($plainname,'header');