oops, guess I had forgotten about this file

[ndwebbie.git] / defrequest.pl

diff --git a/defrequest.pl b/defrequest.pl
index b1d457789cf12275e2080bbbc0dec5618a672cb5..eb90f650001dcfad3e3310b3a9253048505bbe75 100644 (file)
--- a/defrequest.pl
+++ b/defrequest.pl
@@ -18,14 +18,15 @@
 #**************************************************************************/
 
 use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
 
 $ND::TEMPLATE->param(TITLE => 'Request Defense');
 
 our $BODY;
 our $DBH;
 our $LOG;
-
-
+my $error;
 
 die "You don't have access" unless isMember();
 
@@ -34,9 +35,8 @@ if (param('cmd') eq 'submit'){
        if($insert->execute($ND::UID,param('message'))){
                $BODY->param(Reply => param('message'));
        }else{
-               print "<b>".$DBH->errstr."</b>";
+               $error .= "<b>".$DBH->errstr."</b>";
        }
 }
-
-
+$BODY->param(Error => $error);
 1;