Fixing syntax error in C4/Circulation.pm

This commit is contained in:
Chris Cormack 2009-09-09 09:32:46 +12:00 committed by Henri-Damien LAURENT
parent cdd8a328ac
commit 7bbe9d0ae2
1 changed files with 4 additions and 1 deletions

View File

@ -1955,12 +1955,15 @@ from the book's item type.
=cut
sub AddRenewal {
my $borrowernumber = shift or return undef;
my $itemnumber = shift or return undef;
my $item = GetItem($itemnumber) or return undef;
my $branch = (@_) ? shift : $item->{homebranch}; # opac-renew doesn't send branch
my $datedue = shift;
my $lastreneweddate = shift || C4::Dates->new()->output('iso');
my $item = GetItem($itemnumber) or return undef;
my $biblio = GetBiblioFromItemNumber($itemnumber) or return undef;
# If the due date wasn't specified, calculate it by adding the