summaryrefslogtreecommitdiffstats
path: root/quips.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'quips.cgi')
-rwxr-xr-xquips.cgi7
1 files changed, 4 insertions, 3 deletions
diff --git a/quips.cgi b/quips.cgi
index 0e0c13d08..dc0106450 100755
--- a/quips.cgi
+++ b/quips.cgi
@@ -119,9 +119,10 @@ if ($action eq 'approve') {
}
if ($action eq "delete") {
- if (!UserInGroup('admin')) {
- ThrowUserError("quips_edit_denied");
- }
+ UserInGroup("admin")
+ || ThrowUserError("auth_failure", {group => "admin",
+ action => "delete",
+ object => "quips"});
my $quipid = $cgi->param("quipid");
ThrowCodeError("need_quipid") unless $quipid =~ /(\d+)/;
$quipid = $1;