--- loncom/interface/lonnavmaps.pm 2006/03/17 21:33:17 1.372
+++ loncom/interface/lonnavmaps.pm 2006/04/10 19:59:53 1.375
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.372 2006/03/17 21:33:17 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.375 2006/04/10 19:59:53 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -203,10 +203,12 @@ MENU
ENDSUBM
- $r->print(&Apache::lonxml::xmlbegin().
- &Apache::loncommon::head(undef,$js).
- ''.
- &Apache::loncommon::end_page(undef,$js));
+ $r->print(&Apache::loncommon::start_page(undef,$js,
+ {'only_body' => 1,
+ 'bgcolor' => '#FFFFFF',
+ 'add_entries' =>
+ 'onLoad="submitthis()"',}).
+ &Apache::loncommon::end_page());
return OK;
}
@@ -243,8 +245,6 @@ MENU
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['register','sort','showOnlyHomework','postsymb']);
# ----------------------------------------------------- Force menu registration
- my $addentries='';
- my $more_unload;
my $body_only='';
my $js;
if ($env{'environment.remotenavmap'} eq 'on') {
@@ -253,33 +253,23 @@ MENU
this.document.location="/adm/navmaps?collapseExternal";
}
';
-# FIXME need to be smarter to only catch window close events
-# $more_unload="collapse()"
$body_only=1;
}
- if ($env{'form.register'}) {
- $addentries=' onLoad="'.&Apache::lonmenu::loadevents().
- '" onUnload="'.&Apache::lonmenu::unloadevents().';'.
- $more_unload.'"';
- $r->print(&Apache::lonmenu::registerurl(1));
- } else {
- $addentries=' onUnload="'.$more_unload.'"';
- }
# Header
- $r->print(&Apache::lonxml::xmlbegin().
- &Apache::loncommon::head('Navigate Course Contents',$js).
- &Apache::loncommon::bodytag('Navigate Course Contents','',
- $addentries,$body_only,'',
- $env{'form.register'}));
- $r->print('');
+ $r->print(&Apache::loncommon::start_page('Navigate Course Contents',$js,
+ {'only_body' => $body_only,
+ 'force_register' =>
+ $env{'form.register'},}));
+ $r->print('');
$r->rflush();
# Check that it's defined
if (!($navmap->courseMapDefined())) {
$r->print(&Apache::loncommon::help_open_menu('','Navigation Screen','Navigation_Screen','',undef,'RAT'));
- $r->print('Coursemap undefined.' .
+ $r->print(''.&mt('Coursemap undefined.').
+ '' .
&Apache::loncommon::end_page());
return OK;
}
@@ -2402,7 +2392,7 @@ sub unread_discussion {
sub wrap_symb {
my $self = shift;
my $symb = shift;
- if ($symb =~ m-___(adm/\w+/\w+/)(\d+)(/bulletinboard)$-) {
+ if ($symb =~ m-___(adm/[^/]+/[^/]+/)(\d+)(/bulletinboard)$-) {
unless ($symb =~ m|adm/wrapper/adm|) {
$symb = 'bulletin___'.$2.'___adm/wrapper/'.$1.$2.$3;
}
@@ -2414,7 +2404,7 @@ sub unwrap_symb {
my $self = shift;
my $ressymb = shift;
my $discsymb = $ressymb;
- if ($ressymb =~ m-^(bulletin___\d+___)adm/wrapper/(adm/\w+/\w+/\d+/bulletinboard)$-) {
+ if ($ressymb =~ m-^(bulletin___\d+___)adm/wrapper/(adm/[^/]+/[^/]+/\d+/bulletinboard)$-) {
$discsymb = $1.$2;
}
return $discsymb;