package myapp::Controller::tests::report;

use strict;
use warnings;
use parent 'Catalyst::Controller';

sub day_simple :Local :Args(2) {
    my ( $self, $c, $test_id, $passed_date) = @_;

    my @passed_date_split = split /\D/, $passed_date;
    my $formatted_passed_date = join '-', @passed_date_split;

    my $tests_rs = $c->model('DB::Tests')->search(
        { 
            name        => { '=',  $test_id },
            date_time   => { '>=', "$formatted_passed_date 00:00:00", '<=', "$formatted_passed_date 23:59:59" },
        },
        {
            order_by    => 'date_time',
        },
    );

    my $output = "";
    while (my $row = $tests_rs->next) {
        $output .= $row->get_column('date_time') . ", " . $row->get_column('time_taken') . "<br/>\n";
    }

    $c->response->body( $output );
}

##</code><code>##

2009-06-24 00:03:41, 0.952
2009-06-24 00:14:06, 0.968
2009-06-24 00:24:31, 0.968
2009-06-24 00:34:50, 0.812
2009-06-24 00:45:17, 0.844
2009-06-24 00:55:49, 1.577
, 0.921
2009-06-24 01:16:29, 0.812
2009-06-24 01:26:50, 1.39
2009-06-24 01:37:35, 8.387
2009-06-24 01:48:24, 1.181
, 0.847
2009-06-24 02:09:19, 1.739
2009-06-24 02:19:49, 0.877
etc...