Lines 220-226
sub AddBiblio {
Link Here
|
220 |
|
220 |
|
221 |
# transform the data into koha-table style data |
221 |
# transform the data into koha-table style data |
222 |
SetUTF8Flag($record); |
222 |
SetUTF8Flag($record); |
223 |
my $olddata = TransformMarcToKoha( $record, $frameworkcode ); |
223 |
my $olddata = TransformMarcToKoha( $record, $frameworkcode, 'no_items' ); |
224 |
|
224 |
|
225 |
my $biblio = Koha::Biblio->new( |
225 |
my $biblio = Koha::Biblio->new( |
226 |
{ |
226 |
{ |
Lines 2326-2332
sub TransformMarcToKoha {
Link Here
|
2326 |
foreach my $kohafield ( keys %{ $mss } ) { |
2326 |
foreach my $kohafield ( keys %{ $mss } ) { |
2327 |
my ( $table, $column ) = split /[.]/, $kohafield, 2; |
2327 |
my ( $table, $column ) = split /[.]/, $kohafield, 2; |
2328 |
next unless $tables{$table}; |
2328 |
next unless $tables{$table}; |
2329 |
my $val = TransformMarcToKohaOneField( $kohafield, $record ); |
2329 |
my $val = TransformMarcToKohaOneField( $kohafield, $record, $mss->{$kohafield} ); |
2330 |
next if !defined $val; |
2330 |
next if !defined $val; |
2331 |
my $key = _disambiguate( $table, $column ); |
2331 |
my $key = _disambiguate( $table, $column ); |
2332 |
$result->{$key} = $val; |
2332 |
$result->{$key} = $val; |
Lines 2382-2391
sub _disambiguate {
Link Here
|
2382 |
=cut |
2382 |
=cut |
2383 |
|
2383 |
|
2384 |
sub TransformMarcToKohaOneField { |
2384 |
sub TransformMarcToKohaOneField { |
2385 |
my ( $kohafield, $marc ) = @_; |
2385 |
my ( $kohafield, $marc, $mss ) = @_; |
2386 |
|
2386 |
|
2387 |
my ( @rv, $retval ); |
2387 |
my ( @rv, $retval ); |
2388 |
my @mss = GetMarcSubfieldStructureFromKohaField($kohafield); |
2388 |
my @mss = $mss? @{$mss} : GetMarcSubfieldStructureFromKohaField($kohafield); |
2389 |
foreach my $fldhash ( @mss ) { |
2389 |
foreach my $fldhash ( @mss ) { |
2390 |
my $tag = $fldhash->{tagfield}; |
2390 |
my $tag = $fldhash->{tagfield}; |
2391 |
my $sub = $fldhash->{tagsubfield}; |
2391 |
my $sub = $fldhash->{tagsubfield}; |
2392 |
- |
|
|