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