[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.111,1.112

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

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

Modified Files:
	sandweb.cgi 
Log Message:
upload now returns you to the file you were viewing


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.111
retrieving revision 1.112
diff -U2 -r1.111 -r1.112
--- sandweb.cgi	2002/01/18 07:37:33	1.111
+++ sandweb.cgi	2002/01/18 07:49:31	1.112
@@ -614,6 +614,12 @@
 		if ( $filehandle) {
 			$filename =~ s/.*[\/\\](.*)/$1/;
-			$file->upload(
+			$file->upload( 
 				filehandle => $filehandle,
+			); 
+			file(
+				cookie => $cookie,
+				file_command => "view",
+				filename => \@filename,
+				location => $location,
 			);
 		}