version 1.35, 2006/02/07 16:21:26
|
version 1.36, 2006/02/07 22:15:56
|
Line 2372 sub get_ownerinfo {
|
Line 2372 sub get_ownerinfo {
|
my ($ownername,$owneremail); |
my ($ownername,$owneremail); |
if ($owner) { |
if ($owner) { |
$ownername=&Apache::loncommon::plainname($owner,$dom,'firstname'); |
$ownername=&Apache::loncommon::plainname($owner,$dom,'firstname'); |
my %ownerinfo = &Apache::lonnet::get('environment','permanentemail', |
my %ownerinfo = &Apache::lonnet::get('environment',['permanentemail'], |
$dom,$owner); |
$dom,$owner); |
$owneremail = $ownerinfo{'permanentemail'}; |
$owneremail = $ownerinfo{'permanentemail'}; |
} |
} |