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 under the
11 # terms of the GNU General Public License as published by the Free Software
12 # Foundation; either version 2 of the License, or (at your option) any later
15 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
16 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
17 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
19 # You should have received a copy of the GNU General Public License along
20 # with Koha; if not, write to the Free Software Foundation, Inc.,
21 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
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
79 use C4::Bookseller qw/ GetBookSellerFromId /;
81 use C4::Suggestions; # GetSuggestion
82 use C4::Biblio; # GetBiblioData GetMarcPrice
83 use C4::Items; #PrepareItemRecord
87 use C4::Branch; # GetBranches
89 use C4::Search qw/FindDuplicate/;
91 #needed for z3950 import:
92 use C4::ImportBatch qw/GetImportRecordMarc SetImportRecordStatus/;
95 my $booksellerid = $input->param('booksellerid'); # FIXME: else ERROR!
96 my $budget_id = $input->param('budget_id') || 0;
97 my $title = $input->param('title');
98 my $author = $input->param('author');
99 my $publicationyear = $input->param('publicationyear');
100 my $ordernumber = $input->param('ordernumber') || '';
101 our $biblionumber = $input->param('biblionumber');
102 our $basketno = $input->param('basketno');
103 my $suggestionid = $input->param('suggestionid');
104 my $close = $input->param('close');
105 my $uncertainprice = $input->param('uncertainprice');
106 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 !
107 my $subscriptionid = $input->param('subscriptionid');
113 our ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
115 template_name => "acqui/neworderempty.tmpl",
118 authnotrequired => 0,
119 flagsrequired => { acquisition => 'order_manage' },
124 our $marcflavour = C4::Context->preference('marcflavour');
127 my $order = GetOrder($ordernumber);
128 $basketno = $order->{'basketno'};
131 our $basket = GetBasket($basketno);
132 $booksellerid = $basket->{booksellerid} unless $booksellerid;
133 my $bookseller = GetBookSellerFromId($booksellerid);
135 my $contract = &GetContract($basket->{contractnumber});
137 #simple parameters reading (all in one :-)
138 our $params = $input->Vars;
139 my $listprice=0; # the price, that can be in MARC record if we have one
140 if ( $ordernumber eq '' and defined $params->{'breedingid'}){
141 #we want to import from the breeding reservoir (from a z3950 search)
142 my ($marcrecord, $encoding) = MARCfindbreeding($params->{'breedingid'});
143 die("Could not find the selected record in the reservoir, bailing") unless $marcrecord;
145 # Remove all the items (952) from the imported record
146 foreach my $item ($marcrecord->field('952')) {
147 $marcrecord->delete_field($item);
152 ($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord);
153 if($biblionumber && !$input->param('use_external_source')) {
154 #if duplicate record found and user did not decide yet, first warn user
155 #and let him choose between using new record or existing record
156 Load_Duplicate($duplicatetitle);
159 #from this point: add a new record
160 if (C4::Context->preference("BiblioAddsAuthorities")){
161 my $headings_linked=BiblioAutoLink($marcrecord, $params->{'frameworkcode'});
164 $params->{'frameworkcode'} or $params->{'frameworkcode'} = "";
165 ( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $params->{'frameworkcode'} );
166 # get the price if there is one.
167 $listprice = GetMarcPrice($marcrecord, $marcflavour);
168 SetImportRecordStatus($params->{'breedingid'}, 'imported');
173 if ( $ordernumber eq '' ) { # create order
176 # $ordernumber=newordernum;
177 if ( $biblionumber && !$suggestionid ) {
178 $data = GetBiblioData($biblionumber);
181 # get suggestion fields if applicable. If it's a subscription renewal, then the biblio already exists
182 # otherwise, retrieve suggestion information.
184 $data = ($biblionumber) ? GetBiblioData($biblionumber) : GetSuggestion($suggestionid);
185 $budget_id ||= $data->{'budgetid'} // 0;
189 $data = GetOrder($ordernumber);
190 $biblionumber = $data->{'biblionumber'};
191 $budget_id = $data->{'budget_id'};
193 $basket = GetBasket( $data->{'basketno'} );
194 $basketno = $basket->{'basketno'};
198 $suggestion = GetSuggestionInfo($suggestionid) if $suggestionid;
200 # get currencies (for change rates calcs if needed)
201 my $active_currency = GetCurrency();
202 my $default_currency;
203 if (! $data->{currency} ) { # New order no currency set
204 if ( $bookseller->{listprice} ) {
205 $default_currency = $bookseller->{listprice};
208 $default_currency = $active_currency->{currency};
212 my @rates = GetCurrencies();
216 my @loop_currency = ();
217 for my $curr ( @rates ) {
219 if ($data->{currency} ) {
220 $selected = $curr->{currency} eq $data->{currency};
223 $selected = $curr->{currency} eq $default_currency;
225 push @loop_currency, {
226 currcode => $curr->{currency},
227 rate => $curr->{rate},
228 selected => $selected,
232 # build branches list
234 C4::Context->preference('IndependentBranches')
235 && C4::Context->userenv
236 && !C4::Context->IsSuperLibrarian()
237 && C4::Context->userenv->{branch};
238 my $branches = GetBranches($onlymine);
240 foreach my $thisbranch ( sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches ) {
242 value => $thisbranch,
243 branchname => $branches->{$thisbranch}->{'branchname'},
245 $row{'selected'} = 1 if( $thisbranch && $data->{branchcode} && $thisbranch eq $data->{branchcode}) ;
246 push @branchloop, \%row;
248 $template->param( branchloop => \@branchloop );
250 # build bookfund list
251 my $borrower= GetMember('borrowernumber' => $loggedinuser);
252 my ( $flags, $homebranch )= ($borrower->{'flags'},$borrower->{'branchcode'});
254 my $budget = GetBudget($budget_id);
256 my $budget_loop = [];
257 my $budgets = GetBudgetHierarchy;
258 foreach my $r (@{$budgets}) {
259 next unless (CanUserUseBudget($borrower, $r, $userflags));
260 if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) {
263 push @{$budget_loop}, {
264 b_id => $r->{budget_id},
265 b_txt => $r->{budget_name},
266 b_active => $r->{budget_period_active},
267 b_sel => ( $r->{budget_id} == $budget_id ) ? 1 : 0,
272 sort { uc( $a->{b_txt}) cmp uc( $b->{b_txt}) } @{$budget_loop};
275 $budget_id = $data->{'budget_id'};
276 $budget_name = $budget->{'budget_name'};
281 if ($budget) { # its a mod ..
282 if ( defined $budget->{'sort1_authcat'} ) { # with custom Asort* planning values
283 $CGIsort1 = GetAuthvalueDropbox( $budget->{'sort1_authcat'}, $data->{'sort1'} );
285 } elsif(@{$budgets}){
286 $CGIsort1 = GetAuthvalueDropbox( @$budgets[0]->{'sort1_authcat'}, '' );
289 # if CGIsort is successfully fetched, the use it
290 # else - failback to plain input-field
292 $template->param( CGIsort1 => $CGIsort1 );
294 $template->param( sort1 => $data->{'sort1'} );
299 if ( defined $budget->{'sort2_authcat'} ) {
300 $CGIsort2 = GetAuthvalueDropbox( $budget->{'sort2_authcat'}, $data->{'sort2'} );
302 } elsif(@{$budgets}) {
303 $CGIsort2 = GetAuthvalueDropbox( @$budgets[0]->{sort2_authcat}, '' );
307 $template->param( CGIsort2 => $CGIsort2 );
309 $template->param( sort2 => $data->{'sort2'} );
312 if (C4::Context->preference('AcqCreateItem') eq 'ordering' && !$ordernumber) {
313 # Check if ACQ framework exists
314 my $marc = GetMarcStructure(1, 'ACQ');
316 $template->param('NoACQframework' => 1);
319 AcqCreateItemOrdering => 1,
320 UniqueItemFields => C4::Context->preference('UniqueItemFields'),
323 # 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
325 @itemtypes = C4::ItemType->all unless C4::Context->preference('item-level_itypes');
327 if ( defined $subscriptionid ) {
328 my $lastOrderReceived = GetLastOrderReceivedFromSubscriptionid $subscriptionid;
329 if ( defined $lastOrderReceived ) {
330 $budget_id = $lastOrderReceived->{budgetid};
331 $data->{listprice} = $lastOrderReceived->{listprice};
332 $data->{uncertainprice} = $lastOrderReceived->{uncertainprice};
333 $data->{gstrate} = $lastOrderReceived->{gstrate};
334 $data->{discount} = $lastOrderReceived->{discount};
335 $data->{rrp} = $lastOrderReceived->{rrp};
336 $data->{ecost} = $lastOrderReceived->{ecost};
337 $data->{quantity} = $lastOrderReceived->{quantity};
338 $data->{unitprice} = $lastOrderReceived->{unitprice};
339 $data->{order_internalnote} = $lastOrderReceived->{order_internalnote};
340 $data->{order_vendornote} = $lastOrderReceived->{order_vendornote};
341 $data->{sort1} = $lastOrderReceived->{sort1};
342 $data->{sort2} = $lastOrderReceived->{sort2};
344 $basket = GetBasket( $input->param('basketno') );
348 # Find the items.barcode subfield for barcode validations
349 my (undef, $barcode_subfield) = GetMarcFromKohaField('items.barcode', '');
354 budget_id => $budget_id,
355 budget_name => $budget_name
358 # get option values for gist syspref
359 my @gst_values = map {
361 }, split( '\|', C4::Context->preference("gist") );
363 my $quantity = $data->{'quantity'};
365 defined($quantity) && last;
366 my $rr_quantity_to_order = $input->param('rr_quantity_to_order');
367 (defined($rr_quantity_to_order) && $rr_quantity_to_order) || last;
368 $quantity = $rr_quantity_to_order;
372 existing => $biblionumber,
373 ordernumber => $ordernumber,
374 # basket informations
375 basketno => $basketno,
376 basketname => $basket->{'basketname'},
377 basketnote => $basket->{'note'},
378 booksellerid => $basket->{'booksellerid'},
379 basketbooksellernote => $basket->{booksellernote},
380 basketcontractno => $basket->{contractnumber},
381 basketcontractname => $contract->{contractname},
382 creationdate => $basket->{creationdate},
383 authorisedby => $basket->{'authorisedby'},
384 authorisedbyname => $basket->{'authorisedbyname'},
385 closedate => $basket->{'closedate'},
387 suggestionid => $suggestion->{suggestionid},
388 surnamesuggestedby => $suggestion->{surnamesuggestedby},
389 firstnamesuggestedby => $suggestion->{firstnamesuggestedby},
390 biblionumber => $biblionumber,
391 uncertainprice => $data->{'uncertainprice'},
392 authorisedbyname => $borrower->{'firstname'} . " " . $borrower->{'surname'},
393 discount_2dp => sprintf( "%.2f", $bookseller->{'discount'} ) , # for display
394 discount => $bookseller->{'discount'},
395 orderdiscount_2dp => sprintf( "%.2f", $data->{'discount'} || 0 ),
396 orderdiscount => $data->{'discount'},
397 order_internalnote => $data->{'order_internalnote'},
398 order_vendornote => $data->{'order_vendornote'},
399 listincgst => $bookseller->{'listincgst'},
400 invoiceincgst => $bookseller->{'invoiceincgst'},
401 name => $bookseller->{'name'},
402 cur_active_sym => $active_currency->{'symbol'},
403 cur_active => $active_currency->{'currency'},
404 loop_currencies => \@loop_currency,
405 orderexists => ( $new eq 'yes' ) ? 0 : 1,
406 title => $data->{'title'},
407 author => $data->{'author'},
408 publicationyear => $data->{'publicationyear'} ? $data->{'publicationyear'} : $data->{'copyrightdate'},
409 editionstatement => $data->{'editionstatement'},
410 budget_loop => $budget_loop,
411 isbn => $data->{'isbn'},
412 ean => $data->{'ean'},
413 seriestitle => $data->{'seriestitle'},
414 itemtypeloop => \@itemtypes,
415 quantity => $quantity,
416 quantityrec => $quantity,
417 rrp => $data->{'rrp'},
418 gst_values => \@gst_values,
419 gstrate => $data->{gstrate} ? $data->{gstrate}+0.0 : $bookseller->{gstrate} ? $bookseller->{gstrate}+0.0 : 0,
420 gstreg => $bookseller->{'gstreg'},
421 listprice => sprintf( "%.2f", $data->{listprice} || $data->{price} || $listprice),
422 total => sprintf( "%.2f", ($data->{ecost} || 0) * ($data->{'quantity'} || 0) ),
423 ecost => sprintf( "%.2f", $data->{ecost} || 0),
424 unitprice => sprintf( "%.2f", $data->{unitprice} || 0),
425 publishercode => $data->{'publishercode'},
426 barcode_subfield => $barcode_subfield,
427 import_batch_id => $import_batch_id,
428 subscriptionid => $subscriptionid,
429 acqcreate => C4::Context->preference("AcqCreateItem") eq "ordering" ? 1 : "",
430 (uc(C4::Context->preference("marcflavour"))) => 1
433 output_html_with_http_headers $input, $cookie, $template->output;
436 =head2 MARCfindbreeding
438 $record = MARCfindbreeding($breedingid);
440 Look up the import record repository for the record with
441 record with id $breedingid. If found, returns the decoded
442 MARC::Record; otherwise, -1 is returned (FIXME).
443 Returns as second parameter the character encoding.
447 sub MARCfindbreeding {
449 my ($marc, $encoding) = GetImportRecordMarc($id);
450 # remove the - in isbn, koha store isbn without any -
452 my $record = MARC::Record->new_from_usmarc($marc);
453 my ($isbnfield,$isbnsubfield) = GetMarcFromKohaField('biblioitems.isbn','');
454 if ( $record->field($isbnfield) ) {
455 foreach my $field ( $record->field($isbnfield) ) {
456 foreach my $subfield ( $field->subfield($isbnsubfield) ) {
457 my $newisbn = $field->subfield($isbnsubfield);
459 $field->update( $isbnsubfield => $newisbn );
463 # fix the unimarc 100 coded field (with unicode information)
464 if ($marcflavour eq 'UNIMARC' && $record->subfield(100,'a')) {
465 my $f100a=$record->subfield(100,'a');
466 my $f100 = $record->field(100);
467 my $f100temp = $f100->as_string;
468 $record->delete_field($f100);
469 if ( length($f100temp) > 28 ) {
470 substr( $f100temp, 26, 2, "50" );
471 $f100->update( 'a' => $f100temp );
472 my $f100 = MARC::Field->new( '100', '', '', 'a' => $f100temp );
473 $record->insert_fields_ordered($f100);
477 if ( !defined(ref($record)) ) {
481 # normalize author : probably UNIMARC specific...
482 if ( C4::Context->preference("z3950NormalizeAuthor")
483 and C4::Context->preference("z3950AuthorAuthFields") )
485 my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author", '');
487 # my $summary = C4::Context->preference("z3950authortemplate");
489 C4::Context->preference("z3950AuthorAuthFields");
490 my @auth_fields = split /,/, $auth_fields;
493 if ( $record->field($tag) ) {
494 foreach my $tmpfield ( $record->field($tag)->subfields ) {
496 # foreach my $subfieldcode ($tmpfield->subfields){
497 my $subfieldcode = shift @$tmpfield;
498 my $subfieldvalue = shift @$tmpfield;
500 $field->add_subfields(
501 "$subfieldcode" => $subfieldvalue )
502 if ( $subfieldcode ne $subfield );
506 MARC::Field->new( $tag, "", "",
507 $subfieldcode => $subfieldvalue )
508 if ( $subfieldcode ne $subfield );
512 $record->delete_field( $record->field($tag) );
513 foreach my $fieldtag (@auth_fields) {
514 next unless ( $record->field($fieldtag) );
515 my $lastname = $record->field($fieldtag)->subfield('a');
516 my $firstname = $record->field($fieldtag)->subfield('b');
517 my $title = $record->field($fieldtag)->subfield('c');
518 my $number = $record->field($fieldtag)->subfield('d');
521 # $field->add_subfields("$subfield"=>"[ ".ucfirst($title).ucfirst($firstname)." ".$number." ]");
522 $field->add_subfields(
523 "$subfield" => ucfirst($title) . " "
524 . ucfirst($firstname) . " "
529 # $field->add_subfields("$subfield"=>"[ ".ucfirst($firstname).", ".ucfirst($lastname)." ]");
530 $field->add_subfields(
531 "$subfield" => ucfirst($firstname) . ", "
532 . ucfirst($lastname) );
535 $record->insert_fields_ordered($field);
537 return $record, $encoding;
544 my ($duplicatetitle)= @_;
545 ($template, $loggedinuser, $cookie) = get_template_and_user(
547 template_name => "acqui/neworderempty_duplicate.tmpl",
550 authnotrequired => 0,
551 flagsrequired => { acquisition => 'order_manage' },
557 biblionumber => $biblionumber,
558 basketno => $basketno,
559 booksellerid => $basket->{'booksellerid'},
560 breedingid => $params->{'breedingid'},
561 duplicatetitle => $duplicatetitle,
562 (uc(C4::Context->preference("marcflavour"))) => 1
565 output_html_with_http_headers $input, $cookie, $template->output;