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