3 #script to add an order into the system
4 #written 29/2/00 by chris@katipo.co.nz
6 # Copyright 2000-2002 Katipo Communications
8 # This file is part of Koha.
10 # Koha is free software; you can redistribute it and/or modify it
11 # under the terms of the GNU General Public License as published by
12 # the Free Software Foundation; either version 3 of the License, or
13 # (at your option) any later version.
15 # Koha is distributed in the hope that it will be useful, but
16 # WITHOUT ANY WARRANTY; without even the implied warranty of
17 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 # GNU General Public License for more details.
20 # You should have received a copy of the GNU General Public License
21 # along with Koha; if not, see <http://www.gnu.org/licenses>.
30 this script allows to add an order.
35 =item neworderempty.pl to add an order from an existing record or from nothing.
37 =item newordersuggestion.pl to add an order from an existing suggestion.
43 All of the cgi parameters below are related to the new order.
48 the number of this new order.
51 the number of this new basket
54 the bookseller the librarian has to pay.
59 the title of the record ordered.
62 the author of the record ordered.
64 =item C<copyrightdate>
65 the copyrightdate of the record ordered.
68 the ISBN of the record ordered.
73 the quantity to order.
76 the price of this order.
78 =item C<uncertainprice>
79 uncertain price, can't close basket until prices of all orders are known.
82 the branch where this order will be received.
90 budget_id used to pay this order.
92 =item C<sort1> & C<sort2>
107 the number of the invoice for this order.
109 =item C<publishercode>
111 =item C<suggestionid>
112 if it is an order from an existing suggestion : the id of this suggestion.
121 use CGI qw ( -utf8 );
122 use JSON qw ( to_json encode_json );
123 use C4::Auth qw( get_template_and_user );
124 use C4::Acquisition qw( FillWithDefaultValues ModOrderUsers );
125 use C4::Suggestions qw( ModSuggestion );
132 use C4::Budgets qw( GetBudget GetBudgetSpent GetBudgetOrdered );
133 use C4::Items qw( AddItemFromMarc );
134 use C4::Output qw( output_html_with_http_headers );
135 use C4::Log qw( logaction );
136 use Koha::Acquisition::Currencies qw( get_active );
137 use Koha::Acquisition::Orders;
138 use Koha::Acquisition::Baskets;
141 ### "-------------------- addorder.pl ----------"
143 # FIXME: This needs to do actual error checking and possibly return user to the same form,
144 # not just blindly call C4 functions and print a redirect.
146 my $input = CGI->new;
147 my $use_ACQ_framework = $input->param('use_ACQ_framework');
149 # Check if order total amount exceed allowed budget
150 my $confirm_budget_exceeding = $input->param('confirm_budget_exceeding');
151 unless($confirm_budget_exceeding) {
152 my $budget_id = $input->param('budget_id');
153 my $total = $input->param('total');
154 my $budget = GetBudget($budget_id);
155 my $budget_spent = GetBudgetSpent($budget_id);
156 my $budget_ordered = GetBudgetOrdered($budget_id);
157 my $budget_used = $budget_spent + $budget_ordered;
158 my $budget_remaining = $budget->{budget_amount} - $budget_used;
159 my $budget_encumbrance = $budget->{budget_amount} * $budget->{budget_encumb} / 100;
160 my $budget_expenditure = $budget->{budget_expend};
162 if ( $total > $budget_remaining
163 || ( ($budget_encumbrance+0) && ($budget_used + $total) > $budget_encumbrance)
164 || ( ($budget_expenditure+0) && ($budget_used + $total) > $budget_expenditure) )
166 my ($template, $loggedinuser, $cookie) = get_template_and_user({
167 template_name => "acqui/addorder.tt",
170 flagsrequired => {acquisition => 'order_manage'},
173 my $url = $input->referer();
174 unless ( defined $url ) {
175 my $basketno = $input->param('basketno');
176 $url = "/cgi-bin/koha/acqui/basket.pl?basketno=$basketno";
179 my $vars = $input->Vars;
181 foreach (keys %$vars) {
184 values => [$input->param($_)],
188 if( ($budget_encumbrance+0) && ($budget_used + $total) > $budget_encumbrance
189 && $total <= $budget_remaining)
192 encumbrance_exceeded => 1,
193 encumbrance => sprintf("%.2f", $budget->{'budget_encumb'}),
196 if( ($budget_expenditure+0) && ($budget_used + $total) > $budget_expenditure
197 && $total <= $budget_remaining )
199 my $currency = Koha::Acquisition::Currencies->get_active;
201 expenditure_exceeded => 1,
202 expenditure => sprintf("%.2f", $budget_expenditure),
203 currency => ($currency) ? $currency->symbol : '',
206 if($total > $budget_remaining){
207 $template->param(budget_exceeded => 1);
211 not_enough_budget => 1,
213 vars_loop => \@vars_loop,
215 output_html_with_http_headers $input, $cookie, $template->output;
220 # get_template_and_user used only to check auth & get user id
221 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
223 template_name => "acqui/booksellers.tt",
226 flagsrequired => { acquisition => 'order_manage' },
232 ordernumber => scalar $input->param('ordernumber'),
233 basketno => scalar $input->param('basketno'),
234 biblionumber => scalar $input->param('biblionumber'),
235 invoiceid => scalar $input->param('invoiceid'),
236 quantity => scalar $input->param('quantity'),
237 budget_id => scalar $input->param('budget_id'),
238 currency => scalar $input->param('currency'),
239 listprice => scalar $input->param('listprice'),
240 uncertainprice => scalar $input->param('uncertainprice'),
241 tax_rate_on_ordering => scalar $input->param('tax_rate'),
242 discount => scalar $input->param('discount'),
243 rrp => scalar $input->param('rrp'),
244 replacementprice => scalar $input->param('replacementprice'),
245 ecost => scalar $input->param('ecost'),
246 unitprice => scalar $input->param('unitprice'),
247 order_internalnote => scalar $input->param('order_internalnote'),
248 order_vendornote => scalar $input->param('order_vendornote'),
249 sort1 => scalar $input->param('sort1'),
250 sort2 => scalar $input->param('sort2'),
251 subscriptionid => scalar $input->param('subscriptionid'),
254 $orderinfo->{uncertainprice} ||= 0;
255 $orderinfo->{subscriptionid} ||= undef;
257 my $user = $input->remote_user;
258 my $basketno = $$orderinfo{basketno};
259 my $basket = Koha::Acquisition::Baskets->find($basketno);
261 # Order related fields we're going to log
262 my @log_order_fields = (
266 'unitprice_tax_excluded',
267 'unitprice_tax_included',
273 'ecost_tax_excluded',
274 'ecost_tax_included',
275 'tax_rate_on_ordering'
278 # create, modify or delete biblio
279 # create if $quantity>0 and $existing='no'
280 # modify if $quantity>0 and $existing='yes'
281 if ( $basket->{is_standing} || $orderinfo->{quantity} ne '0' ) {
282 #TODO:check to see if biblio exists
283 unless ( $$orderinfo{biblionumber} ) {
286 if ( $use_ACQ_framework ) {
287 my @tags = $input->multi_param('bib_tag');
288 my @subfields = $input->multi_param('bib_subfield');
289 my @field_values = $input->multi_param('bib_field_value');
290 my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values );
291 $record=MARC::Record::new_from_xml($xml, 'UTF-8');
293 #if it doesn't create it
294 $record = TransformKohaToMarc(
296 "biblio.title" => $input->param('title') || '',
297 "biblio.author" => $input->param('author') || '',
298 "biblio.seriestitle" => $input->param('series') || '',
299 "biblioitems.isbn" => $input->param('isbn') || '',
300 "biblioitems.ean" => $input->param('ean') || '',
301 "biblioitems.publishercode" => $input->param('publishercode') || '',
302 "biblioitems.publicationyear" => $input->param('publicationyear') || '',
303 "biblio.copyrightdate" => $input->param('publicationyear') || '',
304 "biblioitems.itemtype" => $input->param('itemtype') || '',
305 "biblioitems.editionstatement"=> $input->param('editionstatement') || '',
309 C4::Acquisition::FillWithDefaultValues( $record );
311 # create the record in catalogue, with framework ''
312 my ($biblionumber,$bibitemnum) = AddBiblio($record,'');
314 $orderinfo->{biblionumber}=$biblionumber;
317 # change suggestion status if applicable
318 if ( my $suggestionid = $input->param('suggestionid') ) {
321 suggestionid => $suggestionid,
322 biblionumber => $orderinfo->{biblionumber},
328 $orderinfo->{unitprice} = $orderinfo->{ecost} if not defined $orderinfo->{unitprice} or $orderinfo->{unitprice} eq '';
332 if ( $orderinfo->{ordernumber} ) {
333 $order = Koha::Acquisition::Orders->find($orderinfo->{ordernumber});
334 $order->set($orderinfo);
335 $log_action_name = 'MODIFY_ORDER';
337 $order = Koha::Acquisition::Order->new($orderinfo);
338 $log_action_name = 'CREATE_ORDER';
340 $order->populate_with_prices_for_ordering();
343 # Log the order creation
344 if (C4::Context->preference("AcquisitionLog")) {
346 foreach my $field(@log_order_fields) {
347 $infos->{$field} = $order->$field;
356 my $order_users_ids = $input->param('users_ids');
357 my @order_users = split( /:/, $order_users_ids );
358 ModOrderUsers( $order->ordernumber, @order_users );
360 # now, add items if applicable
361 if ($basket->effective_create_items eq 'ordering') {
363 my @tags = $input->multi_param('tag');
364 my @subfields = $input->multi_param('subfield');
365 my @field_values = $input->multi_param('field_value');
366 my @serials = $input->multi_param('serial');
367 my @itemid = $input->multi_param('itemid');
368 #Rebuilding ALL the data for items into a hash
369 # parting them on $itemid.
373 my $range=scalar(@itemid);
374 for (my $i=0; $i<$range; $i++){
375 unless ($itemhash{$itemid[$i]}){
378 push @{$itemhash{$itemid[$i]}->{'tags'}},$tags[$i];
379 push @{$itemhash{$itemid[$i]}->{'subfields'}},$subfields[$i];
380 push @{$itemhash{$itemid[$i]}->{'field_values'}},$field_values[$i];
382 foreach my $item (keys %itemhash){
383 my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'},
384 $itemhash{$item}->{'subfields'},
385 $itemhash{$item}->{'field_values'},
389 my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
390 my ($barcodefield,$barcodesubfield) = GetMarcFromKohaField('items.barcode');
391 next unless ( defined $barcodefield && defined $barcodesubfield );
392 my $barcode = $record->subfield($barcodefield,$barcodesubfield) || '';
393 my $aBpref = C4::Context->preference('autoBarcode');
394 if( $barcode eq '' && $aBpref ne 'OFF'){
396 if ( $aBpref eq 'hbyymmincr'){
397 my ($homebranchfield,$homebranchsubfield) = GetMarcFromKohaField('items.homebranch');
398 my $homebranch = $record->subfield($homebranchfield,$homebranchsubfield);
399 $barcodeobj = C4::Barcodes->new($aBpref, $homebranch);
401 $barcodeobj = C4::Barcodes->new($aBpref);
403 $barcode = $barcodeobj->value();
404 $record->field($barcodefield)->delete_subfield( code => $barcodesubfield);
405 $record->field($barcodefield)->add_subfields($barcodesubfield => $barcode);
407 my ($biblionumber,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$$orderinfo{biblionumber});
408 $order->add_item($itemnumber);
414 if (C4::Context->preference("AcquisitionLog") && $basketno) {
415 my $modified = Koha::Acquisition::Baskets->find( $basketno );
420 to_json($modified->unblessed)
424 my $booksellerid=$$orderinfo{booksellerid};
425 if (my $import_batch_id = $input->param('import_batch_id')) {
426 print $input->redirect("/cgi-bin/koha/acqui/addorderiso2709.pl?import_batch_id=$import_batch_id&basketno=$basketno&booksellerid=$booksellerid");
427 } elsif ( defined $orderinfo->{invoiceid} ) {
428 print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoiceid=" . $orderinfo->{invoiceid});
430 print $input->redirect("/cgi-bin/koha/acqui/basket.pl?basketno=$basketno");