From 5e32902941c60f6b22e1c95d52fbe211407b7a87 Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
Date: Fri, 20 Jan 2012 16:30:48 +0100
Subject: [PATCH] Bug 5473 follow-up : removed warn & replace some tabs by 4
 spaces (cherry picked from commit f961638465cf1fc41b15a6c277e3c936ec02ab6e)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>
---
 C4/Acquisition.pm      |  9 +++------
 acqui/finishreceive.pl | 11 +++++------
 2 files changed, 8 insertions(+), 12 deletions(-)

diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm
index ef95ead368..5127aaf6ca 100644
--- a/C4/Acquisition.pm
+++ b/C4/Acquisition.pm
@@ -1068,16 +1068,13 @@ sub ModReceiveOrder {
     )
     = @_;
     my $dbh = C4::Context->dbh;
-#     warn "DATE BEFORE : $daterecieved";
-#    $daterecieved=POSIX::strftime("%Y-%m-%d",CORE::localtime) unless $daterecieved;
-#     warn "DATE REC : $daterecieved";
     $datereceived = C4::Dates->output('iso') unless $datereceived;
     my $suggestionid = GetSuggestionFromBiblionumber( $dbh, $biblionumber );
     if ($suggestionid) {
         ModSuggestion( {suggestionid=>$suggestionid,
-						STATUS=>'AVAILABLE',
-						biblionumber=> $biblionumber}
-						);
+                        STATUS=>'AVAILABLE',
+                        biblionumber=> $biblionumber}
+                        );
     }
 
     my $sth=$dbh->prepare("
diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl
index cf7ceeec04..0f2f070c60 100755
--- a/acqui/finishreceive.pl
+++ b/acqui/finishreceive.pl
@@ -83,10 +83,10 @@ if ($quantityrec > $origquantityrec ) {
         }
         foreach my $item (keys %itemhash){
             my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'},
-                                    $itemhash{$item}->{'subfields'},
-                                    $itemhash{$item}->{'field_values'},
-                                    $itemhash{$item}->{'ind_tag'},
-                                    $itemhash{$item}->{'indicator'},'ITEM');
+                                          $itemhash{$item}->{'subfields'},
+                                          $itemhash{$item}->{'field_values'},
+                                          $itemhash{$item}->{'ind_tag'},
+                                          $itemhash{$item}->{'indicator'},'ITEM');
             my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
             my (undef,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$biblionumber);
             NewOrderItem($itemnumber, $ordernumber);
@@ -94,7 +94,7 @@ if ($quantityrec > $origquantityrec ) {
     }
     
     # save the quantity received.
-	$datereceived = ModReceiveOrder($biblionumber,$ordernumber, $quantityrec ,$user,$unitprice,$invoiceno,$freight,$replacement,undef,$datereceived);
+    $datereceived = ModReceiveOrder($biblionumber,$ordernumber, $quantityrec ,$user,$unitprice,$invoiceno,$freight,$replacement,undef,$datereceived);
 }
 
 update_item( $_ ) foreach GetItemnumbersFromOrder( $ordernumber );
@@ -105,7 +105,6 @@ print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoice=$invoiceno&supplie
 
 sub update_item {
     my ( $itemnumber ) = @_;
-    warn "AAA $itemnumber";
 
     ModItem( {
         booksellerid         => $supplierid,
-- 
2.39.5