Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkout.pm

   1 #
   2 # An object to handle checkout status
   3 #
   4
   5 package OpenILS::SIP::Transaction::Checkout;
   6
   7 use warnings;
   8 use strict;
   9
  10 use POSIX qw(strftime);
  11
  12 use OpenILS::SIP;
  13 use OpenILS::SIP::Transaction;
  14 use OpenILS::SIP::Msg qw/:const/;
  15 use Sys::Syslog qw(syslog);
  16
  17 use OpenILS::Application::AppUtils;
  18 my $U = 'OpenILS::Application::AppUtils';
  19
  20
  21 our @ISA = qw(OpenILS::SIP::Transaction);
  22
  23 # Most fields are handled by the Transaction superclass
  24 my %fields = (
  25               security_inhibit => 0,
  26               due              => undef,
  27               renew_ok         => 0,
  28               );
  29
  30 sub new {
  31          my $class = shift;
  32
  33     my $self = $class->SUPER::new(@_);
  34
  35     my $element;
  36
  37         foreach $element (keys %fields) {
  38                 $self->{_permitted}->{$element} = $fields{$element};
  39         }
  40
  41     @{$self}{keys %fields} = values %fields;
  42
  43     return bless $self, $class;
  44 }
  45
  46
  47 # if this item is already checked out to the requested patron,
  48 # renew the item and set $self->renew_ok to true.
  49 # XXX if it's a renewal and the renewal is not permitted, set
  50 # $self->screen_msg("Item on Hold for Another User"); (or somesuch)
  51 # XXX Set $self->ok(0) on any errors
  52 sub do_checkout {
  53         my $self = shift;
  54         syslog('LOG_DEBUG', "OILS: performing checkout...");
  55
  56         $self->ok(0);
  57
  58         my $args = {
  59                 barcode => $self->{item}->id,
  60                 patron_barcode => $self->{patron}->id
  61         };
  62
  63         my $resp = $U->simplereq(
  64                 'open-ils.circ',
  65                 'open-ils.circ.checkout.permit',
  66                 $self->{authtoken}, $args );
  67
  68         $resp = [$resp] unless ref $resp eq 'ARRAY';
  69
  70         my $key;
  71
  72         if( @$resp == 1 and ! $U->event_code($$resp[0]) ) {
  73                 $key = $$resp[0]->{payload};
  74                 syslog('LOG_INFO', "OILS: circ permit key => $key");
  75
  76         } else {
  77
  78                 # We got one or more non-success events
  79                 $self->screen_msg('');
  80                 for my $r (@$resp) {
  81
  82                         if( my $code = $U->event_code($resp) ) {
  83                                 my $txt = $resp->{textcode};
  84                                 syslog('LOG_INFO', "OILS: Checkout permit failed with event $code : $txt");
  85
  86                                 if( $txt eq 'OPEN_CIRCULATION_EXISTS' ) {
  87                                         $self->screen_msg(OILS_SIP_MSG_CIRC_EXISTS);
  88                                         return 0;
  89                                 } else {
  90                                         $self->screen_msg(OILS_SIP_MSG_CIRC_PERMIT_FAILED);
  91                                 }
  92                         }
  93                 }
  94                 return 0;
  95         }
  96
  97         # --------------------------------------------------------------------
  98         # Now do the actual checkout
  99         # --------------------------------------------------------------------
 100
 101         $args = {
 102                 permit_key              => $key,
 103                 patron_barcode => $self->{patron}->id,
 104                 barcode                 => $self->{item}->id
 105         };
 106
 107         $resp = $U->simplereq(
 108                 'open-ils.circ',
 109                 'open-ils.circ.checkout', $self->{authtoken}, $args );
 110
 111         # XXX Check for events
 112         if( $resp ) {
 113
 114                 if( my $code = $U->event_code($resp) ) {
 115                         my $txt = $resp->{textcode};
 116                         syslog('LOG_INFO', "OILS: Checkout failed with event $code : $txt");
 117                         $self->screen_msg('Checkout failed.  Please contact a librarian');
 118                         return 0;
 119                 }
 120
 121                 syslog('LOG_INFO', "OILS: Checkout succeeded");
 122
 123                 my $circ = $resp->{payload}->{circ};
 124                 $self->{'due'} = OpenILS::SIP->format_date($circ->due_date);
 125                 $self->ok(1);
 126
 127                 return 1;
 128         }
 129
 130         return 0;
 131 }
 132
 133
 134
 135 1;