X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FItemType.pm;h=70d26908e5d4473b83e91618e68294c69102f890;hb=26bee7eee7d3e4602bc5e757278f600224fcbdf5;hp=5c9b663c9aabbb6a0f2fd55e9c9c03178e4f451c;hpb=5991cdd33acb7a6205edc084db1cdc17e67577f1;p=koha_gimpoz diff --git a/C4/ItemType.pm b/C4/ItemType.pm index 5c9b663c9a..70d26908e5 100644 --- a/C4/ItemType.pm +++ b/C4/ItemType.pm @@ -73,12 +73,15 @@ C. sub all { my ($class) = @_; my $dbh = C4::Context->dbh; - return map { $class->new($_) } @{$dbh->selectall_arrayref( - # The itemtypes table is small enough for - # `SELECT *` to be harmless. - "SELECT * FROM itemtypes ORDER BY description", - { Slice => {} }, - )}; + + my @itypes; + for ( @{$dbh->selectall_arrayref( + "SELECT * FROM itemtypes ORDER BY description", { Slice => {} })} ) + { + utf8::encode($_->{description}); + push @itypes, $class->new($_); + } + return @itypes; } @@ -88,19 +91,31 @@ sub all { These are read-only accessors for attributes of a C4::ItemType object. -=head3 $itemtype->itemtype +=head3 $itemtype->itemtype + +=cut + +=head3 $itemtype->description -=head3 $itemtype->description +=cut =head3 $itemtype->renewalsallowed -=head3 $itemtype->rentalcharge +=cut -=head3 $itemtype->notforloan +=head3 $itemtype->rentalcharge -=head3 $itemtype->imageurl +=cut -=head3 $itemtype->summary +=head3 $itemtype->notforloan + +=cut + +=head3 $itemtype->imageurl + +=cut + +=head3 $itemtype->summary =cut @@ -115,6 +130,7 @@ sub AUTOLOAD { } } +sub DESTROY { } @@ -146,14 +162,3 @@ John Beppu =cut 1; - -# Local Variables: *** -# mode: cperl *** -# indent-tabs-mode: nil *** -# cperl-close-paren-offset: -4 *** -# cperl-continued-statement-offset: 4 *** -# cperl-indent-level: 4 *** -# cperl-indent-parens-as-block: t *** -# cperl-tab-always-indent: nil *** -# End: *** -# vim:tabstop=8 softtabstop=4 shiftwidth=4 shiftround expandtab