version 1.95, 2003/04/09 23:31:54
|
version 1.96, 2003/04/10 00:05:04
|
Line 766 sub PrintList {
|
Line 766 sub PrintList {
|
a({href=>url."?".$qs."\&first=$llprint"},">>").(" "x4) |
a({href=>url."?".$qs."\&first=$llprint"},">>").(" "x4) |
} |
} |
$Output.= "$nav".br."\n"; |
$Output.= "$nav".br."\n"; |
my @q=@$Questions[$first..$last]; |
my @q=@$Questions[$first-1..$last-1]; |
my %q=(); |
my %q=(); |
my $sth=SelectQuestions($dbh,\@q,1); |
my $sth=SelectQuestions($dbh,\@q,1); |
for (my $i = $first; $i <= $last; $i++) { |
for (my $i = $first; $i <= $last; $i++) { |