version 1.11, 2005/12/10 00:03:55
|
version 1.12, 2008/02/08 22:49:12
|
Line 26 use vars qw(@ISA @EXPORT);
|
Line 26 use vars qw(@ISA @EXPORT);
|
|
|
@EXPORT = qw(&getbase &getquestions &closebase &getrow $z &in2out &getall &addnf &out2in &mydo |
@EXPORT = qw(&getbase &getquestions &closebase &getrow $z &in2out &getall &addnf &out2in &mydo |
&getequalto &forbidden &getquestion &checktable &addword2task &addnest &getwordkeys &getflag &addword2task |
&getequalto &forbidden &getquestion &checktable &addword2task &addnest &getwordkeys &getflag &addword2task |
&updateword2question &knownword &incnf &searchmark &knownnf &getnests |
&updateword2question &updatew2q &knownword &incnf &searchmark &knownnf &getnests |
&packword &getnfnumbers &getword2question &addauthors) ; |
&packword &getnfnumbers &getword2question &addauthors) ; |
|
|
my $z; |
my $z; |
Line 152 die "packword: fieldnumber is $fieldnumb
|
Line 152 die "packword: fieldnumber is $fieldnumb
|
$r=pack("CSC",$fieldnumber|(($id >> 16) << 4),$id%65536,$wordnumber%256); |
$r=pack("CSC",$fieldnumber|(($id >> 16) << 4),$id%65536,$wordnumber%256); |
} |
} |
|
|
|
|
|
sub updatew2q { |
|
my ($n,$fieldnumber, $id,$wordnumber)=@_; |
|
my ($z,@a); |
|
$query="replace into w2q (wordId,questionId,fieldNumber,wordNumber) values ($n,$id,$fieldnumber,$wordnumber)"; |
|
print "$query\n" if $debug; |
|
$qbase->do($query); |
|
} |
|
|
sub updateword2question |
sub updateword2question |
{ |
{ |
my ($n,$addstring,$was)=@_; |
my ($n,$addstring,$was)=@_; |