From 98ceb599875d95544a5e2d2bd005bc9019f80df3 Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Mon, 7 Jul 2014 09:27:58 +0200
Subject: [PATCH] Bug 7162: Factorize code for order cancellation (QA fixes)

---
 acqui/addorder.pl            |    8 ++++----
 acqui/cancelorder.pl         |   23 ++++++++++++-----------
 t/db_dependent/Acquisition.t |    6 +++---
 3 files changed, 19 insertions(+), 18 deletions(-)

diff --git a/acqui/addorder.pl b/acqui/addorder.pl
index 91d980c..30c256d 100755
--- a/acqui/addorder.pl
+++ b/acqui/addorder.pl
@@ -122,10 +122,10 @@ if it is an order from an existing suggestion : the id of this suggestion.
 use strict;
 use warnings;
 use CGI;
-use C4::Auth;			# get_template_and_user
-use C4::Acquisition;	# NewOrder ModOrder
-use C4::Suggestions;	# ModStatus
-use C4::Biblio;			# AddBiblio TransformKohaToMarc
+use C4::Auth;           # get_template_and_user
+use C4::Acquisition;    # NewOrder ModOrder
+use C4::Suggestions;    # ModStatus
+use C4::Biblio;         # AddBiblio TransformKohaToMarc
 use C4::Budgets;
 use C4::Items;
 use C4::Output;
diff --git a/acqui/cancelorder.pl b/acqui/cancelorder.pl
index c45b8da..a0b7597 100755
--- a/acqui/cancelorder.pl
+++ b/acqui/cancelorder.pl
@@ -1,20 +1,21 @@
 #!/usr/bin/perl
 
-# Copyright 2011 BibLibre SARL
+# Copyright 2014 BibLibre
+#
 # This file is part of Koha.
 #
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
 #
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
 #
-# You should have received a copy of the GNU General Public License along
-# with Koha; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 =head1 NAME
 
diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t
index 31cd68e..83fa141 100755
--- a/t/db_dependent/Acquisition.t
+++ b/t/db_dependent/Acquisition.t
@@ -920,8 +920,8 @@ ok((defined $order1->{datecancellationprinted}), "order is cancelled");
 ok((not defined $order1->{cancellationreason}), "order has no cancellation reason");
 ok((defined GetBiblio($order1->{biblionumber})), "biblio still exists");
 
-my $order2 = GetOrder($ordernumbers[1]);
-my $error = DelOrder($order2->{biblionumber}, $order2->{ordernumber}, 1);
+$order2 = GetOrder($ordernumbers[1]);
+$error = DelOrder($order2->{biblionumber}, $order2->{ordernumber}, 1);
 ok((not defined $error), "DelOrder does not fail");
 $order2 = GetOrder($order2->{ordernumber});
 ok((defined $order2->{datecancellationprinted}), "order is cancelled");
@@ -929,7 +929,7 @@ ok((not defined $order2->{cancellationreason}), "order has no cancellation reaso
 ok((not defined GetBiblio($order2->{biblionumber})), "biblio does not exist anymore");
 
 my $order4 = GetOrder($ordernumbers[3]);
-my $error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar");
+$error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar");
 ok((not defined $error), "DelOrder does not fail");
 $order4 = GetOrder($order4->{ordernumber});
 ok((defined $order4->{datecancellationprinted}), "order is cancelled");
-- 
1.7.10.4