);
-#_debug(2);
-
### 700
## ako je u originalu ponovljivo polje treba bioti i konvertirano u ponovljivo !!
## ako ima samo podpolje a onda je pseudonim - nakon konverzije treba provjeriti
if ( rec('701','a') ) {
- marc_indicators('700', 1, ' ');
+ #_debug(3);
+ marc_indicators('701', 1, ' '); # override original indicators
marc_original_order('700','701');
+ #_debug(0);
}
my $relcode = rec('702','4');
'predsjednik redakcijskog kolegija' => 'pbd',
'prevoditelj' => 'trl',
'prevoditeljica' => 'trl',
+ ' prevoditeljica' => 'trl',
'prevoditeljica i redaktorica' => 'trl',
'priprema fotografija' => 'oth',
'priređivač' => 'edt',
if ( rec('702','a') ) {
marc_indicators('700', 1, ' ');
- marc('700','4',
- $relcode_konv->{$relcode}
- );
- marc('700', 'a',
- rec('702','a'),
- );
-}
+ foreach my $repeat ( rec_array('702') ) {
+ my $sf_a = $repeat->{a} || die "702 doesn't have a ", dump( $repeat );
+ if ( my $sf_4 = $repeat->{4} ) {
+ my $relcode = $relcode_konv->{ $sf_4 } || die "no relcode_konv for ",dump( $sf_4 );
+ marc_compose('700',
+ '4' => $relcode,
+ 'a' => $sf_a,
+ );
+ } else {
+ marc('700', 'a', $sf_a );
+ }
+ }
+}
#_debug(0);