|
Lines 73-84
C<description>.
Link Here
|
| 73 |
sub all { |
73 |
sub all { |
| 74 |
my ($class) = @_; |
74 |
my ($class) = @_; |
| 75 |
my $dbh = C4::Context->dbh; |
75 |
my $dbh = C4::Context->dbh; |
| 76 |
return map { $class->new($_) } @{$dbh->selectall_arrayref( |
76 |
|
| 77 |
# The itemtypes table is small enough for |
77 |
my @itypes; |
| 78 |
# `SELECT *` to be harmless. |
78 |
for ( @{$dbh->selectall_arrayref( |
| 79 |
"SELECT * FROM itemtypes ORDER BY description", |
79 |
"SELECT * FROM itemtypes ORDER BY description", { Slice => {} })} ) |
| 80 |
{ Slice => {} }, |
80 |
{ |
| 81 |
)}; |
81 |
utf8::encode($_->{description}); |
|
|
82 |
push @itypes, $class->new($_); |
| 83 |
} |
| 84 |
return @itypes; |
| 82 |
} |
85 |
} |
| 83 |
|
86 |
|
| 84 |
|
87 |
|
| 85 |
- |
|
|