[Koha-patches] [PATCH] bug_5911 follow-up: removed debug() calls and ; ;
Srdjan
srdjan at catalyst.net.nz
Fri Aug 24 02:52:57 CEST 2012
---
C4/HoldsQueue.pm | 11 +----------
1 file changed, 1 insertion(+), 10 deletions(-)
diff --git a/C4/HoldsQueue.pm b/C4/HoldsQueue.pm
index d7696dd..1e40766 100755
--- a/C4/HoldsQueue.pm
+++ b/C4/HoldsQueue.pm
@@ -167,7 +167,6 @@ sub CreateQueue {
my $transport_cost_matrix;
my $use_transport_cost_matrix = C4::Context->preference("UseTransportCostMatrix");
if ($use_transport_cost_matrix) {
- debug( "Using cost matrix" );
$transport_cost_matrix = TransportCostMatrix();
unless (keys %$transport_cost_matrix) {
warn "UseTransportCostMatrix set to yes, but matrix not populated";
@@ -175,12 +174,10 @@ sub CreateQueue {
}
}
unless ($transport_cost_matrix) {
- debug( "Not using cost matrix" );
$branches_to_use = load_branches_to_pull_from();
}
my $bibs_with_pending_requests = GetBibsWithPendingHoldRequests();
- debug( "bibs_with_pending_requests: ".Dumper($bibs_with_pending_requests) );
foreach my $biblionumber (@$bibs_with_pending_requests) {
$total_bibs++;
@@ -192,7 +189,7 @@ sub CreateQueue {
my $item_map = MapItemsToHoldRequests($hold_requests, $available_items, $branches_to_use, $transport_cost_matrix);
$item_map or next;
my $item_map_size = scalar(keys %$item_map)
- or next;;
+ or next;
$num_items_mapped += $item_map_size;
CreatePicklistFromItemMap($item_map);
@@ -351,7 +348,6 @@ sub MapItemsToHoldRequests {
return unless scalar(@$hold_requests) > 0;
return unless scalar(@$available_items) > 0;
- debug( "MapItemsToHoldRequests() for ", Dumper($hold_requests, $available_items, $branches_to_use, $transport_cost_matrix) );
my $automatic_return = C4::Context->preference("AutomaticItemReturn");
# identify item-level requests
@@ -500,7 +496,6 @@ sub MapItemsToHoldRequests {
sub CreatePicklistFromItemMap {
my $item_map = shift;
- debug ("CreatePicklistFromItemMap for ", Dumper($item_map) );
my $dbh = C4::Context->dbh;
@@ -564,10 +559,6 @@ sub AddToHoldTargetMap {
# Helper functions, not part of any interface
-sub debug {
-# warn @_;
-}
-
sub _trim {
return $_[0] unless $_[0];
$_[0] =~ s/^\s+//;
--
1.7.9.5
More information about the Koha-patches
mailing list