In essence, I'd like to be able to compact all these here for loops into one grab of the data. I can't think of a way to do this, of course, so I've come to you, the wise monks of the Monastery

#!perl -w

use strict;
use PL;
my $end; 
my $start ; 
 
my $obj = PL->new;
my $q = $obj->CGI;
$obj->Template->file ("tmpl/main.tmpl");
my @r_data    = ();
my @loop_data = ();
my @c_data    = ();
my @ids = $obj->DBI->Quote->sql_ids;
#my $quote = $obj->DBI->Quote->retrieve(rand @ids );

my @info = $obj->DBI->Entries->retrieve_from_sql(qq{
        hidden = 'n'
        ORDER BY date desc
        LIMIT 1
    });
    
my @comments = $obj->DBI->Replies->retrieve_from_sql(qq{
        hidden = 'n'
        ORDER BY date desc
        LIMIT 5
    });
    
my @recent = $obj->DBI->Entries->recent;    
print $q->header;

for (@comments) {
    my %data;
    $data{c_title} = $_->title;
    $data{author}  = $_->author;
    $data{id}      = $_->thread_id;
    $data{c_id}   =  $_->id;
    push @c_data, \%data;
}

for (@info) {
    my %data;
    my $sth = $obj->DBI->Replies->sql_count;
    $sth->execute($_->id);
    my $r = ($sth->fetchrow_array)[0];
    $data{author}  = $_->author;
    $data{content} = $_->content;
    $data{title}   = $_->title;
    $data{id}      = $_->id;
    $data{date}    = $_->date;
    $data{count}   = $r;
    push @loop_data, \%data;
}

for (@recent) {
    my %data;
    $data{author}  = $_->author;
    $data{title}   = $_->title;
    $data{id}      = $_->id;
    $data{date}    = $_->date;
    push @r_data, \%data;
}

if ( $q->param('view') =~ m/last5/ ) {
    
    ## Kinda redundant...but oh well, I'll update it later.
    my @loop_data = ();
    my @info = $obj->DBI->Entries->retrieve_from_sql(qq{
        hidden = 'n'
        ORDER BY date desc
        LIMIT 5
    });

    for (@info) {
        my %data;
        my $sth = $obj->DBI->Replies->sql_count;
        $sth->execute($_->id);
        my $r = ($sth->fetchrow_array)[0];
        $data{author}  = $_->author;
        $data{content} = $_->content;
        $data{title}   = $_->title;
        $data{id}      = $_->id;
        $data{date}    = $_->date;
        $data{count}   = $r;
        push @loop_data, \%data;
    }
    print $obj->Template->format ( 
        { 
            title=>"Devin's Journal", 
            body=> \@loop_data,
            recent_c =>  \@c_data
        } );
    
} else {
    print $obj->Template->format ( 
        { 
            title=>"Devin's Journal", 
            body=> \@loop_data,
            recent_c =>  \@c_data,
            show => $q->param ? 1 : 0
        } );
}
[download]