Open-ILS/src/perlmods/OpenILS/Utils/PermitHold.pm

   1 package OpenILS::Utils::PermitHold;
   2 use strict; use warnings;
   3 use Data::Dumper;
   4 use OpenSRF::Utils;
   5 use OpenSRF::Utils::SettingsClient;
   6 use OpenILS::Utils::ScriptRunner;
   7 use OpenILS::Application::AppUtils;
   8 use DateTime::Format::ISO8601;
   9 use OpenILS::Application::Circ::ScriptBuilder;
  10 use OpenSRF::Utils::Logger qw(:logger);
  11 use OpenILS::Event;
  12 my $U   = "OpenILS::Application::AppUtils";
  13
  14 my $script;                     # - the permit script
  15 my $script_libs;        # - extra script libs
  16
  17 # mental note:  open-ils.storage.biblio.record_entry.ranged_tree
  18
  19
  20 # params within a hash are: copy, patron,
  21 # requestor, request_lib, title, title_descriptor
  22 sub permit_copy_hold {
  23         my $params      = shift;
  24         my @allevents;
  25
  26         my $ctx = {
  27                 patron_id       => $$params{patron_id},
  28                 patron          => $$params{patron},
  29                 copy                    => $$params{copy},
  30                 requestor       => $$params{requestor},
  31                 title                   => $$params{title},
  32                 volume          => $$params{volume},
  33                 flesh_age_protect => 1,
  34                 _direct => {
  35                         requestLib      => $$params{request_lib},
  36                         pickupLib       => $$params{pickup_lib},
  37                 }
  38         };
  39
  40         my $runner = OpenILS::Application::Circ::ScriptBuilder->build($ctx);
  41
  42         # check the various holdable flags
  43         push( @allevents, OpenILS::Event->new('ITEM_NOT_HOLDABLE') )
  44                 unless $U->is_true($ctx->{copy}->holdable);
  45
  46         push( @allevents, OpenILS::Event->new('ITEM_NOT_HOLDABLE') )
  47                 unless $U->is_true($ctx->{copy}->location->holdable);
  48
  49         push( @allevents, OpenILS::Event->new('ITEM_NOT_HOLDABLE') )
  50                 unless $U->is_true($ctx->{copy}->status->holdable);
  51
  52         my $evt = check_age_protect($ctx->{patron}, $ctx->{copy});
  53         push( @allevents, $evt ) if $evt;
  54
  55         $logger->debug("Running permit_copy_hold on copy " . $$params{copy}->id);
  56
  57         load_scripts($runner);
  58         my $result = $runner->run or
  59                 throw OpenSRF::EX::ERROR ("Hold Copy Permit Script Died: $@");
  60
  61         $runner->cleanup;
  62
  63         # --------------------------------------------------------------
  64         # Extract and uniquify the event list
  65         # --------------------------------------------------------------
  66         my $events = $result->{events};
  67         my $pid = ($params->{patron}) ? $params->{patron}->id : $params->{patron_id};
  68         $logger->debug("circ_permit_hold for user $pid returned events: [@$events]");
  69
  70         push( @allevents, OpenILS::Event->new($_)) for @$events;
  71         my %hash = map { ($_->{ilsevent} => $_) } @allevents;
  72         @allevents = values %hash;
  73
  74         return \@allevents if $$params{show_event_list};
  75         return 1 unless @allevents;
  76         return 0;
  77 }
  78
  79
  80 sub load_scripts {
  81         my $runner = shift;
  82
  83         if(!$script) {
  84                 my $conf = OpenSRF::Utils::SettingsClient->new;
  85                 my @pfx = ( "apps", "open-ils.circ","app_settings" );
  86                 my $libs        = $conf->config_value(@pfx, 'script_path');
  87                 $script = $conf->config_value(@pfx, 'scripts', 'circ_permit_hold');
  88                 $script_libs = (ref($libs)) ? $libs : [$libs];
  89         }
  90
  91         $runner->add_path($_) for(@$script_libs);
  92         $runner->load($script);
  93 }
  94
  95
  96 sub check_age_protect {
  97         my( $patron, $copy ) = @_;
  98
  99         return undef unless $copy->age_protect;
 100
 101         my $prox = $U->storagereq(
 102                 'open-ils.storage.asset.copy.proximity',
 103                 $copy->id, $patron->home_ou->id );
 104
 105         # If this copy is within the appropriate proximity,
 106         # age protect does not apply
 107         return undef if $prox <= $copy->age_protect->prox;
 108
 109         # How many seconds old does the copy have to be to escape age protection
 110         my $interval = OpenSRF::Utils::interval_to_seconds($copy->age_protect->age);
 111         my $start_date = time - $interval;
 112
 113         # Now, now many seconds old is this copy
 114         my $dparser = DateTime::Format::ISO8601->new;
 115         my $create_date = $dparser->parse_datetime(
 116                 OpenSRF::Utils::clense_ISO8601($copy->create_date));
 117         my $age = $create_date->epoch;
 118
 119         $logger->debug("age_protect create_date = $create_date : age=$age, start_date=$start_date");
 120
 121         unless( $start_date < $age ) {
 122                 $logger->info("age_protect prevents copy from having a hold placed on it: ".$copy->id);
 123                 return OpenILS::Event->new('ITEM_AGE_PROTECTED', copy => $copy->id );
 124         }
 125
 126         return undef;
 127 }
 128
 129
 130
 131
 132
 133
 134
 135 23;