#**************************************************************************/
use strict;
+use warnings FATAL => 'all';
$ND::TEMPLATE->param(TITLE => 'Request Defense');
our $BODY;
our $DBH;
our $LOG;
-
-
+my $error;
die "You don't have access" unless isMember();
-if (param('cmd') eq 'submit'){
+if (defined param('cmd') && param('cmd') eq 'submit'){
my $insert = $DBH->prepare('INSERT INTO defense_requests (uid,message) VALUES (?,?)');
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;