Parent Directory | Revision Log | Patch
revision 26 by dpavlin, Mon Nov 19 16:37:00 2007 UTC | revision 28 by dpavlin, Sat Sep 6 10:40:52 2008 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 ",dump($marc->to_hash($mfn)) if ($opt{h}); | print "hash is ",dump($marc->to_hash($mfn, include_subfields => 1)) if ($opt{h}); |
73 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |