Revision 40b7b7b6
Von Rolf Fluehmann vor etwa 6 Jahren hinzugefügt
SL/DB/Piece.pm | ||
---|---|---|
28 | 28 |
} |
29 | 29 |
|
30 | 30 |
sub validate { |
31 |
my( $self, $locale ) = ( shift, $::locale );
|
|
31 |
my( $self, $form, $locale ) = ( shift, $::form, $::locale );
|
|
32 | 32 |
my @errors = (); |
33 |
$self->weight && $self->weight( $form->parse_amount( \%::myconfig, $self->weight ) ); |
|
33 | 34 |
$self->producer_id || push @errors, $locale->text( 'The producer is missing.' ); |
34 | 35 |
$self->part_id || push @errors, $locale->text( 'The part is missing.' ); |
35 | 36 |
$self->serialnumber || push @errors, $locale->text( 'The serial number is missing.' ); |
Auch abrufbar als: Unified diff
handling number formats