X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=NDWeb%2FPages%2FEditRaid.pm;h=cbcc3b2aca91dcaac13e79bf90f3dc16000b0295;hb=34876053e79ee0153b38c8cad7c9404322472f29;hp=61a58143fa79ed93158f615ab00a428903f67faa;hpb=e24b2ec10cfd65bc2c7070cbee42294deeb907cc;p=ndwebbie.git

diff --git a/NDWeb/Pages/EditRaid.pm b/NDWeb/Pages/EditRaid.pm
index 61a5814..cbcc3b2 100644
--- 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);
 				}
@@ -230,9 +242,7 @@ sub render_body {
 			delete $target->{planet};
 
 			my @scans;
-			my $i = 0;
 			while (my $scan = $scans->fetchrow_hashref){
-				$scan->{ODD} = $i++ % 2;
 				push @scans,$scan;
 			}
 			$target->{Scans} = \@scans;