--- db/prgsrc/dbchgk.pm	2005/12/10 00:03:55	1.11
+++ db/prgsrc/dbchgk.pm	2008/02/08 22:49:12	1.12
@@ -26,7 +26,7 @@ use vars qw(@ISA @EXPORT);
 
 @EXPORT = qw(&getbase &getquestions &closebase &getrow $z &in2out &getall &addnf &out2in &mydo
              &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) ;
 
 my $z;
@@ -152,6 +152,15 @@ die "packword: fieldnumber is $fieldnumb
   $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
 {
   my ($n,$addstring,$was)=@_;