Delete old team when editing team

diff --git a/lib/Duplo/Manager.pm b/lib/Duplo/Manager.pm
index f766d7cc47763e4f6984ba02aae0f610d94db9a9..20553ee3ce6e892ee4bfdd9792ee2811a24dfbbb 100644 (file)
--- a/lib/Duplo/Manager.pm
+++ b/lib/Duplo/Manager.pm
@@ -205,6 +205,15 @@ sub edit {
                return $self->redirect_to('manager_team', team => $team)
        }
 
+       $dbh->do("
+               DELETE FROM
+                 rider_manager_team
+               WHERE
+                 manager_team = ?
+               AND
+                 stage = ?
+               ", undef, $team, $stage);
+
        my $sth = $dbh->prepare("
                INSERT INTO
                  rider_manager_team (rider, manager_team, stage)