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
78 use C4
::Suggestions
; # GetSuggestion
79 use C4
::Biblio
; # GetBiblioData GetMarcPrice
80 use C4
::Items
; #PrepareItemRecord
84 use C4
::Search qw
/FindDuplicate/;
86 #needed for z3950 import:
87 use C4
::ImportBatch qw
/GetImportRecordMarc SetImportRecordStatus/;
89 use Koha
::Acquisition
::Booksellers
;
90 use Koha
::Acquisition
::Currencies
;
91 use Koha
::BiblioFrameworks
;
92 use Koha
::DateUtils
qw( dt_from_string );
93 use Koha
::MarcSubfieldStructures
;
96 use Koha
::RecordProcessor
;
99 my $booksellerid = $input->param('booksellerid'); # FIXME: else ERROR!
100 my $budget_id = $input->param('budget_id') || 0;
101 my $title = $input->param('title');
102 my $author = $input->param('author');
103 my $publicationyear = $input->param('publicationyear');
104 my $ordernumber = $input->param('ordernumber') || '';
105 our $biblionumber = $input->param('biblionumber');
106 our $basketno = $input->param('basketno');
107 my $suggestionid = $input->param('suggestionid');
108 my $close = $input->param('close');
109 my $uncertainprice = $input->param('uncertainprice');
110 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 !
111 my $from_subscriptionid = $input->param('from_subscriptionid');
117 our ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user
(
119 template_name
=> "acqui/neworderempty.tt",
122 authnotrequired
=> 0,
123 flagsrequired
=> { acquisition
=> 'order_manage' },
128 our $marcflavour = C4
::Context
->preference('marcflavour');
131 my $order = GetOrder
($ordernumber);
132 $basketno = $order->{'basketno'};
135 our $basket = GetBasket
($basketno);
136 my $basketobj = Koha
::Acquisition
::Baskets
->find( $basketno );
137 $booksellerid = $basket->{booksellerid
} unless $booksellerid;
138 my $bookseller = Koha
::Acquisition
::Booksellers
->find( $booksellerid );
140 my $contract = GetContract
({
141 contractnumber
=> $basket->{contractnumber
}
144 #simple parameters reading (all in one :-)
145 our $params = $input->Vars;
146 my $listprice=0; # the price, that can be in MARC record if we have one
147 if ( $ordernumber eq '' and defined $params->{'breedingid'}){
148 #we want to import from the breeding reservoir (from a z3950 search)
149 my ($marcrecord, $encoding) = MARCfindbreeding
($params->{'breedingid'});
150 die("Could not find the selected record in the reservoir, bailing") unless $marcrecord;
152 # Remove all the items (952) from the imported record
153 foreach my $item ($marcrecord->field('952')) {
154 $marcrecord->delete_field($item);
159 ($biblionumber,$duplicatetitle) = FindDuplicate
($marcrecord);
160 if($biblionumber && !$input->param('use_external_source')) {
161 #if duplicate record found and user did not decide yet, first warn user
162 #and let them choose between using a new record or an existing record
163 Load_Duplicate
($duplicatetitle);
166 #from this point: add a new record
167 if (C4
::Context
->preference("BiblioAddsAuthorities")){
168 my $headings_linked=BiblioAutoLink
($marcrecord, $params->{'frameworkcode'});
171 $params->{'frameworkcode'} or $params->{'frameworkcode'} = "";
172 ( $biblionumber, $bibitemnum ) = AddBiblio
( $marcrecord, $params->{'frameworkcode'} );
173 # get the price if there is one.
174 $listprice = GetMarcPrice
($marcrecord, $marcflavour);
175 SetImportRecordStatus
($params->{'breedingid'}, 'imported');
180 my ( @order_user_ids, @order_users, @catalog_details );
181 our $tagslib = GetMarcStructure
(1, 'ACQ', { unsafe
=> 1 } );
182 my ( $itemnumber_tag, $itemnumber_subtag ) = GetMarcFromKohaField
( 'items.itemnumber', 'ACQ' );
183 if ( not $ordernumber ) { # create order
186 if ( $biblionumber ) {
187 $data = GetBiblioData
($biblionumber);
189 # get suggestion fields if applicable. If it's a subscription renewal, then the biblio already exists
190 # otherwise, retrieve suggestion information.
191 elsif ($suggestionid) {
192 $data = GetSuggestion
($suggestionid);
193 $budget_id ||= $data->{'budgetid'} // 0;
196 if ( not $biblionumber and Koha
::BiblioFrameworks
->find('ACQ') ) {
197 #my $acq_mss = Koha::MarcSubfieldStructures->search({ frameworkcode => 'ACQ', tagfield => { '!=' => $itemnumber_tag } });
198 foreach my $tag ( sort keys %{$tagslib} ) {
200 next if $tag eq $itemnumber_tag; # skip items fields
201 foreach my $subfield ( sort keys %{ $tagslib->{$tag} } ) {
202 my $mss = $tagslib->{$tag}{$subfield};
203 next if IsMarcStructureInternal
($mss);
204 next if $mss->{tab
} == -1;
205 my $value = $mss->{defaultvalue
};
207 if ($suggestionid and $mss->{kohafield
}) {
208 # Reading suggestion info if ordering from a suggestion
209 if ( $mss->{kohafield
} eq 'biblio.title' ) {
210 $value = $data->{title
};
212 elsif ( $mss->{kohafield
} eq 'biblio.author' ) {
213 $value = $data->{author
};
215 elsif ( $mss->{kohafield
} eq 'biblioitems.publishercode' ) {
216 $value = $data->{publishercode
};
218 elsif ( $mss->{kohafield
} eq 'biblioitems.editionstatement' ) {
219 $value = $data->{editionstatement
};
221 elsif ( $mss->{kohafield
} eq 'biblioitems.publicationyear' ) {
222 $value = $data->{publicationyear
};
224 elsif ( $mss->{kohafield
} eq 'biblioitems.isbn' ) {
225 $value = $data->{isbn
};
227 elsif ( $mss->{kohafield
} eq 'biblio.seriestitle' ) {
228 $value = $data->{seriestitle
};
232 if ( $value eq '' ) {
234 # get today date & replace <<YYYY>>, <<MM>>, <<DD>> if provided in the default value
235 my $today_dt = dt_from_string
;
236 my $year = $today_dt->strftime('%Y');
237 my $month = $today_dt->strftime('%m');
238 my $day = $today_dt->strftime('%d');
239 $value =~ s/<<YYYY>>/$year/g;
240 $value =~ s/<<MM>>/$month/g;
241 $value =~ s/<<DD>>/$day/g;
243 # And <<USER>> with surname (?)
245 ( C4
::Context
->userenv
246 ? C4
::Context
->userenv->{'surname'}
247 : "superlibrarian" );
248 $value =~ s/<<USER>>/$username/g;
250 push @catalog_details, {
252 subfield
=> $subfield,
253 %$mss, # Do we need plugins support (?)
261 $data = GetOrder
($ordernumber);
262 $biblionumber = $data->{'biblionumber'};
263 $budget_id = $data->{'budget_id'};
266 subscriptionid
=> $data->{subscriptionid
},
269 $basket = GetBasket
( $data->{'basketno'} );
270 $basketno = $basket->{'basketno'};
272 @order_user_ids = GetOrderUsers
($ordernumber);
273 foreach my $order_user_id (@order_user_ids) {
274 # FIXME Could be improved with search -in
275 my $order_patron = Koha
::Patrons
->find( $order_user_id );
276 push @order_users, $order_patron if $order_patron;
281 # - no ordernumber but a biblionumber: from a subscription, from an existing record
282 # - no ordernumber, no biblionumber: from a suggestion, from a new order
283 if ( not $ordernumber or $biblionumber ) {
284 if ( C4
::Context
->preference('UseACQFrameworkForBiblioRecords') ) {
285 my $record = $biblionumber ? GetMarcBiblio
({ biblionumber
=> $biblionumber }) : undef;
286 foreach my $tag ( sort keys %{$tagslib} ) {
288 next if $tag eq $itemnumber_tag; # skip items fields
289 my @fields = $biblionumber ?
$record->field($tag) : ();
290 foreach my $subfield ( sort keys %{ $tagslib->{$tag} } ) {
291 my $mss = $tagslib->{$tag}{$subfield};
292 next if IsMarcStructureInternal
($mss);
293 next if $mss->{tab
} == -1;
294 # We only need to display the values
295 my $value = join '; ', map { $_->subfield( $subfield ) } @fields;
297 push @catalog_details, {
299 subfield
=> $subfield,
309 $template->param( catalog_details
=> \
@catalog_details, );
312 $suggestion = GetSuggestionInfo
($suggestionid) if $suggestionid;
314 my @currencies = Koha
::Acquisition
::Currencies
->search;
315 my $active_currency = Koha
::Acquisition
::Currencies
->get_active;
317 # build bookfund list
318 my $patron = Koha
::Patrons
->find( $loggedinuser )->unblessed;
320 my $budget = GetBudget
($budget_id);
322 my $budget_loop = [];
323 my $budgets = GetBudgetHierarchy
;
324 foreach my $r (@
{$budgets}) {
325 next unless (CanUserUseBudget
($patron, $r, $userflags));
326 if (!defined $r->{budget_amount
} || $r->{budget_amount
} <0) {
329 push @
{$budget_loop}, {
330 b_id
=> $r->{budget_id
},
331 b_txt
=> $r->{budget_name
},
332 b_sort1_authcat
=> $r->{'sort1_authcat'},
333 b_sort2_authcat
=> $r->{'sort2_authcat'},
334 b_active
=> $r->{budget_period_active
},
335 b_sel
=> ( $r->{budget_id
} == $budget_id ) ?
1 : 0,
336 b_level
=> $r->{budget_level
},
341 $budget_id = $data->{'budget_id'};
342 $budget_name = $budget->{'budget_name'};
346 $template->param( sort1
=> $data->{'sort1'} );
347 $template->param( sort2
=> $data->{'sort2'} );
349 if ($basketobj->effective_create_items eq 'ordering' && !$ordernumber) {
350 # Check if ACQ framework exists
351 my $marc = GetMarcStructure
(1, 'ACQ', { unsafe
=> 1 } );
353 $template->param('NoACQframework' => 1);
356 AcqCreateItemOrdering
=> 1,
357 UniqueItemFields
=> C4
::Context
->preference('UniqueItemFields'),
361 # 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
363 @itemtypes = Koha
::ItemTypes
->search unless C4
::Context
->preference('item-level_itypes');
365 if ( defined $from_subscriptionid ) {
366 my $lastOrderReceived = GetLastOrderReceivedFromSubscriptionid
$from_subscriptionid;
367 if ( defined $lastOrderReceived ) {
368 $budget_id = $lastOrderReceived->{budgetid
};
369 $data->{listprice
} = $lastOrderReceived->{listprice
};
370 $data->{uncertainprice
} = $lastOrderReceived->{uncertainprice
};
371 $data->{tax_rate
} = $lastOrderReceived->{tax_rate_on_ordering
};
372 $data->{discount
} = $lastOrderReceived->{discount
};
373 $data->{rrp
} = $lastOrderReceived->{rrp
};
374 $data->{replacementprice
} = $lastOrderReceived->{replacementprice
};
375 $data->{ecost
} = $lastOrderReceived->{ecost
};
376 $data->{quantity
} = $lastOrderReceived->{quantity
};
377 $data->{unitprice
} = $lastOrderReceived->{unitprice
};
378 $data->{order_internalnote
} = $lastOrderReceived->{order_internalnote
};
379 $data->{order_vendornote
} = $lastOrderReceived->{order_vendornote
};
380 $data->{sort1
} = $lastOrderReceived->{sort1
};
381 $data->{sort2
} = $lastOrderReceived->{sort2
};
383 $basket = GetBasket
( $input->param('basketno') );
386 $template->param( subscriptionid
=> $from_subscriptionid );
389 # Find the items.barcode subfield for barcode validations
390 my (undef, $barcode_subfield) = GetMarcFromKohaField
('items.barcode', '');
395 budget_id
=> $budget_id,
396 budget_name
=> $budget_name
399 # get option values for gist syspref
400 my @gst_values = map {
402 }, split( '\|', C4
::Context
->preference("gist") );
404 my $quantity = $input->param('rr_quantity_to_order') ?
405 $input->param('rr_quantity_to_order') :
410 existing
=> $biblionumber,
411 ordernumber
=> $ordernumber,
412 # basket informations
413 basketno
=> $basketno,
415 basketname
=> $basket->{'basketname'},
416 basketnote
=> $basket->{'note'},
417 booksellerid
=> $basket->{'booksellerid'},
418 basketbooksellernote
=> $basket->{booksellernote
},
419 basketcontractno
=> $basket->{contractnumber
},
420 basketcontractname
=> $contract->{contractname
},
421 creationdate
=> $basket->{creationdate
},
422 authorisedby
=> $basket->{'authorisedby'},
423 authorisedbyname
=> $basket->{'authorisedbyname'},
424 closedate
=> $basket->{'closedate'},
426 suggestionid
=> $suggestion->{suggestionid
},
427 surnamesuggestedby
=> $suggestion->{surnamesuggestedby
},
428 firstnamesuggestedby
=> $suggestion->{firstnamesuggestedby
},
429 biblionumber
=> $biblionumber,
430 uncertainprice
=> $data->{'uncertainprice'},
431 discount_2dp
=> sprintf( "%.2f", $bookseller->discount ) , # for display
432 discount
=> $bookseller->discount,
433 orderdiscount_2dp
=> sprintf( "%.2f", $data->{'discount'} || 0 ),
434 orderdiscount
=> $data->{'discount'},
435 order_internalnote
=> $data->{'order_internalnote'},
436 order_vendornote
=> $data->{'order_vendornote'},
437 listincgst
=> $bookseller->listincgst,
438 invoiceincgst
=> $bookseller->invoiceincgst,
439 name
=> $bookseller->name,
440 cur_active_sym
=> $active_currency->symbol,
441 cur_active
=> $active_currency->currency,
442 currencies
=> \
@currencies,
443 currency
=> $data->{currency
},
444 vendor_currency
=> $bookseller->listprice,
445 orderexists
=> ( $new eq 'yes' ) ?
0 : 1,
446 title
=> $data->{'title'},
447 author
=> $data->{'author'},
448 publicationyear
=> $data->{'publicationyear'} ?
$data->{'publicationyear'} : $data->{'copyrightdate'},
449 editionstatement
=> $data->{'editionstatement'},
450 budget_loop
=> $budget_loop,
451 isbn
=> $data->{'isbn'},
452 ean
=> $data->{'ean'},
453 seriestitle
=> $data->{'seriestitle'},
454 itemtypeloop
=> \
@itemtypes,
455 quantity
=> $quantity,
456 quantityrec
=> $quantity,
457 rrp
=> $data->{'rrp'},
458 replacementprice
=> $data->{'replacementprice'},
459 gst_values
=> \
@gst_values,
460 tax_rate
=> $data->{tax_rate_on_ordering
} ?
$data->{tax_rate_on_ordering
}+0.0 : $bookseller->tax_rate ?
$bookseller->tax_rate+0.0 : 0,
461 listprice
=> sprintf( "%.2f", $data->{listprice
} || $data->{price
} || $listprice),
462 total
=> sprintf( "%.2f", ($data->{ecost
} || 0) * ($data->{'quantity'} || 0) ),
463 ecost
=> sprintf( "%.2f", $data->{ecost
} || 0),
464 unitprice
=> sprintf( "%.2f", $data->{unitprice
} || 0),
465 publishercode
=> $data->{'publishercode'},
466 barcode_subfield
=> $barcode_subfield,
467 import_batch_id
=> $import_batch_id,
468 acqcreate
=> $basketobj->effective_create_items eq "ordering" ?
1 : "",
469 users_ids
=> join(':', @order_user_ids),
470 users
=> \
@order_users,
471 (uc(C4
::Context
->preference("marcflavour"))) => 1
474 output_html_with_http_headers
$input, $cookie, $template->output;
477 =head2 MARCfindbreeding
479 $record = MARCfindbreeding($breedingid);
481 Look up the import record repository for the record with
482 record with id $breedingid. If found, returns the decoded
483 MARC::Record; otherwise, -1 is returned (FIXME).
484 Returns as second parameter the character encoding.
488 sub MARCfindbreeding
{
490 my ($marc, $encoding) = GetImportRecordMarc
($id);
491 # remove the - in isbn, koha store isbn without any -
493 my $record = MARC
::Record
->new_from_usmarc($marc);
494 my ($isbnfield,$isbnsubfield) = GetMarcFromKohaField
('biblioitems.isbn','');
495 if ( $record->field($isbnfield) ) {
496 foreach my $field ( $record->field($isbnfield) ) {
497 foreach my $subfield ( $field->subfield($isbnsubfield) ) {
498 my $newisbn = $field->subfield($isbnsubfield);
500 $field->update( $isbnsubfield => $newisbn );
504 # fix the unimarc 100 coded field (with unicode information)
505 if ($marcflavour eq 'UNIMARC' && $record->subfield(100,'a')) {
506 my $f100a=$record->subfield(100,'a');
507 my $f100 = $record->field(100);
508 my $f100temp = $f100->as_string;
509 $record->delete_field($f100);
510 if ( length($f100temp) > 28 ) {
511 substr( $f100temp, 26, 2, "50" );
512 $f100->update( 'a' => $f100temp );
513 my $f100 = MARC
::Field
->new( '100', '', '', 'a' => $f100temp );
514 $record->insert_fields_ordered($f100);
518 if ( !defined(ref($record)) ) {
522 # normalize author : probably UNIMARC specific...
523 if ( C4
::Context
->preference("z3950NormalizeAuthor")
524 and C4
::Context
->preference("z3950AuthorAuthFields") )
526 my ( $tag, $subfield ) = GetMarcFromKohaField
("biblio.author", '');
529 C4
::Context
->preference("z3950AuthorAuthFields");
530 my @auth_fields = split /,/, $auth_fields;
533 if ( $record->field($tag) ) {
534 foreach my $tmpfield ( $record->field($tag)->subfields ) {
536 my $subfieldcode = shift @
$tmpfield;
537 my $subfieldvalue = shift @
$tmpfield;
539 $field->add_subfields(
540 "$subfieldcode" => $subfieldvalue )
541 if ( $subfieldcode ne $subfield );
545 MARC
::Field
->new( $tag, "", "",
546 $subfieldcode => $subfieldvalue )
547 if ( $subfieldcode ne $subfield );
551 $record->delete_field( $record->field($tag) );
552 foreach my $fieldtag (@auth_fields) {
553 next unless ( $record->field($fieldtag) );
554 my $lastname = $record->field($fieldtag)->subfield('a');
555 my $firstname = $record->field($fieldtag)->subfield('b');
556 my $title = $record->field($fieldtag)->subfield('c');
557 my $number = $record->field($fieldtag)->subfield('d');
559 $field->add_subfields(
560 "$subfield" => ucfirst($title) . " "
561 . ucfirst($firstname) . " "
565 $field->add_subfields(
566 "$subfield" => ucfirst($firstname) . ", "
567 . ucfirst($lastname) );
570 $record->insert_fields_ordered($field);
572 return $record, $encoding;
579 my ($duplicatetitle)= @_;
580 ($template, $loggedinuser, $cookie) = get_template_and_user
(
582 template_name
=> "acqui/neworderempty_duplicate.tt",
585 authnotrequired
=> 0,
586 flagsrequired
=> { acquisition
=> 'order_manage' },
592 biblionumber
=> $biblionumber,
593 basketno
=> $basketno,
594 booksellerid
=> $basket->{'booksellerid'},
595 breedingid
=> $params->{'breedingid'},
596 duplicatetitle
=> $duplicatetitle,
597 (uc(C4
::Context
->preference("marcflavour"))) => 1
600 output_html_with_http_headers
$input, $cookie, $template->output;