Make Evergreen Perl modules installable via Module::Build to match OpenSRF
[working/Evergreen.git] / Open-ILS / src / perlmods / lib / 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;