From ac42e1e3c49483585c7d47b6d85afeb21912d7e1 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 26 Mar 2019 18:20:34 +0100
Subject: [PATCH] BUG: GetLoanLength gets reference for branchcode

---
 C4/Circulation.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index 7ab1db7e82..ee9ca5f410 100644
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -1534,6 +1534,13 @@ Get loan length for an itemtype, a borrower type and a branch
 
 sub GetLoanLength {
     my ( $borrowertype, $itemtype, $branchcode ) = @_;
+
+		# FIXME FFZG -- submit bug to koha
+		if ( ref($branchcode) ) {
+			Carp::cluck("$branchcode");
+			$branchcode = 'FFZG';
+			warn "FIXME branchcode = $branchcode";
+		}
     my $dbh = C4::Context->dbh;
     my $sth = $dbh->prepare(qq{
         SELECT issuelength, lengthunit, renewalperiod
-- 
2.20.1