- my ( $rank, $reserves ) = GetReservesFromBiblionumber($biblioNumber,1);
- $biblioData->{reservecount} = $rank;
- foreach my $res (@$reserves) {
- my $found = $res->{'found'};
- if ( $found && ($found eq 'W') ) {
+ my ( $rank, $reserves ) =
+ GetReservesFromBiblionumber( $biblioNumber, 1 );
+ $biblioData->{reservecount} = 1; # new reserve
+ foreach my $res (@{$reserves}) {
+ my $found = $res->{found};
+ if ( $found && $found eq 'W' ) {