fatal warnings and possible to comment targets again

[ndwebbie.git] / editRaid.pl

diff --git a/editRaid.pl b/editRaid.pl
index fd109320880459d6edab93e7740f5b1c3be9bae0..a1de374e59b81b597583d536b882b07c81b035fc 100644 (file)
--- a/editRaid.pl
+++ b/editRaid.pl
@@ -18,6 +18,8 @@
 #**************************************************************************/
 
 use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
 use POSIX;
 our $BODY;
 our $DBH;
@@ -67,6 +69,11 @@ if ($raid){
                if($DBH->do(q{UPDATE raids SET released_coords = FALSE WHERE id = ?},undef,$raid->{id})){
                        $raid->{released_coords} = 0;
                }
+       }elsif (param('cmd') eq 'comment'){
+               $DBH->do(q{UPDATE raid_targets SET comment = ? WHERE id = ?}
+                       ,undef,escapeHTML(param('comment')),param('target'))
+                       or $error .= p($DBH->errstr);
+
        }elsif (param('cmd') eq 'change'){
                $DBH->begin_work;
                my $message = escapeHTML(param('message'));