[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.249,1.250

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

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

Modified Files:
	sandweb.cgi 
Log Message:
delete_file updates mainWindow for you now


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.249
retrieving revision 1.250
diff -U2 -r1.249 -r1.250
--- sandweb.cgi	5 Mar 2002 07:41:32 -0000	1.249
+++ sandweb.cgi	5 Mar 2002 07:52:08 -0000	1.250
@@ -1294,4 +1294,5 @@
 	my $repo_name = $args{'repo_name'};
 	my $module_name = $args{'module_name'};
+	my $prev_url = "$ENV{'HTTP_REFERER'}";
 	my @filename = ();
 	my $count = 0;
@@ -1375,4 +1376,5 @@
 		MENU_TITLE => 'SandWeb',
 		SUBMENU_TITLE => "delete file",
+		PREVIOUS_URL => $prev_url,
 		FOOTER => '',
 		CONTENT => $content,