Oh thanks.
I've changed the red text. Is that right?
sub {
my $cat = $_[0];
my $all_ids = $DB->table('Category')->children($cat);
push @$all_ids, $cat;
my $db_obj = $DB->table('Category');
$db_obj->select_options ('ORDER BY Full_Name DESC');
my $sth = $db_obj->select ( GT::SQL::Condition->new('ID', 'IN', $all_ids) ) || die $GT::SQL::error;
my @cats;
while (my $hit = $sth->fetchrow_hashref) {
$hit->{URL} = $CFG->{build_root_url} . "/" . $DB->table('Category')->as_url( $hit->{Full_Name} ) . "/" . $CFG->{build_index};
push @cats, $hit;
}
return { cats_loop => \@cats }
}
Now I tried your script. I cann see the links
but under any link is this text:
Error: Unmatched endif/endifnot/endunless tag
I've changed the red text. Is that right?
sub {
my $cat = $_[0];
my $all_ids = $DB->table('Category')->children($cat);
push @$all_ids, $cat;
my $db_obj = $DB->table('Category');
$db_obj->select_options ('ORDER BY Full_Name DESC');
my $sth = $db_obj->select ( GT::SQL::Condition->new('ID', 'IN', $all_ids) ) || die $GT::SQL::error;
my @cats;
while (my $hit = $sth->fetchrow_hashref) {
$hit->{URL} = $CFG->{build_root_url} . "/" . $DB->table('Category')->as_url( $hit->{Full_Name} ) . "/" . $CFG->{build_index};
push @cats, $hit;
}
return { cats_loop => \@cats }
}
Now I tried your script. I cann see the links
but under any link is this text:
Error: Unmatched endif/endifnot/endunless tag