[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.134,1.135

[Rob H. <for...@us...>]

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

Modified Files:
	sandweb.cgi 
Log Message:
added repository_settings_menu

note: this just displays the template. Nothing else! :)



Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.134
retrieving revision 1.135
diff -U2 -r1.134 -r1.135
--- sandweb.cgi	2002/01/29 01:32:27	1.134
+++ sandweb.cgi	2002/01/29 04:05:50	1.135
@@ -197,4 +197,9 @@
 					);
 				}
+				elsif ( $action eq 'repository_settings_menu' ) {
+					repository_settings_menu(
+						ck_auth => $ck_auth,
+					);
+				}
 				else {
 					# called an invalid page
@@ -959,4 +964,29 @@
 	exit 0;
 } 
+
+sub repository_settings_menu {
+	my %args = @_;
+	my $ck_auth = $args{'ck_auth'};
+	unless ($ck_auth) {
+		&login_menu();
+		exit 0;
+	}
+
+	my $content = $ui->get_menu( 
+		MENU => 'repository_settings',
+		PROGNAME => $progname,
+	);
+
+	print CGI::header( -cookie => $ck_auth );
+	$ui->print_screen(
+		TITLE=> 'SandWeb : Repository Settings Menu',
+		MENU_TITLE => 'SandWeb',
+		SUBMENU_TITLE => 'repository settings menu',
+		FOOTER => '',
+		CONTENT => $content,
+		ERROR => $error, 
+	);
+	exit 0;
+}
 
 sub vcs_prefs_menu {