Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv25228/bin
Modified Files:
sandweb.cgi
Log Message:
moved checkout command to vcsaction ( it was put in file from a _long_
time ago ;) and updated the template a bit. Put a test entry in there.
The UI isn't very sweet, but it's there.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.135
retrieving revision 1.136
diff -U2 -r1.135 -r1.136
--- sandweb.cgi 2002/01/29 04:05:50 1.135
+++ sandweb.cgi 2002/01/29 04:17:20 1.136
@@ -154,5 +154,5 @@
file(
ck_auth => $ck_auth,
- file_command => CGI::param('action_file'),
+ => CGI::param('action_file'),
filename => \@filename,
location => CGI::param('location'),
@@ -197,4 +197,10 @@
);
}
+ elsif ( $action eq 'module_checkout_menu' ) {
+ vcsaction(
+ ck_auth => $ck_auth,
+ vcs_command => 'checkout',
+ );
+ }
elsif ( $action eq 'repository_settings_menu' ) {
repository_settings_menu(
@@ -765,22 +771,4 @@
exit 0;
}
- elsif ( $file_command eq 'checkout' ) {
- my $content = $ui->get_menu(
- MENU => 'checkout',
- LOCATION => $location,
- PROGNAME => $progname,
- FULLPATH => "$users_dir/$username/$location",
- );
- print CGI::header( -cookie => $ck_auth );
- $ui->print_screen(
- TITLE=> 'SandWeb : Checkout',
- MENU_TITLE => 'SandWeb',
- SUBMENU_TITLE => 'checkout file',
- FOOTER => '',
- CONTENT => $content,
- ERROR => $error,
- );
- exit 0;
- }
elsif ( $file_command eq 'download' ) {
$file->download();
@@ -848,5 +836,23 @@
sandbox => "$users_dir/$username",
);
- if ( $vcs_command eq 'commit' ) {
+ if ( $vcs_command eq 'checkout' ) {
+ my $content = $ui->get_menu(
+ MENU => 'checkout',
+ LOCATION => $location,
+ PROGNAME => $progname,
+ FULLPATH => "$users_dir/$username/$location",
+ );
+ print CGI::header( -cookie => $ck_auth );
+ $ui->print_screen(
+ TITLE=> 'SandWeb : Checkout',
+ MENU_TITLE => 'SandWeb',
+ SUBMENU_TITLE => 'checkout file',
+ FOOTER => '',
+ CONTENT => $content,
+ ERROR => $error,
+ );
+ exit 0;
+ }
+ elsif ( $vcs_command eq 'commit' ) {
if ($message) {
# can't give the leading / to the VCS
|
