diff options
Diffstat (limited to 'site_perl/Record.pm')
-rw-r--r-- | site_perl/Record.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/site_perl/Record.pm b/site_perl/Record.pm index 9b30850..87de48c 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; |