[Koha-cvs] koha/members memberentry.pl [rel_3_0]

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        06/10/17 16:34:09

Modified files:
        members        : memberentry.pl 

Log message:
        Bug fix : bad param when calling GetborCatFromCatType. Categories are 
now correctly display when adding an organisation.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/memberentry.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.38.2.7&r2=1.38.2.8

Patches:
Index: memberentry.pl
===================================================================
RCS file: /sources/koha/koha/members/memberentry.pl,v
retrieving revision 1.38.2.7
retrieving revision 1.38.2.8
diff -u -b -r1.38.2.7 -r1.38.2.8
--- memberentry.pl      13 Oct 2006 11:21:54 -0000      1.38.2.7
+++ memberentry.pl      17 Oct 2006 16:34:08 -0000      1.38.2.8
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: memberentry.pl,v 1.38.2.7 2006/10/13 11:21:54 btoumi Exp $
+# $Id: memberentry.pl,v 1.38.2.8 2006/10/17 16:34:08 toins Exp $
 
 # Copyright 2006 SAN OUEST PROVENCE et Paul POULAIN
 #
@@ -157,7 +157,6 @@
                         $nok = 1;
                     }
                 }
-       
        }
 
 # STEP 2
@@ -265,6 +264,7 @@
                $template->param(female => 1);
        }
        my ($categories,$labels)=ethnicitycategories();
+    
        my $ethnicitycategoriescount=$#{$categories};
        my $ethcatpopup;
        if ($ethnicitycategoriescount>=0) {
@@ -278,8 +278,9 @@
        }
        
        
-       my $action="WHERE category_type=?";
-       ($categories,$labels)=GetborCatFromCatType($category_type,$action);
+       #my $action="WHERE category_type=?";
+       my $action ="";
+       my ($categories,$labels)=GetborCatFromCatType($category_type,$action);
        
        #if u modify the borrowers u must have the right value for is category 
code