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>

diff --git a/circ/circulation.pl b/circ/circulation.pl
index ed42e63..d51f2d3 100755 (executable)
--- 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'";