Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv14535
Modified Files:
sandweb.cgi
Log Message:
upload is now on the browse_menu
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.124
retrieving revision 1.125
diff -U2 -r1.124 -r1.125
--- sandweb.cgi 2002/01/26 21:34:32 1.124
+++ sandweb.cgi 2002/01/26 21:56:00 1.125
@@ -655,13 +655,18 @@
my $filehandle = CGI::upload('filehandle');
if ( $filehandle) {
- $filename =~ s/.*[\/\\](.*)/$1/;
+ $filename = $filehandle;
+ my $file = SandWeb::File->new(
+ 'config_obj' => $config,
+ 'log_obj' => $log,
+ 'filename' => $filename,
+ 'location' => "$users_dir/$username$location",
+ );
$file->upload(
filehandle => $filehandle,
);
- file(
+
+ browse_menu(
cookie => $cookie,
- file_command => "view",
- filename => \@filename,
- location => $location,
+ path => $location,
);
}
|
