use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Budgets;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
+use C4::Budgets qw( GetBudget );
=head1 DESCRIPTION
=cut
-my $input = new CGI;
+my $input = CGI->new;
my $budget_id = $input->param('budget_id');
my $total = $input->param('total');
{ template_name => "acqui/ajax.tt",
query => $input,
type => "intranet",
- debug => 1, } );
+} );
my $budget = GetBudget($budget_id);