$self->setfield($field, 0) if $self->getfield($field) eq '';
$self->getfield($field) =~ /^(\-)? ?(\d*)(\.\d{2})?$/
or return "Illegal (money) $field!";
- $self->setfield($field, "$1$2$3" || 0);
+ #$self->setfield($field, "$1$2$3" || 0);
+ $self->setfield($field, ( ($1||''). ($2||''). ($3||'') ) || 0);
'';
}
=head1 VERSION
-$Id: Record.pm,v 1.12 1999-01-25 12:26:06 ivan Exp $
+$Id: Record.pm,v 1.13 1999-03-29 11:55:43 ivan Exp $
=head1 BUGS
ut_phonen got ''; at the end ivan@sisd.com 98-sep-27
$Log: Record.pm,v $
-Revision 1.12 1999-01-25 12:26:06 ivan
+Revision 1.13 1999-03-29 11:55:43 ivan
+eliminate warnings in ut_money
+
+Revision 1.12 1999/01/25 12:26:06 ivan
yet more mod_perl stuff
Revision 1.11 1999/01/18 09:22:38 ivan