|
Lines 131-146
sub ListImagesForBiblio {
Link Here
|
| 131 |
my $query = 'SELECT imagenumber FROM biblioimages WHERE biblionumber = ?'; |
131 |
my $query = 'SELECT imagenumber FROM biblioimages WHERE biblionumber = ?'; |
| 132 |
my $sth = $dbh->prepare($query); |
132 |
my $sth = $dbh->prepare($query); |
| 133 |
$sth->execute($biblionumber); |
133 |
$sth->execute($biblionumber); |
| 134 |
warn "Database error!" if $sth->errstr; |
134 |
while ( my $row = $sth->fetchrow_hashref ) { |
| 135 |
if ( !$sth->errstr && $sth->rows > 0 ) { |
135 |
push @imagenumbers, $row->{'imagenumber'}; |
| 136 |
while ( my $row = $sth->fetchrow_hashref ) { |
|
|
| 137 |
push @imagenumbers, $row->{'imagenumber'}; |
| 138 |
} |
| 139 |
return @imagenumbers; |
| 140 |
} |
| 141 |
else { |
| 142 |
return undef; |
| 143 |
} |
136 |
} |
|
|
137 |
return @imagenumbers; |
| 144 |
} |
138 |
} |
| 145 |
|
139 |
|
| 146 |
=head2 DelImage |
140 |
=head2 DelImage |