|
|
|
|
|
|
![]() |
#1 |
I can spearhead the whole begging thing
|
link engine 2.0
Hello,
I am working on my first link list and have let a script installed link 2.0 by gossamer. I am trying to make the catagory table more to my liking in color size and space. I followed the instructions on gossamer forum how to do that In the folder site_html_templates.pl go to sub site_html_print_cat make changes in $output = qq|HTMLCODE\n|; I did that but nothing happens here is my code I use maybe someone can tell me where I go wrong. sub site_html_print_cat { # -------------------------------------------------------- # This routine determines how the list of categories will look. # We now use a table to split the category name up into two columns. # For each category you can use the following variables: # # $url : The URL to go to that category # $category_name : The category name with _ and / removed. # $category_descriptions{$subcat}: The category description (if any). # $numlinks : The number of links inside that category (and subcategories). # $mod : The newest link inside of that category. # my (@subcat) = @_; my ($url, $numlinks, $mod, $subcat, $category_name, $description, $output, $i); my ($half) = int (($#subcat+2) / 2); # Print Header. $output = qq|<div><table width="80%" border="3" cellspacing="0" cellpadding="2" bordercolor=#CCCCG><tr><td valign="top" width="50%"><font face="Arial" size=2><a class="link" href="$url"><font face="Arial" size=2 color=#FFFF00><b>$category_name</a> <small class="numlinks">($numlinks)</small> \n|; foreach $subcat (sort @subcat) { ($description) = @{$category{$subcat}}[2]; # First let's get the name, number of links, and last modified date... $url = "$build_root_url/" . &urlencode($subcat) . "/"; if ($subcat =~ m,.*/([^/]+)$,) { $category_name = &build_clean($1); } else { $category_name = &build_clean($subcat); } $numlinks = $stats{"$subcat"}[0]; $mod = $stats{"$subcat"}[1]; # We check to see if we are half way through, if so we stop this table cell # and begin a new one (this lets us have category names in two columns). if ($i == $half) { $output .= qq| </td><font face="Arial" size=1 color=#FFFF00><td valign="top" width=50%> \n|; } $i++; # Then we print out the name linked, new if it's new, and popular if its popular. $output .= qq|<B><font face="Arial"size="3"><a href="$url">$category_name</a></font></B>($numlinks)</small> |; $output .= qq|<small><sup>new</sup></small>| if (&days_old($mod) < $db_new_cutoff); $output .= qq||; $output .= qq|<dd><span>$description </span></dd>| if (!($description =~ /^[\s\n]*$/)); $output .= qq||; } # Don't forget to end the unordered list.. $output .= "</td></tr></table></div>\n"; return $output; } 1; Thanks in advance, Troy |
![]() |
![]() |
|
|