No, really not. I sit here now for an hour, but i still stuck.
Itīs sorted by ID .
It seems that the options arenīt used here.
If i left them i got the same result.
Robert
PS: There is an error above, while it must be named:
my $tags = shift;
my $cat_db = $DB->table ('Category');
my $sth = $cat_db->select ({FatherID => 0, Menu => "Links"},['Full_Name','Number_of_Links','Has_New_Links']);
$cat_db->select_options('ORDER BY Sorter ASC', 'LIMIT 50');
my $output;
while (my ($name,$links,$new) = $sth->fetchrow_array) {
my $url = $cat_db->as_url($name);
if ($new eq 'Yes')
{$new = "<span class=new>NEU</span>"}
else {$new = ""}
$output .= qq~<a href="/$url">$name</a> ($links) $new<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#9595FF"><img src="/img/b.gif" width="1" height="1"></td>
</tr>
</table>
~;
}
return $output;
}
Itīs sorted by ID .
It seems that the options arenīt used here.
If i left them i got the same result.
Robert
PS: There is an error above, while it must be named:
Code:
sub { my $tags = shift;
my $cat_db = $DB->table ('Category');
my $sth = $cat_db->select ({FatherID => 0, Menu => "Links"},['Full_Name','Number_of_Links','Has_New_Links']);
$cat_db->select_options('ORDER BY Sorter ASC', 'LIMIT 50');
my $output;
while (my ($name,$links,$new) = $sth->fetchrow_array) {
my $url = $cat_db->as_url($name);
if ($new eq 'Yes')
{$new = "<span class=new>NEU</span>"}
else {$new = ""}
$output .= qq~<a href="/$url">$name</a> ($links) $new<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#9595FF"><img src="/img/b.gif" width="1" height="1"></td>
</tr>
</table>
~;
}
return $output;
}