Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv17724/bin
Modified Files:
sandweb.cgi
Log Message:
ok, rename_file is now rename.
funny, i didn't notice, but I did name the method "rename" not
"rename_file" in the File class, but called it "rename_file" every
where else .. odd :)
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.251
retrieving revision 1.252
diff -U2 -r1.251 -r1.252
--- sandweb.cgi 7 Mar 2002 05:06:03 -0000 1.251
+++ sandweb.cgi 7 Mar 2002 08:07:39 -0000 1.252
@@ -245,8 +245,8 @@
);
}
- elsif ( $action eq 'rename_file' ) {
+ elsif ( $action eq 'rename' ) {
# called file renamer
if ($submit) {
- rename_file_commit(
+ rename_commit(
ck_auth => $ck_auth,
filename => CGI::param('filename'),
@@ -257,5 +257,5 @@
);
} else {
- rename_file_menu(
+ rename_menu(
ck_auth => $ck_auth,
filename => CGI::param('filename'),
@@ -1115,5 +1115,5 @@
# users_dir - location of user sandbox directories.
###############################################################################
-sub rename_file_menu {
+sub rename_menu {
my %args = @_;
@@ -1143,5 +1143,5 @@
my $content = $ui->get_menu(
- MENU => 'rename_file',
+ MENU => 'rename',
PROGNAME => $progname,
MODULE_NAME => $module_name,
@@ -1470,5 +1470,5 @@
###############################################################################
-# rename_file_commit is called by rename_file_menu to rename a file
+# rename_commit is called by rename_menu to rename a file
#
# A File object is created and used.
@@ -1485,5 +1485,5 @@
# users_dir - location of user sandbox directories.
###############################################################################
-sub rename_file_commit {
+sub rename_commit {
my %args = @_;
|
