From 942bbc733adc49afa438a77c8867adef06c9ad2b Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 21 May 2003 14:19:32 +0000
Subject: [PATCH] some improvment. enter ./dumpmarc.pl without parameters to
 get help

---
 misc/dumpmarc.pl | 26 ++++++++++++++++++++++----
 1 file changed, 22 insertions(+), 4 deletions(-)

diff --git a/misc/dumpmarc.pl b/misc/dumpmarc.pl
index 272d39d38d..8043e7a796 100755
--- a/misc/dumpmarc.pl
+++ b/misc/dumpmarc.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 # small script that dumps an iso2709 file.
 
+
 use strict;
 
 # Koha modules used
@@ -9,15 +10,32 @@ use MARC::Record;
 use MARC::Batch;
 
 use Getopt::Long;
-my ( $input_marc_file);
+my ( $input_marc_file,$number) = ('',0);
+my $version;
 GetOptions(
-    'file:s'    => \$input_marc_file
+    'file:s'    => \$input_marc_file,
+    'n' => \$number,
+    'v' => \$version
 );
 
+if ($version || ($input_marc_file eq '')) {
+	print <<EOF
+small script to dump an iso2709 file.
+parameters :
+\tv : this version/help screen
+\tfile /path/to/file/to/dump : the file to dump
+\tn : the number of the record to dump. If missing, all the file is dumped
+SAMPLE : ./dumpmarc.pl -file /home/paul/koha.dev/local/npl -n 1
+EOF
+;
+die;
+}
+
 my $batch = MARC::Batch->new( 'USMARC', $input_marc_file );
 $batch->warnings_off();
 $batch->strict_off();
-
+my $i=1;
 while ( my $record = $batch->next() ) {
-	print $record->as_formatted();
+	print "\n".$record->as_formatted() if ($i eq $number || $number eq 0);
+	$i++;
 }
-- 
2.39.5