From cf4ad3ba6461cd5136411d90594e34543dc88d5f Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Wed, 7 Oct 2009 17:14:33 +0200
Subject: [PATCH] Bug Fixing : New Lists Nothing in categorycode

Problem with New when PatronList categorycode
---
 koha-tmpl/intranet-tmpl/prog/en/includes/patron-toolbar.inc | 4 +++-
 members/members-home.pl                                     | 5 -----
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/patron-toolbar.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/patron-toolbar.inc
index 8524929d4f..e1b46a5b04 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/patron-toolbar.inc
+++ b/koha-tmpl/intranet-tmpl/prog/en/includes/patron-toolbar.inc
@@ -23,7 +23,9 @@
 
 		var newmenu = [
 <!--TMPL_IF Name="AddPatronLists_categorycode"-->
-<!--TMPL_LOOP Name="categories"-->{ text: "<!--TMPL_VAR Name="description"-->",  url: "/cgi-bin/koha/members/memberentry.pl?op=add&amp;categorycode=<!--TMPL_VAR Name="categorycode"-->" },<!--/TMPL_LOOP-->
+<!--TMPL_LOOP Name="categoryloop"-->
+{ text: "<!--TMPL_VAR Name="description"-->",  url: "/cgi-bin/koha/members/memberentry.pl?op=add&amp;categorycode=<!--TMPL_VAR Name="categorycode"-->" },
+<!--/TMPL_LOOP-->
 <!--TMPL_ELSE-->
 			{ text: _("Adult Patron"),  url: "/cgi-bin/koha/members/memberentry.pl?op=add&amp;category_type=A" },
 			{ text: _("Child Patron"),  url: "/cgi-bin/koha/members/memberentry.pl?op=add&amp;category_type=C" },
diff --git a/members/members-home.pl b/members/members-home.pl
index 7a9beb59a1..6206f2cf35 100755
--- a/members/members-home.pl
+++ b/members/members-home.pl
@@ -58,10 +58,5 @@ $template->param(
 $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);  
-}  
 
 output_html_with_http_headers $query, $cookie, $template->output;
-- 
2.39.5