if (row[0] eq '1') {
  print "<td><form><input type="checkbox" name="trunk_usage" value="1" checked>% Trunk Usage</form></td>";

##</code><code>##

if ($widget[4] eq '1') {
  print "<td><form><input type="checkbox" name="trunk_usage" value="1" checked>% Trunk Usage</form></td>";

##</code><code>##

my $sql = 'SELECT name,active 
           FROM comm_desk_widget_status 
           WHERE user = ?';
           
my $sth = $dbh->prepare($sql);
$sth->execute('admin');
my %widget=();
while (my ($name,$active) = $sth->fetchrow_array) {
  $widget{$name} = $active;
}

##</code><code>##

if ($widget{'percent_trunk_usage'} == 1) {
  print "<td><form><input type="checkbox" name="trunk_usage" value="1" checked>% Trunk Usage</form></td>";