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 6985 Aug 2, 2002, 4:34 PM
Thread Re: [Evoir] Random Global Questions
afinlr 6862 Aug 2, 2002, 5:14 PM
Thread Re: [afinlr] Random Global Questions
Evoir 6938 Aug 3, 2002, 9:24 AM
Thread Re: [Evoir] Random Global Questions
afinlr 6880 Aug 3, 2002, 11:22 AM
Post Re: [afinlr] Random Global Questions
Evoir 6848 Aug 3, 2002, 11:49 AM
Thread Re: [afinlr] Random Global Questions
Paul 6858 Aug 3, 2002, 11:56 AM
Thread Re: [Paul] Random Global Questions
Evoir 6871 Aug 3, 2002, 12:02 PM
Thread Re: [Evoir] Random Global Questions
afinlr 6799 Aug 3, 2002, 12:52 PM
Thread Re: [afinlr] Random Global Questions
Evoir 6801 Aug 7, 2002, 1:08 PM
Post Re: [Evoir] Random Global Questions
Evoir 6741 Aug 8, 2002, 2:45 PM
Thread Re: [Paul] Random Global Questions
afinlr 6829 Aug 3, 2002, 12:18 PM
Thread Re: [afinlr] Random Global Questions
Paul 6879 Aug 3, 2002, 12:43 PM
Thread Re: [Paul] Random Global Questions
Evoir 6749 Sep 13, 2002, 11:41 AM
Thread Re: [Evoir] Random Global Questions
Alex 6791 Sep 13, 2002, 12:34 PM
Thread Re: [Alex] Random Global Questions
Evoir 6705 Sep 13, 2002, 12:49 PM
Thread Re: [Evoir] Random Global Questions
Alex 6729 Sep 13, 2002, 1:42 PM
Post Re: [Alex] Random Global Questions
afinlr 6670 Sep 13, 2002, 3:37 PM
Post Re: [Alex] Random Global Questions
Evoir 6677 Sep 13, 2002, 4:34 PM
Post Re: [Alex] Random Global Questions
Evoir 6665 Sep 13, 2002, 4:37 PM
Post Re: [Alex] Random Global Questions
Evoir 6711 Sep 13, 2002, 4:56 PM