Lines 91-97
use C4::Search qw/FindDuplicate/;
Link Here
|
91 |
#needed for z3950 import: |
91 |
#needed for z3950 import: |
92 |
use C4::ImportBatch qw/GetImportRecordMarc SetImportRecordStatus/; |
92 |
use C4::ImportBatch qw/GetImportRecordMarc SetImportRecordStatus/; |
93 |
|
93 |
|
94 |
my $input = new CGI; |
94 |
our $input = new CGI; |
95 |
my $booksellerid = $input->param('booksellerid'); # FIXME: else ERROR! |
95 |
my $booksellerid = $input->param('booksellerid'); # FIXME: else ERROR! |
96 |
my $budget_id = $input->param('budget_id') || 0; |
96 |
my $budget_id = $input->param('budget_id') || 0; |
97 |
my $title = $input->param('title'); |
97 |
my $title = $input->param('title'); |
Lines 99-106
my $author = $input->param('author');
Link Here
|
99 |
my $publicationyear = $input->param('publicationyear'); |
99 |
my $publicationyear = $input->param('publicationyear'); |
100 |
my $bookseller = GetBookSellerFromId($booksellerid); # FIXME: else ERROR! |
100 |
my $bookseller = GetBookSellerFromId($booksellerid); # FIXME: else ERROR! |
101 |
my $ordernumber = $input->param('ordernumber') || ''; |
101 |
my $ordernumber = $input->param('ordernumber') || ''; |
102 |
my $biblionumber = $input->param('biblionumber'); |
102 |
our $biblionumber = $input->param('biblionumber'); |
103 |
my $basketno = $input->param('basketno'); |
103 |
our $basketno = $input->param('basketno'); |
104 |
my $suggestionid = $input->param('suggestionid'); |
104 |
my $suggestionid = $input->param('suggestionid'); |
105 |
my $close = $input->param('close'); |
105 |
my $close = $input->param('close'); |
106 |
my $uncertainprice = $input->param('uncertainprice'); |
106 |
my $uncertainprice = $input->param('uncertainprice'); |
Lines 110-116
my $new = 'no';
Link Here
|
110 |
|
110 |
|
111 |
my $budget_name; |
111 |
my $budget_name; |
112 |
|
112 |
|
113 |
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( |
113 |
our ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( |
114 |
{ |
114 |
{ |
115 |
template_name => "acqui/neworderempty.tmpl", |
115 |
template_name => "acqui/neworderempty.tmpl", |
116 |
query => $input, |
116 |
query => $input, |
Lines 121-138
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
Link Here
|
121 |
} |
121 |
} |
122 |
); |
122 |
); |
123 |
|
123 |
|
124 |
my $marcflavour = C4::Context->preference('marcflavour'); |
124 |
our $marcflavour = C4::Context->preference('marcflavour'); |
125 |
|
125 |
|
126 |
if(!$basketno) { |
126 |
if(!$basketno) { |
127 |
my $order = GetOrder($ordernumber); |
127 |
my $order = GetOrder($ordernumber); |
128 |
$basketno = $order->{'basketno'}; |
128 |
$basketno = $order->{'basketno'}; |
129 |
} |
129 |
} |
130 |
|
130 |
|
131 |
my $basket = GetBasket($basketno); |
131 |
our $basket = GetBasket($basketno); |
132 |
my $contract = &GetContract($basket->{contractnumber}); |
132 |
my $contract = &GetContract($basket->{contractnumber}); |
133 |
|
133 |
|
134 |
#simple parameters reading (all in one :-) |
134 |
#simple parameters reading (all in one :-) |
135 |
my $params = $input->Vars; |
135 |
our $params = $input->Vars; |
136 |
my $listprice=0; # the price, that can be in MARC record if we have one |
136 |
my $listprice=0; # the price, that can be in MARC record if we have one |
137 |
if ( $ordernumber eq '' and defined $params->{'breedingid'}){ |
137 |
if ( $ordernumber eq '' and defined $params->{'breedingid'}){ |
138 |
#we want to import from the breeding reservoir (from a z3950 search) |
138 |
#we want to import from the breeding reservoir (from a z3950 search) |
139 |
- |
|
|