This is really a basic question about PageBuilder and printing category lists ...

I want to create a new OPML-file, which is an XML-file looking like this:




Here, "Services" would be a toplevel category, with "Google API" and "xmlStorageSystem" would be sub-categories (and "Implementations" the name of two sub-sub-categories, etc.).
But with some somewhat complex nesting within tags...

Can anyone help me here?

I can make the "flat" lists, like these...

Get and print main categories:



Get and print all categories:



But how to make the nested lists??

Hi,

You don't happen to have a global that list all links in one Main category and all sub categorories of that mai n category do you?

Klaus

---

http://www.ameinfo.com

Something like this?

sub {
my ($all_ids,@list);

my $tags = shift
my $cat_id = $tags->{ID};
$all_ids = $DB->table('Category')->children($cat_id);
push @$all_ids, $cat_id;
my $link_db = $DB->table('Links','CatLinks','Category');
my $condition = GT::SQL::Condition->new( 'isValidated','=','Yes','CategoryID', 'IN', \@$all_ids);
my $sth = $link_db->select($condition);
while (my $link = $sth->fetchrow_hashref) {
push @list, $link;
}

my $output;
foreach my $link (@list) {
$output .= qq~<li><a href="$CFG->{db_cgi_url}/jump.cgi?ID=$link->{ID}">$link->{'Title'}</a>~;
}

return $output;

}

Cheers :-)

Klaus

---

http://www.ameinfo.com

OK, back to my question now, please Anyone?

If you start with your root cats sub, so that you select the root cats using

my $sth0 = $cat_db->select ( ['ID','Full_Name'],{ FatherID => 0 });

then use a while loop to loop through the root categories instead of your foreach loop:

while (my ($cat_id,$name) = $sth2->fetchrow_array){ ... }

Now, within the while loop you could add another select for all the sub categories of that root category using

my $sth1 = $cat_db->select ( ['ID','Full_Name'],{ FatherID => $cat_id });

and keep going for the depth that you want.

Hope that makes sense.

Laura.

Thanks Laura,

Now, don't laugh at me ... here is what I'm trying. Of course, it's wrong, because I basically don't know what I'm doing ...



Well, it must be something like this, just coded right Please help ...

John

You're on the right lines but I think it is a little more involved than that. Something like this?

sub {
my $tags = shift;
my $cat_db = $DB->table('Category');
my $sth0 = $cat_db->select ( ['ID','Full_Name'],{ FatherID => 0 });

my ($output,$url,$url1,$url2);
while (my ($cat_id,$name) = $sth0->fetchrow_array){
$url = $cat_db->as_url($name);
$output .= qq~<outline text="$name" type="link" url="$CFG->{build_root_url}/$url">\n~;
my $sth1 = $cat_db->select ( ['ID','Full_Name'],{ FatherID => $cat_id });
while (my ($cat1_id,$name1) = $sth1->fetchrow_array){
$url1 = $cat_db->as_url($name1);
$output .= qq~<outline text="$name1" type="link" url="$CFG->{build_root_url}/$url1">\n~;
my $sth2 = $cat_db->select ( ['ID','Full_Name'],{ FatherID => $cat1_id });
while (my ($cat2_id,$name2) = $sth2->fetchrow_array){
$url2 = $cat_db->as_url($name2);
$output .= qq~<outline text="$name2" type="link" url="$CFG->{build_root_url}/$url2">\n~;
# If you need more depth you'll need to add more while loops in here.
$output .= "</outline>";
}
$output .= "</outline>";
}
$output .= "</outline>";
}
return $output;
}

Yes!! That did it. I'm thrilled! Thanks Laura

FWIW, I use the global to produce an OPML-file, see

http://slashdemocracy.org/links/all.opml

This allows me to do cool stuff, such as this:

http://slashdemocracy.org/...ser.php?fil=all.opml
(which might not look like much, but really is way cool ... see my blog more more)

Once again, LSQL proves to be such a wonderful tool. Everything is possible with it, it seems ... especially with a little help from wonderful people like Laura.

John
PS: If anyone is using this code, just add $cat_db->select_options("ORDER BY Full_Name"); to order the list alphabetically.
PPS: Anyone interested in OPML? Let me know. (OK, I have said that several times before ... I know)

How about WML? It more interesting

Best regards,
Webmaster33

---

Paid Support from Webmaster33. Expert in Perl programming & Gossamer Threads applications. (click here for prices)
Webmaster33's products (upd.2004.09.26) | Private message | Contact me | Was my post helpful? Donate my help...

WML? Maybe. I don't think it's useful in my case, but there may be places where it's useful.

John

Was just joking... I'm going to dig a bit into WML nowadays.

Best regards,
Webmaster33

---

Paid Support from Webmaster33. Expert in Perl programming & Gossamer Threads applications. (click here for prices)
Webmaster33's products (upd.2004.09.26) | Private message | Contact me | Was my post helpful? Donate my help...