Gossamer Forum
Home : General : Perl Programming :

Text files, directories, back and next buttons.

(Page 2 of 2)
> >
Quote Reply
Re: [Wil] Text files, directories, back and next buttons. In reply to
>>Nah. Use graphics as your links, like I do ;-) Then I'd be impressed <g>. <<

Well thats pretty simple :)

I just need to change $_ to <img src="/images/$_.gif"> and name my images 1.gif 2.gif etc Laugh

Last edited by:

Paul: Mar 20, 2002, 4:03 AM
Quote Reply
Re: [Paul] Text files, directories, back and next buttons. In reply to
I know. Just teasing.

- wil
Quote Reply
Re: [Wil] Text files, directories, back and next buttons. In reply to
Smile
Quote Reply
Re: [Paul] Text files, directories, back and next buttons. In reply to
Hm. I've just got this at the moment :-)

Code:
if ($mxr > $page_size)
{
if ($srp == 0)
{
push (@nav_links, "<img src=http://cgi.fbagroup.co.uk/images/icons/first_grey.gif border=0>");
push (@nav_links, "<img src=http://cgi.fbagroup.co.uk/images/icons/prev_grey.gif border=0>");
}
else
{
$prev_no = $srp - $page_size;
push (@nav_links, "<a href=odb.cgi?browse=$browse;$navlinks;lang=$q::lang;srp=0;mxr=$mxr;><img src=http://cgi.fbagroup.co.uk/images/icons/first.gif border=0></a>");
push (@nav_links, "<a href=odb.cgi?browse=$browse;$navlinks;lang=$q::lang;srp=$prev_no;mxr=$mxr;><img src=http://cgi.fbagroup.co.uk/images/icons/prev.gif border=0></a>");
}

for (my $i = 0; $i < $mxr; $i += $page_size)
{
$page_nw = int ($i / $page_size);
my $page_no = int ($i / $page_size) +1;
if ($srp == $i)
{
push (@nav_links, "<B>$page_no</B>");
}
else
{
push (@nav_links, "<a href=odb.cgi?browse=$browse;$navlinks;lang=$q::lang;srp=$i;mxr=$mxr; STYLE=color:#003366;text-decoration:none>$page_no</a>");
}
}

if ($srp+$page_size > $mxr)
{
push (@nav_links, "<img src=http://cgi.fbagroup.co.uk/images/icons/next_grey.gif border=0>");
push (@nav_links, "<img src=http://cgi.fbagroup.co.uk/images/icons/last_grey.gif border=0>");
}
else
{
$next_no = $srp + $page_size;
$last_no = $page_nw * $page_size;
push (@nav_links, "<a href=odb.cgi?browse=$browse;$navlinks;lang=$q::lang;srp=$next_no;mxr=$mxr;><img src=http://cgi.fbagroup.co.uk/images/icons/next.gif border=0></a>");
push (@nav_links, "<a href=odb.cgi?browse=$browse;$navlinks;lang=$q::lang;srp=$last_no;mxr=$mxr;><img src=http://cgi.fbagroup.co.uk/images/icons/last.gif border=0></a>");

}

$tmpl_nav_links .= "<FONT FACE=\"verdana,arial,helvetica\" SIZE=\"2\">@nav_links</FONT>";

}

- wil
> >