in reply to Re^4: [Solved]: Can we use print <<HTML; twice in same file?
in thread [Solved]: Can we use print <<HTML; twice in same file?

And "name" column has all those entires for which I have created checkboxes. Like

(column)Name: average_speed_answer (col)display: Average Speed of Answer

(column)Name: percent_trunk_usage (col)display: % Trunk Usage

etc... For example:

+-------+-------------------------+-------------------------+--------+
| user  | name                    | display                 | active |
+-------+-------------------------+-------------------------+--------+
| admin | average_speed_answer    | Average Speed of Answer |      1 |
| admin | ivr_call_volume         | IVR Call Volume         |      1 |
| admin | non_outage_call_volume  | Non-Outage Call Volume  |      1 |
| admin | outage_call_volume      | Outage Call Volume      |      1 |
| admin | percent_trunk_usage     | % Trunk Usage           |      1 |
| admin | post_ivr_call_volume    | Post-IVR Call Volume    |      1 |
| admin | pre_ivr_call_volumn     | Pre-IVR Call Volume     |      1 |
| admin | trunk_group_utilization | Trunk Group Utilization |      1 |
+-------+-------------------------+-------------------------+--------+

[download]

Replies are listed 'Best First'.
Re^6: [Solved]: Can we use print <<HTML; twice in same file?
by poj (Abbot) on Aug 25, 2015 at 20:28 UTC

    So when fetched in sorted order $widget[0] will hold the active flag for average_speed_answer not trunk_usage?. Or have you changed the script to use different elements. For example where you had 

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

    [download]

    is that now 

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

    [download]
    update :

    If you used a hash instead of an array

    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;
}

    [download]

    then you could use

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

    [download]

    and there would be no chance of getting out of step

    poj
[reply]
[d/l]
[select]

      What you suggested is really useful... speacially in my case where I might have to change the query for diff users...

      With your suggestions I can use user as a variable and one thing less to worry about for me. THanks again

[reply]
      Yes, I changed exactly as you have mentioned here.

      I wanted to change the order in code so as it shows average_speed_answer first and so on but it would change sequence on webpage to something different than expected. So I assigned $widget[] in aroder to match with the result of DB query.

[reply]

        See DBI.pm#selectall_hashref. For a small data set it saves a lot of code, and it returns a hashref keyed by whichever column you choose. 

        my $sql = 'SELECT name, display, active 
           FROM   comm_desk_widget_status 
           WHERE  user = ?';
           
my $href = $dbh->selectall_hashref( $sql, 'display', undef, 'admin' );

print_html( $href );

sub print_html {
  my $h = shift;
  foreach my $label (sort keys %{ $h } ) {
    my $html  = 
      "<td><form><input type='checkbox' name='$h->{ $label }->{ name }
+' value='1'";
    $html .= $h->{ $label }->{ active } ? ' checked' : '';
    $html .= ">$label</form></td>\n";
    print $html;
  }
}

        [download]

        Update: forgot the bind param; HTML typo

        The way forward always starts with a minimal test.
[reply]
[d/l]

In Section Seekers of Perl Wisdom