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
80 use C4::Bookseller qw/ GetBookSellerFromId /;
82 use C4::Suggestions; # GetSuggestion
83 use C4::Biblio; # GetBiblioData
87 use C4::Branch; # GetBranches
89 use C4::Search qw/FindDuplicate BiblioAddAuthorities/;
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; # FIXME: else ERROR!
97 my $title = $input->param('title');
98 my $author = $input->param('author');
99 my $publicationyear = $input->param('publicationyear');
100 my $bookseller = GetBookSellerFromId($booksellerid); # FIXME: else ERROR!
101 my $ordernumber = $input->param('ordernumber') || '';
102 my $biblionumber = $input->param('biblionumber');
103 my $basketno = $input->param('basketno');
104 my $suggestionid = $input->param('suggestionid');
105 my $close = $input->param('close');
106 my $uncertainprice = $input->param('uncertainprice');
107 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 !
113 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
115 template_name => "acqui/neworderempty.tmpl",
118 authnotrequired => 0,
119 flagsrequired => { acquisition => 'order_manage' },
124 my $basket = GetBasket($basketno);
125 my $contract = &GetContract($basket->{contractnumber});
127 #simple parameters reading (all in one :-)
128 my $params = $input->Vars;
129 my $listprice=0; # the price, that can be in MARC record if we have one
130 if ( $ordernumber eq '' and defined $params->{'breedingid'}){
131 #we want to import from the breeding reservoir (from a z3950 search)
132 my ($marcrecord, $encoding) = MARCfindbreeding($params->{'breedingid'});
133 die("Could not find the selected record in the reservoir, bailing") unless $marcrecord;
135 # Remove all the items (952) from the imported record
136 foreach my $item ($marcrecord->field('952')) {
137 $marcrecord->delete_field($item);
142 ($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord);
143 if($biblionumber && !$input->param('use_external_source')) {
144 #if duplicate record found and user did not decide yet, first warn user
145 #and let him choose between using new record or existing record
146 Load_Duplicate($duplicatetitle);
149 #from this point: add a new record
150 if (C4::Context->preference("BiblioAddsAuthorities")){
151 my ($countlinked,$countcreated)=BiblioAddAuthorities($marcrecord, $params->{'frameworkcode'});
154 $params->{'frameworkcode'} or $params->{'frameworkcode'} = "";
155 ( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $params->{'frameworkcode'} );
156 # get the price if there is one.
157 # filter by storing only the 1st number
158 # we suppose the currency is correct, as we have no possibilities to get it.
159 if ($marcrecord->subfield("345","d")) {
160 $listprice = $marcrecord->subfield("345","d");
161 if ($listprice =~ /^([\d\.,]*)/) {
163 $listprice =~ s/,/\./;
168 elsif ($marcrecord->subfield("010","d")) {
169 $listprice = $marcrecord->subfield("010","d");
170 if ($listprice =~ /^([\d\.,]*)/) {
172 $listprice =~ s/,/\./;
177 SetImportRecordStatus($params->{'breedingid'}, 'imported');
182 if ( $ordernumber eq '' ) { # create order
185 # $ordernumber=newordernum;
186 if ( $biblionumber && !$suggestionid ) {
187 $data = GetBiblioData($biblionumber);
190 # get suggestion fields if applicable. If it's a subscription renewal, then the biblio already exists
191 # otherwise, retrieve suggestion information.
193 $data = ($biblionumber) ? GetBiblioData($biblionumber) : GetSuggestion($suggestionid);
197 $data = GetOrder($ordernumber);
198 $biblionumber = $data->{'biblionumber'};
199 $budget_id = $data->{'budget_id'};
201 #get basketno and supplierno. too!
202 my $data2 = GetBasket( $data->{'basketno'} );
203 $basketno = $data2->{'basketno'};
204 $booksellerid = $data2->{'booksellerid'};
207 # get currencies (for change rates calcs if needed)
208 my $active_currency = GetCurrency();
209 my $default_currency;
210 if (! $data->{currency} ) { # New order no currency set
211 if ( $bookseller->{listprice} ) {
212 $default_currency = $bookseller->{listprice};
215 $default_currency = $active_currency->{currency};
219 my @rates = GetCurrencies();
223 my @loop_currency = ();
224 for my $curr ( @rates ) {
226 if ($data->{currency} ) {
227 $selected = $curr->{currency} eq $data->{currency};
230 $selected = $curr->{currency} eq $default_currency;
232 push @loop_currency, {
233 currcode => $curr->{currency},
234 rate => $curr->{rate},
235 selected => $selected,
239 # build branches list
240 my $onlymine=C4::Context->preference('IndependantBranches') &&
241 C4::Context->userenv &&
242 C4::Context->userenv->{flags}!=1 &&
243 C4::Context->userenv->{branch};
244 my $branches = GetBranches($onlymine);
246 foreach my $thisbranch ( sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches ) {
248 value => $thisbranch,
249 branchname => $branches->{$thisbranch}->{'branchname'},
251 $row{'selected'} = 1 if( $thisbranch && $data->{branchcode} && $thisbranch eq $data->{branchcode}) ;
252 push @branchloop, \%row;
254 $template->param( branchloop => \@branchloop );
256 # build bookfund list
257 my $borrower= GetMember('borrowernumber' => $loggedinuser);
258 my ( $flags, $homebranch )= ($borrower->{'flags'},$borrower->{'branchcode'});
260 my $budget = GetBudget($budget_id);
262 my $budget_loop = [];
263 my $budgets = GetBudgetHierarchy(q{},$borrower->{branchcode},$borrower->{borrowernumber});
264 foreach my $r (@{$budgets}) {
265 if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) {
268 push @{$budget_loop}, {
269 b_id => $r->{budget_id},
270 b_txt => $r->{budget_name},
271 b_active => $r->{budget_period_active},
272 b_sel => ( $r->{budget_id} == $budget_id ) ? 1 : 0,
278 $budget_id = $data->{'budget_id'};
279 $budget_name = $budget->{'budget_name'};
284 if ($budget) { # its a mod ..
285 if ( defined $budget->{'sort1_authcat'} ) { # with custom Asort* planning values
286 $CGIsort1 = GetAuthvalueDropbox( 'sort1', $budget->{'sort1_authcat'}, $data->{'sort1'} );
288 } elsif(scalar(@$budgets)){
289 $CGIsort1 = GetAuthvalueDropbox( 'sort1', @$budgets[0]->{'sort1_authcat'}, '' );
291 $CGIsort1 = GetAuthvalueDropbox( 'sort1','', '' );
294 # if CGIsort is successfully fetched, the use it
295 # else - failback to plain input-field
297 $template->param( CGIsort1 => $CGIsort1 );
299 $template->param( sort1 => $data->{'sort1'} );
304 if ( defined $budget->{'sort2_authcat'} ) {
305 $CGIsort2 = GetAuthvalueDropbox( 'sort2', $budget->{'sort2_authcat'}, $data->{'sort2'} );
307 } elsif(scalar(@$budgets)) {
308 $CGIsort2 = GetAuthvalueDropbox( 'sort2', @$budgets[0]->{sort2_authcat}, '' );
310 $CGIsort2 = GetAuthvalueDropbox( 'sort2','', '' );
314 $template->param( CGIsort2 => $CGIsort2 );
316 $template->param( sort2 => $data->{'sort2'} );
319 if (C4::Context->preference('AcqCreateItem') eq 'ordering' && !$ordernumber) {
320 # prepare empty item form
321 my $cell = PrepareItemrecordDisplay('','','','ACQ');
322 # warn "==> ".Data::Dumper::Dumper($cell);
324 $cell = PrepareItemrecordDisplay('','','','');
325 $template->param('NoACQframework' => 1);
328 push @itemloop,$cell;
330 $template->param(items => \@itemloop);
336 budget_id => $budget_id,
337 budget_name => $budget_name
341 existing => $biblionumber,
342 ordernumber => $ordernumber,
343 # basket informations
344 basketno => $basketno,
345 basketname => $basket->{'basketname'},
346 basketnote => $basket->{'note'},
347 booksellerid => $basket->{'booksellerid'},
348 basketbooksellernote => $basket->{booksellernote},
349 basketcontractno => $basket->{contractnumber},
350 basketcontractname => $contract->{contractname},
351 creationdate => C4::Dates->new($basket->{creationdate},'iso')->output,
352 authorisedby => $basket->{'authorisedby'},
353 authorisedbyname => $basket->{'authorisedbyname'},
354 closedate => C4::Dates->new($basket->{'closedate'},'iso')->output,
356 suggestionid => $suggestionid,
357 biblionumber => $biblionumber,
358 uncertainprice => $data->{'uncertainprice'},
359 authorisedbyname => $borrower->{'firstname'} . " " . $borrower->{'surname'},
360 biblioitemnumber => $data->{'biblioitemnumber'},
361 discount_2dp => sprintf( "%.2f", $bookseller->{'discount'}) , # for display
362 discount => $bookseller->{'discount'},
363 listincgst => $bookseller->{'listincgst'},
364 invoiceincgst => $bookseller->{'invoiceincgst'},
365 name => $bookseller->{'name'},
366 cur_active_sym => $active_currency->{'symbol'},
367 cur_active => $active_currency->{'currency'},
368 loop_currencies => \@loop_currency,
369 orderexists => ( $new eq 'yes' ) ? 0 : 1,
370 title => $data->{'title'},
371 author => $data->{'author'},
372 publicationyear => $data->{'publicationyear'} ? $data->{'publicationyear'} : $data->{'copyrightdate'},
373 budget_loop => $budget_loop,
374 isbn => $data->{'isbn'},
375 seriestitle => $data->{'seriestitle'},
376 quantity => $data->{'quantity'},
377 quantityrec => $data->{'quantity'},
378 rrp => $data->{'rrp'},
379 listprice => sprintf("%.2f", $data->{'listprice'}||$data->{'price'}||$listprice),
380 total => sprintf("%.2f", ($data->{'ecost'}||0)*($data->{'quantity'}||0) ),
381 ecost => $data->{'ecost'},
382 notes => $data->{'notes'},
383 publishercode => $data->{'publishercode'},
385 import_batch_id => $import_batch_id,
387 # CHECKME: gst-stuff needs verifing, mason.
388 gstrate => $bookseller->{'gstrate'} // C4::Context->preference("gist") // 0,
389 gstreg => $bookseller->{'gstreg'},
392 output_html_with_http_headers $input, $cookie, $template->output;
395 =head2 MARCfindbreeding
397 $record = MARCfindbreeding($breedingid);
399 Look up the import record repository for the record with
400 record with id $breedingid. If found, returns the decoded
401 MARC::Record; otherwise, -1 is returned (FIXME).
402 Returns as second parameter the character encoding.
406 sub MARCfindbreeding {
408 my ($marc, $encoding) = GetImportRecordMarc($id);
409 # remove the - in isbn, koha store isbn without any -
411 my $record = MARC::Record->new_from_usmarc($marc);
412 my ($isbnfield,$isbnsubfield) = GetMarcFromKohaField('biblioitems.isbn','');
413 if ( $record->field($isbnfield) ) {
414 foreach my $field ( $record->field($isbnfield) ) {
415 foreach my $subfield ( $field->subfield($isbnsubfield) ) {
416 my $newisbn = $field->subfield($isbnsubfield);
418 $field->update( $isbnsubfield => $newisbn );
422 # fix the unimarc 100 coded field (with unicode information)
423 if (C4::Context->preference('marcflavour') eq 'UNIMARC' && $record->subfield(100,'a')) {
424 my $f100a=$record->subfield(100,'a');
425 my $f100 = $record->field(100);
426 my $f100temp = $f100->as_string;
427 $record->delete_field($f100);
428 if ( length($f100temp) > 28 ) {
429 substr( $f100temp, 26, 2, "50" );
430 $f100->update( 'a' => $f100temp );
431 my $f100 = MARC::Field->new( '100', '', '', 'a' => $f100temp );
432 $record->insert_fields_ordered($f100);
436 if ( !defined(ref($record)) ) {
440 # normalize author : probably UNIMARC specific...
441 if ( C4::Context->preference("z3950NormalizeAuthor")
442 and C4::Context->preference("z3950AuthorAuthFields") )
444 my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author");
446 # my $summary = C4::Context->preference("z3950authortemplate");
448 C4::Context->preference("z3950AuthorAuthFields");
449 my @auth_fields = split /,/, $auth_fields;
452 if ( $record->field($tag) ) {
453 foreach my $tmpfield ( $record->field($tag)->subfields ) {
455 # foreach my $subfieldcode ($tmpfield->subfields){
456 my $subfieldcode = shift @$tmpfield;
457 my $subfieldvalue = shift @$tmpfield;
459 $field->add_subfields(
460 "$subfieldcode" => $subfieldvalue )
461 if ( $subfieldcode ne $subfield );
465 MARC::Field->new( $tag, "", "",
466 $subfieldcode => $subfieldvalue )
467 if ( $subfieldcode ne $subfield );
471 $record->delete_field( $record->field($tag) );
472 foreach my $fieldtag (@auth_fields) {
473 next unless ( $record->field($fieldtag) );
474 my $lastname = $record->field($fieldtag)->subfield('a');
475 my $firstname = $record->field($fieldtag)->subfield('b');
476 my $title = $record->field($fieldtag)->subfield('c');
477 my $number = $record->field($fieldtag)->subfield('d');
480 # $field->add_subfields("$subfield"=>"[ ".ucfirst($title).ucfirst($firstname)." ".$number." ]");
481 $field->add_subfields(
482 "$subfield" => ucfirst($title) . " "
483 . ucfirst($firstname) . " "
488 # $field->add_subfields("$subfield"=>"[ ".ucfirst($firstname).", ".ucfirst($lastname)." ]");
489 $field->add_subfields(
490 "$subfield" => ucfirst($firstname) . ", "
491 . ucfirst($lastname) );
494 $record->insert_fields_ordered($field);
496 return $record, $encoding;
503 my ($duplicatetitle)= @_;
504 ($template, $loggedinuser, $cookie) = get_template_and_user(
506 template_name => "acqui/neworderempty_duplicate.tmpl",
509 authnotrequired => 0,
510 flagsrequired => { acquisition => 'order_manage' },
516 biblionumber => $biblionumber,
517 basketno => $basketno,
518 booksellerid => $basket->{'booksellerid'},
519 breedingid => $params->{'breedingid'},
520 duplicatetitle => $duplicatetitle,
523 output_html_with_http_headers $input, $cookie, $template->output;