View | Details | Raw Unified | Return to bug 23463
Collapse All | Expand All

(-)a/C4/Items.pm (-43 lines)
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 );
(-)a/Koha/Item.pm (-1 / +4 lines)
Lines 81-86 sub store { Link Here
81
81
82
    }
82
    }
83
83
84
    unless ( $self->dateaccessioned ) {
85
        $self->dateaccessioned($today);
86
    }
87
84
    return $self->SUPER::store;
88
    return $self->SUPER::store;
85
}
89
}
86
90
87
- 

Return to bug 23463