[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.77,1.78

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

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

Modified Files:
	sandweb.cgi 
Log Message:

fixed annoying bug that made all new files/folders be created in the
top-level sandbox dir. create_file/folder now work as expected.

However, they don't warn you if there's a problem. we have to
make File.pm actually generate error codes, and set the set_error
accordingly.



Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.77
retrieving revision 1.78
diff -U2 -r1.77 -r1.78
--- sandweb.cgi	2001/11/27 00:47:17	1.77
+++ sandweb.cgi	2001/11/27 01:40:48	1.78
@@ -337,5 +337,5 @@
 	my $file = SandWeb::File->new(
                	'filename' => $filename,
-               	'location' => "$users_dir/$username",
+               	'location' => "$users_dir/$username$location",
 	);
 	if ( $command eq 'info' ) {