+----------+--------+-------+ | 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(); }