gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

_set_defaults_for_add easier to read 

Signed-off-by: Henri-Damien LAURENT <henridamien@koha-fr.org>
This commit is contained in:
Marc Chantreux 2009-01-16 09:23:27 +00:00 committed by Henri-Damien LAURENT
parent 5a74b4fa0c
commit 71ae69780d
1 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
C4/Items.pm
View File

@ -1794,20 +1794,8 @@ C<items.wthdrawn>
sub _set_defaults_for_add {
my $item = shift;
# if dateaccessioned is provided, use it. Otherwise, set to NOW()
if (!(exists $item->{'dateaccessioned'}) ||
($item->{'dateaccessioned'} eq '')) {
# FIXME add check for invalid date
my $today = C4::Dates->new();
$item->{'dateaccessioned'} = $today->output("iso"); #TODO: check time issues
}
# various item status fields cannot be null
$item->{'notforloan'} = 0 unless exists $item->{'notforloan'} and defined $item->{'notforloan'} and $item->{'notforloan'} ne '';
$item->{'damaged'} = 0 unless exists $item->{'damaged'} and defined $item->{'damaged'} and $item->{'damaged'} ne '';
$item->{'itemlost'} = 0 unless exists $item->{'itemlost'} and defined $item->{'itemlost'} and $item->{'itemlost'} ne '';
$item->{'wthdrawn'} = 0 unless exists $item->{'wthdrawn'} and defined $item->{'wthdrawn'} and $item->{'wthdrawn'} ne '';
$item->{dateaccessioned} ||= C4::Dates->new->output('iso');
$item->{$_} ||= 0 for (qw( notforloan damaged itemlost wthdrawn));
}
=head2 _koha_new_item