Try this
It used to work with glinks 2.2 but not tested with 3 and up:
sub {
my $tags = shift;
my $cat_db = $DB->table(\'Category\');
$cat_db->select_options (\'ORDER BY Full_Name\');
my $sth = $cat_db->select ( { FatherID => 0 } );
my $output="";
my $root = [{}];
while (my $root_cat = $sth->fetchrow_hashref) {
push @$root, $root_cat;
}
$output = Links::SiteHTML::display (\'print_cat\', $root);
return $output;
} '
Regards
KaTaBd
Users plug In - Multi Search And Remote Search plug in - WebRing plug in - Muslims Directory
It used to work with glinks 2.2 but not tested with 3 and up:
sub {
my $tags = shift;
my $cat_db = $DB->table(\'Category\');
$cat_db->select_options (\'ORDER BY Full_Name\');
my $sth = $cat_db->select ( { FatherID => 0 } );
my $output="";
my $root = [{}];
while (my $root_cat = $sth->fetchrow_hashref) {
push @$root, $root_cat;
}
$output = Links::SiteHTML::display (\'print_cat\', $root);
return $output;
} '
Regards
KaTaBd
Users plug In - Multi Search And Remote Search plug in - WebRing plug in - Muslims Directory