--- loncom/interface/lonmenu.pm 2003/02/13 20:35:39 1.35
+++ loncom/interface/lonmenu.pm 2003/02/14 15:14:37 1.37
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.35 2003/02/13 20:35:39 www Exp $
+# $Id: lonmenu.pm,v 1.37 2003/02/14 15:14:37 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -146,19 +146,6 @@ ENDOPEN
return '';
}
-# ============================================================ Switch Menu Item
-
-sub switchmenu {
- my ($row,$col,$imgsrc,$texttop,$textbot,$action,$description)=@_;
- if ($ENV{'browser.interface'} eq 'textual') { return ''; }
- my $openwin=&openmenu();
- return(<
- var swmenu=$openwin
- swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action","$description");
-
-ENDSMENU
-}
# ================================================================== Raw Config
@@ -181,7 +168,7 @@ sub switch {
} else {
my $text=$top.' '.$bot;
$text=~s/\- //;
- return '
'.$text.' '.$desc;
+ return '
'.$text.' '.$desc;
}
}
@@ -328,7 +315,20 @@ sub handler {
my $bodytag=&Apache::loncommon::bodytag('Main Menu');
# ------------------------------------------------------------ Print the screen
- $r->print('LON-CAPA Main Menu'.$bodytag);
+ $r->print(<
+LON-CAPA Main Menu
+
+
+$bodytag
+ENDHEADER
$r->print(&rawconfig(1));
$r->print('