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

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

Return to bug 23463