C4/SIP/ILS/Transaction/RenewAll.pm

   1 #
   2 # RenewAll: class to manage status of "Renew All" transaction
   3
   4 package ILS::Transaction::RenewAll;
   5
   6 use strict;
   7 use warnings;
   8
   9 use Sys::Syslog qw(syslog);
  10
  11 use ILS::Item;
  12 use ILS::Transaction::Renew;
  13
  14 use C4::Members;        # GetMember
  15
  16 our @ISA = qw(ILS::Transaction::Renew);
  17
  18 my %fields = (
  19           renewed => [],
  20         unrenewed => [],
  21 );
  22
  23 sub new {
  24         my $class = shift;
  25         my $self = $class->SUPER::new();
  26
  27     foreach my $element (keys %fields) {
  28                 $self->{_permitted}->{$element} = $fields{$element};
  29         }
  30
  31         @{$self}{keys %fields} = values %fields;
  32         return bless $self, $class;
  33 }
  34
  35 sub do_renew_all {
  36         my $self = shift;
  37         my $patron = $self->{patron};                                                   # SIP's  patron
  38         my $borrower = GetMember('cardnumber'=>$patron->id);    # Koha's patron
  39         my $all_ok = 1;
  40     $self->{renewed} = [];
  41     $self->{unrenewed} = [];
  42         foreach my $itemx (@{$patron->{items}}) {
  43                 my $item_id = $itemx->{barcode};
  44                 my $item = new ILS::Item $item_id;
  45                 if (!defined($item)) {
  46                         syslog("LOG_WARNING",
  47                                 "renew_all: Invalid item id '%s' associated with patron '%s'",
  48                                 $item_id, $patron->id);
  49                         $all_ok = 0;
  50                         next;
  51                 }
  52                 $self->{item} = $item;
  53                 $self->do_renew_for($borrower);
  54                 if ($self->ok) {
  55                     $item->{due_date} = $self->{due}->clone();
  56                     push @{$self->renewed  }, $item_id;
  57                 } else {
  58             push @{$self->{unrenewed}}, $item_id;
  59                 }
  60         }
  61         $self->ok($all_ok);
  62         return $self;
  63 }
  64
  65 1;