|
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 |
- |
|
|