From: Bill Erickson <berick@esilibrary.com>
Date: Mon, 7 Jan 2013 14:35:55 +0000 (-0500)
Subject: SIP renew-all; reset renewal statuses
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9eb947d7266e01c3eb9c42ef001bb76b2c85282e;p=evergreen%2Fmasslnc.git

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 <berick@esilibrary.com>
Signed-off-by: Mike Rylander <mrylander@gmail.com>
---

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 {