for (keys %params) {
next unless /delete_(\d+)/;
my $tagging = Memories::Tagging->retrieve($1) or next;
next unless $tagging->photo->id == $photo->id;
for (keys %params) {
next unless /delete_(\d+)/;
my $tagging = Memories::Tagging->retrieve($1) or next;
next unless $tagging->photo->id == $photo->id;