push @intellists,{Message => q{Intel where alliances doesn't match}, Intel => \@intel, Origin => 1, Target => 1};
$BODY->param(IntelLIsts => \@intellists);
}
- my $query = $DBH->prepare(q{SELECT i.id, u.username, i.message, report_date FROM intel_messages i
- JOIN users u ON u.uid = i.uid
- WHERE NOT handled ORDER BY report_date});
- $query->execute;
- my @messages;
- while (my $message = $query->fetchrow_hashref){
- $message->{message} = parseMarkup($message->{message});
- push @messages,$message;
- }
- #$BODY->param(IntelMessages => \@messages);
$BODY->param(Error => $error);
return $BODY;
}
</table>
</TMPL_LOOP>
-<table border="1">
- <tr>
- <th>Reported by</th>
- <th>Report time</th>
- <th>Message</th>
- <th></th>
- </tr>
- <TMPL_LOOP IntelMessages>
- <tr>
- <td><TMPL_VAR NAME=Username></td>
- <td><TMPL_VAR NAME=Report_date></td>
- <td><TMPL_VAR NAME=Message></td>
- <td><a href="/<TMPL_VAR NAME=PAGE>?handle=<TMPL_VAR NAME=Id>">remove</a></td>
- </tr>
- </TMPL_LOOP>
-</table>
-
<form action="<TMPL_VAR NAME=PAGE>" method="post"><fieldset> <legend>Coords</legend>
<p>Paste a list of coords here</p>
<textarea rows="25" cols="80" name="coords"></textarea>