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;
|
