<%Plugins::ULTRAGlobals::Random_Links(3,'672')%>
<%if Random_Loop.length%>
<%loop Random_Loop%>
<%include link.html%>
<%endloop%>
<%endif%>

<%Plugins::ULTRAGlobals::Random_Links(3,'672')%>
<%if Random_Loop.length%>
<%loop Random_Loop%>
<%Title%>
show whatever it is you want here
<%endloop%>
<%endif%>

<%Plugins::ULTRAGlobals::Random_Links(1,'672')%>
<%if Random_Loop.length%>
<%loop Random_Loop%>
<a href="<%URL%>" target="_blank"><%Title%></a><br />
<a href="<%URL%>" target="_blank">
<img border="0" src="<%Banner%>" <%if Width%>width="<%Width%>"<%endif%> <%if Height%>height="<%Height%>"<%endif%> title="<%Title%> >"</a>
<%endloop%>
<%endif%>

<%Plugins::ULTRAGlobals::Random_Links(1,'672')%>
<%if Random_Loop.length%>
<%loop Random_Loop%>
<a href="<%URL%>" target="_blank">
<%Title%><br />
<img border="0" src="<%Banner%>" <%if Width%>width="<%Width%>"<%endif%> <%if Height%>height="<%Height%>"<%endif%> title="<%Title%>" />
</a>
<%endloop%>
<%endif%>

<%Plugins::ULTRAGlobals::List_Links('isValidated','=','Yes','Title ASC',10)%>
<%if cond_loop_link.length%>
<%loop cond_loop_link%>
<%include link.html%>
<%endloop%>
<%endif%>

<%Plugins::ULTRAGlobals::List_Links('City','LIKE','%MyCity%','Add_Date DESC',10)%>

sub List_Links {

my ($sort_order,$limit) = (shift,shift);
my @fields_to_sort = @_;

$sort_order ||= "Title ASC";

my $tbl = $DB->table('Links');
if (defined $limit) {
$tbl->select_options(qq|ORDER BY $sort_order LIMIT $limit|);
} else {
$tbl->select_options(qq|ORDER BY $sort_order|);
}

my $cond = new GT::SQL::Condition;
foreach (@fields_to_sort) {
my ($field,$operator,$val) = split /::/;
$cond->add($field,$operator,$val);
}
$cond->bool('AND');

my $sth = $tbl->select( GT::SQL::Condition->new($field,$operator,$val) ) || die $GT::SQL::error;

my @loop;
while (my $hit = $sth->fetchrow_hashref) {
$hit = Links::SiteHTML::tags('link', $hit);
push @loop, $hit;
}

return { cond_loop_link => \@loop }

}

<%Plugins::ULTRAGlobals::List_Links('Title ASC',10,'isValidated::=::Yes','Foo::LIKE::%bar%')%>

isValidated => Yes
Foo LIKE '%bar%'

'Foo::=::bar','Test::<=::5'

my $sth = $tbl->select( GT::SQL::Condition->new($field,$operator,$val) ) || die $GT::SQL::error;

my $sth = $tbl->select( GT::SQL::Condition->new($field,$operator,$val) ) || die $GT::SQL::error;

my $sth = $tbl->select( $cond ) || die $GT::SQL::error;

sub {
my $action = $_[0];
if ($action eq "lower") { return lc($_[1]); }
elsif ($action eq "upper") { return uc($_[1]); }
elsif ($action eq "ucfirst") { return ucfirst($_[1]); }
else { return "Invalid action passed..."; }
}

<%set Full_Name_New = upper_or_lower('lower',$Full_Name,'normal','-','1')%>
<%Plugins::ULTRAGlobals::Edit_Title_Full_Name($Full_Name_New)%>

$cat->{URL} = $CFG->{build_root_url} . "/" . $DB->table('Category')->as_url( $cat->{Full_Name} ) . "/" . ($CFG->{build_index_include} ? $CFG->{build_index} : '');