Open-ILS/src/perlmods/OpenILS/Application/Trigger/Cleanup.pm

   1 package OpenILS::Application::Trigger::Cleanup;
   2 use strict; use warnings;
   3 use OpenILS::Utils::CStoreEditor q/:funcs/;
   4 use OpenSRF::Utils::Logger qw/:logger/;
   5
   6 sub fourty_two { return 42 }
   7 sub NOOP_True { return 1 }
   8 sub NOOP_False { return 0 }
   9
  10 sub DeleteTempBiblioBucket {
  11     my($self, $env) = @_;
  12     my $e = new_editor(xact => 1);
  13     my $buckets = $env->{target};
  14
  15     for my $bucket (@$buckets) {
  16
  17         foreach my $item (@{ $bucket->items }) {
  18             $e->delete_container_biblio_record_entry_bucket_item($item);
  19         }
  20
  21         $e->delete_container_biblio_record_entry_bucket($bucket);
  22     }
  23
  24     $e->commit or $e->die_event;
  25
  26     return 1;
  27 }
  28
  29 1;