sub NL_2_BR {
my $in = $_[0];
$in =~ s/\n/\<br \/\>/sig;
return;
}

sub NL_2_BR {
my $in = $_[0] or return;
$in =~ s|\r?\n|<br />|sg;
return;
}

sub {

my $user = $_[0];

my $sth = $DB->table('Links')->select( { LinkOwner => $user, isValidated => 'Yes', Build_Detailed_Page => 1 } ) || return $GT::SQL::error;

my $back;
while (my $hit = $sth->fetchrow_hashref) {
$back .= qq|<p><a href="$CFG->{build_root_url}/Detailed/$hit->{ID}.html">$hit->{Title}</a></p>|;
}

return $back;
}

sub {
# -------------------------------------------------------------------
my $tags = shift;
my $cat_db = $DB->table('Category');
$cat_db->select_options ('ORDER BY priority');
my $sth = $cat_db->select ( { FatherID => 0}, ['Full_Name','ID','Name'] );
my $output=qq~<table><tr valign=top><td width="25%"><table>~;
my $i=0;
while (my ($root_cat,$ID,$heading) = $sth->fetchrow_array) {
$i++;
my $url1 = $cat_db->as_url($root_cat);
$output.= qq~<tr><td colspan=2><font size=-1><b><a href="$CFG->{build_root_url}/$url1/index.html" class="toc"><br/>$heading</a></b></font></td></tr>~;
$cat_db->select_options ('ORDER BY Full_Name');
my $sth2 = $cat_db->select ( { FatherID => $ID}, ['Full_Name','ID','Name'] );
while (my ($cat,$id,$heading1) = $sth2->fetchrow_array) {
# my $link_count = $DB->table('CatLinks')->count ( {CategoryID => $id});
my $url = $cat_db->as_url($cat);
$output .= qq~<tr><td>&nbsp;</td><td><font size=-2><a href="$CFG->{build_root_url}/$url/index.html" class="toc">$heading1</a></font></td></tr>~;
$cat_db->select_options ('ORDER BY Full_Name');
my $sth3 = $cat_db->select ( { FatherID => $id}, ['Full_Name','ID','Name'] );
while (my ($cat2,$id2,$heading2) = $sth3->fetchrow_array) {
}
}
if (($i eq '13')or ($i eq '19') or ($i eq '33') or ($i eq '40')){ $output.=qq~</table></td><td width="25%"><table align=top>~;}
}
$output.="</table></td></tr></table>";
return $output;
}

sub {
my $tags = shift;
my $table = $DB->table('Links');
$table->select_options ('ORDER BY Hits DESC', 'LIMIT 100');
my $sth = $table->select;
my @output;
while (my $link = $sth->fetchrow_hashref) {
push (@output, $link);
}
return { top100_loop => \@output };
}

sub {

my $db = $DB->table('Links');
$db->select_options( "GROUP BY LinkOwner","ORDER BY hits_count DESC" );
my $sth = $db->select("LinkOwner", "SUM(Hits) as hits_count","Count(*) as link_count") or die "Query Error: $GT::SQL::error";

my $back;
while (my ($s, $h,$c) = $sth->fetchrow_array) {
if ($h < 500) { next; }
my $url = $CFG->{db_cgi_url} . "/search.cgi?query=;LinkOwner=$s";
$back .= qq|> <a href="$url">$s</a> - $h Downloads in $c Einträgen <br />|;
}

return $back;

}

sub {

my $db = $DB->table('Reviews');
$db->select_options( "GROUP BY Review_Owner","ORDER BY review_count DESC","LIMIT 5");
my $sth = $db->select("Review_Owner", "COUNT(*) as review_count") or die "Query Error: $GT::SQL::error";

my $back;
while (my ($s, $c) = $sth->fetchrow_array) {
my $url = $CFG->{db_cgi_url} . "/review.cgi?username=$s";
$back .= qq| <a href="$url">$s</a> ($c Kommentare) <br />|;
}

return $back;

}

