--- db/prgsrc/dump2dump.pl	2001/11/01 01:44:59	1.3
+++ db/prgsrc/dump2dump.pl	2002/01/13 00:32:12	1.4
@@ -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;
 }