@@ -, +, @@ record branchcode in statistics as per the system preference OpacRenewalBranch --- C4/Circulation.pm | 26 ++++++++++++++++++++++++-- opac/opac-renew.pl | 21 +-------------------- 2 files changed, 25 insertions(+), 22 deletions(-) --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -2923,8 +2923,30 @@ sub AddRenewal { DelUniqueDebarment({ borrowernumber => $borrowernumber, type => 'OVERDUES' }); } - unless ( C4::Context->interface eq 'opac' ) { #if from opac we are obeying OpacRenewalBranch as calculated in opac-renew.pl - $branch = C4::Context->userenv ? C4::Context->userenv->{branch} : $branch; + # If from opac we are obeying OpacRenewalBranch as calculated in opac-renew.pl + if ( C4::Context->interface eq 'opac' ) { + my $renewalbranch = C4::Context->preference('OpacRenewalBranch'); + if ( $renewalbranch eq 'itemhomebranch' ) { + my $item = GetItem($itemnumber); + $branchcode = $item->{'homebranch'}; + } + elsif ( $renewalbranch eq 'patronhomebranch' ) { + $branchcode = Koha::Patrons->find($borrowernumber)->branchcode; + } + elsif ( $renewalbranch eq 'checkoutbranch' ) { + my $issue = GetOpenIssue($itemnumber); + $branchcode = $issue->{'branchcode'}; + } + elsif ( $renewalbranch eq 'NULL' ) { + $branchcode = ''; + } + else { + $branchcode = 'OPACRenew'; + } + } + else { + $branch = + C4::Context->userenv ? C4::Context->userenv->{branch} : $branch; } # Add the renewal to stats --- a/opac/opac-renew.pl +++ a/opac/opac-renew.pl @@ -62,26 +62,7 @@ else { my ( $status, $error ) = CanBookBeRenewed( $borrowernumber, $itemnumber ); if ( $status == 1 && $opacrenew == 1 ) { - my $renewalbranch = C4::Context->preference('OpacRenewalBranch'); - my $branchcode; - if ( $renewalbranch eq 'itemhomebranch' ) { - my $item = GetItem($itemnumber); - $branchcode = $item->{'homebranch'}; - } - elsif ( $renewalbranch eq 'patronhomebranch' ) { - $branchcode = Koha::Patrons->find( $borrowernumber )->branchcode; - } - elsif ( $renewalbranch eq 'checkoutbranch' ) { - my $issue = GetOpenIssue($itemnumber); - $branchcode = $issue->{'branchcode'}; - } - elsif ( $renewalbranch eq 'NULL' ) { - $branchcode = ''; - } - else { - $branchcode = 'OPACRenew'; - } - AddRenewal( $borrowernumber, $itemnumber, $branchcode, undef, undef ); + AddRenewal( $borrowernumber, $itemnumber ); push( @renewed, $itemnumber ); } else { --