Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv4678/bin
Modified Files:
sandweb.cgi
Log Message:
removed "Commands" column, you can get to edit by clicking on a file
( which brings up the View screen ) and pressing the edit button.
saving the file brings you back to the View screen.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.105
retrieving revision 1.106
diff -U2 -r1.105 -r1.106
--- sandweb.cgi 2001/12/21 02:40:16 1.105
+++ sandweb.cgi 2001/12/21 08:12:20 1.106
@@ -464,17 +464,18 @@
$log->debug("viewing file : $filename");
- my $content = $file->file_read();
+ my $data = $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.");
- $content = "";
+ $data = "";
}
my $content = $ui->get_menu(
MENU => 'view_file',
- PROGNAME => $progname,
+ PROGNAME => "$progname",
FILENAME => "$filename",
- CONTENT => "$content",
+ LOCATION => "$location",
+ DATA => "$data",
);
@@ -532,6 +533,4 @@
PROGNAME => $progname,
CONTENT => "$content",
- FILENAME => $filename,
- LOCATION => $location,
FULLPATH => "$users_dir/$username/$location",
);
@@ -542,4 +541,6 @@
MENU_TITLE => 'SandWeb',
SUBMENU_TITLE => 'edit file',
+ FILENAME => $filename,
+ LOCATION => $location,
FOOTER => '',
CONTENT => $content,
|
