From: Rob H. <for...@us...> - 2002-01-18 07:49:34
|
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, ); } |