diff --git a/bin/dia2svgmult b/bin/dia2svgmult
new file mode 100755
index 0000000000000000000000000000000000000000..9698f6fc8f63b14c80436af8740c18becb8e9af3
--- /dev/null
+++ b/bin/dia2svgmult
@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+
+my $argCount = $#ARGV;
+
+if (0 != $argCount) {
+  die "usage: dia2svgmult file.dia" ;
+}
+
+my ($diaFileName) = @ARGV;
+
+
+my @layerLines = `gunzip -d -c  $diaFileName |grep '<dia:layer'`;
+
+my %layerblock2id = ();
+my @blockIdList;
+
+foreach my $layerLine (@layerLines) {
+  chop($layerLine);
+
+  $layerLine =~ /^[ \t]*<dia:layer name="([^"]+)"/;
+  my $layerId = $1;
+  $layerId =~ /([^0-9]+)([0-9]+)/;
+  my $nonNumeric = $1, $numeric = $2;
+
+  if ($layerblock2id {$nonNumeric}) {
+      push($layerblock2id {$nonNumeric}, $numeric);
+  } else {
+      $layerblock2id {$nonNumeric} = [$numeric];
+      push(@blockIdList, $nonNumeric);
+  }
+}
+
+
+foreach my $layerBlockId (@blockIdList) {
+    my $sublayerIds = $layerblock2id {$layerBlockId};
+    foreach my $subLayerId (@$sublayerIds) {
+	print $layerBlockId, ":", $subLayerId ,"\n";
+    }
+}
+
+
+
+#end
diff --git a/ws/Docbook/Extensions/Tdata/Fig/layer.dia b/ws/Docbook/Extensions/Tdata/Fig/layer.dia
new file mode 100644
index 0000000000000000000000000000000000000000..ab5dfed5ac3732ad41bcb445ffd7432be1df2b42
Binary files /dev/null and b/ws/Docbook/Extensions/Tdata/Fig/layer.dia differ