Lines 557-562
sub ModItem {
Link Here
|
557 |
my $log_action = $additional_params->{log_action} // 1; |
557 |
my $log_action = $additional_params->{log_action} // 1; |
558 |
my $unlinked_item_subfields = $additional_params->{unlinked_item_subfields}; |
558 |
my $unlinked_item_subfields = $additional_params->{unlinked_item_subfields}; |
559 |
|
559 |
|
|
|
560 |
return unless %$item; |
561 |
$item->{'itemnumber'} = $itemnumber or return; |
562 |
|
560 |
# if $biblionumber is undefined, get it from the current item |
563 |
# if $biblionumber is undefined, get it from the current item |
561 |
unless (defined $biblionumber) { |
564 |
unless (defined $biblionumber) { |
562 |
$biblionumber = _get_single_item_column('biblionumber', $itemnumber); |
565 |
$biblionumber = _get_single_item_column('biblionumber', $itemnumber); |
Lines 566-573
sub ModItem {
Link Here
|
566 |
$item->{'more_subfields_xml'} = _get_unlinked_subfields_xml($unlinked_item_subfields); |
569 |
$item->{'more_subfields_xml'} = _get_unlinked_subfields_xml($unlinked_item_subfields); |
567 |
}; |
570 |
}; |
568 |
|
571 |
|
569 |
$item->{'itemnumber'} = $itemnumber or return; |
|
|
570 |
|
571 |
my @fields = qw( itemlost withdrawn damaged ); |
572 |
my @fields = qw( itemlost withdrawn damaged ); |
572 |
|
573 |
|
573 |
# Only call GetItem if we need to set an "on" date field |
574 |
# Only call GetItem if we need to set an "on" date field |
574 |
- |
|
|