Parent Directory | Revision Log | Patch
revision 11 by dpavlin, Fri Nov 3 20:34:31 2006 UTC | revision 25 by dpavlin, Tue Nov 6 20:06:26 2007 UTC | |
---|---|---|
# | Line 67 for my $mfn ($min .. $max) { | Line 67 for my $mfn ($min .. $max) { |
67 | my $rec = $marc->fetch($mfn) || next; | my $rec = $marc->fetch($mfn) || next; |
68 | print "rec is ",Dumper($rec) if ($opt{d}); | print "rec is ",Dumper($rec) if ($opt{d}); |
69 | print "REC $mfn\n"; | print "REC $mfn\n"; |
70 | 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 |