our $BODY;
our $DBH;
+our $ERROR;
my $error;
die "You don't have access" unless isMember();
}
if (param('cmd') eq 'submit_message'){
my $board = {id => 12};
- if (my $thread = addForumThread $DBH,$board,$ND::UID,param('subject')){
+ my $subject = param('subject');
+ unless ($subject){
+ if (param('intel') =~ /(.*\w.*)/){
+ $subject = $1;
+ }
+
+ }
+ if (my $thread = addForumThread $DBH,$board,$ND::UID,$subject){
$error .= p 'Intel message added' if addForumPost $DBH,$thread,$ND::UID,param('intel')
}
}
<textarea rows="20" cols="50" name="intel"></textarea>
<input type="hidden" name="cmd" value="submit_message"/>
<input type="hidden" name="page" value="<TMPL_VAR NAME=PAGE>"/>
- <br/>Subject: <input type="text" name="subject" value="New intel message"/>
+ <br/>Subject: <input type="text" name="subject" value=""/>
<input type="submit" value="Submit"/>
</fieldset></form>