[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.314,1.315

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

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

Modified Files:
	sandweb.cgi 
Log Message:
rename and create_folder now redirect to the main window properly, avoiding confusing side effects

Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.314
retrieving revision 1.315
diff -U2 -r1.314 -r1.315
--- sandweb.cgi	14 Aug 2002 01:35:48 -0000	1.314
+++ sandweb.cgi	15 Aug 2002 01:09:17 -0000	1.315
@@ -364,4 +364,5 @@
 						repo_name => $repo_name,
 						location => $location,
+						previous_url => $previous_url,
 					);
 				} else {
@@ -403,4 +404,5 @@
 						repo_name => $repo_name,
 						location => $location,
+						previous_url => $previous_url,
 					)
 				} else {
@@ -1311,4 +1313,5 @@
 	my $module_name = $args{'module_name'};
 	my $filename = $args{'filename'};
+	my $prev_url = "$ENV{'HTTP_REFERER'}";
 
 	$log->debug("viewing file : $filename");
@@ -1351,4 +1354,5 @@
 			LOCATION => $location,
 			FILENAME => $filename,
+			PREVIOUS_URL => $prev_url,
 		);
 
@@ -1429,4 +1433,5 @@
 	my $module_name = $args{'module_name'};
 	my $repo_name = $args{'repo_name'};
+	my $prev_url = "$ENV{'HTTP_REFERER'}";
 
 	my $content = $ui->get_menu( 
@@ -1436,4 +1441,5 @@
 		MODULE_NAME => $module_name,
 		REPO_NAME => $repo_name,
+		PREVIOUS_URL => $prev_url,
 	);
 	print $cgi->header( -cookie => $ck_auth );
@@ -1796,4 +1802,5 @@
 	my $filename = $args{'filename'};
 	my $tofile = $args{'tofile'};
+	my $previous_url = $args{'previous_url'};
 
 	my $file = SandWeb::File->new(
@@ -1810,10 +1817,5 @@
 	}
 
-	browse_module_menu( 
-		ck_auth => $ck_auth,
-		location => $location,
-		module_name => $module_name,
-		repo_name => $repo_name,
-	);
+	print $cgi->redirect("$previous_url");
 }
 
@@ -1883,4 +1885,5 @@
 	my $module_name = $args{'module_name'};
 	my $filename = $args{'filename'};
+	my $previous_url = $args{'previous_url');
 
 	$log->debug("creating File object");
@@ -1893,10 +1896,5 @@
 	$file->create_folder();
 
-	browse_module_menu( 
-		ck_auth => $ck_auth,
-		location => $location,
-		module_name => $module_name,
-		repo_name => $repo_name,
-	);
+	print $cgi->redirect("$previous_url");
 }