View | Details | Raw Unified | Return to bug 30909
Collapse All | Expand All

(-)a/cataloguing/additem.pl (-3 / +9 lines)
Lines 177-184 if ($op eq "additem") { Link Here
177
            my @v = grep { $_ ne "" }
177
            my @v = grep { $_ ne "" }
178
                uniq $input->multi_param( "items." . $c );
178
                uniq $input->multi_param( "items." . $c );
179
179
180
            next if !@v
180
            next unless @v;
181
                && $c ne 'permanent_location'; # See 27837
181
182
            if ( $c eq 'permanent_location' ) { # See 27837
183
                $item->make_column_dirty('permanent_location');
184
            }
182
185
183
            $item->$c(join ' | ', @v);
186
            $item->$c(join ' | ', @v);
184
        }
187
        }
Lines 444-449 if ($op eq "additem") { Link Here
444
            my @v = map { ( defined $_ && $_ eq '' ) ? undef : $_ } $input->multi_param( "items." . $c );
447
            my @v = map { ( defined $_ && $_ eq '' ) ? undef : $_ } $input->multi_param( "items." . $c );
445
            next unless @v;
448
            next unless @v;
446
449
450
            if ( $c eq 'permanent_location' ) { # See 27837
451
                $item->make_column_dirty('permanent_location');
452
            }
453
447
            if ( scalar(@v) == 1 && not defined $v[0] ) {
454
            if ( scalar(@v) == 1 && not defined $v[0] ) {
448
                delete $new_values->{$c};
455
                delete $new_values->{$c};
449
            } else {
456
            } else {
450
- 

Return to bug 30909