|
version 1.593, 2005/02/05 06:44:57
|
version 1.594, 2005/02/05 06:48:38
|
|
Line 4379 sub EXT {
|
Line 4379 sub EXT {
|
| } |
} |
| } |
} |
| |
|
| # -------------------------------------------------------- second, check course |
# ------------------------------------------------ second, check some of course |
| |
|
| my $coursereply=&courseresdata($ENV{'course.'.$courseid.'.num'}, |
my $coursereply=&courseresdata($ENV{'course.'.$courseid.'.num'}, |
| $ENV{'course.'.$courseid.'.domain'}, |
$ENV{'course.'.$courseid.'.domain'}, |
|
Line 4398 sub EXT {
|
Line 4398 sub EXT {
|
| } |
} |
| if ($thisparm) { return $thisparm; } |
if ($thisparm) { return $thisparm; } |
| } |
} |
| # --------------------------------------------- last, look in resource metadata |
# ------------------------------------------ fourth, look in resource metadata |
| |
|
| $spacequalifierrest=~s/\./\_/; |
$spacequalifierrest=~s/\./\_/; |
| my $filename; |
my $filename; |
|
Line 4413 sub EXT {
|
Line 4413 sub EXT {
|
| $metadata=&metadata($filename,'parameter_'.$spacequalifierrest); |
$metadata=&metadata($filename,'parameter_'.$spacequalifierrest); |
| if (defined($metadata)) { return $metadata; } |
if (defined($metadata)) { return $metadata; } |
| |
|
| |
# ---------------------------------------------- fourth, look in rest pf course |
| if ($symbparm && defined($courseid) && |
if ($symbparm && defined($courseid) && |
| $courseid eq $ENV{'request.course.id'}) { |
$courseid eq $ENV{'request.course.id'}) { |
| my $coursereply=&courseresdata($ENV{'course.'.$courseid.'.num'}, |
my $coursereply=&courseresdata($ENV{'course.'.$courseid.'.num'}, |
![[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