my ($rowref, $marcrecord)=@_;

    my ($row, $record)=@_;

    if(C4::Context->preference("marcflavour") ne 'UNIMARC') { #MARC21, NORMARC

    my %fetch= (

        $rowref->{isbn}= _isbn_show($marcrecord, '020');

        title => 'biblio.title',

        $rowref->{title}= $marcrecord->subfield('245','a')||'';

        author => 'biblio.author',

        $rowref->{author}= $marcrecord->subfield('100','a')||'';

        isbn =>'biblioitems.isbn',

        $rowref->{date}= $marcrecord->subfield('260','c')||'';

        lccn =>'biblioitems.lccn', #LC control number (not call number)

        $rowref->{edition}= $marcrecord->subfield('250','a')||'';

        edition =>'biblioitems.editionstatement',

        $rowref->{lccn}= $marcrecord->subfield('050','a')||'';

        date => 'biblio.copyrightdate', #MARC21

    }

        date2 => 'biblioitems.publicationyear', #UNIMARC

    else { #UNIMARC

    );

        $rowref->{isbn}= _isbn_show($marcrecord, '010');

    foreach my $k (keys %fetch) {

        $rowref->{title}= $marcrecord->subfield('200','a')||'';

        my ($t, $f)= split '\.', $fetch{$k};

        $rowref->{author}= $marcrecord->subfield('200','f')||'';

        $row= C4::Biblio::TransformMarcToKohaOneField($t, $f, $record, $row);

        $rowref->{date}= $marcrecord->subfield('210','d')||'';

        $row->{$k}= $row->{$f} if $k ne $f;

        $rowref->{edition}= $marcrecord->subfield('205','a')||'';

        $rowref->{lccn}= '';

    return $rowref;

    $row->{date}//= $row->{date2};

    $row->{isbn}=_isbn_replace($row->{isbn});

    return $row;

sub _isbn_show {

sub _isbn_replace {

    my ($record, $fieldno)= @_; #both marc21 and unimarc possible

    my ($isbn)= @_;

    my $isbn= '';

    $isbn =~ s/ |-|\.//g;

    foreach my $f ( $record->field($fieldno) ) {

    $isbn =~ s/\|/ \| /g;

        my $a= $f->subfield('a');

    $isbn =~ s/\(/ \(/g;

        $a =~ s/ |-|\.//g;

        $a =~ s/\|/ \| /g;

        $a =~ s/\(/ \(/g;

        $isbn= $isbn? ($isbn.' | '. $a): $a;

    }