diff options
author | Mark Wells <mark@freeside.biz> | 2012-05-26 15:16:40 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2012-05-26 15:16:40 -0700 |
commit | 2262a7d8fce9b3353a74b77888421618f8a2b484 (patch) | |
tree | 859143bcb793e571f0424297882ce7879209b68f | |
parent | 6b21147108df6cd94522fcaaa9e06254bd74f993 (diff) |
service contact fields in message templates, #940
-rw-r--r-- | FS/FS/cust_main.pm | 2 | ||||
-rw-r--r-- | FS/FS/msg_template.pm | 14 |
2 files changed, 9 insertions, 7 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 56338e5..62cb837 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -4001,7 +4001,7 @@ sub ship_name_short { my $self = shift; $self->service_contact ? $self->ship_contact_firstlast - : $self->name_company_or_firstlast; + : $self->name_short } =item contact diff --git a/FS/FS/msg_template.pm b/FS/FS/msg_template.pm index c3e781a..ffb4f52 100644 --- a/FS/FS/msg_template.pm +++ b/FS/FS/msg_template.pm @@ -468,11 +468,9 @@ sub substitutions { daytime night mobile fax has_ship_address - ship_last ship_first ship_company ship_name ship_name_short ship_contact ship_contact_firstlast ship_address1 ship_address2 ship_city ship_county ship_state ship_zip ship_country - ship_daytime ship_night ship_mobile ship_fax paymask payname paytype payip num_cancelled_pkgs num_ncancelled_pkgs num_pkgs @@ -485,11 +483,15 @@ sub substitutions { signupdate dundate packages recurdates ), - #compatibility: obsolete ship_ fields - map ( { [ "ship_$_" => sub { shift->$_ } ] } - qw( last first company name name_short contact contact_firstlast - daytime night fax ) + #compatibility: obsolete ship_ fields - use the non-ship versions + map ( + { my $field = $_; + [ "ship_$field" => sub { shift->$field } ] + } + qw( last first company daytime night fax ) ), + # ship_name, ship_name_short, ship_contact, ship_contact_firstlast + # still work, though [ expdate => sub { shift->paydate_epoch } ], #compatibility [ signupdate_ymd => sub { $ymd->(shift->signupdate) } ], [ dundate_ymd => sub { $ymd->(shift->dundate) } ], |