Make a universal routine to report errors in forms, so that we can

have a universal (and more noticable) way of displaying them.

1 files changed, 9 insertions, 12 deletions

diff --git a/CGI.pl b/CGI.pl
index 373572986..e70fd3f87 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -799,6 +799,15 @@ sub PutFooter {
 }
 
 
+sub PuntTryAgain ($) {
+    my ($str) = (@_);
+    print PerformSubsts(Param("errorhtml"),
+                        {errormsg => $str});
+    PutFooter();
+    exit;
+}
+
+
 sub CheckIfVotedConfirmed {
     my ($id, $who) = (@_);
     SendSQL("SELECT bugs.votes, bugs.bug_status, products.votestoconfirm, " .
@@ -878,18 +887,6 @@ sub DumpBugActivity {
 }
 
 
-#
-# Prints a warnbanner incl. image with given message
-# 
-sub warnBanner( $ )
-{
-  my ($msg) = (@_);
-  print Param("warnbannerhtml");
-  print $msg;
-  print Param("warnfooterhtml");
-}
-
-
 sub GetCommandMenu {
     my $loggedin = quietly_check_login();
     my $html = qq{<FORM METHOD=GET ACTION="show_bug.cgi">};