Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

fix for #409

Browse source
This commit is contained in:
tipaul 2003-05-02 13:04:00 +00:00
parent 76b467c900
commit 670e361bad
2 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
acqui/addorder.pl
View file

@ -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');

1
acqui/basket.pl
View file

@ -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;