Contacts Edit contacts <& /elements/table-grid.html &> % my $bgcolor1 = '#eeeeee'; % my $bgcolor2 = '#ffffff'; % my $bgcolor = $bgcolor2; Type Contact Email Self-service % foreach my $phone_type (@phone_type) { <% $phone_type->typename |h %> phone % } % foreach my $contact ( @contacts ) { <% $contact->contact_classname |h %> <% $contact->line |h %> % my @contact_email = $contact->contact_email; <% join(', ', map $_->emailaddress, @contact_email) %> % if ( $contact->selfservice_access ) { Enabled %# disable %# re-email % } else { Disabled %# enable % } % foreach my $phone_type (@phone_type) { % my $contact_phone = % qsearchs('contact_phone', { % 'contactnum' => $contact->contactnum, % 'phonetypenum' => $phone_type->phonetypenum, % }); <% $contact_phone ? $contact_phone->phonenum_pretty : '' |h %> % } % if ( $bgcolor eq $bgcolor1 ) { % $bgcolor = $bgcolor2; % } else { % $bgcolor = $bgcolor1; % } % } <%once> my @phone_type = qsearch({table=>'phone_type', order_by=>'weight'}); <%init> my( $cust_main ) = @_; #my $conf = new FS::Conf; my @contacts = $cust_main->cust_contact;