Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv22184/bin
Modified Files:
sandweb.cgi
Log Message:
renaming "upload_file" to "upload"
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.254
retrieving revision 1.255
diff -U2 -r1.254 -r1.255
--- sandweb.cgi 7 Mar 2002 08:19:28 -0000 1.254
+++ sandweb.cgi 7 Mar 2002 08:21:36 -0000 1.255
@@ -304,8 +304,8 @@
}
}
- elsif ( $action eq 'upload_file' ) {
+ elsif ( $action eq 'upload' ) {
# called file uploader
if ($submit) {
- upload_file_commit(
+ upload_commit(
ck_auth => $ck_auth,
filename => CGI::param('filename'),
@@ -315,5 +315,5 @@
)
} else {
- upload_file_menu(
+ upload_menu(
ck_auth => $ck_auth,
module_name => $module_name,
@@ -1258,5 +1258,5 @@
# users_dir - location of user sandbox directories.
###############################################################################
-sub upload_file_menu {
+sub upload_menu {
my %args = @_;
@@ -1267,5 +1267,5 @@
my $content = $ui->get_menu(
- MENU => 'upload_file',
+ MENU => 'upload',
LOCATION => $location,
PROGNAME => $progname,
@@ -1604,5 +1604,5 @@
###############################################################################
-# upload_file_commit is called by upload_file_menu to save uploaded data
+# upload_commit is called by upload_menu to save uploaded data
#
# A File object is created and used.
@@ -1618,5 +1618,5 @@
# users_dir - location of user sandbox directories.
###############################################################################
-sub upload_file_commit {
+sub upload_commit {
my %args = @_;
|
