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');
115 our ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
117 template_name => "acqui/neworderempty.tt",
120 authnotrequired => 0,
121 flagsrequired => { acquisition => 'order_manage' },
126 our $marcflavour = C4::Context->preference('marcflavour');
129 my $order = GetOrder($ordernumber);
130 $basketno = $order->{'basketno'};
133 our $basket = GetBasket($basketno);
134 my $basketobj = Koha::Acquisition::Baskets->find( $basketno );
135 $booksellerid = $basket->{booksellerid} unless $booksellerid;
136 my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
138 output_and_exit( $input, $cookie, $template, 'unknown_basket') unless $basketobj;
139 output_and_exit( $input, $cookie, $template, 'unknown_vendor') unless $bookseller;
141 my $contract = GetContract({
142 contractnumber => $basket->{contractnumber}
145 #simple parameters reading (all in one :-)
146 our $params = $input->Vars;
147 my $listprice=0; # the price, that can be in MARC record if we have one
148 if ( $ordernumber eq '' and defined $params->{'breedingid'}){
149 #we want to import from the breeding reservoir (from a z3950 search)
150 my ($marcrecord, $encoding) = MARCfindbreeding($params->{'breedingid'});
151 die("Could not find the selected record in the reservoir, bailing") unless $marcrecord;
153 # Remove all the items (952) from the imported record
154 foreach my $item ($marcrecord->field('952')) {
155 $marcrecord->delete_field($item);
160 ($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord);
161 if($biblionumber && !$input->param('use_external_source')) {
162 #if duplicate record found and user did not decide yet, first warn user
163 #and let them choose between using a new record or an existing record
164 Load_Duplicate($duplicatetitle);
167 #from this point: add a new record
169 $params->{'frameworkcode'} or $params->{'frameworkcode'} = "";
170 ( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $params->{'frameworkcode'} );
171 # get the price if there is one.
172 $listprice = GetMarcPrice($marcrecord, $marcflavour);
173 SetImportRecordStatus($params->{'breedingid'}, 'imported');
178 my ( @order_user_ids, @order_users, @catalog_details );
179 our $tagslib = GetMarcStructure(1, 'ACQ', { unsafe => 1 } );
180 my ( $itemnumber_tag, $itemnumber_subtag ) = GetMarcFromKohaField( 'items.itemnumber' );
181 if ( not $ordernumber ) { # create order
184 if ( $biblionumber ) {
185 $data = GetBiblioData($biblionumber);
187 # get suggestion fields if applicable. If it's a subscription renewal, then the biblio already exists
188 # otherwise, retrieve suggestion information.
189 elsif ($suggestionid) {
190 $data = GetSuggestion($suggestionid);
191 $budget_id ||= $data->{'budgetid'} // 0;
194 if ( not $biblionumber and Koha::BiblioFrameworks->find('ACQ') ) {
195 #my $acq_mss = Koha::MarcSubfieldStructures->search({ frameworkcode => 'ACQ', tagfield => { '!=' => $itemnumber_tag } });
196 foreach my $tag ( sort keys %{$tagslib} ) {
198 next if $tag eq $itemnumber_tag; # skip items fields
199 foreach my $subfield ( sort keys %{ $tagslib->{$tag} } ) {
200 my $mss = $tagslib->{$tag}{$subfield};
201 next if IsMarcStructureInternal($mss);
202 next if $mss->{tab} == -1;
203 my $value = $mss->{defaultvalue};
205 if ($suggestionid and $mss->{kohafield}) {
206 # Reading suggestion info if ordering from a suggestion
207 if ( $mss->{kohafield} eq 'biblio.title' ) {
208 $value = $data->{title};
210 elsif ( $mss->{kohafield} eq 'biblio.author' ) {
211 $value = $data->{author};
213 elsif ( $mss->{kohafield} eq 'biblioitems.publishercode' ) {
214 $value = $data->{publishercode};
216 elsif ( $mss->{kohafield} eq 'biblioitems.editionstatement' ) {
217 $value = $data->{editionstatement};
219 elsif ( $mss->{kohafield} eq 'biblioitems.publicationyear' ) {
220 $value = $data->{publicationyear};
222 elsif ( $mss->{kohafield} eq 'biblioitems.isbn' ) {
223 $value = $data->{isbn};
225 elsif ( $mss->{kohafield} eq 'biblio.seriestitle' ) {
226 $value = $data->{seriestitle};
230 if ( $value eq '' ) {
232 # get today date & replace <<YYYY>>, <<MM>>, <<DD>> if provided in the default value
233 my $today_dt = dt_from_string;
234 my $year = $today_dt->strftime('%Y');
235 my $month = $today_dt->strftime('%m');
236 my $day = $today_dt->strftime('%d');
237 $value =~ s/<<YYYY>>/$year/g;
238 $value =~ s/<<MM>>/$month/g;
239 $value =~ s/<<DD>>/$day/g;
241 # And <<USER>> with surname (?)
243 ( C4::Context->userenv
244 ? C4::Context->userenv->{'surname'}
245 : "superlibrarian" );
246 $value =~ s/<<USER>>/$username/g;
248 push @catalog_details, {
250 subfield => $subfield,
251 %$mss, # Do we need plugins support (?)
259 $data = GetOrder($ordernumber);
260 $biblionumber = $data->{'biblionumber'};
261 $budget_id = $data->{'budget_id'};
264 subscriptionid => $data->{subscriptionid},
267 $basket = GetBasket( $data->{'basketno'} );
268 $basketno = $basket->{'basketno'};
270 @order_user_ids = GetOrderUsers($ordernumber);
271 foreach my $order_user_id (@order_user_ids) {
272 # FIXME Could be improved with search -in
273 my $order_patron = Koha::Patrons->find( $order_user_id );
274 push @order_users, $order_patron if $order_patron;
279 # - no ordernumber but a biblionumber: from a subscription, from an existing record
280 # - no ordernumber, no biblionumber: from a suggestion, from a new order
281 if ( not $ordernumber or $biblionumber ) {
282 if ( C4::Context->preference('UseACQFrameworkForBiblioRecords') ) {
283 my $record = $biblionumber ? GetMarcBiblio({ biblionumber => $biblionumber }) : undef;
284 foreach my $tag ( sort keys %{$tagslib} ) {
286 next if $tag eq $itemnumber_tag; # skip items fields
287 my @fields = $biblionumber ? $record->field($tag) : ();
288 foreach my $subfield ( sort keys %{ $tagslib->{$tag} } ) {
289 my $mss = $tagslib->{$tag}{$subfield};
290 next if IsMarcStructureInternal($mss);
291 next if $mss->{tab} == -1;
292 # We only need to display the values
293 my $value = join '; ', map { $tag < 10 ? $_->data : $_->subfield( $subfield ) } @fields;
295 push @catalog_details, {
297 subfield => $subfield,
307 $template->param( catalog_details => \@catalog_details, );
310 $suggestion = GetSuggestionInfo($suggestionid) if $suggestionid;
312 my @currencies = Koha::Acquisition::Currencies->search;
313 my $active_currency = Koha::Acquisition::Currencies->get_active;
315 # build bookfund list
316 my $patron = Koha::Patrons->find( $loggedinuser )->unblessed;
318 my $budget = GetBudget($budget_id);
320 my $budget_loop = [];
321 my $budgets = GetBudgetHierarchy;
322 foreach my $r (@{$budgets}) {
323 next unless (CanUserUseBudget($patron, $r, $userflags));
324 if (!defined $r->{budget_amount} || $r->{budget_amount} <0) {
327 push @{$budget_loop}, {
328 b_id => $r->{budget_id},
329 b_txt => $r->{budget_name},
330 b_sort1_authcat => $r->{'sort1_authcat'},
331 b_sort2_authcat => $r->{'sort2_authcat'},
332 b_active => $r->{budget_period_active},
333 b_sel => ( $r->{budget_id} == $budget_id ) ? 1 : 0,
334 b_level => $r->{budget_level},
339 $template->param( sort1 => $data->{'sort1'} );
340 $template->param( sort2 => $data->{'sort2'} );
342 if ($basketobj->effective_create_items eq 'ordering' && !$ordernumber) {
343 # Check if ACQ framework exists
344 my $marc = GetMarcStructure(1, 'ACQ', { unsafe => 1 } );
346 $template->param('NoACQframework' => 1);
349 AcqCreateItemOrdering => 1,
350 UniqueItemFields => C4::Context->preference('UniqueItemFields'),
354 # 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
356 @itemtypes = Koha::ItemTypes->search unless C4::Context->preference('item-level_itypes');
358 if ( defined $from_subscriptionid ) {
359 my $lastOrderReceived = GetLastOrderReceivedFromSubscriptionid $from_subscriptionid;
360 if ( defined $lastOrderReceived ) {
361 $budget_id = $lastOrderReceived->{budgetid};
362 $data->{listprice} = $lastOrderReceived->{listprice};
363 $data->{uncertainprice} = $lastOrderReceived->{uncertainprice};
364 $data->{tax_rate} = $lastOrderReceived->{tax_rate_on_ordering};
365 $data->{discount} = $lastOrderReceived->{discount};
366 $data->{rrp} = $lastOrderReceived->{rrp};
367 $data->{replacementprice} = $lastOrderReceived->{replacementprice};
368 $data->{ecost} = $lastOrderReceived->{ecost};
369 $data->{quantity} = $lastOrderReceived->{quantity};
370 $data->{unitprice} = $lastOrderReceived->{unitprice};
371 $data->{order_internalnote} = $lastOrderReceived->{order_internalnote};
372 $data->{order_vendornote} = $lastOrderReceived->{order_vendornote};
373 $data->{sort1} = $lastOrderReceived->{sort1};
374 $data->{sort2} = $lastOrderReceived->{sort2};
376 $basket = GetBasket( $input->param('basketno') );
379 my $subscription = Koha::Subscriptions->find($from_subscriptionid);
381 subscriptionid => $from_subscriptionid,
382 subscription => $subscription,
386 # Find the items.barcode subfield for barcode validations
387 my (undef, $barcode_subfield) = GetMarcFromKohaField( 'items.barcode' );
390 # get option values for gist syspref
391 my @gst_values = map {
393 }, split( '\|', C4::Context->preference("gist") );
395 my $quantity = $input->param('rr_quantity_to_order') ?
396 $input->param('rr_quantity_to_order') :
402 existing => $biblionumber,
403 ordernumber => $ordernumber,
404 # basket informations
405 basketno => $basketno,
407 basketname => $basket->{'basketname'},
408 basketnote => $basket->{'note'},
409 booksellerid => $basket->{'booksellerid'},
410 basketbooksellernote => $basket->{booksellernote},
411 basketcontractno => $basket->{contractnumber},
412 basketcontractname => $contract->{contractname},
413 creationdate => $basket->{creationdate},
414 authorisedby => $basket->{'authorisedby'},
415 authorisedbyname => $basket->{'authorisedbyname'},
416 closedate => $basket->{'closedate'},
418 suggestionid => $suggestion->{suggestionid},
419 surnamesuggestedby => $suggestion->{surnamesuggestedby},
420 firstnamesuggestedby => $suggestion->{firstnamesuggestedby},
421 biblionumber => $biblionumber,
422 uncertainprice => $data->{'uncertainprice'},
423 discount_2dp => sprintf( "%.2f", $bookseller->discount ) , # for display
424 discount => $bookseller->discount,
425 orderdiscount_2dp => sprintf( "%.2f", $data->{'discount'} || 0 ),
426 orderdiscount => $data->{'discount'},
427 order_internalnote => $data->{'order_internalnote'},
428 order_vendornote => $data->{'order_vendornote'},
429 listincgst => $bookseller->listincgst,
430 invoiceincgst => $bookseller->invoiceincgst,
431 name => $bookseller->name,
432 cur_active_sym => $active_currency->symbol,
433 cur_active => $active_currency->currency,
434 currencies => \@currencies,
435 currency => $data->{currency},
436 vendor_currency => $bookseller->listprice,
437 orderexists => ( $new eq 'yes' ) ? 0 : 1,
438 title => $data->{'title'},
439 author => $data->{'author'},
440 publicationyear => $data->{'publicationyear'} ? $data->{'publicationyear'} : $data->{'copyrightdate'},
441 editionstatement => $data->{'editionstatement'},
442 budget_loop => $budget_loop,
443 isbn => $data->{'isbn'},
444 ean => $data->{'ean'},
445 seriestitle => $data->{'seriestitle'},
446 itemtypeloop => \@itemtypes,
447 quantity => $quantity,
448 quantityrec => $quantity,
449 rrp => $data->{'rrp'},
450 replacementprice => $data->{'replacementprice'},
451 gst_values => \@gst_values,
452 tax_rate => $data->{tax_rate_on_ordering} ? $data->{tax_rate_on_ordering}+0.0 : $bookseller->tax_rate ? $bookseller->tax_rate+0.0 : 0,
453 listprice => sprintf( "%.2f", $data->{listprice} || $data->{price} || $listprice),
454 total => sprintf( "%.2f", ($data->{ecost} || 0) * ($data->{'quantity'} || 0) ),
455 ecost => sprintf( "%.2f", $data->{ecost} || 0),
456 unitprice => sprintf( "%.2f", $data->{unitprice} || 0),
457 publishercode => $data->{'publishercode'},
458 barcode_subfield => $barcode_subfield,
459 import_batch_id => $import_batch_id,
460 acqcreate => $basketobj->effective_create_items eq "ordering" ? 1 : "",
461 users_ids => join(':', @order_user_ids),
462 users => \@order_users,
463 (uc(C4::Context->preference("marcflavour"))) => 1
466 output_html_with_http_headers $input, $cookie, $template->output;
469 =head2 MARCfindbreeding
471 $record = MARCfindbreeding($breedingid);
473 Look up the import record repository for the record with
474 record with id $breedingid. If found, returns the decoded
475 MARC::Record; otherwise, -1 is returned (FIXME).
476 Returns as second parameter the character encoding.
480 sub MARCfindbreeding {
482 my ($marc, $encoding) = GetImportRecordMarc($id);
483 # remove the - in isbn, koha store isbn without any -
485 my $record = MARC::Record->new_from_usmarc($marc);
486 my ($isbnfield,$isbnsubfield) = GetMarcFromKohaField( 'biblioitems.isbn' );
487 if ( $record->field($isbnfield) ) {
488 foreach my $field ( $record->field($isbnfield) ) {
489 foreach my $subfield ( $field->subfield($isbnsubfield) ) {
490 my $newisbn = $field->subfield($isbnsubfield);
492 $field->update( $isbnsubfield => $newisbn );
496 # fix the unimarc 100 coded field (with unicode information)
497 if ($marcflavour eq 'UNIMARC' && $record->subfield(100,'a')) {
498 my $f100a=$record->subfield(100,'a');
499 my $f100 = $record->field(100);
500 my $f100temp = $f100->as_string;
501 $record->delete_field($f100);
502 if ( length($f100temp) > 28 ) {
503 substr( $f100temp, 26, 2, "50" );
504 $f100->update( 'a' => $f100temp );
505 my $f100 = MARC::Field->new( '100', '', '', 'a' => $f100temp );
506 $record->insert_fields_ordered($f100);
510 if ( !defined(ref($record)) ) {
514 # normalize author : probably UNIMARC specific...
515 if ( C4::Context->preference("z3950NormalizeAuthor")
516 and C4::Context->preference("z3950AuthorAuthFields") )
518 my ( $tag, $subfield ) = GetMarcFromKohaField( "biblio.author" );
521 C4::Context->preference("z3950AuthorAuthFields");
522 my @auth_fields = split /,/, $auth_fields;
525 if ( $record->field($tag) ) {
526 foreach my $tmpfield ( $record->field($tag)->subfields ) {
528 my $subfieldcode = shift @$tmpfield;
529 my $subfieldvalue = shift @$tmpfield;
531 $field->add_subfields(
532 "$subfieldcode" => $subfieldvalue )
533 if ( $subfieldcode ne $subfield );
537 MARC::Field->new( $tag, "", "",
538 $subfieldcode => $subfieldvalue )
539 if ( $subfieldcode ne $subfield );
543 $record->delete_field( $record->field($tag) );
544 foreach my $fieldtag (@auth_fields) {
545 next unless ( $record->field($fieldtag) );
546 my $lastname = $record->field($fieldtag)->subfield('a');
547 my $firstname = $record->field($fieldtag)->subfield('b');
548 my $title = $record->field($fieldtag)->subfield('c');
549 my $number = $record->field($fieldtag)->subfield('d');
551 $field->add_subfields(
552 "$subfield" => ucfirst($title) . " "
553 . ucfirst($firstname) . " "
557 $field->add_subfields(
558 "$subfield" => ucfirst($firstname) . ", "
559 . ucfirst($lastname) );
562 $record->insert_fields_ordered($field);
564 return $record, $encoding;
571 my ($duplicatetitle)= @_;
572 ($template, $loggedinuser, $cookie) = get_template_and_user(
574 template_name => "acqui/neworderempty_duplicate.tt",
577 authnotrequired => 0,
578 flagsrequired => { acquisition => 'order_manage' },
584 biblionumber => $biblionumber,
585 basketno => $basketno,
586 booksellerid => $basket->{'booksellerid'},
587 breedingid => $params->{'breedingid'},
588 duplicatetitle => $duplicatetitle,
589 (uc(C4::Context->preference("marcflavour"))) => 1
592 output_html_with_http_headers $input, $cookie, $template->output;