--- db/prgsrc/dump2dump.pl	2001/10/31 03:07:27	1.2
+++ db/prgsrc/dump2dump.pl	2002/01/14 01:41:08	1.5
@@ -20,7 +20,7 @@ dump2dump.pl input output oldtable newta
 
 =cut
 
-
+    use lib "../lib";
 use dbchgk;
 
 open (T2, $ARGV[3]) or die "3: Can not open ". $ARGV[3];
@@ -73,7 +73,7 @@ close (DUMP2);
 print "Setting ProcessedBySearch...\n";
 
 
-$sch=0
+$sch=0;
 foreach my $id (values %id)
 {
   print " $sch...\n" unless (++$sch%100);
@@ -86,9 +86,11 @@ foreach my $id (values %id)
 
 sub s
 {
+#!!!! Ne doizmeneno!!!!!!!!!
   my $a=shift;
-  my $unpacked=unpack("S",$a);
-  $unpacked=$id{$unpacked};
-  my $packed=pack("S",$unpacked);
+  my $unpacked=unpack("L",$a);
+  my $field=$unpacked && 0xF;
+  $unpacked=$id{(($unpacked & 0xF0) << 12) + $unpacked & 0xFFFF};
+#  my $packed=$field | $unpacked & 0xF0) << 12) + $unpacked & 0xFFFF);
   $packed;
 }