dorward (owner)

Revisions

gist: 221287 Download_button fork
public
Public Clone URL: git://gist.github.com/221287.git
Embed All Files: show embed
Grouping by day #
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
my @entries = $c->model("DB::Table")->search({},{
    order_by => 'time DESC',
    rows => 20,
});
 
my @days = ();
    
my $last_entry;
my $today = {};
    
foreach my $entry ( @entries ) {
    # Test for day change over
    if ($last_entry && ($last_entry->time->ymd ne $entry->time->ymd)) {
        push @days, $today;
    }
    if (!$last_entry || $last_entry->time->ymd ne $entry->time->ymd) {
        $today = {
            date => $entry->time,
            entries => [],
        };
    }
    push @{$today->{entries}}, $entry;
    $last_entry = $entry;
}