[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.89,1.90

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

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

Modified Files:
	sandweb.cgi 
Log Message:

fixed a couple bugs with view/edit file functionality by making it use
the File object properly ( finally ;)



Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.89
retrieving revision 1.90
diff -U2 -r1.89 -r1.90
--- sandweb.cgi	2001/12/05 19:42:08	1.89
+++ sandweb.cgi	2001/12/06 23:35:51	1.90
@@ -396,5 +396,5 @@
 	}
 	elsif ( $command eq 'view' ) {
-		if ( "$file->get_file_type()" ne "Text" ) {
+		if ( $file->get_file_type() ne "Text" ) {
 			set_error("This does not appear to be a text file.");
 			browse_menu(
@@ -404,5 +404,5 @@
 		}
 		my @tmp;
-		open (FILE, "$users_dir/$username/$filename");
+		open (FILE, "$users_dir/$username/$location/$filename");
 		foreach my $line (<FILE>) {
 			push @tmp, $line;
@@ -447,5 +447,5 @@
 		}
 		my @tmp;
-		open (FILE, "$users_dir/$username/$filename");
+		open (FILE, "$users_dir/$username/$location/$filename");
 		foreach my $line (<FILE>) {
 			push @tmp, $line;