Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/Renew.pm

   1 #
   2 # Status of a Renew Transaction
   3 #
   4
   5 package OpenILS::SIP::Transaction::Renew;
   6 use warnings; use strict;
   7
   8 use Sys::Syslog qw(syslog);
   9 use OpenILS::SIP;
  10 use OpenILS::SIP::Transaction;
  11 use OpenILS::Application::AppUtils;
  12 my $U = 'OpenILS::Application::AppUtils';
  13
  14 our @ISA = qw(OpenILS::SIP::Transaction);
  15
  16 my %fields = (
  17               renewal_ok => 0,
  18               );
  19
  20 sub new {
  21         my $class = shift;;
  22         my $self = $class->SUPER::new(@_);
  23
  24         $self->{_permitted}->{$_} = $fields{$_} for keys %fields;
  25         @{$self}{keys %fields} = values %fields;
  26
  27         return bless $self, $class;
  28 }
  29
  30 sub do_renew {
  31         my $self = shift;
  32
  33         my $resp = $U->simplereq(
  34                 'open-ils.circ',
  35                 'open-ils.circ.renew', $self->{authtoken},
  36                 { barcode => $self->item->id, patron_barcode => $self->patron->id });
  37
  38         if( my $code = $U->event_code($resp) ) {
  39                 syslog('LOG_INFO', "OILS: Renewal failed with event $code : " . $resp->{textcode});
  40                 $self->renewal_ok(0);
  41                 $self->ok(0);
  42                 return $self;
  43         }
  44
  45         $self->item->{due_date} = $resp->{payload}->{circ}->due_date;
  46         syslog('LOG_INFO', "OILS: Renewal succeeded with due_date = " . $self->item->{due_date});
  47
  48         $self->renewal_ok(1);
  49         $self->ok(1);
  50
  51         return $self;
  52 }
  53
  54
  55
  56
  57 1;