Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv32192
Modified Files:
sandweb.cgi
Log Message:
* made changes to move browse menu to sandbox menu
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.140
retrieving revision 1.141
diff -U2 -r1.140 -r1.141
--- sandweb.cgi 2002/01/29 22:13:50 1.140
+++ sandweb.cgi 2002/01/31 04:32:43 1.141
@@ -126,5 +126,5 @@
logout();
}
- elsif ( $action eq 'browse_menu' ) {
+ elsif ( $action eq 'sandbox_menu' ) {
# called sandbox viewer
my $location = CGI::param('location');
@@ -132,5 +132,5 @@
$location = "";
}
- browse_menu(
+ sandbox_menu(
ck_auth => $ck_auth,
location => $location,
@@ -296,4 +296,11 @@
}
+#put sword bag
+#take flail bag
+#wield flail
+#take meat corpse
+#look fido
+#kill fido
+
# debug menu, dump all config objects
sub debug_menu {
@@ -324,8 +331,8 @@
}
-# browse menu
+# sandbox menu
#
-# main menu to browse section.
-sub browse_menu {
+# main menu to do stuff with sandbox section.
+sub sandbox_menu {
my %args = @_;
my $ck_auth = $args{'ck_auth'};
@@ -334,5 +341,5 @@
my @module_loop = ();
- $log->debug("entering browse_menu()");
+ $log->debug("entering sandbox_menu()");
unless ($ck_auth) {
&login_menu();
@@ -356,5 +363,5 @@
my $content = $ui->get_menu(
- MENU => 'browse',
+ MENU => 'sandbox',
PROGNAME => "$progname",
NO_MODULES => ($no_modules) ? "No exisiting modules.\n" : "",
@@ -365,7 +372,7 @@
print CGI::header( -cookie => $ck_auth );
$ui->print_screen(
- TITLE=> 'SandWeb : Browse Menu',
+ TITLE=> 'SandWeb : Sandbox Menu',
MENU_TITLE => 'SandWeb',
- SUBMENU_TITLE => 'browse menu',
+ SUBMENU_TITLE => 'sandbox menu',
FOOTER => '',
CONTENT => $content,
|
