Blog::Blosxom::Podcats

sub head_data {
    my $self = shift;

    my $data = $self->next::method();
    $data->{date_of_last_entry} 
        = sprintf('%d-%02d-%02dT%02d:%02d:%02d',
            @{$self->{entries}[-1]}{qw(yr mo_num da hr min)}, 0);

    return $data;
}