22 |
|
|
23 |
marc_indicators('245', 1, 0); |
marc_indicators('245', 1, 0); |
24 |
|
|
25 |
if ( ( rec('200','a') =~ m/^Die /) || |
marc('245','a', |
26 |
( rec('200','a') =~ m/^Das /) || |
rec('200','a') |
|
( rec('200','a') =~ m/^The /) ) { |
|
|
marc_indicators('245', 1, 4); |
|
|
} |
|
|
|
|
|
if ( ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) |
|
|
{ |
|
|
marc_indicators('245', 1, 2); |
|
|
} |
|
|
|
|
|
|
|
|
### 245 |
|
|
# redoslijed polja |
|
|
|
|
|
#_debug(3); |
|
|
marc_compose('245', |
|
|
'a', suffix( |
|
|
rec('200','b') ? '. ' : |
|
|
rec('200','k') ? ' ; ' : |
|
|
rec('200','d') ? ' = ' : |
|
|
rec('200','e') ? ' : ' : |
|
|
rec('200','f') ? ' / ' : |
|
|
'.', |
|
|
rec('200','a') |
|
|
), |
|
|
# 'h', rec('200','b'), |
|
|
'b', suffix( |
|
|
( rec('200','k') && rec('200','f') ) ? ' / ' : |
|
|
' ', |
|
|
join_with(' ; ', |
|
|
rec('200','k'), |
|
|
), |
|
|
), |
|
|
'b', suffix( |
|
|
( rec('200','d') && rec('200','f') ) ? ' / ' : |
|
|
' ', |
|
|
rec('200','d'), |
|
|
), |
|
|
'b', suffix( |
|
|
( rec('200','e') && rec('200','f') ) ? ' / ' : |
|
|
' ', |
|
|
join_with(' : ', |
|
|
rec('200','e'), |
|
|
), |
|
|
), |
|
|
|
|
|
'c', rec('200','f'), |
|
|
|
|
|
# append to last subfield |
|
|
'+', prefix('. ', |
|
|
rec('200','c') |
|
|
), |
|
27 |
); |
); |
28 |
|
|
|
|
|
29 |
marc('260','c', |
marc('260','c', |
30 |
rec('210','d') |
rec('210','d') |
31 |
|
|