- my ( $catcodes, $labels ) =
- GetborCatFromCatType( 'C', 'WHERE category_type <> ?' );
- my @rows;
- foreach my $k ( keys %$labels ) {
- my $row;
- $row->{catcode} = $k;
- $row->{catdesc} = $labels->{$k};
- my $borcat = GetBorrowercategory( $row->{catcode} );
- $row->{cattype} = $borcat->{'category_type'};
- push @rows, $row;
- }
+ # FIXME - what are the possible upgrade paths? C -> A , C -> S ...
+ # currently just allowing C -> A
+ my $patron_categories = Koha::Patron::Categories->search_limited({ category_type => 'A' }, {order_by => ['categorycode']});