From: Rob H. <for...@us...> - 2002-01-29 01:32:30
|
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'), |