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