X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=acqui%2Fordered.pl;h=84b49550c137241b96cf26774b5bffacb4e1e045;hb=9d6d641d1f8b77271800f43bc027b651f9aea52b;hp=0f4e8c6519e350b57676a39e562acb98ad3059c0;hpb=af7e41d1142573666d302a8475274ea58e5c99f4;p=koha-ffzg.git diff --git a/acqui/ordered.pl b/acqui/ordered.pl index 0f4e8c6519..84b49550c1 100755 --- a/acqui/ordered.pl +++ b/acqui/ordered.pl @@ -30,10 +30,10 @@ this script is to show orders ordered but not yet received use C4::Context; use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Acquisition::Invoice::Adjustments; -use C4::Acquisition; +use C4::Acquisition qw( get_rounded_price ); my $dbh = C4::Context->dbh; my $input = CGI->new;