[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.124,1.125

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

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