fix for bug 2348: Cannot change patron category

This makes the code that generates the category code list loop through all six category types.

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/members/memberentry.pl b/members/memberentry.pl
index bf7379c..1cfedd8 100755 (executable)
--- a/members/memberentry.pl
+++ b/members/memberentry.pl
@@ -350,8 +350,8 @@ if ($ethnicitycategoriescount>=0) {
 }
 
 my @typeloop;
-foreach ( ($category_type) ? ($category_type) : qw(C A S P I X)){
-       my $action="WHERE category_type=?";
+foreach (qw(C A S P I X)) {
+    my $action="WHERE category_type=?";
        ($categories,$labels)=GetborCatFromCatType($_,$action);
        my @categoryloop;
        foreach my $cat (@$categories){