X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=scripts%2Fdump_openisis.pl;h=097d781bcb9299bb20946938b3d02648ed9bd191;hb=514d07d2bc4ea623d32860cce42a09691856534b;hp=32adb0f9e1bf1f9695f9b2633a36063b0bab396b;hpb=43345813f1fec59679cd6dd7dcf519e2740bdb19;p=Biblio-Isis

diff --git a/scripts/dump_openisis.pl b/scripts/dump_openisis.pl
index 32adb0f..097d781 100755
--- a/scripts/dump_openisis.pl
+++ b/scripts/dump_openisis.pl
@@ -5,8 +5,10 @@
 
 #use strict;
 use OpenIsis;
+use Data::Dumper;
 
 my $db = OpenIsis::open( shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI' );
+my $debug = shift @ARGV;
 my $maxmfn = OpenIsis::maxRowid( $db ) || 1;
 
 print "rows: $maxmfn\n\n";
@@ -14,6 +16,16 @@ print "rows: $maxmfn\n\n";
 for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) {
 	print "0\t$mfn\n";
 	my $row = OpenIsis::read( $db, $mfn );
+	if ($debug)  {
+		print STDERR Dumper($row),"\n";
+		my $rec;
+		foreach my $f (keys %{$row}) {
+			foreach my $v (@{$row->{$f}}) {
+				push @{$rec->{$f}}, OpenIsis::subfields($v);
+			}
+		}
+		print STDERR Dumper($rec),"\n";
+	}
 	foreach my $k (sort keys %{$row}) {
 		next if ($k eq 'mfn');
 		print "$k\t",join("\n$k\t",@{$row->{$k}}),"\n";