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 |