eliminate warnings in ut_money

diff --git a/site_perl/Record.pm b/site_perl/Record.pm
index aa8d75b..da7ba43 100644 (file)
--- 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