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 1486-1532
sub _calc_items_cn_sort {
Link Here
|
1486 |
$item->{'items.cn_sort'} = GetClassSort($source_values->{'items.cn_source'}, $source_values->{'itemcallnumber'}, ""); |
1484 |
$item->{'items.cn_sort'} = GetClassSort($source_values->{'items.cn_source'}, $source_values->{'itemcallnumber'}, ""); |
1487 |
} |
1485 |
} |
1488 |
|
1486 |
|
1489 |
=head2 _set_defaults_for_add |
|
|
1490 |
|
1491 |
_set_defaults_for_add($item_hash); |
1492 |
|
1493 |
Given an item hash representing an item to be added, set |
1494 |
correct default values for columns whose default value |
1495 |
is not handled by the DBMS. This includes the following |
1496 |
columns: |
1497 |
|
1498 |
=over 2 |
1499 |
|
1500 |
=item * |
1501 |
|
1502 |
C<items.dateaccessioned> |
1503 |
|
1504 |
=item * |
1505 |
|
1506 |
C<items.notforloan> |
1507 |
|
1508 |
=item * |
1509 |
|
1510 |
C<items.damaged> |
1511 |
|
1512 |
=item * |
1513 |
|
1514 |
C<items.itemlost> |
1515 |
|
1516 |
=item * |
1517 |
|
1518 |
C<items.withdrawn> |
1519 |
|
1520 |
=back |
1521 |
|
1522 |
=cut |
1523 |
|
1524 |
sub _set_defaults_for_add { |
1525 |
my $item = shift; |
1526 |
$item->{dateaccessioned} ||= output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }); |
1527 |
$item->{$_} ||= 0 for (qw( notforloan damaged itemlost withdrawn)); |
1528 |
} |
1529 |
|
1530 |
=head2 _koha_new_item |
1487 |
=head2 _koha_new_item |
1531 |
|
1488 |
|
1532 |
my ($itemnumber,$error) = _koha_new_item( $item, $barcode ); |
1489 |
my ($itemnumber,$error) = _koha_new_item( $item, $barcode ); |