--- loncom/interface/londocs.pm 2011/12/04 15:51:58 1.467
+++ loncom/interface/londocs.pm 2011/12/25 18:19:38 1.470
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.467 2011/12/04 15:51:58 raeburn Exp $
+# $Id: londocs.pm,v 1.470 2011/12/25 18:19:38 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2200,13 +2200,25 @@ END
} else {
$reinit = &mt('(re-initialize course to access)');
}
- $line.='
-
- '.($url?'':'').' '.($url?'':'').'
- |
-
- '.($url?"":'').$title.($url?'':' '.$reinit.'').$external."
- | ";
+ $line.='';
+ if ($url=~m{/adm/coursedocs}) {
+ $line.=' ';
+ } elsif ($url) {
+ $line.=&Apache::loncommon::modal_link($url.(($url=~/\?/)?'&':'?').'inhibitmenu=yes',
+ ' ',600,500);
+ } else {
+ $line.=' ';
+ }
+ $line.=' | ';
+ if ($url=~m{/adm/coursedocs}) {
+ $line.=''.$title.'';
+ } elsif ($url) {
+ $line.=&Apache::loncommon::modal_link($url.(($url=~/\?/)?'&':'?').'inhibitmenu=yes',
+ $title,600,500);
+ } else {
+ $line.=$title.' '.$reinit.'';
+ }
+ $line.=$external." | ";
if (($allowed) && ($folder!~/^supplemental/)) {
my %lt=&Apache::lonlocal::texthash(
'hd' => 'Hidden',
@@ -2876,9 +2888,16 @@ sub handler {
# Do we directly jump somewhere?
if ($env{'form.command'} eq 'direct') {
- my ($mapurl,$id,$resurl) = &Apache::lonnet::decode_symb($env{'form.symb'});
- if ($resurl=~/\.(sequence|page)$/) {
- $mapurl=$resurl;
+ my ($mapurl,$id,$resurl);
+ if ($env{'form.symb'} eq '') {
+ $mapurl = $env{'course.'.$env{'request.course.id'}.'.url'};
+ } else {
+ ($mapurl,$id,$resurl) = &Apache::lonnet::decode_symb($env{'form.symb'});
+ if ($resurl=~/\.(sequence|page)$/) {
+ $mapurl=$resurl;
+ } elsif ($resurl eq 'adm/navmaps') {
+ $mapurl=$env{'course.'.$env{'request.course.id'}.'.url'};
+ }
}
my $mapresobj;
my $navmap = Apache::lonnavmaps::navmap->new();