Contacts Edit contacts <& /elements/table-grid.html &> % my $bgcolor1 = '#eeeeee'; % my $bgcolor2 = '#ffffff'; % my $bgcolor = $bgcolor2; % my $count = 0; 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 <& /elements/change_password.html, 'contact_num' => $contact->contactnum, 'custnum' => $contact->custnum, 'no_label_display' => '', 'label' => 'change password', 'curr_value' => '', 'pre_pwd_field_label' => 'contact'.$count.'_', &> % } 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; % } % $count++; % } <%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; my $display = scalar(@contacts) > 0;