allow bcs to add target assignments

diff --git a/NDWeb/Pages/EditRaid.pm b/NDWeb/Pages/EditRaid.pm
index 5638b4f57dcdae37656756f516eaa6ba6f150995..cbcc3b2aca91dcaac13e79bf90f3dc16000b0295 100644 (file)
--- a/NDWeb/Pages/EditRaid.pm
+++ b/NDWeb/Pages/EditRaid.pm
@@ -140,6 +140,10 @@ sub render_body {
                        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+)$/){
@@ -149,6 +153,14 @@ sub render_body {
                                        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);
                                }

diff --git a/templates/editRaid.tmpl b/templates/editRaid.tmpl
index be4fa94811ac007e393770bb354070d6c317115a..931ca5110ca93b3c1be579b29deba4daabdb1542 100644 (file)
--- a/templates/editRaid.tmpl
+++ b/templates/editRaid.tmpl
@@ -84,13 +84,20 @@
                                <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/>