diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm
index d33b6e7a3d..1b29dfdeef 100644
--- a/C4/Acquisition.pm
+++ b/C4/Acquisition.pm
@@ -1805,7 +1805,7 @@ sub TransferOrder {
     my $dbh = C4::Context->dbh;
     my ($query, $sth, $rv);
 
-    $query = qq{
+    $query = q{
         UPDATE aqorders
         SET datecancellationprinted = CAST(NOW() AS date)
         WHERE ordernumber = ?
@@ -1824,7 +1824,7 @@ sub TransferOrder {
         WHERE ordernumber = ?
     }, {}, $newordernumber );
 
-    $query = qq{
+    $query = q{
         UPDATE aqorders_items
         SET ordernumber = ?
         WHERE ordernumber = ?