[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.135,1.136

[Rob H. <for...@us...>]

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