[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] CVS: koha/misc/migration_tools buildCOUNTRY.pl,NONE,

From: Paul POULAIN
Subject: [Koha-cvs] CVS: koha/misc/migration_tools buildCOUNTRY.pl,NONE,
Date: Thu, 07 Apr 2005 04:56:07 -0700

Update of /cvsroot/koha/koha/misc/migration_tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4687/misc/migration_tools

Added Files:
      Tag: rel_2_2
Log Message:
script to rebuild COUNTRY authorised values list (like builLANG for langs)

--- NEW FILE ---
# script that rebuild thesaurus from biblio table.

# delete  FROM  `marc_subfield_table`  WHERE tag =  "606" AND subfieldcode = 9;
use strict;

# Koha modules used
# use MARC::File::USMARC;
# use MARC::Record;
# use MARC::Batch;
use C4::Context;
use C4::Biblio;
use C4::AuthoritiesMarc;
use Time::HiRes qw(gettimeofday);

use Getopt::Long;
my ( $fields, $number,$language) = ('',0);
my ($version, $verbose, $test_parameter, $field,$delete,$subfields);
    'h' => \$version,
    'd' => \$delete,
    't' => \$test_parameter,
    's:s' => \$fields,
    'v' => \$verbose,
        'l:s' => \$language,

if ($version or !$fields) {
        print <<EOF
Small script to recreate the COUNTRY list in authorised values from existing 
countries in the catalogue.
This script is useful when you migrate your datas with bulkmarcimport.pl as it 
populates parameters tables that are not modified by bulkmarcimport.

parameters :
\th : this version/help screen
\ts : the field or field list where the lang codes are stored.
\td : delete every entry of COUNTRY category before doing work.
\tl : the language of the language list (fr or en for instance)

The table is populated with iso codes and meaning (in french).
If the complete language name is unknown, the code is used instead and you will 
be warned by the script

 ./buildCOUNTRY.pl -d -s "('102a')"

my %codesiso;

%codesiso = (
        'eng' => 'english',
        'fre' => 'french'

%codesiso = (
        'an' => 'Antilles Néerlandaises',
        'at' => 'Autriche',
        'cr' => 'Costa Rica',
        'er' => 'Erythrée',
        'fr' => ' France',
        'in' => 'Inde',
        'is' => 'Islande',
        'lt' => 'Lituanie',
        'nd' => 'Pays Bas',
        'nf' => 'Norfolk',
        'ng' => 'Nigéria',
        'pa' => 'Manama',
        'pn' => 'Pitcairn',
        're' => 'Réunion (ile)',
        'sp' => 'Espagne',
        'us' => 'Etats Unis',
        ) if $language eq 'fr';

my $dbh = C4::Context->dbh;
if ($delete) {
        print "deleting country list\n";
        $dbh->do("delete from authorised_values where category='COUNTRY'");

if ($test_parameter) {
        print "TESTING MODE ONLY\n    DOING NOTHING\n===============\n";
my $starttime = gettimeofday;

my $sth = $dbh->prepare("SELECT count(*) as tot,subfieldvalue FROM 
marc_subfield_table WHERE tag + subfieldcode IN $fields group by 

my $i=1;

print "=========================\n";
my $sth2 = $dbh->prepare("insert into authorised_values (category, 
authorised_value, lib) values (?,?,?)");
while (my ($tot,$langue) = $sth->fetchrow) {
        print "$langue is unknown is iso list (used $tot times)\n" unless 
print "=========================\n";

reply via email to

[Prev in Thread] Current Thread [Next in Thread]