Lines 159-164
sub AddItemFromMarc {
Link Here
|
159 |
my $unlinked_item_subfields = _get_unlinked_item_subfields( $localitemmarc, $frameworkcode ); |
159 |
my $unlinked_item_subfields = _get_unlinked_item_subfields( $localitemmarc, $frameworkcode ); |
160 |
$item_values->{more_subfields_xml} = _get_unlinked_subfields_xml($unlinked_item_subfields); |
160 |
$item_values->{more_subfields_xml} = _get_unlinked_subfields_xml($unlinked_item_subfields); |
161 |
$item_values->{biblionumber} = $biblionumber; |
161 |
$item_values->{biblionumber} = $biblionumber; |
|
|
162 |
$item_values->{cn_source} = delete $item_values->{'items.cn_source'}; # Because of C4::Biblio::_disambiguate |
162 |
my $item = Koha::Item->new( $item_values )->store; |
163 |
my $item = Koha::Item->new( $item_values )->store; |
163 |
return ( $item->biblionumber, $item->biblioitemnumber, $item->itemnumber ); |
164 |
return ( $item->biblionumber, $item->biblioitemnumber, $item->itemnumber ); |
164 |
} |
165 |
} |
Lines 237-242
sub AddItemBatchFromMarc {
Link Here
|
237 |
$item->{'more_subfields_xml'} = _get_unlinked_subfields_xml($unlinked_item_subfields); |
238 |
$item->{'more_subfields_xml'} = _get_unlinked_subfields_xml($unlinked_item_subfields); |
238 |
$item->{'biblionumber'} = $biblionumber; |
239 |
$item->{'biblionumber'} = $biblionumber; |
239 |
$item->{'biblioitemnumber'} = $biblioitemnumber; |
240 |
$item->{'biblioitemnumber'} = $biblioitemnumber; |
|
|
241 |
$item->{cn_source} = delete $item->{'items.cn_source'}; # Because of C4::Biblio::_disambiguate |
240 |
|
242 |
|
241 |
# check for duplicate barcode |
243 |
# check for duplicate barcode |
242 |
my %item_errors = CheckItemPreSave($item); |
244 |
my %item_errors = CheckItemPreSave($item); |
Lines 278-283
sub ModItemFromMarc {
Link Here
|
278 |
$localitemmarc->append_fields( $item_marc->field($itemtag) ); |
280 |
$localitemmarc->append_fields( $item_marc->field($itemtag) ); |
279 |
my $item_object = Koha::Items->find($itemnumber); |
281 |
my $item_object = Koha::Items->find($itemnumber); |
280 |
my $item = TransformMarcToKoha( $localitemmarc, $frameworkcode, 'items' ); |
282 |
my $item = TransformMarcToKoha( $localitemmarc, $frameworkcode, 'items' ); |
|
|
283 |
$item->{cn_source} = delete $item->{'items.cn_source'}; # Because of C4::Biblio::_disambiguate |
281 |
$item_object->set($item); |
284 |
$item_object->set($item); |
282 |
my $unlinked_item_subfields = _get_unlinked_item_subfields( $localitemmarc, $frameworkcode ); |
285 |
my $unlinked_item_subfields = _get_unlinked_item_subfields( $localitemmarc, $frameworkcode ); |
283 |
$item_object->more_subfields_xml(_get_unlinked_subfields_xml($unlinked_item_subfields))->store; |
286 |
$item_object->more_subfields_xml(_get_unlinked_subfields_xml($unlinked_item_subfields))->store; |
284 |
- |
|
|