Bug 29196: (Bug 27068 follow-up) - Remove unnecessary check

[srvgit] / acqui / spent.pl

diff --git a/acqui/spent.pl b/acqui/spent.pl
index 938ca90..b8269d0 100755 (executable)
--- a/acqui/spent.pl
+++ b/acqui/spent.pl
@@ -30,11 +30,11 @@ this script is designed to show the spent amount in budgets
 =cut
 
 use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
 use Modern::Perl;
 use CGI qw ( -utf8 );
-use C4::Acquisition;
+use C4::Acquisition qw( get_rounded_price );
 use Koha::Acquisition::Invoice::Adjustments;
 
 my $dbh      = C4::Context->dbh;
@@ -48,7 +48,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         query           => $input,
         type            => "intranet",
         flagsrequired   => { acquisition => '*' },
-        debug           => 1,
     }
 );
 
@@ -80,8 +79,7 @@ LEFT JOIN aqbooksellers ON
 WHERE
     aqorders.basketno=aqbasket.basketno AND
     budget_id=? AND
-    (datecancellationprinted IS NULL OR
-        datecancellationprinted='0000-00-00') AND
+    datecancellationprinted IS NULL AND
     datereceived IS NOT NULL
     GROUP BY aqorders.biblionumber, aqorders.basketno, aqorders.ordernumber,
              tleft,