From 9db0774cfdc42bc9c1f787881b1ed22ead5ab0b5 Mon Sep 17 00:00:00 2001
From: Owen Leonard <oleonard@myacpl.org>
Date: Tue, 24 Feb 2009 10:10:03 -0600
Subject: [PATCH] Enabling listing of category codes when "new patron" button
 is displayed.

circulation.pl lacked the code to check whether category codes existed, meaning it would only display category types.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 circ/circulation.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/circ/circulation.pl b/circ/circulation.pl
index ed42e63827..d51f2d3fcf 100755
--- a/circ/circulation.pl
+++ b/circ/circulation.pl
@@ -196,6 +196,14 @@ if ($findborrower) {
     my ( $count, $borrowers ) =
       SearchMember($findborrower, 'cardnumber', 'web' );
     my @borrowers = @$borrowers;
+        $template->param(
+                "AddPatronLists_".C4::Context->preference("AddPatronLists")=> "1",
+        );
+        if (C4::Context->preference("AddPatronLists")=~/code/){
+                my $categories=GetBorrowercategoryList;
+                $categories->[0]->{'first'}=1;
+                $template->param(categories=>$categories);
+        }
     if ( $#borrowers == -1 ) {
         $query->param( 'findborrower', '' );
         $message = "'$findborrower'";
-- 
2.39.5