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

Re: [afinlr] Random Global Questions

Quote Reply
Re: [afinlr] Random Global Questions In reply to
Thanks. It works.

But I think there might be some extra code in the Global, because the way it was set up originally, it limited the number of links it showed already. It seems to be ignoring the first limit.

Here is the global that is a mix of what you shared with me and from pervious attempts. The items in bold are the two times I believe the limits are set (and they are set differently) The global outputs 5 right now, the way it is written below:

sub {
my $tags = shift;
my $link_db = $DB->table('Links','CatLinks');
my $cat_id = $tags->{Random_CatID};
my $limit = $tags->{Random_Limit} || 3;
my (@output, $sth);
$link_db->select_options ('ORDER BY RAND()', "LIMIT $limit");
if ($cat_id) {
$sth = $link_db->select ( { CategoryID => $cat_id });
}
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 ( { CategoryID => $child_id, isValidated => 'Yes' });
while (my $hash2 = $sth3->fetchrow_hashref) {
push @output, $hash2;

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

Last edited by:

Evoir: Aug 3, 2002, 11:49 AM
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 6792 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 6770 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 6791 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 6616 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 6582 Sep 13, 2002, 3:37 PM
Post Re: [Alex] Random Global Questions
Evoir 6588 Sep 13, 2002, 4:34 PM
Post Re: [Alex] Random Global Questions
Evoir 6577 Sep 13, 2002, 4:37 PM
Post Re: [Alex] Random Global Questions
Evoir 6623 Sep 13, 2002, 4:56 PM