In sub new, Pg wrapper for money fields from dbdef (FS::Record::fields $table),

not keys of supplied hashref.

1 files changed, 7 insertions, 1 deletions

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;