[Koha-patches] [PATCH] Bug 7457: log cleaning on basket.pl

Adrien Saurat adrien.saurat at biblibre.com
Tue Jan 31 15:18:06 CET 2012


---
 acqui/basket.pl |   14 +++++++-------
 1 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/acqui/basket.pl b/acqui/basket.pl
index c528156..b559732 100755
--- a/acqui/basket.pl
+++ b/acqui/basket.pl
@@ -229,12 +229,12 @@ if ( $op eq 'delete_confirm' ) {
 	my $gist = $bookseller->{gstrate} // C4::Context->preference("gist") // 0;
 	$gist = 0 if $gist == 0.0000;
 	my $discount = $bookseller->{'discount'} / 100;
-    my $total_rrp;      # RRP Total, its value will be assigned to $total_rrp_gsti or $total_rrp_gste depending of $bookseller->{'listincgst'}
-	my $total_rrp_gsti; # RRP Total, GST included
-	my $total_rrp_gste; # RRP Total, GST excluded
-	my $gist_rrp;
-	my $total_rrp_est;
-	
+    my $total_rrp = 0;      # RRP Total, its value will be assigned to $total_rrp_gsti or $total_rrp_gste depending of $bookseller->{'listincgst'}
+    my $total_rrp_gsti = 0; # RRP Total, GST included
+    my $total_rrp_gste = 0; # RRP Total, GST excluded
+    my $gist_rrp = 0;
+    my $total_rrp_est = 0;
+
     my $qty_total;
     my @books_loop;
 
@@ -281,7 +281,7 @@ if ( $op eq 'delete_confirm' ) {
         $line{biblios}              = $countbiblio - 1;
         $line{left_subscription}    = 1 if scalar @subscriptions >= 1;
         $line{subscriptions}        = scalar @subscriptions;
-        $line{left_holds}           = 1 if $holds >= 1;
+        ($holds >= 1) ? $line{left_holds} = 1 : $line{left_holds} = 0;
         $line{left_holds_on_order}  = 1 if $line{left_holds}==1 && ($line{items} == 0 || $itemholds );
         $line{holds}                = $holds;
         $line{holds_on_order}       = $itemholds?$itemholds:$holds if $line{left_holds_on_order};
-- 
1.7.4.1



More information about the Koha-patches mailing list