diff options
| author | ivan <ivan> | 1999-03-29 11:55:43 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-03-29 11:55:43 +0000 |
| commit | 89966e55787fa73834c06a356abf1ba91651a1f4 (patch) | |
| tree | a77076a6243d1e4b5ab56a01cfbc29fd89031cc1 | |
| parent | bc968434919daeb185fae0d765aa01cd4734f14d (diff) | |
eliminate warnings in ut_money
| -rw-r--r-- | site_perl/Record.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/site_perl/Record.pm b/site_perl/Record.pm index aa8d75b3d..da7ba435d 100644 --- a/site_perl/Record.pm +++ b/site_perl/Record.pm @@ -596,7 +596,8 @@ sub ut_money { $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); ''; } @@ -809,7 +810,7 @@ sub hfields { =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 @@ -931,7 +932,10 @@ added pod documentation ivan@sisd.com 98-sep-6 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 |