Lines 41-47
BEGIN {
Link Here
|
41 |
&subfield_is_koha_internal_p |
41 |
&subfield_is_koha_internal_p |
42 |
&GetPrinters &GetPrinter |
42 |
&GetPrinters &GetPrinter |
43 |
&GetItemTypes &getitemtypeinfo |
43 |
&GetItemTypes &getitemtypeinfo |
44 |
&GetCcodes |
|
|
45 |
&GetSupportName &GetSupportList |
44 |
&GetSupportName &GetSupportList |
46 |
&get_itemtypeinfos_of |
45 |
&get_itemtypeinfos_of |
47 |
&getframeworks &getframeworkinfo |
46 |
&getframeworks &getframeworkinfo |
Lines 286-312
END_SQL
Link Here
|
286 |
return get_infos_of( $query, 'itemtype', undef, \@itemtypes ); |
285 |
return get_infos_of( $query, 'itemtype', undef, \@itemtypes ); |
287 |
} |
286 |
} |
288 |
|
287 |
|
289 |
# this is temporary until we separate collection codes and item types |
|
|
290 |
sub GetCcodes { |
291 |
my $count = 0; |
292 |
my @results; |
293 |
my $dbh = C4::Context->dbh; |
294 |
my $sth = |
295 |
$dbh->prepare( |
296 |
"SELECT * FROM authorised_values ORDER BY authorised_value"); |
297 |
$sth->execute; |
298 |
while ( my $data = $sth->fetchrow_hashref ) { |
299 |
if ( $data->{category} eq "CCODE" ) { |
300 |
$count++; |
301 |
$results[$count] = $data; |
302 |
|
303 |
#warn "data: $data"; |
304 |
} |
305 |
} |
306 |
$sth->finish; |
307 |
return ( $count, @results ); |
308 |
} |
309 |
|
310 |
=head2 getauthtypes |
288 |
=head2 getauthtypes |
311 |
|
289 |
|
312 |
$authtypes = &getauthtypes(); |
290 |
$authtypes = &getauthtypes(); |