X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=calls.pl;h=b5b4374f0b45d3b8b77b608760256905f053ec4c;hb=5e38dff0cf8667720f7ae7f89302e0246ecf5624;hp=60f6496e1d4013f7d08286d0764293a4b40ad6bf;hpb=dd1f790eb29a50532b427d0e4a909e6d942a8414;p=ndwebbie.git

diff --git a/calls.pl b/calls.pl
index 60f6496..b5b4374 100644
--- a/calls.pl
+++ b/calls.pl
@@ -40,26 +40,28 @@ WHERE c.id = ?});
 }
 if ($call){
 	if (param('cmd') eq 'Submit'){
-	}elsif (param('cmd') eq 'Submit'){
 		$DBH->begin_work;
 		if (param('ctick')){
 			if ($DBH->do(q{UPDATE calls SET landing_tick = ? WHERE id = ?}
 					,undef,param('tick'),$call->{id})){
 				$call->{landing_tick} = param('tick');
+				$LOG->execute($ND::UID,"DC updated landing tick for call $call->{id}");
 			}else{
 				print "<p> Something went wrong: ".$DBH->errstr."</p>";
 			}
 		}
-		if (param('info')){
+		if (param('cinfo')){
 			if ($DBH->do(q{UPDATE calls SET info = ? WHERE id = ?}
 					,undef,param('info'),$call->{id})){
 				$call->{info} = param('info');
+				$LOG->execute($ND::UID,"DC updated info for call $call->{id}");
 			}else{
 				print "<p> Something went wrong: ".$DBH->errstr."</p>";
 			}
 		}
 		$DBH->commit or print "<p> Something went wrong: ".$DBH->errstr."</p>";
-	}elsif(param('cmd') =~ /^(Cover|Uncover|Ignore|Open) call$/){
+	}elsif(param('cmd') =~ /^(Cover|Uncover|Ignore|Open|Take) call$/){
+		print "test";
 		my $extra_vars = '';
 		if (param('cmd') eq 'Cover call'){
 			$extra_vars = ", covered = TRUE, open = FALSE";
@@ -74,6 +76,7 @@ if ($call){
 			,undef,$ND::UID,$call->{id})){
 			$call->{covered} = (param('cmd') eq 'Cover call');
 			$call->{open} = (param('cmd') =~ /^(Uncover|Open) call$/);
+			$call->{DC} = $ND::USER;
 		}else{
 			print "<p> Something went wrong: ".$DBH->errstr."</p>";
 		}
@@ -114,15 +117,16 @@ if ($call){
 	$BODY->param(LandingTick => $call->{landing_tick});
 	$BODY->param(ETA => $call->{landing_tick}-$ND::TICK);
 	$BODY->param(Info => $call->{info});
+	$BODY->param(DC => $call->{dc});
 	if ($call->{covered}){
 		$BODY->param(Cover => 'Uncover');
 	}else{
 		$BODY->param(Cover => 'Cover');
 	}
 	if ($call->{open} && !$call->{covered}){
-		$BODY->param(Cover => 'Ignore');
+		$BODY->param(Ignore => 'Ignore');
 	}else{
-		$BODY->param(Cover => 'Open');
+		$BODY->param(Ignore => 'Open');
 	}
 	my $fleets = $DBH->prepare(q{
 SELECT id,mission,landing_tick,eta, (landing_tick+eta-1) AS back FROM fleets WHERE uid = ? AND (fleet = 0 OR (landing_tick + eta > ? AND landing_tick - eta - 11 < ? ))