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