my $comment = $DBH->prepare(q{UPDATE raid_targets SET comment = ? WHERE id = ?});
my $unclaim = $DBH->prepare(q{DELETE FROM raid_claims WHERE target = ? AND wave = ?});
my $block = $DBH->prepare(q{INSERT INTO raid_claims (target,uid,wave) VALUES(?,-2,?)});
+ my $claim = $DBH->prepare(q{INSERT INTO raid_claims (target,uid,wave)
+ VALUES($1,(SELECT uid FROM users WHERE username ILIKE $3),$2)
+ });
+ my $unblock = $DBH->prepare(q{DELETE FROM raid_claims WHERE target = ? AND wave = ? AND uid = -2});
my $remove = $DBH->prepare(q{DELETE FROM raid_targets WHERE raid = ? AND id = ?});
for $_ (param()){
if (/^comment:(\d+)$/){
log_message $ND::UID,"BC unclaimed target $1 wave $2.";
}elsif(/^block:(\d+):(\d+)$/){
$block->execute($1,$2) or $error .= p($DBH->errstr);
+ }elsif(/^claim:(\d+):(\d+)$/){
+ my $target = $1;
+ my $wave = $2;
+ my @claims = split /[, ]+/, param($_);
+ $unblock->execute($target,$wave) if @claims;
+ for (@claims){
+ $claim->execute($target,$wave,$_) or warn $DBH->errstr;
+ }
}elsif(/^remove:(\d+)$/){
$remove->execute($raid->{id},$1) or $error .= p($DBH->errstr);
}
<td class="<TMPL_VAR NAME=Relationship>"><TMPL_VAR NAME=Relationship></td>
</tr>
</table>
+ <table>
<TMPL_LOOP Waves>
+ <tr>
+ <td>
<TMPL_IF Claimers>
- <p>Unclaim wave <TMPL_VAR NAME=Wave> (<TMPL_VAR NAME=Claimers>): <input type="checkbox" name="unclaim:<TMPL_VAR NAME=Id>:<TMPL_VAR NAME=Wave>" value="unclaim"/></p>
+ Unclaim wave <TMPL_VAR NAME=Wave> (<TMPL_VAR NAME=Claimers>): <input type="checkbox" name="unclaim:<TMPL_VAR NAME=Id>:<TMPL_VAR NAME=Wave>" value="unclaim"/>
<TMPL_ELSE>
- <p>Block wave <TMPL_VAR NAME=Wave>: <input type="checkbox" name="block:<TMPL_VAR NAME=Id>:<TMPL_VAR NAME=Wave>" value="block"/></p>
+ Block wave <TMPL_VAR NAME=Wave>: <input type="checkbox" name="block:<TMPL_VAR NAME=Id>:<TMPL_VAR NAME=Wave>" value="block"/>
</TMPL_IF>
+ </td>
+ <td><input type="text" name="claim:<TMPL_VAR NAME=Id>:<TMPL_VAR NAME=Wave>" value=""/></td>
+ </tr>
</TMPL_LOOP>
+ </table>
</div>
<div class="leftinfo">
<p> Comment:<br/>