[Koha-devel] Koha and MARC::Record 1.25

[paul POULAIN]

Hi ed,

I've just dl and install the last version of MARC::Record.
In my error log, i get dozens of :
Use of uninitialized value in hash element at 
/usr/lib/perl5/site_perl/5.8.0/MARC/Record.pm line 206, 
<fh00001env174.1.txt> line 1.

I hadn't such lines before. Do you have an explanation ?

This happends (at least) in the following code. The MARC data comes from 
an external source (various sources doesn't change anything) :

In Breeding.pm :
my $marcrecord = MARC::File::USMARC::decode($marcarray[$i]."\x1D");
...
my $oldbiblio = MARCmarc2koha($dbh,$marcrecord);
...

MARCmarc2koha calls MARCmarc2kohaOneField for each field :
sub MARCmarc2kohaOneField {
    my ($sth,$kohatable,$kohafield,$record,$result)= @_;
    my $res="";
    my $tagfield;
    my $subfield;
    $sth->execute($kohatable.".".$kohafield);
    ($tagfield,$subfield) = $sth->fetchrow;
    foreach my $field ($record->field($tagfield)) {
        if ($field->subfield($subfield)) {
        if ($result->{$kohafield}) {
            $result->{$kohafield} .= " | ".$field->subfield($subfield);
        } else {
            $result->{$kohafield}=$field->subfield($subfield);
        }
        }
    }
    return $result;
}

NOTE : I haven't found marc::record mailing lists ?

-- 
Paul POULAIN
Consultant indépendant en logiciels libres
responsable francophone de koha (SIGB libre http://www.koha-fr.org)