From 41af135b31b2acc3f40e0e79f53cf14c29b30f9a Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
Date: Wed, 20 Aug 2008 19:23:46 -0500
Subject: [PATCH] bug 2503: comment out unneeded warns

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 offline_circ/process_koc.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/offline_circ/process_koc.pl b/offline_circ/process_koc.pl
index b281aaa6e5..d8624f5083 100755
--- a/offline_circ/process_koc.pl
+++ b/offline_circ/process_koc.pl
@@ -185,11 +185,11 @@ sub kocIssueItem {
   my $date_due = sprintf("%04d-%02d-%02d", $year, $month, $day);
   
   if ( $issue->{ 'date_due' } ) { ## Item is currently checked out to another person.
-warn "Item Currently Issued.";
+#warn "Item Currently Issued.";
     my $issue = GetOpenIssue( $item->{'itemnumber'} );
 
     if ( $issue->{'borrowernumber'} eq $borrower->{'borrowernumber'} ) { ## Issued to this person already, renew it.
-warn "Item issued to this member already, renewing.";
+#warn "Item issued to this member already, renewing.";
     
     my $date_due_object = C4::Dates->new($date_due ,'iso');
     C4::Circulation::AddRenewal(
@@ -203,9 +203,9 @@ warn "Item issued to this member already, renewing.";
       push( @output, { message => "Renewed $item->{ 'title' } ( $item->{ 'barcode' } ) to $borrower->{ 'firstname' } $borrower->{ 'surename' } ( $borrower->{'cardnumber'} ) : $circ->{ 'datetime' }\n" } );
 
     } else {
-warn "Item issued to a different member.";
-warn "Date of previous issue: $issue->{'issuedate'}";
-warn "Date of this issue: $circ->{'date'}";
+#warn "Item issued to a different member.";
+#warn "Date of previous issue: $issue->{'issuedate'}";
+#warn "Date of this issue: $circ->{'date'}";
       my ( $i_y, $i_m, $i_d ) = split( /-/, $issue->{'issuedate'} );
       my ( $c_y, $c_m, $c_d ) = split( /-/, $circ->{'date'} );
       
@@ -215,7 +215,7 @@ warn "Date of this issue: $circ->{'date'}";
         push( @output, { message => "Issued $item->{ 'title' } ( $item->{ 'barcode' } ) to $borrower->{ 'firstname' } $borrower->{ 'surename' } ( $borrower->{'cardnumber'} ) : $circ->{ 'datetime' }\n" } );
 
       } else { ## Current issue is *newer* than this issue, write a 'returned' issue, as the item is most likely in the hands of someone else now.
-warn "Current issue to another member is newer. Doing nothing";
+#warn "Current issue to another member is newer. Doing nothing";
         ## This situation should only happen of the Offline Circ data is *really* old.
         ## FIXME: write line to old_issues and statistics
       }
@@ -231,7 +231,7 @@ warn "Current issue to another member is newer. Doing nothing";
 sub kocReturnItem {
   my ( $circ ) = @_;
   my $item = GetBiblioFromItemNumber( undef, $circ->{ 'barcode' } );
-  warn( Data::Dumper->Dump( [ $circ, $item ], [ qw( circ item ) ] ) );
+  #warn( Data::Dumper->Dump( [ $circ, $item ], [ qw( circ item ) ] ) );
   my $borrowernumber = _get_borrowernumber_from_barcode( $circ->{'barcode'} );
   unless ( $borrowernumber ) {
       push( @output, { message => "Warning: unable to determine borrower from item ($item->{'barcode'}). Cannot mark returned\n" } );
-- 
2.39.5