db/prgsrc/dbchgk.pm - diff

Return to dbchgk.pm CVS log

Up to [Local Repository] / db / prgsrc

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)=@_;