import biblio and biblioitems from koha

diff --git a/apache-gmap.conf b/apache-gmap.conf
index 29dc355..ab32cbb 100644 (file)
--- a/apache-gmap.conf
+++ b/apache-gmap.conf
@@ -3,4 +3,5 @@ Alias /gmap /srv/google-map-tiles
 <Location /gmap>
        AddHandler cgi-script .pl
        Options +ExecCGI +Indexes
+       ErrorDocument 404 /gmap/tiles/notiles.png
 </Location>

diff --git a/koha-import.pl b/koha-import.pl
new file mode 100755 (executable)
index 0000000..8bb4acf
--- /dev/null
+++ b/koha-import.pl
@@ -0,0 +1,58 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use DBI;
+
+our $koha_dsn    = 'dbi:oursql:dbname=koha';
+our $koha_user   = 'kohaadmin';
+our $koha_passwd = '';
+
+our $geo_dsn = 'dbi:Pg:dbname=koha';
+our $geo_user = '';
+our $geo_passwd = '';
+
+our $opts = { RaiseError => 1 }; #, AutoCommit => 0, pg_enable_utf8 => 1, oursql_enable_utf8 => 1 };
+
+require '/srv/koha-config.pl';
+
+my $k_dbh = DBI->connect($koha_dsn, $koha_user, $koha_passwd, $opts) || die $DBI::errstr;
+my $g_dbh = DBI->connect($geo_dsn, $geo_user, $geo_passwd, $opts) || die $DBI::errstr;
+
+sub fetch_table {
+       my ( $table, $pk ) = @_;
+
+       warn "# clean $table";
+       $g_dbh->do( "delete from $table" );
+
+       my $offset = 0;
+
+       my $sql = "select * from $table order by $pk";
+
+       warn "# import $table";
+
+       do {
+
+               my $sth = $k_dbh->prepare( "$sql limit 1000 offset $offset" );
+               print STDERR "$table [$offset] ";
+               $sth->execute;
+
+               $offset = 0 if ! $sth->rows; # exit
+
+               my @cols = @{ $sth->{NAME_lc} };
+               my $sql_insert = "insert into $table (" . join(',',@cols) . ") values (" . join(',', map { '?' } @cols ) . ")";
+               my $sth_insert = $g_dbh->prepare( $sql_insert );
+
+               while( my $row = $sth->fetchrow_arrayref ) {
+                       eval { $sth_insert->execute( @$row ) };
+                       $offset++;
+                       print STDERR "$offset " if $offset % 100 == 0;
+               }
+
+               print STDERR "\n";
+
+       } while $offset;
+}
+
+fetch_table 'biblio' => 'biblionumber' ;
+fetch_table 'biblioitems' => 'biblioitemnumber' ;