diff options
author | terry%mozilla.org <> | 2000-02-26 04:31:49 +0100 |
---|---|---|
committer | terry%mozilla.org <> | 2000-02-26 04:31:49 +0100 |
commit | 0effcbcf51b490c93cc8467bab199d7e8bbe85fa (patch) | |
tree | 1229c06f0a6f06846ed06fbcc0518e45dac17aa9 /CGI.pl | |
parent | 78dfe401dab8c769f8ff43f26ce0878fc9bcadaa (diff) | |
download | bugzilla-0effcbcf51b490c93cc8467bab199d7e8bbe85fa.tar.gz bugzilla-0effcbcf51b490c93cc8467bab199d7e8bbe85fa.tar.xz |
Make a universal routine to report errors in forms, so that we can
have a universal (and more noticable) way of displaying them.
Diffstat (limited to 'CGI.pl')
-rw-r--r-- | CGI.pl | 21 |
1 files changed, 9 insertions, 12 deletions
@@ -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">}; |