|
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 |
- |
|
|