|
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(); |