X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND%2FWeb%2FPages%2FMain.pm;h=0a795d0db6eab04086113e769af41109427162ad;hb=c7030fde80686d05805d02f3586ec23224e4c6e5;hp=4fa2a316acfe8d758806b9ed534b1661b7e5915e;hpb=787cf3bba39678ead6b902b28e497f2f9a10ec6f;p=ndwebbie.git

diff --git a/ND/Web/Pages/Main.pm b/ND/Web/Pages/Main.pm
index 4fa2a31..0a795d0 100644
--- a/ND/Web/Pages/Main.pm
+++ b/ND/Web/Pages/Main.pm
@@ -47,15 +47,19 @@ sub render_body {
 				($id) = $DBH->selectrow_array($fleet,undef,$ND::UID);
 			}
 			my $delete = $DBH->prepare("DELETE FROM fleet_ships WHERE fleet = ?");
-			$delete->execute($id);
 			my $insert = $DBH->prepare('INSERT INTO fleet_ships (fleet,ship,amount) VALUES (?,?,?)');
 			$fleet = param('fleet');
 			$fleet =~ s/,//g;
+			my $match = 0;
 			while ($fleet =~ m/((?:[A-Z][a-z]+ )*[A-Z][a-z]+)\s+(\d+)/g){
+				unless($match){
+					$match = 1;
+					$delete->execute($id);
+				}
 				$insert->execute($id,$1,$2) or $error .= '<p>'.$DBH->errstr.'</p>';
 			}
 			$fleet = $DBH->prepare('UPDATE fleets SET landing_tick = tick() WHERE id = ?');
-			$fleet->execute($id);
+			$fleet->execute($id) if $match;
 			$DBH->commit;
 		}elsif (param('cmd') eq 'Recall Fleets'){
 			$DBH->begin_work;