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

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

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

Modified Files:
	sandweb.cgi 
Log Message:
file upload now works from the file menu.

it probably does NOT work from the browse menu (yet).


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.110
retrieving revision 1.111
diff -U2 -r1.110 -r1.111
--- sandweb.cgi	2002/01/02 22:35:30	1.110
+++ sandweb.cgi	2002/01/18 07:37:33	1.111
@@ -601,5 +601,5 @@
 		print header( -cookie => $cookie );
 		$ui->print_screen(
-			TITLE=> 'SandWeb : Create Folder',
+			TITLE => 'SandWeb : Create Folder',
 			MENU_TITLE => 'SandWeb',
 			SUBMENU_TITLE => 'create folder',
@@ -611,8 +611,16 @@
 	}
 	elsif ( $file_command eq 'upload' ) {
+		my $filehandle = upload('filehandle');
+		if ( $filehandle) {
+			$filename =~ s/.*[\/\\](.*)/$1/;
+			$file->upload(
+				filehandle => $filehandle,
+			);
+		}
 		my $content = $ui->get_menu( 
 			MENU => 'upload_file',
 			LOCATION => $location,
 			PROGNAME => $progname,
+			FILENAME => $filename,
 			FULLPATH => "$users_dir/$username/$location",
 		);