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

(-)a/C4/Items.pm (-47 lines)
Lines 1267-1318 sub _set_derived_columns_for_add { Link Here
1267
    }
1267
    }
1268
}
1268
}
1269
1269
1270
=head2 _do_column_fixes_for_mod
1271
1272
  _do_column_fixes_for_mod($item);
1273
1274
Given an item hashref containing one or more
1275
columns to modify, fix up certain values.
1276
Specifically, set to 0 any passed value
1277
of C<notforloan>, C<damaged>, C<itemlost>, or
1278
C<withdrawn> that is either undefined or
1279
contains the empty string.
1280
1281
=cut
1282
1283
sub _do_column_fixes_for_mod {
1284
    my $item = shift;
1285
1286
    if (exists $item->{'notforloan'} and
1287
        (not defined $item->{'notforloan'} or $item->{'notforloan'} eq '')) {
1288
        $item->{'notforloan'} = 0;
1289
    }
1290
    if (exists $item->{'damaged'} and
1291
        (not defined $item->{'damaged'} or $item->{'damaged'} eq '')) {
1292
        $item->{'damaged'} = 0;
1293
    }
1294
    if (exists $item->{'itemlost'} and
1295
        (not defined $item->{'itemlost'} or $item->{'itemlost'} eq '')) {
1296
        $item->{'itemlost'} = 0;
1297
    }
1298
    if (exists $item->{'withdrawn'} and
1299
        (not defined $item->{'withdrawn'} or $item->{'withdrawn'} eq '')) {
1300
        $item->{'withdrawn'} = 0;
1301
    }
1302
    if (
1303
        exists $item->{location}
1304
        and ( !defined $item->{location}
1305
            || ( $item->{location} ne 'CART' and $item->{location} ne 'PROC' ) )
1306
        and not $item->{permanent_location}
1307
      )
1308
    {
1309
        $item->{'permanent_location'} = $item->{'location'};
1310
    }
1311
    if (exists $item->{'timestamp'}) {
1312
        delete $item->{'timestamp'};
1313
    }
1314
}
1315
1316
=head2 _get_single_item_column
1270
=head2 _get_single_item_column
1317
1271
1318
  _get_single_item_column($column, $itemnumber);
1272
  _get_single_item_column($column, $itemnumber);
1319
- 

Return to bug 23463