|
version 1.218, 2002/05/13 09:26:29
|
version 1.219, 2002/05/13 09:32:56
|
|
Line 2372 sub EXT {
|
Line 2372 sub EXT {
|
| # ---------------------------------------------------- Any other user namespace |
# ---------------------------------------------------- Any other user namespace |
| } elsif ($realm eq 'environment') { |
} elsif ($realm eq 'environment') { |
| # ----------------------------------------------------------------- environment |
# ----------------------------------------------------------------- environment |
| return $ENV{'environment.'.$spacequalifierrest}; |
if (($uname eq $ENV{'user.name'})&&($udom eq $ENV{'user.domain'})) { |
| |
return $ENV{'environment.'.$spacequalifierrest}; |
| |
} else { |
| |
my %returnhash=&userenvironment($udom,$uname, |
| |
$spacequalifierrest); |
| |
return $returnhash{$spacequalifierrest}; |
| |
} |
| } elsif ($realm eq 'system') { |
} elsif ($realm eq 'system') { |
| # ----------------------------------------------------------------- system.time |
# ----------------------------------------------------------------- system.time |
| if ($space eq 'time') { |
if ($space eq 'time') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl