View | Details | Raw Unified | Return to bug 15337
Collapse All | Expand All

(-)a/C4/Koha.pm (-3 / +2 lines)
Lines 249-255 sub GetItemTypes { Link Here
249
    require C4::Languages;
249
    require C4::Languages;
250
    my $language = C4::Languages::getlanguage();
250
    my $language = C4::Languages::getlanguage();
251
    # returns a reference to a hash of references to itemtypes...
251
    # returns a reference to a hash of references to itemtypes...
252
    my %itemtypes;
253
    my $dbh   = C4::Context->dbh;
252
    my $dbh   = C4::Context->dbh;
254
    my $query = q|
253
    my $query = q|
255
        SELECT
254
        SELECT
Lines 275-286 sub GetItemTypes { Link Here
275
    $sth->execute( $language );
274
    $sth->execute( $language );
276
275
277
    if ( $style eq 'hash' ) {
276
    if ( $style eq 'hash' ) {
277
        my %itemtypes;
278
        while ( my $IT = $sth->fetchrow_hashref ) {
278
        while ( my $IT = $sth->fetchrow_hashref ) {
279
            $itemtypes{ $IT->{'itemtype'} } = $IT;
279
            $itemtypes{ $IT->{'itemtype'} } = $IT;
280
        }
280
        }
281
        return ( \%itemtypes );
281
        return ( \%itemtypes );
282
    } else {
282
    } else {
283
        return $sth->fetchall_arrayref({});
283
        return [ sort { lc $a->{translated_description} cmp lc $b->{translated_description} } @{ $sth->fetchall_arrayref( {} ) } ];
284
    }
284
    }
285
}
285
}
286
286
287
- 

Return to bug 15337