Lines 175-181
if ($op eq ""){
Link Here
|
175 |
my $c_quantity = shift( @quantities ) || GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour') ) || 1; |
175 |
my $c_quantity = shift( @quantities ) || GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour') ) || 1; |
176 |
my $c_budget_id = shift( @budgets_id ) || $input->param('all_budget_id') || $budget_id; |
176 |
my $c_budget_id = shift( @budgets_id ) || $input->param('all_budget_id') || $budget_id; |
177 |
my $c_discount = shift ( @discount); |
177 |
my $c_discount = shift ( @discount); |
178 |
$c_discount = $c_discount / 100 if $c_discount > 1; |
178 |
$c_discount = $c_discount / 100 if $c_discount && $c_discount > 1; |
179 |
my $c_sort1 = shift( @sort1 ) || $input->param('all_sort1') || ''; |
179 |
my $c_sort1 = shift( @sort1 ) || $input->param('all_sort1') || ''; |
180 |
my $c_sort2 = shift( @sort2 ) || $input->param('all_sort2') || ''; |
180 |
my $c_sort2 = shift( @sort2 ) || $input->param('all_sort2') || ''; |
181 |
|
181 |
|
Lines 197-202
if ($op eq ""){
Link Here
|
197 |
} |
197 |
} |
198 |
( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $cgiparams->{'frameworkcode'} || '' ); |
198 |
( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $cgiparams->{'frameworkcode'} || '' ); |
199 |
SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' ); |
199 |
SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' ); |
|
|
200 |
|
201 |
#We need to provide information to koha.import_record_matches to tell Koha that this import_record matches the |
202 |
#just AddBiblio'd biblio. This is necessary to prevent adding the same import_record to koha.biblio many times. |
203 |
SetImportRecordBiblioMatch($biblio->{'import_record_id'}, $biblionumber); |
204 |
|
200 |
# 2nd add authorities if applicable |
205 |
# 2nd add authorities if applicable |
201 |
if (C4::Context->preference("BiblioAddsAuthorities")){ |
206 |
if (C4::Context->preference("BiblioAddsAuthorities")){ |
202 |
my $headings_linked =BiblioAutoLink($marcrecord, $cgiparams->{'frameworkcode'}); |
207 |
my $headings_linked =BiblioAutoLink($marcrecord, $cgiparams->{'frameworkcode'}); |
Lines 357-363
sub import_biblios_list {
Link Here
|
357 |
my ($template, $import_batch_id) = @_; |
362 |
my ($template, $import_batch_id) = @_; |
358 |
my $batch = GetImportBatch($import_batch_id,'staged'); |
363 |
my $batch = GetImportBatch($import_batch_id,'staged'); |
359 |
return () unless $batch and $batch->{import_status} =~ /^staged$|^reverted$/; |
364 |
return () unless $batch and $batch->{import_status} =~ /^staged$|^reverted$/; |
360 |
my $biblios = GetImportRecordsRange($import_batch_id,'','',$batch->{import_status}); |
365 |
my $biblios = GetImportRecordsRange($import_batch_id,'','',undef); |
361 |
my @list = (); |
366 |
my @list = (); |
362 |
|
367 |
|
363 |
foreach my $biblio (@$biblios) { |
368 |
foreach my $biblio (@$biblios) { |
Lines 403-408
sub import_biblios_list {
Link Here
|
403 |
$cellrecord{sort1} = $sort1 || ''; |
408 |
$cellrecord{sort1} = $sort1 || ''; |
404 |
$cellrecord{sort2} = $sort2 || ''; |
409 |
$cellrecord{sort2} = $sort2 || ''; |
405 |
|
410 |
|
|
|
411 |
get_matched_cellrecord_items( \%cellrecord ); |
412 |
|
406 |
push @list, \%cellrecord; |
413 |
push @list, \%cellrecord; |
407 |
} |
414 |
} |
408 |
my $num_records = $batch->{'num_records'}; |
415 |
my $num_records = $batch->{'num_records'}; |
Lines 463-468
sub add_matcher_list {
Link Here
|
463 |
$template->param(available_matchers => \@matchers); |
470 |
$template->param(available_matchers => \@matchers); |
464 |
} |
471 |
} |
465 |
|
472 |
|
|
|
473 |
#Get the Items already in Koha for this import_record. |
474 |
#A summary of them is displayed for the user. |
475 |
sub get_matched_cellrecord_items { |
476 |
my $cellrecord = shift; |
477 |
|
478 |
if ($cellrecord->{match_biblionumber}) { |
479 |
my $itemsCountByBranch = C4::Items::GetItemsCountByBranch( $cellrecord->{match_biblionumber} ); |
480 |
my $loginBranchcode = $template->{VARS}->{LoginBranchcode}; |
481 |
my $totalItemsCount = 0; |
482 |
my @availabilityMap; |
483 |
foreach my $homebranch (sort keys %$itemsCountByBranch) { |
484 |
push (@availabilityMap, $homebranch.' = '.$itemsCountByBranch->{ $homebranch }->{ count }); |
485 |
$totalItemsCount += $itemsCountByBranch->{ $homebranch }->{ count }; |
486 |
} |
487 |
my $loginBranchcount = $itemsCountByBranch->{ $loginBranchcode }->{ count }; |
488 |
$cellrecord->{loginBranchItemsCount} = $loginBranchcount || '0'; |
489 |
$cellrecord->{totalItemsCount} = $totalItemsCount; |
490 |
$cellrecord->{availabilityMap} = join("\n", @availabilityMap); |
491 |
} |
492 |
} |
493 |
|
466 |
sub get_infos_syspref { |
494 |
sub get_infos_syspref { |
467 |
my ($record, $field_list) = @_; |
495 |
my ($record, $field_list) = @_; |
468 |
my $syspref = C4::Context->preference('MarcFieldsToOrder'); |
496 |
my $syspref = C4::Context->preference('MarcFieldsToOrder'); |
469 |
- |
|
|