sub {

# normal links
my $link_db = $DB->table ('Links');
$link_db->select_options ('ORDER BY ID DESC','LIMIT 3') || die $GT::SQL::error;

my $sth = $link_db->select( { isValidated => "Yes", LinkOwner => $USER->{Username} } ) || die $GT::SQL::error;

my @links;

# just normal links.
while (my $link = $sth->fetchrow_hashref) {
push @links, $link;
}

# ratings
my $link_db = $DB->table ('Links');
$link_db->select_options ('ORDER BY Rating DESC', 'LIMIT 10') || die $GT::SQL::error;

my $sth = $link_db->select( { isValidated => "Yes", LinkOwner => $USER->{Username} } ) || die $GT::SQL::error;

my @links2;

# just top rated links.
while (my $link = $sth->fetchrow_hashref) {
push @links2, $link;
}

# ratings
my $link_db = $DB->table ('Links');
$link_db->select_options ('ORDER BY Hits DESC', 'LIMIT 10') || die $GT::SQL::error;

my $sth = $link_db->select( { isValidated => "Yes", LinkOwner => $USER->{Username} } ) || die $GT::SQL::error;

my @links3;

# just top rated links.
while (my $link = $sth->fetchrow_hashref) {
push @links3, $link;
}

return { user_links => \@links , user_links_by_hit => \@links3, user_links_by_rating => \@links2 }

}

sub {
my @list = ('text1', 'text2');
return $list[rand @list];
}

sub {
my $tags = shift;
my $table = $DB->table('Links');
$table->select_options ('ORDER BY ID DESC', 'LIMIT 5');
my $sth = $table->select( { isNew => 'Yes', isValidated => 'Yes' });
my @output;
while (my $link = $sth->fetchrow_hashref) {
push (@output, $link);
}
return { Lastlinks5_loop => \@output };
}

sub {
my (@links,$sth,$link);
my $search_db = $DB->table('Links','Reviews');
$search_db->select_options ("ORDER BY Review_Date DESC","LIMIT $_[0]");
$sth = $search_db->select ( { Review_Validated => 'Yes' });
while (my $link = $sth->fetchrow_hashref()) {
if (length $link->{Title} > 70) {
$link->{Title} = substr($link->{Title}, 0, 50) . '...';}
$link = Links::SiteHTML::tags('link', $link);
push@links, $link;
}
return {Latest_Revs=>\@links};<br>
}

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;
}
return { Random_Loop => \@output }
}

sub {
my $tags = shift;
my $cat_db = $DB->table('Category');
$cat_db->select_options ("ORDER BY priority");
my $sth = $cat_db->select (['Full_Name'], { FatherID => 0 });
my $output;
while ( my $root_cat = $sth->fetchrow_array) {
my $url = $cat_db->as_url($root_cat);
$output .= qq~<li><a href="$CFG->{build_root_url}/$url/index.html">$root_cat</a></li>~;
}
return $output;
}

<%users_listings%>

<h2>Your last 3 Entries</h2>

<%loop user_links%>
<ul style="list-style-type: none;">
<li><small><%row_num%>. <%if Build_Detailed_Page eq "1"%><a href="<%build_root_url%>/Detailed/<%ID%>.html"><%elsif URL ne 'http://' and isValidated eq 'Yes'%><a href="<%URL%>"><%endif%><%Title%></a> (<%Hits%> | <%Rating%>)</small></li>
</ul>
<%endloop%><br/><br/>

<h2>Your Top 10 Entries (Hits)</h2>

<%loop user_links_by_hit%>
<ul style="list-style-type: none;">
<li><small><%row_num%>. <a href="<%build_root_url%>/Detailed/<%ID%>.html"><%Title%> </a>(<%Hits%> | <%Rating%>)</small></li>
</ul>
<%endloop%><br/><br/>

<h2>Your Top 10 Entries (Rate)</h2>

