Gossamer Forum: Products: Gossamer Links: Discussions: Related Categories List

Aug 10, 2006, 10:33 AM

mapleleafweb

Novice (37 posts)

Aug 10, 2006, 10:33 AM

Post #1 of 12

Shortcut

Related Categories List

I am interested in providing a list of categories in which the link is present in the database. Currently I have a list of categories, to which the link is located, generated and displayed. You can see can example of this here:

http://www.policy.ca/...ry/Detailed/833.html

look down and at the "Subjects / Category:" field in the table. I like the way this works, but I would like to refine the result so that it presents that output like this,

Policy Articles / Aboriginal
Policy Articles / Aboriginal / Governance
Policy Articles / Aboriginal / Governance / 2003
Policy Articles / Aboriginal / Treaty Rights
Policy Articles / Aboriginal / Treaty Rights / 2003

This is the template global that I am currently using:

----------------------code------------------------

sub {
my $tags = shift;
my $seen;
my $id = $tags->{'ID'};
my $db = $DB->table ('Category','CatLinks');
my $sth = $db->select ( { LinkID => $id }, ['Name','Full_Name'] );
my $cat;
while (my ($name,$full_name) = $sth->fetchrow_array) {
if ($seen->{$name}) { next; }
$full_name =~ s/ /_/g;
$full_name =~ s/&/_/g;
$full_name =~ s/,/_/g;
$cat .= qq~<a href="$CFG->{build_root_url}/$full_name/index.html">$name</a> ~;
$seen->{$name} = 1;
}
return $cat;
}

----------------------code------------------------

Any ideas on how i could change the Global Template to output like the example above? Is there already a template global or plugin that accomplishes this?

Aug 10, 2006, 11:13 AM

jdgamble

Enthusiast (700 posts)

Aug 10, 2006, 11:13 AM

Post #2 of 12

Shortcut

Re: [mapleleafweb] Related Categories List In reply to

try this:

