Lines 229-240
if ( $op eq 'delete_confirm' ) {
Link Here
|
229 |
my $gist = $bookseller->{gstrate} // C4::Context->preference("gist") // 0; |
229 |
my $gist = $bookseller->{gstrate} // C4::Context->preference("gist") // 0; |
230 |
$gist = 0 if $gist == 0.0000; |
230 |
$gist = 0 if $gist == 0.0000; |
231 |
my $discount = $bookseller->{'discount'} / 100; |
231 |
my $discount = $bookseller->{'discount'} / 100; |
232 |
my $total_rrp; # RRP Total, its value will be assigned to $total_rrp_gsti or $total_rrp_gste depending of $bookseller->{'listincgst'} |
232 |
my $total_rrp = 0; # RRP Total, its value will be assigned to $total_rrp_gsti or $total_rrp_gste depending of $bookseller->{'listincgst'} |
233 |
my $total_rrp_gsti; # RRP Total, GST included |
233 |
my $total_rrp_gsti = 0; # RRP Total, GST included |
234 |
my $total_rrp_gste; # RRP Total, GST excluded |
234 |
my $total_rrp_gste = 0; # RRP Total, GST excluded |
235 |
my $gist_rrp; |
235 |
my $gist_rrp = 0; |
236 |
my $total_rrp_est; |
236 |
my $total_rrp_est = 0; |
237 |
|
237 |
|
238 |
my $qty_total; |
238 |
my $qty_total; |
239 |
my @books_loop; |
239 |
my @books_loop; |
240 |
|
240 |
|
Lines 281-287
if ( $op eq 'delete_confirm' ) {
Link Here
|
281 |
$line{biblios} = $countbiblio - 1; |
281 |
$line{biblios} = $countbiblio - 1; |
282 |
$line{left_subscription} = 1 if scalar @subscriptions >= 1; |
282 |
$line{left_subscription} = 1 if scalar @subscriptions >= 1; |
283 |
$line{subscriptions} = scalar @subscriptions; |
283 |
$line{subscriptions} = scalar @subscriptions; |
284 |
$line{left_holds} = 1 if $holds >= 1; |
284 |
($holds >= 1) ? $line{left_holds} = 1 : $line{left_holds} = 0; |
285 |
$line{left_holds_on_order} = 1 if $line{left_holds}==1 && ($line{items} == 0 || $itemholds ); |
285 |
$line{left_holds_on_order} = 1 if $line{left_holds}==1 && ($line{items} == 0 || $itemholds ); |
286 |
$line{holds} = $holds; |
286 |
$line{holds} = $holds; |
287 |
$line{holds_on_order} = $itemholds?$itemholds:$holds if $line{left_holds_on_order}; |
287 |
$line{holds_on_order} = $itemholds?$itemholds:$holds if $line{left_holds_on_order}; |
288 |
- |
|
|