+
+ if ( $::form->{delete_notes} ) {
+ foreach my $note_id (@{ $::form->{delete_notes} }) {
+ my $note = SL::DB::Note->new(id => $note_id)->load();
+ if ( $note->follow_up ) {
+ if ( $note->follow_up->follow_up_link ) {
+ $note->follow_up->follow_up_link->delete(cascade => 'delete');
+ }
+ $note->follow_up->delete(cascade => 'delete');
+ }
+ $note->delete(cascade => 'delete');
+ }
+ }