From 5e32902941c60f6b22e1c95d52fbe211407b7a87 Mon Sep 17 00:00:00 2001 From: Paul Poulain 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 --- 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