Lines 443-448
Returns item record
Link Here
|
443 |
=cut |
443 |
=cut |
444 |
|
444 |
|
445 |
my %default_values_for_mod_from_marc = ( |
445 |
my %default_values_for_mod_from_marc = ( |
|
|
446 |
# DO NOT include (internal) item fields here. |
447 |
# Only fields that are related to the MARC structure used in additem.pl |
448 |
# So please do not add fields like: permanent_location, paidfor, timestamp, etc. |
446 |
barcode => undef, |
449 |
barcode => undef, |
447 |
booksellerid => undef, |
450 |
booksellerid => undef, |
448 |
ccode => undef, |
451 |
ccode => undef, |
Lines 459-468
my %default_values_for_mod_from_marc = (
Link Here
|
459 |
itemnotes => undef, |
462 |
itemnotes => undef, |
460 |
itype => undef, |
463 |
itype => undef, |
461 |
location => undef, |
464 |
location => undef, |
462 |
# permanent_location => undef, # "undef" counts as "exists" which disrupts proper handling of location and permanent_location in _do_column_fixes_for_mod() |
|
|
463 |
materials => undef, |
465 |
materials => undef, |
464 |
notforloan => 0, |
466 |
notforloan => 0, |
465 |
paidfor => undef, |
|
|
466 |
price => undef, |
467 |
price => undef, |
467 |
replacementprice => undef, |
468 |
replacementprice => undef, |
468 |
replacementpricedate => undef, |
469 |
replacementpricedate => undef, |
Lines 2025-2031
sub _do_column_fixes_for_mod {
Link Here
|
2025 |
(not defined $item->{'withdrawn'} or $item->{'withdrawn'} eq '')) { |
2026 |
(not defined $item->{'withdrawn'} or $item->{'withdrawn'} eq '')) { |
2026 |
$item->{'withdrawn'} = 0; |
2027 |
$item->{'withdrawn'} = 0; |
2027 |
} |
2028 |
} |
2028 |
if (exists $item->{'location'} && !exists $item->{'permanent_location'}) { |
2029 |
if (exists $item->{'location'} && !$item->{'permanent_location'}) { |
2029 |
$item->{'permanent_location'} = $item->{'location'}; |
2030 |
$item->{'permanent_location'} = $item->{'location'}; |
2030 |
} |
2031 |
} |
2031 |
if (exists $item->{'timestamp'}) { |
2032 |
if (exists $item->{'timestamp'}) { |
2032 |
- |
|
|