From d1b698d72c46ccb5c0711c51eea144ed9295fe70 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 3 Apr 2011 16:06:43 +0200 Subject: [PATCH] cleanup cities more and report progress --- koha-import.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/koha-import.pl b/koha-import.pl index d347edb..4b3b4b8 100755 --- a/koha-import.pl +++ b/koha-import.pl @@ -88,8 +88,10 @@ sub warn_dump { warn dump @_,$/ if $ENV{DEBUG}; } +my $i = 0; + while ( my $row = $sth->fetchrow_hashref ) { - my $xml = XMLin( delete $row->{marcxml} ); + my $xml = XMLin( delete $row->{marcxml}, ForceArray => [ 'datafield', 'subfield' ] ); warn_dump($row, $xml); @@ -107,10 +109,11 @@ while ( my $row = $sth->fetchrow_hashref ) { $row->{city} =~ s/['"]+//g; $row->{city} =~ s/\s*\[etc.*\].*$//; $row->{city} =~ s/\s*[:]\s*$//; + $row->{city} =~ s/[\[\]]+//g; warn_dump $row; - print $row->{city}, $/; + warn "# $i ", $row->{city}, $/ if $i++ % 100 == 0; $sth_insert->execute( $row->{biblioitemnumber}, $row->{biblionumber}, $row->{city} ); } -- 2.20.1