foreach (@data) {
next if ($_ !~ /\d+/);
$i++;
chomp $_;
}

if (($i > 5) && ($i < 11)) {
$int = int($i / 5) + 1;
} else {
$int = int($i / 5);
}

$nm = 0;
while ($nm++ < $int) {
$next .= "<a href=\"$db_cgi_url/track.cgi?span=$nm\"><font size=2>[Page $nm]</font></a>";
}

$span = $IN->param('span');

if ($span == 1) {
$count = 0;
while ($count++ < 5) {
next if ($data[$count] !~ /\d+/);
my (%rec) = &get_record($data[$count]);
$saved .= &site_html_track_link(%rec);
}
} else {
$min = ($span * 2) + 1;
$max = ($span * 5) - 1;
for ($_[$min]..$_[$max]) {
next if ($data[$_] !~ /\d+/);
my (%rec) = &get_record($data[$_]);
$saved .= &site_html_track_link(%rec);
}
}