version 1.55, 2001/12/31 00:57:07
|
version 1.56, 2001/12/31 18:05:16
|
Line 585 sub PrintList {
|
Line 585 sub PrintList {
|
(" "x4). |
(" "x4). |
a({href=>url."?".$qs."\&first=1"},"<<").(" "x4). |
a({href=>url."?".$qs."\&first=1"},"<<").(" "x4). |
a({href=>(url."?".$qs."\&first=".($first-$kvo))},"<").(" "x4) |
a({href=>(url."?".$qs."\&first=".($first-$kvo))},"<").(" "x4) |
} |
} |
|
|
else {$nav.=' 'x15;} |
else {$nav.=' 'x15;} |
|
|
Line 668 sub PrintSearch {
|
Line 668 sub PrintSearch {
|
$sth->execute; |
$sth->execute; |
my ($q,$nf); |
my ($q,$nf); |
($sstr, $q,$nf)=($sth->fetchrow); |
($sstr, $q,$nf)=($sth->fetchrow); |
@Questions=unpack 'S*',$q; |
@Questions=unpack 'S*',$q; |
@allnf=unpack 'S*',$nf; |
@allnf=unpack 'S*',$nf; |
$sth->finish; |
$sth->finish; |
} else |
} else |