--- db/prgsrc/dump2dump.pl	2002/01/13 00:32:12	1.4
+++ db/prgsrc/dump2dump.pl	2002/01/14 01:41:08	1.5
@@ -86,11 +86,11 @@ foreach my $id (values %id)
 
 sub s
 {
-!!!! Ne doizmeneno!!!!!!!!!
+#!!!! Ne doizmeneno!!!!!!!!!
   my $a=shift;
   my $unpacked=unpack("L",$a);
   my $field=$unpacked && 0xF;
   $unpacked=$id{(($unpacked & 0xF0) << 12) + $unpacked & 0xFFFF};
-  my $packed=$field | $unpacked & 0xF0) << 12) + $unpacked & 0xFFFF);
+#  my $packed=$field | $unpacked & 0xF0) << 12) + $unpacked & 0xFFFF);
   $packed;
 }