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/;
6 sub fourty_two { return 42 }
7 sub NOOP_True { return 1 }
8 sub NOOP_False { return 0 }
10 sub DeleteTempBiblioBucket {
12 my $e = new_editor(xact => 1);
13 my $buckets = $env->{target};
15 for my $bucket (@$buckets) {
17 foreach my $item (@{ $bucket->items }) {
18 $e->delete_container_biblio_record_entry_bucket_item($item);
21 $e->delete_container_biblio_record_entry_bucket($bucket);
24 $e->commit or $e->die_event;