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