[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.247,1.248

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

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv29683

Modified Files:
	sandweb.cgi 
Log Message:
fixed edit/unedit output


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.247
retrieving revision 1.248
diff -U2 -r1.247 -r1.248
--- sandweb.cgi	4 Mar 2002 18:43:07 -0000	1.247
+++ sandweb.cgi	5 Mar 2002 07:07:57 -0000	1.248
@@ -1716,10 +1716,23 @@
 			);
 		} else {
-			set_message("VCS $vcs_command on @filename");
-			browse_module_menu( 
-				ck_auth => $ck_auth,
-				location => $location,
-				module_name => $module_name,
-				repo_name => $repo_name,
+			my $message = "vcs $vcs_command on @filename";
+			my $content = $ui->get_menu(
+				MENU => 'vcs_output',
+				LOCATION => $location,
+				FILENAME => @filename,
+				PROGNAME => $progname,
+				VCS_OUTPUT => join('', @vcs_output),
+				VCS_ERROR => join('', @vcs_error),
+			);
+
+			print CGI::header( -cookie => $ck_auth );
+			$ui->print_popup(
+				TITLE=> "SandWeb : VCS $vcs_command",
+				MENU_TITLE => 'SandWeb',
+				SUBMENU_TITLE => "VCS $vcs_command",
+				PREVIOUS_URL => $prev_url,
+				FOOTER => '',
+				CONTENT => $content,
+				MESSAGE => $message,
 			);
 		}