3 #script to show display basket of orders
4 #written by chris@katipo.co.nz 24/2/2000
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 create a new record to order it. This record shouldn't exist
38 the bookseller the librarian has to buy a new book.
41 the title of this new record.
44 the author of this new record.
46 =item publication year
47 the publication year of this new record.
50 the number of this order.
55 the basket number for this new order.
58 if this order comes from a suggestion.
61 the item's id in the breeding reservoir
76 use C4::Suggestions; # GetSuggestion
77 use C4::Biblio; # GetBiblioData GetMarcPrice
78 use C4::Items; #PrepareItemRecord
82 use C4::Search qw/FindDuplicate/;
84 #needed for z3950 import:
85 use C4::ImportBatch qw/GetImportRecordMarc SetImportRecordStatus/;
87 use Koha::Acquisition::Booksellers;
88 use Koha::Acquisition::Currencies;
89 use Koha::BiblioFrameworks;
90 use Koha::DateUtils qw( dt_from_string );
91 use Koha::MarcSubfieldStructures;
94 use Koha::RecordProcessor;
95 use Koha::Subscriptions;
98 my $booksellerid = $input->param('booksellerid'); # FIXME: else ERROR!
99 my $budget_id = $input->param('budget_id') || 0;
100 my $title = $input->param('title');
101 my $author = $input->param('author');
102 my $publicationyear = $input->param('publicationyear');
103 my $ordernumber = $input->param('ordernumber') || '';
104 our $biblionumber = $input->param('biblionumber');
105 our $basketno = $input->param('basketno');
106 my $suggestionid = $input->param('suggestionid');
107 my $uncertainprice = $input->param('uncertainprice');
108 my $import_batch_id = $input->param('import_batch_id'); # if this is filled, we come from a staged file, and we will return here after saving the order !
109 my $from_subscriptionid = $input->param('from_subscriptionid');
113 our ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
115 template_name => "acqui/neworderempty.tt",
118 flagsrequired => { acquisition => 'order_manage' },
123 our $marcflavour = C4::Context->preference('marcflavour');
126 my $order = GetOrder($ordernumber);
127 $basketno = $order->{'basketno'};
130 our $basket = GetBasket($basketno);
131 my $basketobj = Koha::Acquisition::Baskets->find( $basketno );
132 $booksellerid = $basket->{booksellerid} unless $booksellerid;
133 my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
135 output_and_exit( $input, $cookie, $template, 'unknown_basket') unless $basketobj;
136 output_and_exit( $input, $cookie, $template, 'unknown_vendor') unless $bookseller;
138 my $contract = GetContract({
139 contractnumber => $basket->{contractnumber}
142 #simple parameters reading (all in one :-)
143 our $params = $input->Vars;
144 my $listprice=0; # the price, that can be in MARC record if we have one
145 if ( $ordernumber eq '' and defined $params->{'breedingid'}){
146 #we want to import from the breeding reservoir (from a z3950 search)
147 my ($marcrecord, $encoding) = MARCfindbreeding($params->{'breedingid'});
148 die("Could not find the selected record in the reservoir, bailing") unless $marcrecord;
150 # Remove all the items (952) from the imported record
151 foreach my $item ($marcrecord->field('952')) {
152 $marcrecord->delete_field($item);
157 ($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord);
158 if($biblionumber && !$input->param('use_external_source')) {
159 #if duplicate record found and user did not decide yet, first warn user
160 #and let them choose between using a new record or an existing record
161 Load_Duplicate($duplicatetitle);
164 #from this point: add a new record
165 C4::Acquisition::FillWithDefaultValues($marcrecord, {only_mandatory => 1});
167 $params->{'frameworkcode'} or $params->{'frameworkcode'} = "";
168 ( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $params->{'frameworkcode'} );
169 # get the price if there is one.
170 $listprice = GetMarcPrice($marcrecord, $marcflavour);
171 SetImportRecordStatus($params->{'breedingid'}, 'imported');
176 my ( @order_user_ids, @order_users, @catalog_details );
177 our $tagslib = GetMarcStructure(1, 'ACQ', { unsafe => 1 } );
178 my ( $itemnumber_tag, $itemnumber_subtag ) = GetMarcFromKohaField( 'items.itemnumber' );
179 if ( not $ordernumber ) { # create order
182 if ( $biblionumber ) {
183 $data = GetBiblioData($biblionumber);
185 # get suggestion fields if applicable. If it's a subscription renewal, then the biblio already exists
186 # otherwise, retrieve suggestion information.
187 elsif ($suggestionid) {
188 $data = GetSuggestion($suggestionid);
189 $budget_id ||= $data->{'budgetid'} // 0;
192 if ( not $biblionumber and Koha::BiblioFrameworks->find('ACQ') ) {
193 #my $acq_mss = Koha::MarcSubfieldStructures->search({ frameworkcode => 'ACQ', tagfield => { '!=' => $itemnumber_tag } });
194 foreach my $tag ( sort keys %{$tagslib} ) {
196 next if $tag eq $itemnumber_tag; # skip items fields
197 foreach my $subfield ( sort keys %{ $tagslib->{$tag} } ) {
198 my $mss = $tagslib->{$tag}{$subfield};
199 next if IsMarcStructureInternal($mss);
200 next if $mss->{tab} == -1;
201 my $value = $mss->{defaultvalue};
203 if ($suggestionid and $mss->{kohafield}) {
204 # Reading suggestion info if ordering from a suggestion
205 if ( $mss->{kohafield} eq 'biblio.title' ) {
206 $value = $data->{title};
208 elsif ( $mss->{kohafield} eq 'biblio.author' ) {
209 $value = $data->{author};
211 elsif ( $mss->{kohafield} eq 'biblioitems.publishercode' ) {
212 $value = $data->{publishercode};
214 elsif ( $mss->{kohafield} eq 'biblioitems.editionstatement' ) {
215 $value = $data->{editionstatement};
217 elsif ( $mss->{kohafield} eq 'biblioitems.publicationyear' ) {
218 $value = $data->{publicationyear};
220 elsif ( $mss->{kohafield} eq 'biblioitems.isbn' ) {
221 $value = $data->{isbn};
223 elsif ( $mss->{kohafield} eq 'biblio.seriestitle' ) {
224 $value = $data->{seriestitle};
230 # get today date & replace <<YYYY>>, <<MM>>, <<DD>> if provided in the default value
231 my $today_dt = dt_from_string;
232 my $year = $today_dt->strftime('%Y');
233 my $month = $today_dt->strftime('%m');
234 my $day = $today_dt->strftime('%d');
235 $value =~ s/<<YYYY>>/$year/g;
236 $value =~ s/<<MM>>/$month/g;
237 $value =~ s/<<DD>>/$day/g;
239 # And <<USER>> with surname (?)
241 ( C4::Context->userenv
242 ? C4::Context->userenv->{'surname'}
243 : "superlibrarian" );
244 $value =~ s/<<USER>>/$username/g;
246 push @catalog_details, {
248 subfield => $subfield,
249 %$mss, # Do we need plugins support (?)
257 $data = GetOrder($ordernumber);
258 $budget_id = $data->{'budget_id'};
261 subscriptionid => $data->{subscriptionid},
264 $basket = GetBasket( $data->{'basketno'} );
265 $basketno = $basket->{'basketno'};
267 @order_user_ids = GetOrderUsers($ordernumber);
268 foreach my $order_user_id (@order_user_ids) {
269 # FIXME Could be improved with search -in
270 my $order_patron = Koha::Patrons->find( $order_user_id );
271 push @order_users, $order_patron if $order_patron;
274 $biblionumber = $data->{biblionumber};
277 # - no ordernumber but a biblionumber: from a subscription, from an existing record
278 # - no ordernumber, no biblionumber: from a suggestion, from a new order
279 if ( not $ordernumber or $biblionumber ) {
280 if ( C4::Context->preference('UseACQFrameworkForBiblioRecords') ) {
281 my $record = $biblionumber ? GetMarcBiblio({ biblionumber => $biblionumber }) : undef;
282 foreach my $tag ( sort keys %{$tagslib} ) {
284 next if $tag eq $itemnumber_tag; # skip items fields
285 my @fields = $biblionumber ? $record->field($tag) : ();
286 foreach my $subfield ( sort keys %{ $tagslib->{$tag} } ) {
287 my $mss = $tagslib->{$tag}{$subfield};
288 next if IsMarcStructureInternal($mss);
289 next if $mss->{tab} == -1;
290 # We only need to display the values
291 my $value = join '; ', map { $tag < 10 ? $_->data : $_->subfield( $subfield ) } @fields;
293 push @catalog_details, {
295 subfield => $subfield,
305 $template->param( catalog_details => \@catalog_details, );
308 $suggestion = GetSuggestionInfo($suggestionid) if $suggestionid;
310 my @currencies = Koha::Acquisition::Currencies->search;
311 my $active_currency = Koha::Acquisition::Currencies->get_active;
313 # build bookfund list
314 my $patron = Koha::Patrons->find( $loggedinuser )->unblessed;
316 my $budget = GetBudget($budget_id);
318 my $budget_loop = [];
319 my $budgets = GetBudgetHierarchy;
320 foreach my $r (@{$budgets}) {
321 next unless (CanUserUseBudget($patron, $r, $userflags));
322 push @{$budget_loop}, {
323 b_id => $r->{budget_id},
324 b_txt => $r->{budget_name},
325 b_sort1_authcat => $r->{'sort1_authcat'},
326 b_sort2_authcat => $r->{'sort2_authcat'},
327 b_active => $r->{budget_period_active},
328 b_sel => ( $r->{budget_id} == $budget_id ) ? 1 : 0,
329 b_level => $r->{budget_level},
334 $template->param( sort1 => $data->{'sort1'} );
335 $template->param( sort2 => $data->{'sort2'} );
337 if ($basketobj->effective_create_items eq 'ordering' && !$ordernumber) {
338 # Check if ACQ framework exists
339 my $marc = GetMarcStructure(1, 'ACQ', { unsafe => 1 } );
341 $template->param('NoACQframework' => 1);
344 AcqCreateItemOrdering => 1,
345 UniqueItemFields => C4::Context->preference('UniqueItemFields'),
349 # Get the item types list, but only if item_level_itype is YES. Otherwise, it will be in the item, no need to display it in the biblio
351 @itemtypes = Koha::ItemTypes->search unless C4::Context->preference('item-level_itypes');
353 if ( defined $from_subscriptionid ) {
354 # Get the last received order for this subscription
355 my $lastOrderReceived = Koha::Acquisition::Orders->search(
357 subscriptionid => $from_subscriptionid,
358 datereceived => { '!=' => undef }
362 [ { -desc => 'datereceived' }, { -desc => 'ordernumber' } ]
365 if ( $lastOrderReceived->count ) {
366 $lastOrderReceived = $lastOrderReceived->next->unblessed; # FIXME We should send the object to the template
367 $budget_id = $lastOrderReceived->{budgetid};
368 $data->{listprice} = $lastOrderReceived->{listprice};
369 $data->{uncertainprice} = $lastOrderReceived->{uncertainprice};
370 $data->{tax_rate} = $lastOrderReceived->{tax_rate_on_ordering};
371 $data->{discount} = $lastOrderReceived->{discount};
372 $data->{rrp} = $lastOrderReceived->{rrp};
373 $data->{replacementprice} = $lastOrderReceived->{replacementprice};
374 $data->{ecost} = $lastOrderReceived->{ecost};
375 $data->{quantity} = $lastOrderReceived->{quantity};
376 $data->{unitprice} = $lastOrderReceived->{unitprice};
377 $data->{order_internalnote} = $lastOrderReceived->{order_internalnote};
378 $data->{order_vendornote} = $lastOrderReceived->{order_vendornote};
379 $data->{sort1} = $lastOrderReceived->{sort1};
380 $data->{sort2} = $lastOrderReceived->{sort2};
382 $basket = GetBasket( $input->param('basketno') );
385 my $subscription = Koha::Subscriptions->find($from_subscriptionid);
387 subscriptionid => $from_subscriptionid,
388 subscription => $subscription,
392 # Find the items.barcode subfield for barcode validations
393 my (undef, $barcode_subfield) = GetMarcFromKohaField( 'items.barcode' );
396 # get option values for gist syspref
397 my @gst_values = map {
399 }, split( '\|', C4::Context->preference("gist") );
401 my $quantity = $input->param('rr_quantity_to_order') ?
402 $input->param('rr_quantity_to_order') :
408 existing => $biblionumber,
409 ordernumber => $ordernumber,
410 # basket informations
411 basketno => $basketno,
413 basketname => $basket->{'basketname'},
414 basketnote => $basket->{'note'},
415 booksellerid => $basket->{'booksellerid'},
416 basketbooksellernote => $basket->{booksellernote},
417 basketcontractno => $basket->{contractnumber},
418 basketcontractname => $contract->{contractname},
419 creationdate => $basket->{creationdate},
420 authorisedby => $basket->{'authorisedby'},
421 authorisedbyname => $basket->{'authorisedbyname'},
422 closedate => $basket->{'closedate'},
424 suggestionid => $suggestion->{suggestionid},
425 surnamesuggestedby => $suggestion->{surnamesuggestedby},
426 firstnamesuggestedby => $suggestion->{firstnamesuggestedby},
427 biblionumber => $biblionumber,
428 uncertainprice => $data->{'uncertainprice'},
429 discount_2dp => sprintf( "%.2f", $bookseller->discount ) , # for display
430 discount => $bookseller->discount,
431 orderdiscount_2dp => sprintf( "%.2f", $data->{'discount'} || 0 ),
432 orderdiscount => $data->{'discount'},
433 order_internalnote => $data->{'order_internalnote'},
434 order_vendornote => $data->{'order_vendornote'},
435 listincgst => $bookseller->listincgst,
436 invoiceincgst => $bookseller->invoiceincgst,
437 name => $bookseller->name,
438 cur_active_sym => $active_currency->symbol,
439 cur_active => $active_currency->currency,
440 currencies => \@currencies,
441 currency => $data->{currency},
442 vendor_currency => $bookseller->listprice,
443 orderexists => ( $new eq 'yes' ) ? 0 : 1,
444 title => $data->{'title'},
445 author => $data->{'author'},
446 publicationyear => $data->{'publicationyear'} ? $data->{'publicationyear'} : $data->{'copyrightdate'},
447 editionstatement => $data->{'editionstatement'},
448 budget_loop => $budget_loop,
449 isbn => $data->{'isbn'},
450 ean => $data->{'ean'},
451 seriestitle => $data->{'seriestitle'},
452 itemtypeloop => \@itemtypes,
453 quantity => $quantity,
454 quantityrec => $quantity,
455 rrp => $data->{'rrp'},
456 replacementprice => $data->{'replacementprice'},
457 gst_values => \@gst_values,
458 tax_rate => $data->{tax_rate_on_ordering} ? $data->{tax_rate_on_ordering}+0.0 : $bookseller->tax_rate ? $bookseller->tax_rate+0.0 : 0,
459 listprice => sprintf( "%.2f", $data->{listprice} || $data->{price} || $listprice),
460 total => sprintf( "%.2f", ($data->{ecost} || 0) * ($data->{'quantity'} || 0) ),
461 ecost => sprintf( "%.2f", $data->{ecost} || 0),
462 unitprice => sprintf( "%.2f", $data->{unitprice} || 0),
463 publishercode => $data->{'publishercode'},
464 barcode_subfield => $barcode_subfield,
465 import_batch_id => $import_batch_id,
466 acqcreate => $basketobj->effective_create_items eq "ordering" ? 1 : "",
467 users_ids => join(':', @order_user_ids),
468 users => \@order_users,
469 (uc(C4::Context->preference("marcflavour"))) => 1
472 output_html_with_http_headers $input, $cookie, $template->output;
475 =head2 MARCfindbreeding
477 $record = MARCfindbreeding($breedingid);
479 Look up the import record repository for the record with
480 record with id $breedingid. If found, returns the decoded
481 MARC::Record; otherwise, -1 is returned (FIXME).
482 Returns as second parameter the character encoding.
486 sub MARCfindbreeding {
488 my ($marc, $encoding) = GetImportRecordMarc($id);
489 # remove the - in isbn, koha store isbn without any -
491 my $record = MARC::Record->new_from_usmarc($marc);
492 my ($isbnfield,$isbnsubfield) = GetMarcFromKohaField( 'biblioitems.isbn' );
493 if ( $record->field($isbnfield) ) {
494 foreach my $field ( $record->field($isbnfield) ) {
495 foreach my $subfield ( $field->subfield($isbnsubfield) ) {
496 my $newisbn = $field->subfield($isbnsubfield);
498 $field->update( $isbnsubfield => $newisbn );
502 # fix the unimarc 100 coded field (with unicode information)
503 if ($marcflavour eq 'UNIMARC' && $record->subfield(100,'a')) {
504 my $f100a=$record->subfield(100,'a');
505 my $f100 = $record->field(100);
506 my $f100temp = $f100->as_string;
507 $record->delete_field($f100);
508 if ( length($f100temp) > 28 ) {
509 substr( $f100temp, 26, 2, "50" );
510 $f100->update( 'a' => $f100temp );
511 my $f100 = MARC::Field->new( '100', '', '', 'a' => $f100temp );
512 $record->insert_fields_ordered($f100);
516 if ( !defined(ref($record)) ) {
520 # normalize author : probably UNIMARC specific...
521 if ( C4::Context->preference("z3950NormalizeAuthor")
522 and C4::Context->preference("z3950AuthorAuthFields") )
524 my ( $tag, $subfield ) = GetMarcFromKohaField( "biblio.author" );
527 C4::Context->preference("z3950AuthorAuthFields");
528 my @auth_fields = split /,/, $auth_fields;
531 if ( $record->field($tag) ) {
532 foreach my $tmpfield ( $record->field($tag)->subfields ) {
534 my $subfieldcode = shift @$tmpfield;
535 my $subfieldvalue = shift @$tmpfield;
537 $field->add_subfields(
538 "$subfieldcode" => $subfieldvalue )
539 if ( $subfieldcode ne $subfield );
543 MARC::Field->new( $tag, "", "",
544 $subfieldcode => $subfieldvalue )
545 if ( $subfieldcode ne $subfield );
549 $record->delete_field( $record->field($tag) );
550 foreach my $fieldtag (@auth_fields) {
551 next unless ( $record->field($fieldtag) );
552 my $lastname = $record->field($fieldtag)->subfield('a');
553 my $firstname = $record->field($fieldtag)->subfield('b');
554 my $title = $record->field($fieldtag)->subfield('c');
555 my $number = $record->field($fieldtag)->subfield('d');
557 $field->add_subfields(
558 "$subfield" => ucfirst($title) . " "
559 . ucfirst($firstname) . " "
563 $field->add_subfields(
564 "$subfield" => ucfirst($firstname) . ", "
565 . ucfirst($lastname) );
568 $record->insert_fields_ordered($field);
570 return $record, $encoding;
577 my ($duplicatetitle)= @_;
578 ($template, $loggedinuser, $cookie) = get_template_and_user(
580 template_name => "acqui/neworderempty_duplicate.tt",
583 flagsrequired => { acquisition => 'order_manage' },
589 biblionumber => $biblionumber,
590 basketno => $basketno,
591 booksellerid => $basket->{'booksellerid'},
592 breedingid => $params->{'breedingid'},
593 duplicatetitle => $duplicatetitle,
594 (uc(C4::Context->preference("marcflavour"))) => 1
597 output_html_with_http_headers $input, $cookie, $template->output;