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;
}
=head3 $itemtype->itemtype
+=cut
+
=head3 $itemtype->description
+=cut
+
=head3 $itemtype->renewalsallowed
+=cut
+
=head3 $itemtype->rentalcharge
+=cut
+
=head3 $itemtype->notforloan
+=cut
+
=head3 $itemtype->imageurl
+=cut
+
=head3 $itemtype->summary
=cut