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