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,
|
