From 670e361badd632d61cf2ce0769f7a29a6a5b39f0 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 2 May 2003 13:04:00 +0000
Subject: [PATCH] fix for #409

---
 acqui/addorder.pl | 18 +++++++++++++++++-
 acqui/basket.pl   |  1 -
 2 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/acqui/addorder.pl b/acqui/addorder.pl
index d0aabf1502..2397f4ba0e 100755
--- 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 f142054ef8..30218a6d29 100755
--- 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;
 
-- 
2.20.1