|
version 1.245, 2004/02/10 22:12:46
|
version 1.248, 2004/02/24 16:09:30
|
|
Line 290 sub getLinkForResource {
|
Line 290 sub getLinkForResource {
|
| |
|
| # Check to see if there are any pages in the stack |
# Check to see if there are any pages in the stack |
| foreach $res (@$stack) { |
foreach $res (@$stack) { |
| if (defined($res) && $res->is_page()) { |
if (defined($res)) { |
| return $res->src(); |
if ($res->is_page()) { |
| |
return $res->src(); |
| |
} |
| |
# in case folder was skipped over as "only sequence" |
| |
my ($map,$id,$src)=&Apache::lonnet::decode_symb($res->symb()); |
| |
if ($map=~/\.page$/) { |
| |
return &Apache::lonnet::clutter($map); |
| |
} |
| } |
} |
| } |
} |
| |
|
|
Line 1587 sub render {
|
Line 1594 sub render {
|
| # it's quite likely this might fix other browsers, too, and |
# it's quite likely this might fix other browsers, too, and |
| # certainly won't hurt anything. |
# certainly won't hurt anything. |
| if ($displayedJumpMarker) { |
if ($displayedJumpMarker) { |
| $result .= "<script>setTimeout(\"location += '#curloc';\", 0)</script>\n"; |
$result .= " |
| |
<script> |
| |
if (location.href.indexOf('#curloc')==-1) { |
| |
setTimeout(\"location += '#curloc';\", 0) |
| |
} |
| |
</script>"; |
| } |
} |
| |
|
| $result .= "</table>"; |
$result .= "</table>"; |
|
Line 2089 sub parmval_real {
|
Line 2101 sub parmval_real {
|
| |
|
| # ----------------------------------------------------- fourth , check default |
# ----------------------------------------------------- fourth , check default |
| |
|
| my $default=&Apache::lonnet::metadata($fn,$rwhat.'.default'); |
my $meta_rwhat=$rwhat; |
| |
$meta_rwhat=~s/\./_/g; |
| |
my $default=&Apache::lonnet::metadata($fn,$meta_rwhat); |
| |
if (defined($default)) { return $default} |
| |
$default=&Apache::lonnet::metadata($fn,'parameter_'.$meta_rwhat); |
| if (defined($default)) { return $default} |
if (defined($default)) { return $default} |
| |
|
| # --------------------------------------------------- fifth , cascade up parts |
# --------------------------------------------------- fifth , cascade up parts |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnavmaps.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface