Gossamer Forum
Home : Products : Gossamer Links : Development, Plugins and Globals :

Re: [Alex] Random Global Questions

Quote Reply
Re: [Alex] Random Global Questions In reply to
Alex,

Thanks for helping! I may have messed something up, because I just don't understand the perl. Here is what I came up with:

sub {
my $tags = shift;
my $link_db = $DB->table('Links','CatLinks');
my $cat_id = $tags->{Random_CatID};
my @cat_ids = $IN->param('Random_CatID');
my $limit = $tags->{Random_Limit} || 3;
my (@output, $sth);
$link_db->select_options ('ORDER BY RAND()', "LIMIT $limit");
my $condition = GT::SQL::Condition->new( 'Description', 'IS NOT', \'NULL','isValidated','=','Yes');
if ($cat_id) {
$sth = $link_db->select ($condition, { CategoryID => $cat_ids });
}
else {
$sth = $link_db->select;
}
while (my $hash = $sth->fetchrow_hashref) {
push @output, $hash;
}
my $cat_db = $DB->table('Category');
my $sth2 = $cat_db->select ( ['ID'],{ FatherID => $cat_id });
while (my ($child_id) = $sth2->fetchrow_array){
my $sth3 = $link_db->select ($condition, { CategoryID => $child_ids, isValidated => 'Yes' });
while (my $hash2 = $sth3->fetchrow_hashref) {
push @output, $hash2;

}
}
@output = sort {return (rand > 0.5) ? 1 : -1;} @output;
splice (@output,$limit);
return { Random_Loop => \@output }
}

Is this correct? (I got no results)

Thanks again
Subject Author Views Date
Thread Random Global Questions Evoir 6896 Aug 2, 2002, 4:34 PM
Thread Re: [Evoir] Random Global Questions
afinlr 6773 Aug 2, 2002, 5:14 PM
Thread Re: [afinlr] Random Global Questions
Evoir 6851 Aug 3, 2002, 9:24 AM
Thread Re: [Evoir] Random Global Questions
afinlr 6793 Aug 3, 2002, 11:22 AM
Post Re: [afinlr] Random Global Questions
Evoir 6760 Aug 3, 2002, 11:49 AM
Thread Re: [afinlr] Random Global Questions
Paul 6771 Aug 3, 2002, 11:56 AM
Thread Re: [Paul] Random Global Questions
Evoir 6783 Aug 3, 2002, 12:02 PM
Thread Re: [Evoir] Random Global Questions
afinlr 6711 Aug 3, 2002, 12:52 PM
Thread Re: [afinlr] Random Global Questions
Evoir 6714 Aug 7, 2002, 1:08 PM
Post Re: [Evoir] Random Global Questions
Evoir 6652 Aug 8, 2002, 2:45 PM
Thread Re: [Paul] Random Global Questions
afinlr 6740 Aug 3, 2002, 12:18 PM
Thread Re: [afinlr] Random Global Questions
Paul 6792 Aug 3, 2002, 12:43 PM
Thread Re: [Paul] Random Global Questions
Evoir 6661 Sep 13, 2002, 11:41 AM
Thread Re: [Evoir] Random Global Questions
Alex 6703 Sep 13, 2002, 12:34 PM
Thread Re: [Alex] Random Global Questions
Evoir 6617 Sep 13, 2002, 12:49 PM
Thread Re: [Evoir] Random Global Questions
Alex 6641 Sep 13, 2002, 1:42 PM
Post Re: [Alex] Random Global Questions
afinlr 6583 Sep 13, 2002, 3:37 PM
Post Re: [Alex] Random Global Questions
Evoir 6589 Sep 13, 2002, 4:34 PM
Post Re: [Alex] Random Global Questions
Evoir 6578 Sep 13, 2002, 4:37 PM
Post Re: [Alex] Random Global Questions
Evoir 6623 Sep 13, 2002, 4:56 PM