|
Lines 38-43
sub do_renew_all {
Link Here
|
| 38 |
my $patron = $self->{patron}; # SIP's patron |
38 |
my $patron = $self->{patron}; # SIP's patron |
| 39 |
my $borrower = GetMember('cardnumber'=>$patron->id); # Koha's patron |
39 |
my $borrower = GetMember('cardnumber'=>$patron->id); # Koha's patron |
| 40 |
my $all_ok = 1; |
40 |
my $all_ok = 1; |
|
|
41 |
$self->{renewed} = []; |
| 42 |
$self->{unrenewed} = []; |
| 41 |
foreach my $itemx (@{$patron->{items}}) { |
43 |
foreach my $itemx (@{$patron->{items}}) { |
| 42 |
my $item_id = $itemx->{barcode}; |
44 |
my $item_id = $itemx->{barcode}; |
| 43 |
my $item = new ILS::Item $item_id; |
45 |
my $item = new ILS::Item $item_id; |
|
Lines 52-60
sub do_renew_all {
Link Here
|
| 52 |
$self->do_renew_for($borrower); |
54 |
$self->do_renew_for($borrower); |
| 53 |
if ($self->ok) { |
55 |
if ($self->ok) { |
| 54 |
$item->{due_date} = $self->{due}; |
56 |
$item->{due_date} = $self->{due}; |
| 55 |
push @{$self->renewed }, $item_id; |
57 |
push @{$self->{renewed} }, $item_id; |
| 56 |
} else { |
58 |
} else { |
| 57 |
push @{$self->unrenewed}, $item_id; |
59 |
push @{$self->{unrenewed}}, $item_id; |
| 58 |
} |
60 |
} |
| 59 |
} |
61 |
} |
| 60 |
$self->ok($all_ok); |
62 |
$self->ok($all_ok); |
| 61 |
- |
|
|