Code:

 sub {  
my $tag = shift;  
my ($table, $sth, $catID, $cattable, $sth2, $name, @dirs, $output, $i);  
$table = $DB->table ('CatLinks');  
$sth = $table->select ( { LinkID => $tag->{ID} }, ['CategoryID'] );  
$catID = $sth->fetchrow();  
$cattable = $DB->table('Category');  
$sth2 = $cattable->select ( { ID => $catID }, ['Full_Name'] );  
$name = $sth2->fetchrow_array;  
@dirs = split (/\//, $name); 
$i = 0; 
for (0 .. $#dirs) {  
my $path = "/" . $cattable->as_url( join "/", @dirs[0 .. $_] );  
$output .= " <a href=\"$CFG->{'build_root_url'}$path/$CFG->{'build_index'}\">$dirs[$_]</a>"; 
$output .= " /" if $i < $#dirs; 
$i++; 
} 
return $output; 
}

I think this is what you want...

- Jonathan

Aug 10, 2006, 11:25 AM

mapleleafweb

Novice (37 posts)

Aug 10, 2006, 11:25 AM

Post #3 of 12

Shortcut

Re: [jdgamble] Related Categories List In reply to

Yes, we're very close.

I replaced the original template global with your code and you can see the changes here:

http://www.policy.ca/...ailed%2F833.html;d=1

As you can see, the output was,

Policy Articles / Aboriginal / Governance

Which is very very close. However, the link is in more than that one category - as you can see from my top post.

Any ideas on how we could expand the output to include all the categories that link is present in?

Thanks!

Aug 10, 2006, 11:29 AM

brewt

Staff (4101 posts)

Aug 10, 2006, 11:29 AM

Post #4 of 12

Shortcut

Re: [mapleleafweb] Related Categories List In reply to

Why not just change your original code to use the full name as the link name instead of $name?

Adrian

Aug 10, 2006, 12:26 PM

jdgamble

Enthusiast (700 posts)

Aug 10, 2006, 12:26 PM

Post #5 of 12

Shortcut

Re: [mapleleafweb] Related Categories List In reply to

In Reply To:

Why not just change your original code to use the full name as the link name instead of $name?[/quote]
Because then it would not be linked the correct way. I know I'm O.C.D.

Try this:

Code:

 sub {  
  my $tags = shift;  
  my $db = $DB->table ('Category','CatLinks');  
  my $cattable = $DB->table('Category'); 
  my $sth = $db->select ( { LinkID => $tags->{'ID'} }, ['Name','Full_Name'] );  
  my $cat;  
  while (my ($name, $full_name) = $sth->fetchrow_array) {  
    my @dirs = split (/\//, $full_name); 
    my $i = 0; 
    for (0 .. $#dirs) { 
      my $path = $cattable->as_url(join "/", @dirs[0 .. $_]); 
      $cat .= qq~<a href="$CFG->{build_root_url}/$path/$CFG->{'build_index'}">$dirs[$_]</a>~; 
      $cat .= " / " if $i < $#dirs; 
      $i++; 
    } 
  }  
return $cat;  
}

hopefully getting closer...

- Jonathan

Aug 10, 2006, 12:39 PM

mapleleafweb

Novice (37 posts)

Aug 10, 2006, 12:39 PM

Post #6 of 12

Shortcut

Re: [jdgamble] Related Categories List In reply to

Excellent, this is great!

You can see the result here:
http://www.policy.ca/...ailed%2F833.html;d=1

The only things is, we need to have a in there to place a space between the different categories. I've tried placing in a few places, but can't seem to find the right place.

Aug 10, 2006, 12:41 PM

jdgamble

Enthusiast (700 posts)

Aug 10, 2006, 12:41 PM

Post #7 of 12

Shortcut

Re: [mapleleafweb] Related Categories List In reply to

uh after this...

Code:

       $i++;  
    }

add $cat . = " \n";

Hopefully that should do it.

- Jonathan

Aug 10, 2006, 12:47 PM

mapleleafweb

Novice (37 posts)

Aug 10, 2006, 12:47 PM

Post #8 of 12

Shortcut

Re: [jdgamble] Related Categories List In reply to

Nope, I can't seem to get it to work

Here is the code in full with the bolded:

Code:
sub {   
  my $tags = shift;   
  my $db = $DB->table ('Category','CatLinks');   
  my $cattable = $DB->table('Category');  
  my $sth = $db->select ( { LinkID => $tags->{'ID'} }, ['Name','Full_Name'] );   
  my $cat;   
  while (my ($name, $full_name) = $sth->fetchrow_array) {   
    my @dirs = split (/\//, $full_name);  
    my $i = 0;  
    for (0 .. $#dirs) {  
      my $path = $cattable->as_url(join "/", @dirs[0 .. $_]);  
      $cat .= qq~<a href="$CFG->{build_root_url}/$path/$CFG->{'build_index'}">$dirs[$_]</a>~;  
      $cat .= " / " if $i < $#dirs;  
      $i++; 
 add $cat . = "<br>\n";  
       }  
     } 
return $cat;   
}

Aug 10, 2006, 12:53 PM

jdgamble

Enthusiast (700 posts)

Aug 10, 2006, 12:53 PM

Post #9 of 12

Shortcut

Re: [mapleleafweb] Related Categories List In reply to

Code:
  sub {   
  my $tags = shift;   
  my $db = $DB->table ('Category','CatLinks');   
  my $cattable = $DB->table('Category');  
  my $sth = $db->select ( { LinkID => $tags->{'ID'} }, ['Name','Full_Name'] );   
  my $cat;   
  while (my ($name, $full_name) = $sth->fetchrow_array) {   
    my @dirs = split (/\//, $full_name);  
    my $i = 0;  
    for (0 .. $#dirs) {  
      my $path = $cattable->as_url(join "/", @dirs[0 .. $_]);  
      $cat .= qq~<a href="$CFG->{build_root_url}/$path/$CFG->{'build_index'}">$dirs[$_]</a>~;  
      $cat .= " / " if $i < $#dirs;  
      $i++;  
    }    $cat .= "<br>\n"; 
  }   
return $cat;   
}