fix for #409

diff --git a/acqui/addorder.pl b/acqui/addorder.pl
index d0aabf1..2397f4b 100755 (executable)
--- a/acqui/addorder.pl
+++ b/acqui/addorder.pl
@@ -23,12 +23,28 @@
 
 use strict;
 use CGI;
+use C4::Auth;
 use C4::Output;
 use C4::Catalogue;
 use C4::Biblio;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Database;
+use HTML::Template;
+
 #use Date::Manip;
 
 my $input = new CGI;
+# get_template_and_user used only to check auth & get user id
+my ($template, $loggedinuser, $cookie)
+    = get_template_and_user({template_name => "acqui/order.tmpl",
+                            query => $input,
+                            type => "intranet",
+                            authnotrequired => 0,
+                            flagsrequired => {acquisition => 1},
+                            debug => 1,
+                            });
+
 my $existing=$input->param('existing');
 my $title=$input->param('title');
 $title=~ s/\'/\\\'/g;
@@ -48,7 +64,7 @@ if ($listprice eq ''){
 my $supplier=$input->param('supplier');
 my $notes=$input->param('notes');
 my $bookfund=$input->param('bookfund');
-my $who=$input->remote_user;
+my $who=$loggedinuser;
 my $bibnum;
 my $bibitemnum;
 my $rrp=$input->param('rrp');

diff --git a/acqui/basket.pl b/acqui/basket.pl
index f142054..30218a6 100755 (executable)
--- a/acqui/basket.pl
+++ b/acqui/basket.pl
@@ -31,7 +31,6 @@ use CGI;
 use C4::Interface::CGI::Output;
 use C4::Database;
 use HTML::Template;
-use C4::Catalogue;
 use C4::Date;
 use strict;