% include('elements/svc_Common.html',
'table' => 'svc_phone',
'fields' => [qw(
countrycode
phonenum
sip_password
pin
phone_name
)],
'labels' => {
'countrycode' => 'Country code',
'phonenum' => 'Phone number',
'sip_password' => 'SIP password',
'pin' => 'PIN',
'phone_name' => 'Name',
},
'html_foot' => $html_foot,
)
%>
<%init>
my $html_foot = sub {
my $svc_phone = shift;
###
# Devices
###
my $devices = '';
my $sth = dbh->prepare("SELECT COUNT(*) FROM part_device") #WHERE disabled = '' OR disabled IS NULL;");
or die dbh->errstr;
$sth->execute or die $sth->errstr;
my $num_part_device = $sth->fetchrow_arrayref->[0];
my @phone_device = $svc_phone->phone_device;
if ( @phone_device || $num_part_device ) {
my $svcnum = $svc_phone->svcnum;
$devices .=
qq[Devices (Add device)
];
if ( @phone_device ) {
$devices .= qq!
!;
$devices .=
include('/elements/table-grid.html').
'