|
version 1.141, 2001/08/07 14:33:53
|
version 1.142, 2001/08/07 14:54:51
|
|
Line 1823 sub EXT {
|
Line 1823 sub EXT {
|
| $metadata=&metadata($ENV{'request.filename'}, |
$metadata=&metadata($ENV{'request.filename'}, |
| 'parameter_'.$spacequalifierrest); |
'parameter_'.$spacequalifierrest); |
| if ($metadata) { return $metadata; } |
if ($metadata) { return $metadata; } |
| |
|
| |
$spacequalifierrest=~/[^\_]+$/; |
| |
|
| |
$metadata=&metadata($ENV{'request.filename'},'parameter_0'.$1); |
| |
|
| |
if ($metadata) { return $metadata; } |
| |
|
| # ---------------------------------------------------- Any other user namespace |
# ---------------------------------------------------- Any other user namespace |
| } elsif ($realm eq 'environment') { |
} elsif ($realm eq 'environment') { |
![[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