From 9eb947d7266e01c3eb9c42ef001bb76b2c85282e 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 Signed-off-by: Mike Rylander --- .../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.43.2