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>
);
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 {