From b08cf71f53e993c21d5ae1d7876121fbb0a7e311 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Tue, 18 Sep 2012 11:23:42 +0200 Subject: [PATCH] Bug 8336 follow-up, tabs to space --- C4/SIP/ILS/Transaction/Renew.pm | 34 ++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/C4/SIP/ILS/Transaction/Renew.pm b/C4/SIP/ILS/Transaction/Renew.pm index 73b811ffee..1f0f5676b5 100644 --- a/C4/SIP/ILS/Transaction/Renew.pm +++ b/C4/SIP/ILS/Transaction/Renew.pm @@ -15,40 +15,40 @@ use C4::Members; use base qw(ILS::Transaction); my %fields = ( - renewal_ok => 0, + renewal_ok => 0, ); sub new { - my $class = shift; - my $self = $class->SUPER::new(); + my $class = shift; + my $self = $class->SUPER::new(); foreach my $element (keys %fields) { - $self->{_permitted}->{$element} = $fields{$element}; - } + $self->{_permitted}->{$element} = $fields{$element}; + } - @{$self}{keys %fields} = values %fields; # overkill? - return bless $self, $class; + @{$self}{keys %fields} = values %fields; # overkill? + return bless $self, $class; } sub do_renew_for { - my $self = shift; - my $borrower = shift; - my ($renewokay,$renewerror) = CanBookBeRenewed($borrower->{borrowernumber},$self->{item}->{itemnumber}); - if ($renewokay){ + my $self = shift; + my $borrower = shift; + my ($renewokay,$renewerror) = CanBookBeRenewed($borrower->{borrowernumber},$self->{item}->{itemnumber}); + if ($renewokay){ $self->{due} = undef; my $due_date = AddIssue( $borrower, $self->{item}->id, undef, 0 ); if ($due_date) { $self->{due} = $due_date; } $self->renewal_ok(1); - } else { + } else { $renewerror=~s/on_reserve/Item unavailable due to outstanding holds/; $renewerror=~s/too_many/Item has reached maximum renewals/; - $self->screen_msg($renewerror); - $self->renewal_ok(0); - } - $self->ok(1); - return; + $self->screen_msg($renewerror); + $self->renewal_ok(0); + } + $self->ok(1); + return; } sub do_renew { -- 2.39.2