From 562be799e67f6efcb88bb526e747d6b9324db1fd Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Mon, 7 Jan 2013 09:35:55 -0500 Subject: [PATCH] SIP renew-all; reset renewal statuses Reset the list of renewed and unrenewed items for each instance of the RenewAll transactions. Otherwise, items from previous transactions will bleed into the current transaction. While we're in there, fix a couple of tabs. Signed-off-by: Bill Erickson --- .../src/perlmods/lib/OpenILS/SIP/Transaction/RenewAll.pm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/RenewAll.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/RenewAll.pm index 663be7d71f..675d6adee3 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/RenewAll.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/RenewAll.pm @@ -16,13 +16,15 @@ my %fields = ( ); sub new { - my $class = shift;; - my $self = $class->SUPER::new(@_); + my $class = shift;; + my $self = $class->SUPER::new(@_); - $self->{_permitted}->{$_} = $fields{$_} for keys %fields; - @{$self}{keys %fields} = values %fields; + $self->{_permitted}->{$_} = $fields{$_} for keys %fields; + @{$self}{keys %fields} = values %fields; + $self->renewed([]); + $self->unrenewed([]); - return bless $self, $class; + return bless $self, $class; } sub do_renew_all { -- 2.11.0