You removed a few extra things... Put the blue parts back in:


$v = 0;
$output .= qq~<BR><SPAN CLASS="xsmall">~;
foreach $subcatsub (sort @{$subcategories{$subcat}}) {
$suburl = "$build_root_url/" . &urlencode($subcatsub) . "/";
if ($subcatsub =~ m,.*/([^/]+)$,) {$subcategory_name = &build_clean($1);}
else {$subcategory_name = &build_clean($subcatsub);}
$output .= qq~<font face="Arial" size="-1" color="Black"><A HREF="$suburl"> $subcategory_name</A>~ if ($v <= 5);
$output .= qq~...~ if ($v eq "5");
$output .= qq~ - ~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);
$v++;
}
$output .= qq~</font><br>~;
}



Then to make it look better, change these:

# Print Header.
$output = qq|<table width="80%" border="0" cellspacing="0" cellpadding="0"><tr><td class="catlist" valign="top"width="45%">\n|;


$output .= qq|</td><td width="10%">&nbsp;</td><td class="catlist" valign="top"width="45%">\n|;


Leonard
aka PerlFlunkie

Now all ok

a chart can be inserted in the pages of the categories like this example http://boatdesign.net/Directory/Boatbuilders / in the right side for inseire a banner of dimensions 120 xes 60
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it

Try this one...

http://www.gossamer-threads.com/...i?post=139897#139897


======

You can change how the Yahoo-style mod works by changing the '5' to a higher number, if you want. Also, on my site, I replaced the ... with the word 'more»' linked to the main category. Here is the code:

$output .= qq~<a href="$suburl">$subcategory_name</a>~ if ($v <= 5);
$output .= qq~,&#160;\n~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);
$output .= qq~<a href="$url"> more&#187;</a>\n~ if ($v eq "5");
$v++;

Notice that those two lines have switched places from the original code.
&#160; is just a blank space, like &nbsp;
&#187; is one of these: »




Leonard
aka PerlFlunkie

it excuses they don't owe the categories to apparirire on the side but a banner of dimensions 120 xes 600
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it

First a working link for the one above that doesn't:
http://www.gossamer-threads.com/...egory%20list;#237907

Next, I'm not sure what you want. Do you want an advertising banner? Or one like you mention at boatdesign.net, which has both site nav and category lists in it? And do you want it 120 wide or 120 tall?


Leonard
aka PerlFlunkie

you see this example on the side right announcements google

http://dir.yahoo.com/Arts/Art_History/
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it

What do you want to put there? Ads?


Leonard
aka PerlFlunkie

I want to put him my announcements that have as greatness: wide 120 tall 600
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it

This sounds like more of a general HTML type question, and not Links-specific. Is there someone who can help you with HTML who speaks Italian? Have you looked at these sites:

http://www.fucinaweb.com/design/

http://www.html.it/


Leonard
aka PerlFlunkie

1 - You see Example Like I would Like to Publish My Code

Lines ATTACMENT

2 - Link change look


Example good

Boat plans and kits for power and sail.
Boat Plans | Free Plans | Kits | Small Boats

Change my link

Accessori[/b] (12)
Coperta »Ormeggio »Sistemi di Guida »Sotto Coperta »Tappezzeria Navale »Vela.
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it

- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it

Need to see that bit of code again, to see what you did. Post what you have between...

# Then we print out the name linked, new if it's new, and popular if its popular.

and

# Don't forget to end the unordered list.

--

Do you want pipes | between the subcat names, instead of the >>?
Your source code is like so:

<A HREF="http://lnx.nauticalink.it/links/Accessori/Coperta/">
</font>
Coperta
</A>
<a href="http://lnx.nauticalink.it/links/Accessori/">
&#187;
</a>
<font face="Arial" size="-2" color="black">
<font color="Silver">
<A HREF="http://lnx.nauticalink.it/links/Accessori/Ormeggio/">
</font>
Ormeggio
</A>
<a href="http://lnx.nauticalink.it/links/Accessori/">
&#187;
</a>

You are closing the font tag before the name of the link.

