Lines 37-42
Koha::ItemType - Koha Item type Object class
Link Here
|
37 |
|
37 |
|
38 |
=cut |
38 |
=cut |
39 |
|
39 |
|
|
|
40 |
sub store { |
41 |
my ($self) = @_; |
42 |
|
43 |
$self->rentalcharge(undef) if $self->rentalcharge eq ''; |
44 |
$self->defaultreplacecost(undef) if $self->defaultreplacecost eq ''; |
45 |
$self->processfee(undef) if $self->processfee eq ''; |
46 |
$self->notforloan(0) unless $self->notforloan; |
47 |
$self->hideinopac(0) unless $self->hideinopac; |
48 |
|
49 |
return $self->SUPER::store; |
50 |
} |
51 |
|
40 |
=head3 image_location |
52 |
=head3 image_location |
41 |
|
53 |
|
42 |
=cut |
54 |
=cut |
43 |
- |
|
|