Lines 203-209
sub AddItem {
Link Here
|
203 |
$unlinked_item_subfields = shift; |
203 |
$unlinked_item_subfields = shift; |
204 |
} |
204 |
} |
205 |
|
205 |
|
206 |
_set_defaults_for_add($item); |
|
|
207 |
_set_derived_columns_for_add($item); |
206 |
_set_derived_columns_for_add($item); |
208 |
$item->{'more_subfields_xml'} = _get_unlinked_subfields_xml($unlinked_item_subfields); |
207 |
$item->{'more_subfields_xml'} = _get_unlinked_subfields_xml($unlinked_item_subfields); |
209 |
|
208 |
|
Lines 305-311
sub AddItemBatchFromMarc {
Link Here
|
305 |
next ITEMFIELD; |
304 |
next ITEMFIELD; |
306 |
} |
305 |
} |
307 |
|
306 |
|
308 |
_set_defaults_for_add($item); |
|
|
309 |
_set_derived_columns_for_add($item); |
307 |
_set_derived_columns_for_add($item); |
310 |
my ( $itemnumber, $error ) = _koha_new_item( $item, $item->{barcode} ); |
308 |
my ( $itemnumber, $error ) = _koha_new_item( $item, $item->{barcode} ); |
311 |
warn $error if $error; |
309 |
warn $error if $error; |
Lines 1488-1534
sub _calc_items_cn_sort {
Link Here
|
1488 |
$item->{'items.cn_sort'} = GetClassSort($source_values->{'items.cn_source'}, $source_values->{'itemcallnumber'}, ""); |
1486 |
$item->{'items.cn_sort'} = GetClassSort($source_values->{'items.cn_source'}, $source_values->{'itemcallnumber'}, ""); |
1489 |
} |
1487 |
} |
1490 |
|
1488 |
|
1491 |
=head2 _set_defaults_for_add |
|
|
1492 |
|
1493 |
_set_defaults_for_add($item_hash); |
1494 |
|
1495 |
Given an item hash representing an item to be added, set |
1496 |
correct default values for columns whose default value |
1497 |
is not handled by the DBMS. This includes the following |
1498 |
columns: |
1499 |
|
1500 |
=over 2 |
1501 |
|
1502 |
=item * |
1503 |
|
1504 |
C<items.dateaccessioned> |
1505 |
|
1506 |
=item * |
1507 |
|
1508 |
C<items.notforloan> |
1509 |
|
1510 |
=item * |
1511 |
|
1512 |
C<items.damaged> |
1513 |
|
1514 |
=item * |
1515 |
|
1516 |
C<items.itemlost> |
1517 |
|
1518 |
=item * |
1519 |
|
1520 |
C<items.withdrawn> |
1521 |
|
1522 |
=back |
1523 |
|
1524 |
=cut |
1525 |
|
1526 |
sub _set_defaults_for_add { |
1527 |
my $item = shift; |
1528 |
$item->{dateaccessioned} ||= output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }); |
1529 |
$item->{$_} ||= 0 for (qw( notforloan damaged itemlost withdrawn)); |
1530 |
} |
1531 |
|
1532 |
=head2 _koha_new_item |
1489 |
=head2 _koha_new_item |
1533 |
|
1490 |
|
1534 |
my ($itemnumber,$error) = _koha_new_item( $item, $barcode ); |
1491 |
my ($itemnumber,$error) = _koha_new_item( $item, $barcode ); |