<%loop user_links_by_rating%>
<ul style="list-style-type: none;">
<li><small><%row_num%>. <a href="<%build_root_url%>/Detailed/<%ID%>.html"><%Title%> </a>(<%Rating%> | <%Hits%>)</small></li>
</ul>
<%endloop%><br/><br/>

<%Plugins::ULTRAGlobals::Users_Listings($LinkOwner)%>

<%Plugins::ULTRAGlobals::Users_Listings()%>

<h2>Users Links</h2>
<%if user_links.length%>
<%loop user_links%>
<%include link.html%>
<%endloop%>
<%else%>
<p>No links.</p>
<%endif%>

<h2>Users Links By Hits</h2>
<%if user_links.length%>
<%loop user_links%>
<%include link.html%>
<%endloop%>
<%else%>
<p>No links.</p>
<%endif%>

<h2>Users Links By Rating</h2>
<%if user_links_by_rating.length%>
<%loop user_links_by_rating%>
<%include link.html%>
<%endloop%>
<%else%>
<p>No links.</p>
<%endif%>

<h2>Users Links</h2>
<%if user_links.length%>
<%loop user_links%>
<%include link.html%>
<%endloop%>
<%else%>
<p>No links.</p>
<%endif%>

<h2>Users Links By Hits</h2>
<%if user_links_by_hits.length%>
<%loop user_links_by_hits%>
<%include link.html%>
<%endloop%>
<%else%>
<p>No links.</p>
<%endif%>

<h2>Users Links By Rating</h2>
<%if user_links_by_rating.length%>
<%loop user_links_by_rating%>
<%include link.html%>
<%endloop%>
<%else%>
<p>No links.</p>
<%endif%>

<h2>Users Links By Hits</h2>
<%if user_links_by_hit.length%>
<%loop user_links_by_hit%>
<%include link.html%>
<%endloop%>
<%else%>
<p>No links.</p>
<%endif%>

<h2>Users Links By Hits</h2>
<%if user_links_by_hits.length%>
<%loop user_links_by_hits%>
<%include link.html%>
<%endloop%>
<%else%>
<p>No links.</p>
<%endif%>

<%Plugins::ULTRAGlobals::New_Links_By_Category()%>

<%loop new_links_in_this_cat%>
<%include link.html%>
<%endloop%>

GT::SQL::Table (11389): Wrong argument passed to this subroutine. No category id passed to children

<%Plugins::ULTRAGlobals::Format_Checkbox_Field('Field_Name')%>

<%loop checkbox_loop%>
<input name="<%field_name%>" id="<%value%>" type="checkbox"value="<%value%>" <%if selected%>checked<%endif%> />
<label for="<%value%>"><%name%></label>
<%endloop%>

<%Plugins::ULTRAGlobals::New_Links_By_Category($ID)%>

<%Plugins::ULTRAGlobals::New_Links_By_Category()%>

if ($hit->{isNew} eq "Yes") { $hit->{isNew} = 1; } else { $hit->{isNew} = 0; }
if ($hit->{isPopular} eq "Yes") { $hit->{isPopular} = 1; } else { $hit->{isPopular} = 0; }
if ($hit->{isChanged} eq "Yes") { $hit->{isChanged} = 1; } else { $hit->{isChanged} = 0; }

my $sth = $db_obj->select (['Links.*'], GT::SQL::Condition->new(['CategoryID', 'IN', $all_ids], ['isValidated', '=', 'Yes', 'isNew', '=', 'Yes'] ) ) || die $GT::SQL::error;

