[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.140,1.141

[Nick J. <nje...@us...>]

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,