diff options
| -rwxr-xr-x | httemplate/edit/process/cust_main.cgi | 2 | ||||
| -rw-r--r-- | httemplate/elements/change_history_common.html | 7 | ||||
| -rw-r--r-- | httemplate/view/cust_main/change_history.html | 7 |
3 files changed, 14 insertions, 2 deletions
diff --git a/httemplate/edit/process/cust_main.cgi b/httemplate/edit/process/cust_main.cgi index a86819f4b..e3fa4e6f8 100755 --- a/httemplate/edit/process/cust_main.cgi +++ b/httemplate/edit/process/cust_main.cgi @@ -62,7 +62,7 @@ if ( $payby ) { $cgi->param( 'exp_month' ). '-'. $cgi->param( 'exp_year' ) ); } -my @invoicing_list = split( /\s*\,\s*/, $cgi->param('invoicing_list') ); +my @invoicing_list = split( /[,\s]+/, $cgi->param('invoicing_list') ); push @invoicing_list, 'POST' if $cgi->param('invoicing_list_POST'); push @invoicing_list, 'FAX' if $cgi->param('invoicing_list_FAX'); $cgi->param('invoicing_list', join(',', @invoicing_list) ); diff --git a/httemplate/elements/change_history_common.html b/httemplate/elements/change_history_common.html index 63337cb6a..a526493ce 100644 --- a/httemplate/elements/change_history_common.html +++ b/httemplate/elements/change_history_common.html @@ -208,6 +208,12 @@ my $tag_labelsub = sub { $label. ': <SPAN STYLE="background-color: #'.$part_tag->tagcolor.'">'. encode_entities($part_tag->tagname). '</SPAN>'; }; +my $contact_labelsub = sub { + my($item, $label) = @_; + my $contact = qsearchs('h_contact',{ contactnum => $item->contactnum }); + $label. ': <B>'. encode_entities($contact->first). ' ' . encode_entities($contact->last) . '</B>'; +}; + my %h_table_labelsub = ( 'h_cust_pkg' => $pkg_labelsub, 'h_svc_acct' => $svc_labelsub, @@ -220,6 +226,7 @@ my %h_table_labelsub = ( 'h_svc_phone' => $svc_labelsub, #'h_phone_device' #'h_cust_tag' => $tag_labelsub, + 'h_contact' => $contact_labelsub, ); my $tag_descripsub = sub { diff --git a/httemplate/view/cust_main/change_history.html b/httemplate/view/cust_main/change_history.html index a781c7372..95fdc4e20 100644 --- a/httemplate/view/cust_main/change_history.html +++ b/httemplate/view/cust_main/change_history.html @@ -47,6 +47,7 @@ tie my %tables, 'Tie::IxHash', 'cust_pkg_discount' => 'Discount', #? it gets provisioned anyway 'phone_avail' => 'Phone', 'cust_tag' => 'Tag', + 'contact' => 'Contact', ; my $pkg_join = "JOIN cust_pkg USING ( pkgnum )"; @@ -67,6 +68,7 @@ my %table_join = ( 'radius_usergroup' => $svc_join, 'phone_device' => $svc_join, 'cust_pkg_discount'=> $pkg_join, + 'contact' => "JOIN cust_contact USING ( contactnum )", ); %table_join = (%table_join, map { $_ => $svc_join } @svc_tables); @@ -140,13 +142,16 @@ my $newer_than = int( time - $years * 31556736 ); #60*60*24*365.24 local($FS::Record::nowarn_classload) = 1; +my $extra_sql = ' AND custnum = '. $cust_main->custnum; + my %foundsvcs; foreach my $table ( keys %tables ) { + $extra_sql = ' AND cust_contact.custnum = '. $cust_main->custnum if $table eq 'contact'; my @items = qsearch({ 'table' => "h_$table", 'addl_from' => $table_join{$table}, 'hashref' => { 'history_date' => { op=>'>=', value=>$newer_than }, }, - 'extra_sql' => ' AND custnum = '. $cust_main->custnum, + 'extra_sql' => $extra_sql, }); %foundsvcs = (%foundsvcs, map { $_->svcnum => 1 } @items) if $table =~ /^svc/; |