Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv24638/bin
Modified Files:
sandweb.cgi
Log Message:
file actions are now implemented as a toolbar instead of a pulldown
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.133
retrieving revision 1.134
diff -U2 -r1.133 -r1.134
--- sandweb.cgi 2002/01/28 19:11:33 1.133
+++ sandweb.cgi 2002/01/29 01:32:27 1.134
@@ -59,4 +59,9 @@
my $action = CGI::param('action');
+ # catch file-specific actions
+ if ( CGI::param('action_file') ) {
+ $action = 'file';
+ }
+
if ($action eq 'login') {
# attempting login
@@ -149,5 +154,5 @@
file(
ck_auth => $ck_auth,
- file_command => CGI::param('file_command'),
+ file_command => CGI::param('action_file'),
filename => \@filename,
location => CGI::param('location'),
|
