Lines 70-76
sub store {
Link Here
|
70 |
} |
70 |
} |
71 |
|
71 |
|
72 |
$self->quantityreceived(0) unless $self->quantityreceived; |
72 |
$self->quantityreceived(0) unless $self->quantityreceived; |
73 |
$self->entrydate(output_pref( { dt => dt_from_string, dateformat => 'iso' } )) unless $self->entrydate; |
73 |
$self->entrydate(dt_from_string) unless $self->entrydate; |
74 |
|
74 |
|
75 |
$self->ordernumber(undef) unless $self->ordernumber; |
75 |
$self->ordernumber(undef) unless $self->ordernumber; |
76 |
$self = $self->SUPER::store( $self ); |
76 |
$self = $self->SUPER::store( $self ); |
77 |
- |
|
|