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,
);
}
|
