summaryrefslogtreecommitdiffstats
path: root/quips.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'quips.cgi')
-rwxr-xr-xquips.cgi3
1 files changed, 3 insertions, 0 deletions
diff --git a/quips.cgi b/quips.cgi
index 6ded45091..03fd49548 100755
--- a/quips.cgi
+++ b/quips.cgi
@@ -75,6 +75,7 @@ if ($action eq "add") {
undef, ($user->id, $comment, $approved));
$vars->{'added_quip'} = $comment;
+ $vars->{'message'} = 'quips_added';
}
if ($action eq 'approve') {
@@ -115,6 +116,7 @@ if ($action eq 'approve') {
join(",", @unapproved) . ")") if($#unapproved > -1);
$vars->{ 'approved' } = \@approved;
$vars->{ 'unapproved' } = \@unapproved;
+ $vars->{'message'} = 'quips_approved_unapproved';
}
if ($action eq "delete") {
@@ -130,6 +132,7 @@ if ($action eq "delete") {
"SELECT quip FROM quips WHERE quipid = ?",
undef, $quipid);
$dbh->do("DELETE FROM quips WHERE quipid = ?", undef, $quipid);
+ $vars->{'message'} = 'quips_deleted';
}
print $cgi->header();