+----------+--------+-------+
| RTIME | DEV | VALUE |
+----------+--------+-------+
| 08-12-28 | 25 | 13 |
+----------+--------+-------+
| 08-12-28 | 27 | 10 |
+----------+--------+-------+
| 08-12-28 | 32 | 43 |
+----------+--------+-------+
| 08-12-29 | 25 | 2 |
+----------+--------+-------+
| 08-12-29 | 27 | 5 |
+----------+--------+-------+
| 08-12-29 | 32 | 17 |
+----------+--------+-------+
####
+----------+--------+--------+--------+
| RTIME | 25 | 27 | 32 |
+----------+--------+--------+--------+
| 08-12-28 | 13 | 10 | 43 |
+----------+--------+--------+--------+
| 08-12-29 | 2 | 5 | 17 |
+----------+--------+--------+--------+
####
sub show_details {
my $self = shift;
my $q = $self -> query();
my $DEVICE = $q -> param("device");
my $TIME_START = "2008-12-28";
my $TIME_STOP = "2008-12-29";
my $device_id = hex($self -> config -> val($DEVICE, 'divis_id'));
my $sth = $self -> dbh -> prepare (
"SELECT rtime, dev, value FROM db_1361_asc
WHERE device_id='$device_id' AND rtime>'$TIME_START' AND rtime<'$TIME_STOP'
ORDER BY rtime,dev"
);
$sth -> execute();
my $raw_loh = $sth -> fetchall_arrayref({});
$sth -> finish();
my $template = $self -> load_tmpl('show_details.tmpl');
$template -> param( TABLE_HEADERS => [
{ VALUE => 'RTIME' },
{ VALUE => 'DEV' },
{ VALUE => 'VALUE' }
]
);
$template -> param( RAW_DATA => $raw_loh );
return $template -> output();
}