option => $_ + 0.0
}, split( '\|', C4::Context->preference("gist") );
-my $quantity = $data->{'quantity'};
-{
- defined($quantity) && last;
- my $rr_quantity_to_order = $input->param('rr_quantity_to_order');
- (defined($rr_quantity_to_order) && $rr_quantity_to_order) || last;
- $quantity = $rr_quantity_to_order;
-}
+my $quantity = $input->param('rr_quantity_to_order') ?
+ $input->param('rr_quantity_to_order') :
+ $data->{'quantity'};
+$quantity //= 0;
$template->param(
existing => $biblionumber,
);
}
-{
- for my $rd ( @reservedata ) {
- $rd->{biblionumber} || next;
- my $pcnt = CountPendingOrdersByBiblionumber( $rd->{biblionumber} );
- $pcnt || next;
- $rd->{pendingorders} = $pcnt;
- }
+for my $rd ( @reservedata ) {
+ next unless $rd->{biblionumber};
+ $rd->{pendingorders} = CountPendingOrdersByBiblionumber( $rd->{biblionumber} );
}
$template->param(
sub CountPendingOrdersByBiblionumber {
my $biblionumber = shift;
my @orders = GetOrdersByBiblionumber( $biblionumber );
- scalar(@orders) || return(0);
- my $cnt=0; for my $order ( @orders ) {
- defined($order->{datecancellationprinted}) && $order->{datecancellationprinted} && next;
- my $onum = $order->{quantity} // 0;
- my $rnum = $order->{quantityreceived} // 0;
- $rnum >= $onum && next;
- $cnt+=$onum; $cnt-=$rnum;
+ my $cnt = 0;
+ if (scalar(@orders)) {
+ for my $order ( @orders ) {
+ next if $order->{datecancellationprinted};
+ my $onum = $order->{quantity} // 0;
+ my $rnum = $order->{quantityreceived} // 0;
+ next if $rnum >= $onum;
+ $cnt += ($onum - $rnum);
+ }
}
- $cnt;
+ return $cnt;
}