|
version 1.267.4.5, 2002/09/03 01:29:35
|
version 1.267.4.6, 2002/09/16 20:30:26
|
|
Line 2537 sub courseresdata {
|
Line 2537 sub courseresdata {
|
| # --------------------------------------------------------- Value of a Variable |
# --------------------------------------------------------- Value of a Variable |
| |
|
| sub EXT { |
sub EXT { |
| my ($varname,$symbparm,$udom,$uname)=@_; |
my ($varname,$symbparm,$udom,$uname,)=@_; |
| |
|
| unless ($varname) { return ''; } |
unless ($varname) { return ''; } |
| |
|
|
Line 2694 sub EXT {
|
Line 2694 sub EXT {
|
| # --------------------------------------------- last, look in resource metadata |
# --------------------------------------------- last, look in resource metadata |
| |
|
| $spacequalifierrest=~s/\./\_/; |
$spacequalifierrest=~s/\./\_/; |
| my $metadata=&metadata($ENV{'request.filename'},$spacequalifierrest); |
my $filename; |
| |
if (!$symbparm) { $symbparm=&symbread(); } |
| |
if ($symbparm) { |
| |
$filename=(split(/\_\_\_/,$symbparm))[2]; |
| |
} else { |
| |
$filename=$ENV{'request.filename'}; |
| |
} |
| |
my $metadata=&metadata($filename,$spacequalifierrest); |
| if ($metadata) { return $metadata; } |
if ($metadata) { return $metadata; } |
| $metadata=&metadata($ENV{'request.filename'}, |
$metadata=&metadata($filename,'parameter_'.$spacequalifierrest); |
| 'parameter_'.$spacequalifierrest); |
|
| if ($metadata) { return $metadata; } |
if ($metadata) { return $metadata; } |
| |
|
| # ------------------------------------------------------------------ Cascade up |
# ------------------------------------------------------------------ Cascade up |
![[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