SELECT glinks_Links.* FROM glinks_CatLinks,glinks_Category,glinks_Links WHERE glinks_CatLinks.LinkID = glinks_Links.ID AND glinks_CatLinks.CategoryID = glinks_Category.ID AND (glinks_CatLinks.CategoryID IN (12194,12193,12192) AND glinks_Links.isValidated = \'Yes\') ORDER BY Add_Date DESC Limit 5

SELECT glinks_Links.* FROM glinks_CatLinks,glinks_Category,glinks_Links WHERE glinks_CatLinks.LinkID = glinks_Links.ID AND glinks_CatLinks.CategoryID = glinks_Category.ID AND ((glinks_CatLinks.CategoryID IN (12194,12193,12192)) AND (glinks_Links.isNew = \'Yes\' AND glinks_Links.isValidated = \'Yes\')) ORDER BY Add_Date DESC Limit 5

my $sth = $db_obj->select (['Links.*'], GT::SQL::Condition->new(['CategoryID', 'IN', $all_ids], ['isValidated', '=', 'Yes', 'isNew', '=', 'Yes'] ) ) || die $GT::SQL::error;

my $cond = GT::SQL::Condition->new('CategoryID', 'IN', $all_ids);
my $cond2 = GT::SQL::Condition->new('isNew','=','Yes','isValidated','=','Yes');
my $sth = $db_obj->select (['Links.*'], $cond, $cond2 ) || die $GT::SQL::error;

<%if config.bookmark_enabled%>
<%if user.Username%>
<%Plugins::ULTRAGlobals::Check_If_Bookmarked($ID)%>
<%if isBookmarked%>
<%-- already bookmarked , show something here if you want --%>
<%else%>
<a href="<%config.db_cgi_url%>/bookmark.cgi?action=link_add;ID=<%ID%>">Bookmark It</a>
<%endif%>
<%endif%>
<%endif%>

<%Plugins::ULTRAGlobals::Load_Reviews_Advanced(LIMIT,CAT_ID)%>

<%Plugins::ULTRAGlobals::Latest_New_Links(5)%>
<%if Latest_Links_Loop.length%>
<%loop Latest_Links_Loop%>
<%set dont_increase_count = 1%>
<%include link.html%>
<%endloop%>
<%endif%>

<%Plugins::Count_Impressions::Count($ID)%>

<%if dont_increase_count < 1%>
<%Plugins::Count_Impressions::Count($ID)%>
<%endif%>

sub Latest_New_Links {

my $table = $DB->table('Links');
$table->select_options ('ORDER BY ID DESC', "LIMIT $_[0]");

my $sth = $table->select( { isNew => 'Yes', isValidated => 'Yes' }) || die $GT::SQL::error;
my @output;
while (my $hit = $sth->fetchrow_hashref) {

if ($hit->{isNew} eq "Yes") { $hit->{isNew} = 1; } else { $hit->{isNew} = 0; }
if ($hit->{isPopular} eq "Yes") { $hit->{isPopular} = 1; } else { $hit->{isPopular} = 0; }
if ($hit->{isChanged} eq "Yes") { $hit->{isChanged} = 1; } else { $hit->{isChanged} = 0; }

push (@output, $hit);
}
return { Latest_Links_Loop => \@output };

}

sub Latest_New_Links {

my $table = $DB->table('Links');
$table->select_options ('ORDER BY ID DESC', "LIMIT $_[0]");

my $sth = $table->select( { isNew => 'Yes', isValidated => 'Yes' }) || die $GT::SQL::error;
my @output;
while (my $hit = $sth->fetchrow_hashref) {

if ($hit->{isNew} eq "Yes") { $hit->{isNew} = 1; } else { $hit->{isNew} = 0; }
if ($hit->{isPopular} eq "Yes") { $hit->{isPopular} = 1; } else { $hit->{isPopular} = 0; }
if ($hit->{isChanged} eq "Yes") { $hit->{isChanged} = 1; } else { $hit->{isChanged} = 0; }

if ($CFG->{build_detailed}) {
$hit->{detailed_url} = $CFG->{build_root_url} . "/" . $DB->table('Links')->detailed_url( $hit->{ID} );
}

push (@output, $hit);
}
return { Latest_Links_Loop => \@output };

}

<%Plugins::ULTRAGlobals::See_If_User_Has_Reviews($LinkOwner)%>
<%if review_count_num > 0%>
<a href="<%config.db_cgi_url%>/review.cgi?username=<%LinkOwner%>">Reviews</a>
<%endif%>

<%if CatDepth < 1%>
<%Name%>
<%else%>
<%Name%> - <%Plugins::ULTRAGlobals::Edit_Title_Full_Name($Full_Name,'reverse','&gt;','1')%>
<%endif%>

<a href="http://localhost/cgi-bin/search.cgi?query=Error: Variable 'escape' is not a code reference">Unknown Tag: &#039;($slog_query)&#039;</a></li>

<li><a href="<%config.db_cgi_url%>/search.cgi?query=<%GT::CGI::escape($slog_query)%>"><%GT::CGI::escape_html($slog_query)%></a></li>

Error: Unable to load module 'GT::CGI':Error: No subroutine 'GT::CGI::escape_html' in 'GT/CGI.pm'

sub {
my $tags = shift;
my $cat_db = $DB->table('Category');
$cat_db->select_options ('ORDER BY Name');
my $sth = $cat_db->select ( { FatherID => 0}, ['Full_Name','Name','Number_of_Links'] );
my $output="";
while (my ($root_cat,$full_name,$number_of_links) = $sth->fetchrow_array) {
my $url = $cat_db->as_url($root_cat);
$output .= qq~<li><a href="$CFG->{build_root_url}/$url/">&nbsp;$full_name</a>($number_of_links)</li>~;
}
return $output;
}

<ul>
<%loop main_categores%>
<li><a href="<%URL%>">&nbsp;<%Full_Name%></a>(<%Number_of_Links%></li>
<%endloop%>
</ul>

<%Plugins::ULTRAGlobals::Get_Root_Categories()%>
<ul>
<%loop root_cat_loop%>
<li><a href="<%URL%>">&nbsp;<%Full_Name%></a>(<%Number_of_Links%></li>
<%endloop%>
</ul>

<%GT::Date::date_transform($Add_Date,'%yyyy%-%mm%-%dd%',$date_user_format)%>

<%Plugins::ULTRAGlobals::Top_Search_Words('10')%>
<%if search_logger_top_words.length%>
<ul>
<%loop search_logger_top_words%>
<li><a href="<%config.db_cgi_url%>/search.cgi?query=<%escape($slog_query)%>"><%escape_html($slog_query)%></a></li>
<%endloop%>
</ul>
<%else%>
No search terms yet
<%endif%>

<%Plugins::ULTRAGlobals::New_Links_By_Category($ID)%>
<%loop new_links_in_this_cat%>
<%include link.html%>
<%endloop%>

<%Plugins::ULTRAGlobals::New_Links_By_Category($ID)%>
<%if new_links_in_this_cat.length%>
<%loop new_links_in_this_cat%>
<%include link.html%>
<%endloop%>
<%else%>
Sorry, there are no new links.
<%endif%>

<%Plugins::ULTRAGlobals::Top_Search_Words('5')%>
<%if search_logger_top_words.length%>
<%loop search_logger_top_words%>
<p><a href="<%config.db_cgi_url%>/search.cgi?query=<%escape_html slog_query%>"><%escape_html slog_query%></a></p>
<%endloop%>
<%else%>
No search terms yet
<%endif%>

sub {
my $tags = shift;
my $table = $DB->table('Links');
$table->select_options ('ORDER BY ID DESC', 'LIMIT 5');
my $sth = $table->select( { isNew => 'Yes', isValidated => 'Yes' });
my @output;
while (my $link = $sth->fetchrow_hashref) {
push (@output, $link);
}
return { Lastlinks5_loop => \@output };
}

<%Plugins::ULTRAGlobals::New_Links_By_Category($ID)%>
<%loop new_links_in_this_cat%>
<%include link.html%>
<%endloop%>

<%Plugins::ULTRAGlobals::Last_Links_By_Category($ID)%>
<%loop last_links_in_this_cat%>
<%include link.html%>
<%endloop%>

<%Plugins::ULTRAGlobals::Last_Links_By_Category($ID)%>

<%if last_links_in_this_cat.length%>
<%loop last_links_in_this_cat%>
<%include link.html%>
<%endloop%>
<%else%>
<p>No links were found</p>
<%endif%>

<%Plugins::ULTRAGlobals::Last_Links_By_Category(5,$ID)%>

<h4>Headline</h4>
<%Plugins::ULTRAGlobals::Last_Links_By_Category($676)%>

<%if last_links_in_this_cat.length%>
<%loop last_links_in_this_cat%>
<%include link.html%>
<%endloop%>
<%else%>
<p>No links were found</p>
<%endif%

sub Last_Links_By_Category {

my $cat = $_[0];
my $limit = $_[1] || 5;

my $all_ids = $DB->table('Category')->children($cat);
push @$all_ids, $cat;

my $db_obj = $DB->table('Links','CatLinks','Category');
$db_obj->select_options ("ORDER BY ID DESC Limit $limit");


my $sth = $db_obj->select (['Links.*'], GT::SQL::Condition->new(['CategoryID', 'IN', $all_ids], ['isValidated', '=', 'Yes'] ) ) || die $GT::SQL::error;

my $cond = GT::SQL::Condition->new('CategoryID', 'IN', $all_ids);
my $cond2 = GT::SQL::Condition->new('isValidated','=','Yes');
my $sth = $db_obj->select (['Links.*'], $cond, $cond2 ) || die $GT::SQL::error;


# print $IN->header();
# use Data::Dumper;
# print Dumper($sth);

my @cats;
while (my $hit = $sth->fetchrow_hashref) {

if ($CFG->{build_detailed}) { $hit->{detailed_url} = $CFG->{build_root_url} . "/" . $DB->table('Links')->detailed_url( $hit->{ID} ); }

if ($hit->{isNew} eq "Yes") { $hit->{isNew} = 1; } else { $hit->{isNew} = 0; }
if ($hit->{isPopular} eq "Yes") { $hit->{isPopular} = 1; } else { $hit->{isPopular} = 0; }
if ($hit->{isChanged} eq "Yes") { $hit->{isChanged} = 1; } else { $hit->{isChanged} = 0; }

push @cats, $hit;
}

return { last_links_in_this_cat => \@cats }

}

my $cond = GT::SQL::Condition->new('CategoryID', 'IN', $all_ids);
my $cond2 = GT::SQL::Condition->new('isValidated','=','Yes');
my $sth = $db_obj->select (['Links.*'], $cond, $cond2 ) || die $GT::SQL::error;

print $IN->header;
print $sth->query;

SELECT glinks_Links.* FROM glinks_CatLinks,glinks_Category,glinks_Links WHERE glinks_CatLinks.LinkID = glinks_Links.ID AND glinks_CatLinks.CategoryID = glinks_Category.ID AND ((glinks_CatLinks.CategoryID = '598') AND (glinks_Links.isValidated = 'Yes'))

my $db_obj = $DB->table('Links','CatLinks','Category');
$db_obj->select_options ("ORDER BY ID DESC Limit $limit");

my $sth = $db_obj->select (['Links.*'], GT::SQL::Condition->new(['CategoryID', 'IN', $all_ids], ['isValidated', '=', 'Yes'] ) ) || die $GT::SQL::error;

my $sth = $db_obj->select (['Links.*'], GT::SQL::Condition->new(['CategoryID', 'IN', $all_ids], ['isValidated', '=', 'Yes'] ) ) || die $GT::SQL::error;

sub NL_2_BR {
my $in = $_[0];
$in =~ s/\r?\n/\<br \/\>/sg;
return;
}

sub NL_2_BR {
my $in = $_[0];
$in =~ s/\r?\n/\<br \/\>/sg;
return $in;
}

sub NL_2_BR {
my $in = $_[0];
$in =~ s|\r?\n|<br />|sg;
return $in;
}

if ($var =~ m/something/) {
...
}

if ($var =~ m|something|) {
..
}

<%Plugins::ULTRAGlobals::Count_Words($Field)%>
<%Plugins::ULTRAGlobals::Count_Chars($Field)%>