Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv5039/bin
Modified Files:
sandweb.cgi
Log Message:
non-text files now give the download option when you click on them.
it essentially pulls up the view_file template with no content.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.102
retrieving revision 1.103
diff -U2 -r1.102 -r1.103
--- sandweb.cgi 2001/12/20 23:11:38 1.102
+++ sandweb.cgi 2001/12/20 23:31:31 1.103
@@ -488,14 +488,13 @@
elsif ( $file_command eq 'view' ) {
$log->debug("viewing file : $filename");
+
+ my @tmp = $file->file_read();
+
if ( $file->get_file_type() ne "Text" ) {
$log->debug("User wants to view non-text file : $filename");
set_error("This does not appear to be a text file.");
- browse_menu(
- cookie => $cookie,
- path => $location,
- );
+ @tmp = ();
}
- my @tmp = $file->file_read();
my $content = $ui->get_menu(
|