|
Lines 119-137
my $budgets_ref = GetBudgetHierarchy(
Link Here
|
| 119 |
); |
119 |
); |
| 120 |
|
120 |
|
| 121 |
# build categories list |
121 |
# build categories list |
| 122 |
my $sth = $dbh->prepare("select distinct category from authorised_values where category like 'A%' "); |
|
|
| 123 |
$sth->execute; |
| 124 |
|
| 125 |
# the list |
| 126 |
my @category_list; |
122 |
my @category_list; |
| 127 |
|
123 |
|
| 128 |
# a hash, to check that some hardcoded categories exist. |
|
|
| 129 |
my %categories; |
| 130 |
while ( my ($category) = $sth->fetchrow_array ) { |
| 131 |
push( @category_list, $category ); |
| 132 |
$categories{$category} = 1; |
| 133 |
} |
| 134 |
|
| 135 |
# push koha system categories |
124 |
# push koha system categories |
| 136 |
push( @category_list, 'MONTHS' ); |
125 |
push( @category_list, 'MONTHS' ); |
| 137 |
push( @category_list, 'ITEMTYPES' ); |
126 |
push( @category_list, 'ITEMTYPES' ); |
| 138 |
- |
|
|