[LON-CAPA-cvs] cvs: loncom /interface lonmenu.pm
www
lon-capa-cvs@mail.lon-capa.org
Fri, 14 Feb 2003 14:30:09 -0000
www Fri Feb 14 09:30:09 2003 EDT
Modified files:
/loncom/interface lonmenu.pm
Log:
Textual menu is now clickable
(active after logging in with Accessibility Options).
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.35 loncom/interface/lonmenu.pm:1.36
--- loncom/interface/lonmenu.pm:1.35 Thu Feb 13 15:35:39 2003
+++ loncom/interface/lonmenu.pm Fri Feb 14 09:30:09 2003
@@ -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.36 2003/02/14 14:30:09 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -181,7 +181,7 @@
} else {
my $text=$top.' '.$bot;
$text=~s/\- //;
- return '<br /><a href="'.$act.'">'.$text.'</a> '.$desc;
+ return '<br /><a href="javascript:'.$act.';">'.$text.'</a> '.$desc;
}
}
@@ -328,7 +328,20 @@
my $bodytag=&Apache::loncommon::bodytag('Main Menu');
# ------------------------------------------------------------ Print the screen
- $r->print('<html><head><title>LON-CAPA Main Menu</title></head>'.$bodytag);
+ $r->print(<<ENDHEADER);
+<html><head>
+<title>LON-CAPA Main Menu</title>
+<script>
+function go(url) {
+ window.location=url;
+}
+function gopost(url) {
+ window.location=url;
+}
+</script>
+</head>
+$bodytag
+ENDHEADER
$r->print(&rawconfig(1));
$r->print('</body></html>');
return OK;