This should only appear at the end of the sub cat list, and then only if there are more subcats than show up on the main page.


Leonard
aka PerlFlunkie

this my code online


# Print Header.
$output = qq|<table width="80%" border="0" cellspacing="0" cellpadding="0"><tr><td class="catlist" valign="top"width="50%">\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><td width="10%">&nbsp;</td><td class="catlist" valign="top"width="45%">\n|;
}
$i++;
# Then we print out the name linked, new if it's new, and popular if its popular.
$output .= qq|<font face="Arial, Helvetica, sans-serif" size="-1"><a class="link" href="$url"><b><font color="Blue">$category_name</font></b></a></strong> <small class="numlinks">($numlinks)</small> |;
$output .= qq|<img src="http://www.nauticalink.it/new.gif">| if (&days_old($mod) < $db_new_cutoff);
$output .= qq|<br><span class="descript"><font face="Arial" size="-2" color="Black">$description</font> </span></dd>| if (!($description =~ /^[\s\n]*$/));
$output .= qq||;if ($#{$subcategories{$subcat}} >= 0) {
$v = 0;
$output .= qq~<BR><SPAN CLASS="xsmall">~;
foreach $subcatsub (sort @{$subcategories{$subcat}}) {
$suburl = "$build_root_url/" . &urlencode($subcatsub) . "/";
if ($subcatsub =~ m,.*/([^/]+)$,) {$subcategory_name = &build_clean($1);}
else {$subcategory_name = &build_clean($subcatsub);}
$output .= qq~<font face="Arial" size="-2" color="black"><font color="Silver"><A HREF="$suburl"></font>$subcategory_name</A>~ if ($v <= 5);
$output .= qq~.~ if ($v eq "5");
$output .= qq~<a href="$url"> &#187;</a>~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);
$v++;
}
$output .= qq~</font><br>~;
}

$output .= qq|<br>\n|;
}
# Don't forget to end the unordered list..
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it

Add green, remove red:


# Then we print out the name linked, new if it's new, and popular if its popular.
$output .= qq|<font face="Arial, Helvetica, sans-serif" size="-1"><a class="link" href="$url"><b><font color="Blue">$category_name</font></b></a></font></strong> <small class="numlinks">($numlinks)</small> |;
$output .= qq|<img src="http://www.nauticalink.it/new.gif">| if (&days_old($mod) < $db_new_cutoff);
$output .= qq|<br><span class="descript"><font face="Arial" size="-2" color="Black">$description</font> </span></dd>| if (!($description =~ /^[\s\n]*$/));

$output .= qq||;if ($#{$subcategories{$subcat}} >= 0) {
$v = 0;
$output .= qq~<BR><SPAN CLASS="xsmall">~;
foreach $subcatsub (sort @{$subcategories{$subcat}}) {
$suburl = "$build_root_url/" . &urlencode($subcatsub) . "/";
if ($subcatsub =~ m,.*/([^/]+)$,) {$subcategory_name = &build_clean($1);}
else {$subcategory_name = &build_clean($subcatsub);}
$output .= qq~<font face="Arial" size="-2" color="black"><font color="Silver"><A HREF="$suburl"></font>$subcategory_name</A>~ if ($v <= 5);
$output .= qq~&#160;&#124;&#160;\n~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);
$output .= qq~<a href="$url">&#160;more&#187;</a>\n~ if ($v eq "5");
$output .= qq~.~ if ($v eq "5");
$output .= qq~<a href="$url"> &#187;</a>~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);
$v++;
}
$output .= qq~</font><br>~;
}

$output .= qq|<br>\n|;
}
# Don't forget to end the unordered list..


Leonard
aka PerlFlunkie

ok modify http://lnx.nauticalink.it/links/
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it

Looks good. one more thing, since some of your categories do not have subcats, they are not spacing right because the <br> tag is in the subcat code. Make this change to fix (add green, remove red):

$output .= qq|<br><span class="descript"><font face="Arial" size="-2" color="Black">$description</font> </span><br>| if (!($description =~ /^[\s\n]*$/));

