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,
);
}
|
