|
Lines 527-533
sub add_items_from_import_record {
Link Here
|
| 527 |
} |
527 |
} |
| 528 |
} |
528 |
} |
| 529 |
|
529 |
|
| 530 |
|
|
|
| 531 |
=head3 match_file_to_account |
530 |
=head3 match_file_to_account |
| 532 |
|
531 |
|
| 533 |
my $file_match = Koha::MarcOrder->match_file_to_account({ |
532 |
my $file_match = Koha::MarcOrder->match_file_to_account({ |
|
Lines 960-966
sub create_items_and_generate_order_hash {
Link Here
|
| 960 |
my $itemcreation = 0; |
959 |
my $itemcreation = 0; |
| 961 |
my @itemnumbers; |
960 |
my @itemnumbers; |
| 962 |
|
961 |
|
| 963 |
if( C4::Context->preference('AcqCreateItem') ne 'cataloguing' ) { |
962 |
if ( C4::Context->preference('AcqCreateItem') ne 'cataloguing' ) { |
| 964 |
for ( my $i = 0 ; $i < $loop_limit ; $i++ ) { |
963 |
for ( my $i = 0 ; $i < $loop_limit ; $i++ ) { |
| 965 |
$itemcreation = 1; |
964 |
$itemcreation = 1; |
| 966 |
my $item = Koha::Item->new( |
965 |
my $item = Koha::Item->new( |
|
Lines 1106-1116
sub create_items_and_generate_order_hash {
Link Here
|
| 1106 |
$order->store; |
1105 |
$order->store; |
| 1107 |
|
1106 |
|
| 1108 |
my $basket = Koha::Acquisition::Baskets->find($basket_id); |
1107 |
my $basket = Koha::Acquisition::Baskets->find($basket_id); |
| 1109 |
if ( C4::Context->preference('AcqCreateItem') ne 'cataloguing' && $basket->effective_create_items eq 'ordering' && !$basket->is_standing ) { |
1108 |
if ( C4::Context->preference('AcqCreateItem') ne 'cataloguing' |
| 1110 |
my $tags = $fields->{tags} || []; |
1109 |
&& $basket->effective_create_items eq 'ordering' |
| 1111 |
my $subfields = $fields->{subfields} || []; |
1110 |
&& !$basket->is_standing ) |
|
|
1111 |
{ |
| 1112 |
my $tags = $fields->{tags} || []; |
| 1113 |
my $subfields = $fields->{subfields} || []; |
| 1112 |
my $field_values = $fields->{field_values} || []; |
1114 |
my $field_values = $fields->{field_values} || []; |
| 1113 |
my $serials = $fields->{serials} || []; |
1115 |
my $serials = $fields->{serials} || []; |
| 1114 |
my $xml = TransformHtmlToXml( $tags, $subfields, $field_values ); |
1116 |
my $xml = TransformHtmlToXml( $tags, $subfields, $field_values ); |
| 1115 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
1117 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
| 1116 |
for ( my $qtyloop = 1 ; $qtyloop <= $fields->{c_quantity} ; $qtyloop++ ) { |
1118 |
for ( my $qtyloop = 1 ; $qtyloop <= $fields->{c_quantity} ; $qtyloop++ ) { |
|
Lines 1248-1252
sub _create_item_fields_from_syspref {
Link Here
|
| 1248 |
return $item_fields; |
1250 |
return $item_fields; |
| 1249 |
} |
1251 |
} |
| 1250 |
|
1252 |
|
| 1251 |
|
|
|
| 1252 |
1; |
1253 |
1; |
| 1253 |
- |
|
|