--- loncom/interface/lonmenu.pm 2003/02/17 17:34:16 1.40
+++ loncom/interface/lonmenu.pm 2003/03/03 20:35:20 1.46
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.40 2003/02/17 17:34:16 www Exp $
+# $Id: lonmenu.pm,v 1.46 2003/03/03 20:35:20 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -48,7 +48,16 @@ sub menubuttons {
my $target =shift;
my $registration=shift;
unless ($ENV{'browser.interface'} eq 'textual') { return ''; }
- my $output='Main Menu
';
+# Textual display only
+ my $output=(<
+// BEGIN LON-CAPA Internal
+
+Main Menu
+
+ENDMAINMENU
if ($registration) { $output.=&innerregister($forcereg,$target); }
return $output."
";
}
@@ -61,7 +70,7 @@ sub registerurl {
my $result = '';
if ($target eq 'edit') {
- $result .="\n";
@@ -73,6 +82,7 @@ sub registerurl {
return $result.
'';
}
+# Graphical display after login only
if ($Apache::lonxml::registered && !$forcereg) { return ''; }
$result.=&innerregister($forcereg,$target);
return $result;
@@ -93,11 +103,13 @@ sub innerregister {
my $newmail='';
if (&Apache::lonmsg::newmail()) {
- $newmail=($textual?'You have messages
':
+ $newmail=($textual?
+ 'You have new messages
':
'swmenu.setstatus("you have","messages");');
}
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');
-# -- This is for URLs that actually can be registered
+# =============================================================================
+# ============================ This is for URLs that actually can be registered
if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) {
# -- This applies to homework problems for users with grading privileges
my $hwkadd='';
@@ -176,40 +188,67 @@ sub innerregister {
}
###
###
- $result = (<
+// BEGIN LON-CAPA Internal
+$utility
+
+$timesync
+$newmail
+$buttons
+$hwkadd
+$editbutton
+$form
+
+
+ENDREGTEXT
+# Registered, graphical output
+ } else {
+ $result = (<
// BEGIN LON-CAPA Internal
+var swmenu=null;
function LONCAPAreg() {
swmenu=$reopen;
swmenu.clearTimeout(swmenu.menucltim);
$timesync
$newmail
+ $buttons
swmenu.currentURL=window.location.pathname;
- swmenu.reloadURL=window.location.pathname;
+ swmenu.reloadURL=window.location.pathname+window.location.search;
swmenu.currentSymb="$ENV{'request.symb'}";
swmenu.reloadSymb="$ENV{'request.symb'}";
swmenu.currentStale=0;
- swmenu.clearbut(3,1);
- swmenu.switchbutton
- (6,3,'catalog.gif','catalog','info','catalog_info()','Show catalog information');
- swmenu.switchbutton
- (8,1,'eval.gif','evaluate','this','gopost("/adm/evaluate",currentURL)','Provide my evaluation of this resource');
- swmenu.switchbutton
- (8,2,'fdbk.gif','feedback','discuss','gopost("/adm/feedback",currentURL)','Provide feedback messages or contribute to the course discussion about this resource');
- swmenu.switchbutton
- (8,3,'prt.gif','prepare','printout','gopost("/adm/printout",currentURL)','Prepare a printable document');
- swmenu.switchbutton
- (2,1,'back.gif','backward','','gopost("/adm/flip","back:"+currentURL)','Go to the previous resource in the course sequence');
- swmenu.switchbutton
- (2,3,'forw.gif','forward','','gopost("/adm/flip","forward:"+currentURL)','Go to the next resource in the course sequence');
- swmenu.switchbutton
- (9,1,'sbkm.gif','set','bookmark','set_bookmark()','Set a bookmark for this resource');
- swmenu.switchbutton
- (9,2,'vbkm.gif','view','bookmark','edit_bookmarks()','Use or edit my bookmark collection');
- swmenu.switchbutton
- (9,3,'anot.gif','anno-','tations','annotate()','Make notes and annotations about this resource');
$hwkadd
$editbutton
}
@@ -234,12 +273,21 @@ sub innerregister {
// END LON-CAPA Internal
ENDREGTHIS
-
+ }
+# =============================================================================
} else {
- $result = (<
// BEGIN LON-CAPA Internal
+var swmenu=null;
function LONCAPAreg() {
swmenu=$reopen
@@ -264,6 +312,8 @@ ENDREGTHIS
// END LON-CAPA Internal
ENDDONOTREGTHIS
+ }
+# =============================================================================
}
return $result;
}
@@ -403,10 +453,12 @@ sub switch {
return "\n".
qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););
} else {
+ if ($nobreak==2) { return ''; }
my $text=$top.' '.$bot;
$text=~s/\- //;
- return ($nobreak?'':'
').
- ''.$text.' '.$desc;
+ return "\n".($nobreak?' ':'
').
+ ''.$text.' '.
+ ($nobreak?'':$desc);
}
}
@@ -542,6 +594,59 @@ sub footer {
}
+sub utilityfunctions {
+ unless ($ENV{'browser.interface'} eq 'textual') { return ''; }
+ my $currenturl=$ENV{'REQUEST_URI'};
+ my $currentsymb=$ENV{'request.symb'};
+return (<
+
+
+
+
+
+ENDSERVERFORM
+}
# ================================================ Handler when called directly
@@ -551,23 +656,20 @@ sub handler {
$r->send_http_header;
return OK if $r->header_only;
+ my $utility=&utilityfunctions();
+ my $form=&serverform();
my $bodytag=&Apache::loncommon::bodytag('Main Menu');
# ------------------------------------------------------------ Print the screen
$r->print(<
LON-CAPA Main Menu
$bodytag
ENDHEADER
- $r->print(&rawconfig(1));
+ $r->print(&rawconfig(1).$form);
$r->print('