if ($#{$subcategories{$subcat}} >= 0) {
$v = 0;
$output .= qq~<BR><SPAN CLASS="xsmall">~;
foreach $subcatsub (sort @{$subcategories{$subcat}}) {
$suburl = "$build_root_url/" . &urlencode($subcatsub) . "/";
if ($subcatsub =~ m,.*/([^/]+)$,) {$subcategory_name = &build_clean($1);}


Leonard
aka PerlFlunkie

Red modify
green original

# Then we print out the name linked, new if it's new, and popular if its popular.
$output .= qq|<font face="Arial, Helvetica, sans-serif" size="-1"><a class="link" href="$url"><b><font color="Navy">$category_name</font></b></a></strong> <small class="numlinks">($numlinks)</small> |;
$output .= qq|<img src="http://www.nauticalink.it/new.gif">| if (&days_old($mod) < $db_new_cutoff);
$output .= qq|<br><span class="descript"><font face="Arial" size="-2" color="Black">$description</font> </span></dd>| if (!($description =~ /^[\s\n]*$/));
$output .= qq||;if ($#{$subcategories{$subcat}} >= 0) {
$v = 0;
$output .= qq~<BR><SPAN CLASS="xsmall">~;
foreach $subcatsub (sort @{$subcategories{$subcat}}) {
$suburl = "$build_root_url/" . &urlencode($subcatsub) . "/";
if ($subcatsub =~ m,.*/([^/]+)$,) {$subcategory_name = &build_clean($1);}
else {$subcategory_name = &build_clean($subcatsub);}
$output .= qq~<font face="Arial" size="-2" color="black"><font color="Silver"><A HREF="$suburl"></font>$subcategory_name</A>~ if ($v <= 5);
$output .= qq~.~ if ($v eq "5");
$output .= qq~ | </a>~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);
$output .= qq~<a href="$url"> &#187;</a>~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);

$v++;
}
$output .= qq~</font><br>~;
}

$output .= qq|<br>\n|;
}
# Don't forget to end the unordered list..
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it

Look at post #39 above to see what needs to be changed. Also, you still have tags that are not required: </dd> </strong> ...


Leonard
aka PerlFlunkie

excuse but what the problem.I have seen that it works me correctly all

http://lnx.nauticalink.it/links/
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it

I wasn't sure if you had a problem...

But, you do have redundant code (in bold):

$output .= qq~ | </a> ~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);

$output .= qq~ <a href="$url"> &#187;</a> ~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);

Remove one of them:

Remove ALL of the red code, and you will then get this: » linked to the main category. It looks like this (mine has the word 'more' included):

Personal Pages, Link Indexes, Discussion Boards, Clip Art, Web-Hosts & How-To, Fonts & Software, more»


Remove ALL of the blue code to keep the | at the end of the sub-category list. In the red code, the </a> is not needed, remove it.


Leonard
aka PerlFlunkie

no good look modify

good working my modify.


as I can have the line removed from the link under.

Then I would like to do like your situated webs that when the link is visited the line and visible
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it

That is done with CSS. In your links.css file, add this:

a.cat:link{
color: #0000FF;
size: -2;
text-decoration: none;
}
a.cat:visited {
color: #800080;
size: -2;
text-decoration: none;
}
a.cat:hover {
color: #0000FF;
size: -2;
text-decoration: underline;
}
a.cat:active {
color: #0000FF;
size: -2;
text-decoration: underline;
}

Then change this line (same as area as the above code); remove red, add green:

$output .= qq~ <font face="Arial" size="-2" color="black"><font color="Silver"><A class="cat" HREF="$suburl"></font>$subcategory_name</A>~ if ($v <= 5);


Leonard
aka PerlFlunkie

this no good

my modify

$output .= qq~<A class="cat" HREF="$suburl"></font>$subcategory_name</A>~ if ($v <= 5);
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it

Did you add the code to the links.css file? Also, remove the </font> tag


Leonard
aka PerlFlunkie

Ok the preceding job and is made all ok.

Now I would like to know if and possible to insert in home page the number of the affiliate to the news letters.
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it