version 1.211, 2003/08/13 18:57:28
|
version 1.212, 2003/08/13 19:38:16
|
Line 465 sub page_format {
|
Line 465 sub page_format {
|
sub get_name { |
sub get_name { |
my ($uname,$udom)=@_; |
my ($uname,$udom)=@_; |
if (!defined($uname)) { $uname=$ENV{'user.name'}; } |
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); |
my $plainname=&Apache::loncommon::plainname($uname,$udom); |
if ($plainname=~/^\s*$/) { $plainname=$uname; } |
if ($plainname=~/^\s*$/) { $plainname=$uname; } |
return &Apache::lonxml::latex_special_symbols($plainname,'header'); |
return &Apache::lonxml::latex_special_symbols($plainname,'header'); |