X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=site_perl%2FRecord.pm;h=da7ba435d12df6a1ba7011cbb77293c20b3635f1;hb=f892887626d5d6288e455768d24b5bcaff646123;hp=aa8d75b3d2d1ba9ab9a6dc252822dd2797d6d1dc;hpb=963a290ad2d9a89b45b66ac9d9ccdd612a756f11;p=freeside.git

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