2 # RenewAll: class to manage status of "Renew All" transaction
4 package ILS::Transaction::RenewAll;
9 use Sys::Syslog qw(syslog);
12 use ILS::Transaction::Renew;
14 use C4::Members; # GetMember
16 our @ISA = qw(ILS::Transaction::Renew);
25 my $self = $class->SUPER::new();
28 foreach $element (keys %fields) {
29 $self->{_permitted}->{$element} = $fields{$element};
32 @{$self}{keys %fields} = values %fields;
33 return bless $self, $class;
38 my $patron = $self->{patron}; # SIP's patron
39 my $borrower = GetMember('cardnumber'=>$patron->id); # Koha's patron
41 foreach my $itemx (@{$patron->{items}}) {
42 my $item_id = $itemx->{barcode};
43 my $item = new ILS::Item $item_id;
44 if (!defined($item)) {
46 "renew_all: Invalid item id '%s' associated with patron '%s'",
47 $item_id, $patron->id);
51 $self->{item} = $item;
52 $self->do_renew_for($borrower);
54 $item->{due_date} = $self->{due};
55 push @{$self->renewed }, $item_id;
57 push @{$self->unrenewed}, $item_id;