X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FUI%2FWeb.pm;h=0aeaa5bea0c7077e604e49a3ecc3c05ee5f442e4;hb=4dcbb6b380dfd036cc06e4d7002cbda17d29f23a;hp=f182e425969da2c265e6c0e97ee9c4283eeb8f94;hpb=7ce15a2d67f0eff134b8c3ca9be58ccc58ad9029;p=freeside.git diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm index f182e4259..0aeaa5bea 100644 --- a/FS/FS/UI/Web.pm +++ b/FS/FS/UI/Web.pm @@ -250,6 +250,7 @@ sub cust_header { 'Country' => 'bill_country_full', 'Day phone' => 'daytime', # XXX should use msgcat, but how? 'Night phone' => 'night', # XXX should use msgcat, but how? + 'Mobile phone' => 'mobile', # XXX should use msgcat, but how? 'Fax number' => 'fax', '(bill) Address 1' => 'bill_address1', '(bill) Address 2' => 'bill_address2', @@ -324,7 +325,7 @@ sub cust_header { } sub cust_sort_fields { - cust_header(@_); + cust_header(@_) if( @_ or !@cust_fields ); #inefficientish, but tiny lists and only run once per page map { $_ eq 'custnum' ? 'custnum' : '' } @cust_fields; @@ -346,7 +347,7 @@ sub cust_sql_fields { my @fields = qw( last first company ); # push @fields, map "ship_$_", @fields; - cust_header(@_); + cust_header(@_) if( @_ or !@cust_fields ); #inefficientish, but tiny lists and only run once per page my @location_fields; @@ -363,7 +364,7 @@ sub cust_sql_fields { } } - foreach my $field (qw(daytime night fax payby)) { + foreach my $field (qw(daytime night mobile fax payby)) { push @fields, $field if (grep { $_ eq $field } @cust_fields); } push @fields, 'agent_custid'; @@ -486,6 +487,7 @@ element. sub cust_fields_subs { my $unlinked_warn = 0; + return map { my $f = $_; if ( $unlinked_warn++ ) {