version 1.116, 2003/04/28 22:49:50
|
version 1.117, 2003/04/29 22:21:26
|
Line 745 sub PrintList {
|
Line 745 sub PrintList {
|
my ($dbh,$Questions,$shablon,$was)=@_; |
my ($dbh,$Questions,$shablon,$was)=@_; |
my $Output; |
my $Output; |
my $first=param('first') ||1; |
my $first=param('first') ||1; |
print "shablon=$shablon".p; |
|
$first=$first-($first-1)%$outputkvo; |
$first=$first-($first-1)%$outputkvo; |
my $fkvo=param('fkvo')||($#$Questions+1); |
my $fkvo=param('fkvo')||($#$Questions+1); |
my $last=$first+$outputkvo-1; |
my $last=$first+$outputkvo-1; |