diff options
Diffstat (limited to 'httemplate/elements')
-rw-r--r-- | httemplate/elements/change_history_common.html | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/httemplate/elements/change_history_common.html b/httemplate/elements/change_history_common.html index f22e09360..d73405343 100644 --- a/httemplate/elements/change_history_common.html +++ b/httemplate/elements/change_history_common.html @@ -232,6 +232,8 @@ my %h_table_labelsub = ( #'h_cust_tag' => $tag_labelsub, 'h_contact' => $contact_labelsub, 'h_cust_contact' => $contact_labelsub, + 'h_contact_phone' => $contact_labelsub, + 'h_contact_email' => $contact_labelsub, ); my $tag_descripsub = sub { @@ -240,6 +242,24 @@ my $tag_descripsub = sub { '<SPAN STYLE="background-color: #'.$part_tag->tagcolor.'">'. encode_entities($part_tag->tagname). '</SPAN>'; }; +my $contact_descripsub = sub { + my($item, $label) = @_; + my $phone_type = qsearchs('phone_type',{ phonetypenum => $item->phonetypenum }); + my @fields = $item->fields; + join(', ', + map { + my $value = ( $_ eq "phonetypenum" ) + ? $item->get($_).' ('.$phone_type->typename.')' + : $item->get($_); + $value = substr($value, 0, 77).'...' if length($value) > 80; + $value = encode_entities($value); + "<I>$_</I>:<B>$value</B>"; + } + grep { ! /^(history|custnum$)/i } + @fields + ); +}; + my $discounts = {}; my $discount_descripsub = sub { my($item) = @_; @@ -260,6 +280,7 @@ my $discount_descripsub = sub { my %h_table_descripsub = ( 'h_cust_pkg_discount' => $discount_descripsub, 'h_cust_tag' => $tag_descripsub, + 'h_contact_phone' => $contact_descripsub, ); my $cust_pkg_date_format = '%b %o, %Y'; |