[freeside-commits] freeside/FS/FS/UI Web.pm,1.38,1.39
Ivan,,,
ivan at wavetail.420.am
Mon Feb 9 03:45:21 PST 2009
- Previous message: [freeside-commits] freeside/FS/FS ConfDefaults.pm,1.7,1.8
- Next message: [freeside-commits] freeside/FS/FS Conf.pm, 1.261, 1.262 cust_credit.pm, 1.36, 1.37 cust_pay.pm, 1.68, 1.69 cust_bill.pm, 1.234, 1.235
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /home/cvs/cvsroot/freeside/FS/FS/UI
In directory wavetail.420.am:/tmp/cvs-serv15697
Modified Files:
Web.pm
Log Message:
pull out the data for address fields too! RT#4583
Index: Web.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/UI/Web.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- Web.pm 9 Feb 2009 11:32:06 -0000 1.38
+++ Web.pm 9 Feb 2009 11:45:19 -0000 1.39
@@ -332,9 +332,11 @@
cust_header(@_);
#inefficientish, but tiny lists and only run once per page
+
+ my @add_fields = qw( address1 address2 city state zip daytime night fax );
push @fields,
grep { my $field = $_; grep { $_ eq $field } @cust_fields }
- qw( address1 address2 city state zip daytime night fax payby );
+ ( @add_fields, ( map "ship_$_", @add_fields ), 'payby' );
my @extra_fields = ();
if (grep { $_ eq 'current_balance' } @cust_fields) {
- Previous message: [freeside-commits] freeside/FS/FS ConfDefaults.pm,1.7,1.8
- Next message: [freeside-commits] freeside/FS/FS Conf.pm, 1.261, 1.262 cust_credit.pm, 1.36, 1.37 cust_pay.pm, 1.68, 1.69 cust_bill.pm, 1.234, 1.235
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the freeside-commits
mailing list