Lines 449-457
if ($op eq "additem") {
Link Here
|
449 |
} |
449 |
} |
450 |
$item->more_subfields_xml(undef); |
450 |
$item->more_subfields_xml(undef); |
451 |
} else { |
451 |
} else { |
452 |
my @v = $input->multi_param("items.".$c); |
452 |
my @v = grep { $_ ne "" } |
453 |
next unless @v; |
453 |
uniq $input->multi_param( "items." . $c ); |
454 |
$item->$c(join ' | ', uniq @v); |
454 |
|
|
|
455 |
next if !@v |
456 |
&& $c ne 'permanent_location'; # See 27837 |
457 |
|
458 |
$item->$c(join ' | ', @v); |
455 |
} |
459 |
} |
456 |
} |
460 |
} |
457 |
|
461 |
|
458 |
- |
|
|