-marc('777','v',
+marc('777','w',
lookup(
- sub { 'ffkk/peri' . rec('000') },
+ sub { 'ffkk/peri/mfn' . rec('000') },
'ffkk','peri',
sub { rec('11') }
) ||
lookup(
- sub { 'ffkk/peri' . rec('000') },
+ sub { 'ffkk/peri/mfn' . rec('000') },
'ffkk','peri',
sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
) ||
+
lookup(
sub { "ffkk/peri" . rec('000') },
'ffkk','peri',
sub { rec(200,'a') },
- sub { rec(900,'x') },
+# sub { rec(900,'x') },
)
-);
-marc('900','x',
- lookup(
- sub { first(rec('200','a')) . ' ' . first(rec('200','b')) },
- 'ffps','libri',
- sub { rec('245','a') },
- )
);
+
encoding: 'cp852'
lookup: 'conf/lookup/isis.pm'
#limit: 10
+ modify_file: 'conf/modify/common.pl'
normalize:
path: 'conf/normalize/common.pl'
'^k' => ' ; '
'*'
'^g' => ' ; '
+
210
'^a'
- '^c' => '^b'
- '^b'
' ; ' => '^a'
- ' : ' => '^b'
+ ' ; ' => '^a'
+# ovo provjeriti - ima na lingvistici:
+ ' : ' => '^a'
+ '^c'
+ ' : ' => '^c'
+ '*'
+ '^c' => '^b'
'^d' => '^c'
- '*':
- '. (': '. (^e'
- '^e':
- ' : ': ' ^f'
+ '^a'
+ '^a' => ' ; ^x'
+ '^c' => ', ^c'
+ '^x'
+ '^a' => ' ; ^x'
+ '^b'
+ '^a' => ' ; ^x'
+ '^a' => ' ; ^x'
+ '^c' => ', ^c'
+ '*'
+ '^x' => '^a'
+ '^y' => '^a'
+
+225
+ '*'
+ '^d' => ' = '
+ '^e' => ' : '
+ '^f' => ' \/ '
+ '^h' => '. '
+ '^i' => '. '
+
+#330
+# '*'
+# '><' => '^a'
+# '<' => '^a'
+# '>' => ''
+# '^a'
+# '^a' => '^b'
+# '^b'
+# '^a' => '^c'
+# '^c'
+# '^a' => '^d'
+# '^d'
+# '^a' => '^e'
+# '^e'
+# '^a' => '^f'
+# '^f'
+# '^a' => '^g'
+
+
700
'^a'
'^b' => ', '
+
701
'^a'
'^b' => ', '
marc_indicators('041', 1, ' ');
} else {
marc_indicators('041', 0, ' ');
-}
+};
marc_repeatable_subfield('041','a',
rec('101')
);
-marc_indicators('245', 0, 0);
+# marc_indicators('245', 0, 0);
+
+if ( rec('700') ) {
+ marc_indicators('245', 1, 0);
+} else {
+ marc_indicators('245', 0, 0);
+};
#_debug(3);