ROB — Tue, 13 Nov 2001 03:17:46 +0000

how bout something like this:

my $start = ($input{'start'}) ? $input{'start'} : 0;
my $perpage = 10;

$files = "reports.dat"; 
open(IP,"$files") or dienice ("Couldnt open that file, which is $files Please email keith about this: $!"); 
@ufile = <IP>; 
close(IP); 

my $output = "<ul>";

@thelist = reverse(sort @ufile));

for($i=$start; $i<$perpage+$start; ++$i)
{	last if !$thelist[$i];
	chomp($thelist[$i]);
	my 	($number,$title,$date,$who) = split(/\|/,$thelist[$i]); 
	$output .= qq(<li><a href="http://www.gptboycott.com/reports/$number.shtml">$title</a></li><font size="2"><br><b>Written by:</b> $who<br><b>Date written:</b> $date<br><br></font> ); 
}

++$i;

$output .= "</UL>\n";
$output .= qq(<A HREF="$path_to_this_script?start=$i">next page</a>);

print $output;

keith2045 — Mon, 12 Nov 2001 22:28:45 +0000

Thanks but i need some help with that code.

I dont think that code will work with the way i am printing my results. I think it would be easier if i just showed you.

$files = "reports.dat";
open(IP,"$files") or dienice ("Couldnt open that file, which is $files Please email keith about this: $i");
@ufile = ;
close(IP);
print "

$title

Written by: $whoDate written: $date);

}

Thanks

Keith

ROB — Sun, 11 Nov 2001 04:37:09 +0000

$input{'querystart'} = 0 if !$input{'querystart'};

@articles = get_the_articles();

for($i=$input{'querystart'};$i<$input{'querystart'}+10;++$i)
{ print $article[$i];
}

$i++;
print next