Parent Directory | Revision Log | Patch
revision 22 by dpavlin, Tue Oct 30 16:41:06 2007 UTC | revision 25 by dpavlin, Tue Nov 6 20:06:26 2007 UTC | |
---|---|---|
# | Line 69 for my $mfn ($min .. $max) { | Line 69 for my $mfn ($min .. $max) { |
69 | print "REC $mfn\n"; | print "REC $mfn\n"; |
70 | print $marc->last_leader,"\n"; | print $marc->last_leader,"\n"; |
71 | print $marc->to_ascii($mfn),"\n"; | print $marc->to_ascii($mfn),"\n"; |
72 | print "hash is ",Dumper($marc->to_hash($mfn)) if ($opt{h}); | print "hash is ",Dumper($marc->to_hash($mfn, include_subfields => 1)) if ($opt{h}); |
73 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |