- add support for notes in purged or deleted AIPs

perl/exit_strategy.pl

@@ -561,6 +561,16 @@ XPATH
     return \@dates;
   }
 
+sub get_purged_notes($xp, $amd) {
+  my @entries_str = map {$_->nodeValue} $xp->findnodes($compiled_xpath_purged_event_reason, $amd);
+  my @results;
+  foreach my $e ( @entries_str) {
+    my @entries = split(/;/, $e);
+    push @results, List::Util::first{ s/note=//; } @entries
+  }
+  return \@results;
+}
+
   sub get_purged_reasons($xp, $amd) {
     my @entries_str = map {$_->nodeValue} $xp->findnodes($compiled_xpath_purged_event_reason, $amd);
     my @results;