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

[albertel]

albertel		Wed Aug 13 15:52:05 2003 EDT

  Modified files:              (Branch: version_1_0_0)
    /loncom/interface	lonprintout.pm 
  Log:
  - backport 1.212
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.208 loncom/interface/lonprintout.pm:1.208.2.1
--- loncom/interface/lonprintout.pm:1.208	Sat Aug  2 09:57:05 2003
+++ loncom/interface/lonprintout.pm	Wed Aug 13 15:52:05 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.208 2003/08/02 13:57:05 www Exp $
+# $Id: lonprintout.pm,v 1.208.2.1 2003/08/13 19:52:05 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,undef,undef,