[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/misc dumpmarc.pl,1.4,1.5
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/misc dumpmarc.pl,1.4,1.5 |
Date: |
Wed, 14 Apr 2004 12:48:15 -0700 |
Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18973/misc
Modified Files:
dumpmarc.pl
Log Message:
adding -w parameter to have warnings
Index: dumpmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/dumpmarc.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** dumpmarc.pl 24 Nov 2003 17:15:55 -0000 1.4
--- dumpmarc.pl 14 Apr 2004 19:48:13 -0000 1.5
***************
*** 11,20 ****
use Getopt::Long;
! my ( $input_marc_file,$number) = ('',0);
my $version;
GetOptions(
'file:s' => \$input_marc_file,
'n:s' => \$number,
! 'v' => \$version
);
--- 11,21 ----
use Getopt::Long;
! my ( $input_marc_file,$number,$nowarning) = ('',0);
my $version;
GetOptions(
'file:s' => \$input_marc_file,
'n:s' => \$number,
! 'v' => \$version,
! 'w' => \$nowarning,
);
***************
*** 27,30 ****
--- 28,32 ----
\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
+ \tw : warning and strict off. If your dump fail, try -w option. It it works,
then, the file is iso2709, but a buggy one !
SAMPLE : ./dumpmarc.pl -file /home/paul/koha.dev/local/npl -n 1
EOF
***************
*** 34,39 ****
my $batch = MARC::Batch->new( 'USMARC', $input_marc_file );
! $batch->warnings_off();
! $batch->strict_off();
my $i=1;
while ( my $record = $batch->next() ) {
--- 36,41 ----
my $batch = MARC::Batch->new( 'USMARC', $input_marc_file );
! $batch->warnings_off() unless $nowarning;
! $batch->strict_off() unless $nowarning;
my $i=1;
while ( my $record = $batch->next() ) {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/misc dumpmarc.pl,1.4,1.5,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/parameters aqbookfund.tmpl,1.24,1.25 branches.tmpl,1.22,1.23 systempreferences.tmpl,1.25,1.26
- Next by Date:
[Koha-cvs] CVS: koha/updater updatedatabase,1.74,1.75
- Previous by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/parameters aqbookfund.tmpl,1.24,1.25 branches.tmpl,1.22,1.23 systempreferences.tmpl,1.25,1.26
- Next by thread:
[Koha-cvs] CVS: koha/updater updatedatabase,1.74,1.75
- Index(es):