From f408cf19344c7d128bf98ffd9667810ca9bebc1b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 7 Nov 1998 05:17:18 +0000
Subject: [PATCH] In sub new, Pg wrapper for money fields from dbdef
 (FS::Record::fields $table), not keys of supplied hashref.

---
 site_perl/Record.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/site_perl/Record.pm b/site_perl/Record.pm
index 9b308508a..87de48cc4 100644
--- a/site_perl/Record.pm
+++ b/site_perl/Record.pm
@@ -127,7 +127,7 @@ sub new {
   #  }
   #}
 
-  foreach my $column (keys %{$hashref}) {
+  foreach my $column ( FS::Record::fields $table ) { 
     #trim the '$' from money fields for Pg (beong HERE?)
     #(what about Pg i18n?)
     if ( datasrc =~ m/Pg/ 
@@ -862,6 +862,12 @@ 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.2  1998-11-07 05:17:18  ivan
+In sub new, Pg wrapper for money fields from dbdef (FS::Record::fields $table),
+not keys of supplied hashref.
+
+
 =cut
 
 1;
-- 
2.11.0