From 0effcbcf51b490c93cc8467bab199d7e8bbe85fa Mon Sep 17 00:00:00 2001 From: "terry%mozilla.org" <> Date: Sat, 26 Feb 2000 03:31:49 +0000 Subject: Make a universal routine to report errors in forms, so that we can have a universal (and more noticable) way of displaying them. --- CGI.pl | 21 ++++++-------- buglist.cgi | 10 ++----- defparams.pl | 18 +++++------- post_bug.cgi | 21 ++++++++------ process_bug.cgi | 85 ++++++++++++++++++++------------------------------------- 5 files changed, 60 insertions(+), 95 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{