From 89966e55787fa73834c06a356abf1ba91651a1f4 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 29 Mar 1999 11:55:43 +0000
Subject: [PATCH] eliminate warnings in ut_money

---
 site_perl/Record.pm | 10 +++++++---
 1 file 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
-- 
2.11.0