SIP renew-all; reset renewal statuses
authorBill Erickson <berick@esilibrary.com>
Mon, 7 Jan 2013 14:35:55 +0000 (09:35 -0500)
committerMike Rylander <mrylander@gmail.com>
Fri, 7 Jun 2013 16:26:15 +0000 (12:26 -0400)
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>
Open-ILS/src/perlmods/lib/OpenILS/SIP/Transaction/RenewAll.pm

index 663be7d..675d6ad 100644 (file)
@@ -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 {