[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.347,1.348

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

Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv2813/bin

Modified Files:
	sandweb.cgi 
Log Message:
working on fixing that tag/branch bug, this is a work in progress..


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.347
retrieving revision 1.348
diff -U2 -r1.347 -r1.348
--- sandweb.cgi	1 Apr 2003 02:46:25 -0000	1.347
+++ sandweb.cgi	22 Apr 2003 17:11:59 -0000	1.348
@@ -237,4 +237,6 @@
 		my $previous_url = $cgi->param('previous_url') || '';
 		my $main_window_url = $cgi->param('main_window_url') || '';
+		# whether or not this is a submenu
+		my $submenu = $cgi->param('submenu') || '';
 
 		$log->debug("action: $action - submit: $submit");
@@ -323,5 +325,5 @@
 					my $create_tag = $cgi->param('create_tag') || '';
 					my $remove_tag = $cgi->param('remove_tag') || '';
-					if ($submit) {
+					if ($submenu) {
 						tag_commit(
 							ck_auth => $ck_auth,
@@ -1885,13 +1887,14 @@
 	my %args = @_;
 
-	my $ck_auth = $args{'ck_auth'};
-	my $location = $args{'location'};
-	my $module_name = $args{'module_name'};
-	my $repo_name = $args{'repo_name'};
-	my $repo_password = $args{'repo_password'};
-	my $vcs_command = $args{'vcs_command'};
-	my $vcs_message = $args{'message'};
-	my $params = $args{'params'};
+	my $ck_auth = $args{'ck_auth'} || '';
+	my $location = $args{'location'} || '';
+	my $module_name = $args{'module_name'} || '';
+	my $repo_name = $args{'repo_name'} || '';
+	my $repo_password = $args{'repo_password'} || '';
+	my $vcs_command = $args{'vcs_command'} || '';
+	my $vcs_message = $args{'message'} || '';
+	my $params = $args{'params'} || '';
 	my $main_window_url = $args{'main_window_url'} || '';
+	my $submenu = $args{'submenu'} || '';
 	my @filename_loop = ();
 	my $count = 0;
@@ -1974,4 +1977,5 @@
 		MAIN_WINDOW_URL => $main_window_url,
 		IMAGE_DIR => $image_dir,
+		SUBMENU => $submenu,
 	);
 	print $cgi->header( -cookie => $ck_auth );
@@ -2517,5 +2521,5 @@
 # vcs_commit
 #
-# all browse VCS actions are caught by this subroutine, and dealt
+# all VCS actions are caught by this subroutine, and dealt
 # with by calling the appropriate Repository method.
 #
@@ -3216,4 +3220,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 	if ($tag_switch) {
@@ -3234,4 +3239,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 	if ($trunk_sync) {
@@ -3251,4 +3257,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 	if ($trunk_switch) {
@@ -3269,4 +3276,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 
@@ -3287,4 +3295,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}
 	if ($remove_tag) {
@@ -3305,4 +3314,5 @@
 			main_window_url => $main_window_url,
 		);
+		exit;
 	}