Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv28090/bin
Modified Files:
sandweb.cgi
Log Message:
fixing fallout from the multi-repo changes
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.193
retrieving revision 1.194
diff -U2 -r1.193 -r1.194
--- sandweb.cgi 20 Feb 2002 05:14:31 -0000 1.193
+++ sandweb.cgi 20 Feb 2002 05:32:08 -0000 1.194
@@ -194,4 +194,5 @@
filename => \@filename,
module_name => $module_name,
+ repo_name => $repo_name,
location => CGI::param('location'),
);
@@ -827,4 +828,5 @@
location => $location,
module_name => $module_name,
+ repo_name => $repo_name,
);
}
@@ -855,6 +857,7 @@
browse_module_menu(
ck_auth => $ck_auth,
- repo_name => $repo_name,
+ location => $location,
module_name => $module_name,
+ repo_name => $repo_name,
);
}
@@ -1002,4 +1005,5 @@
location => $location,
module_name => $module_name,
+ repo_name => $repo_name,
);
exit 0;
@@ -1010,4 +1014,5 @@
LOCATION => $location,
MODULE_NAME => $module_name,
+ REPO_NAME => $repo_name,
);
@@ -1026,17 +1031,19 @@
if ($file) {
$file->create_folder();
- exit 0;
+
+ browse_module_menu(
+ ck_auth => $ck_auth,
+ location => $location,
+ module_name => $module_name,
+ repo_name => $repo_name,
+ );
}
- browse_module_menu(
- ck_auth => $ck_auth,
- location => $location,
- module_name => $module_name,
- );
my $content = $ui->get_menu(
MENU => 'create_folder',
PROGNAME => $progname,
- MODULE_NAME => $module_name,
LOCATION => $location,
+ MODULE_NAME => $module_name,
+ REPO_NAME => $repo_name,
);
print CGI::header( -cookie => $ck_auth );
@@ -1071,4 +1078,5 @@
location => $location,
module_name => $module_name,
+ repo_name => $repo_name,
);
}
@@ -1100,4 +1108,5 @@
location => $location,
module_name => $module_name,
+ repo_name => $repo_name,
);
}
|