|
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 ); |