[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.128,1.129

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

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv16239/bin

Modified Files:
	sandweb.cgi 
Log Message:
* created replacement for browse_menu, old browse_menu now browse_repository_menu


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.128
retrieving revision 1.129
diff -U2 -r1.128 -r1.129
--- sandweb.cgi	2002/01/26 23:30:54	1.128
+++ sandweb.cgi	2002/01/27 00:34:34	1.129
@@ -310,4 +310,26 @@
 	my $cookie = $args{'cookie'};
 
+	$log->debug("entering browse_menu()");
+	unless ($cookie) {
+		&login_menu();
+		exit 0;
+	}
+	load_prefs(1); 
+
+	my $content = $ui->get_menu(
+		MENU => 'browse',
+		PROGNAME => "$progname",
+	);
+
+	my $username = $auth->get_userinfo('username');
+	print CGI::header( -cookie => $cookie );
+	$ui->print_screen(
+		TITLE=> 'SandWeb : Browse Menu',
+		MENU_TITLE => 'SandWeb',
+		SUBMENU_TITLE => 'browse menu',
+		FOOTER => '',
+		CONTENT => $content,
+		ERROR => $error,
+	);
 }
 
@@ -324,5 +346,5 @@
 	my $cookie = $args{'cookie'};
 
-	$log->debug("entering browse menu");
+	$log->debug("entering browse_repository_menu()");
 
 	unless ($cookie) {
@@ -395,7 +417,7 @@
 	print CGI::header( -cookie => $cookie );
 	$ui->print_screen(
-		TITLE=> 'SandWeb : Browse Menu',
+		TITLE=> 'SandWeb : Browse Repository Menu',
 		MENU_TITLE => 'SandWeb',
-		SUBMENU_TITLE => 'browse menu',
+		SUBMENU_TITLE => 'browse repository menu',
 		FOOTER => '',
 		CONTENT => $content,