diff options
author | cvs2git <cvs2git> | 1998-11-07 10:24:26 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 1998-11-07 10:24:26 +0000 |
commit | 48e7e549a27a76c357d50dd637e7ad5a29b9d43f (patch) | |
tree | e61ddacc0b1d6248ccfc61346f7f36fbb6723e56 /site_perl/Record.pm | |
parent | 47806ec845818ba69604e0452e7c7b25d62f0772 (diff) | |
parent | 4c9347994ca4e1aefdb622d9f51ac8687e6a177b (diff) |
This commit was manufactured by cvs2svn to create tag 'freeside_stable'.freeside_stable
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 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; |