From 670e361badd632d61cf2ce0769f7a29a6a5b39f0 Mon Sep 17 00:00:00 2001 From: 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.39.5