This makes the code that generates the category code list loop through all six category types.
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
-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){
($categories,$labels)=GetborCatFromCatType($_,$action);
my @categoryloop;
foreach my $cat (@$categories){