local

[webpac2] / conf / normalize / ff-arti.pl

diff --git a/conf/normalize/ff-arti.pl b/conf/normalize/ff-arti.pl
index 8ee0720..c47eb11 100644 (file)
--- a/conf/normalize/ff-arti.pl
+++ b/conf/normalize/ff-arti.pl
@@ -50,22 +50,27 @@ marc_compose('245',
                rec('203','e') ? ' : '  :
                rec('203','f') ? ' / '  :
                                 '.',
-                       rec('203','a')
+                       join_with('. ',
+                               rec('203','a')
+                       )
        ),
        'h', rec('203','b'),
        'b', 
-               join_with(' ; ',
-                       rec('203','k'),
-               ),
-       'b', rec('203','d'), 
+       join_with(' ; ',
+               rec('203','k'),
+       ),
+       'b', 
+       join_with(' = ',
+               rec('203','d'), 
+       ),
        'b', 
-               join_with(' : ',
-                       rec('203','e'),
-               ),
+       join_with(' : ',
+               rec('203','e'),
+       ),
        'c', 
-               join_with(' ; ',
-                       rec('203','f'),
-               ),
+       join_with(' ; ',
+               rec('203','f'),
+       ),
        '+', prefix('. ', rec('203','c') ),
 );
 
@@ -199,8 +204,8 @@ marc('110','c',
 
 };
 
-
 marc_indicators('773', 0, ' ');
+
 marc('773','g',
        rec('200','x'),
 );
@@ -212,3 +217,25 @@ marc('773','t',
        ),
 );
 
+marc('773','w',
+       lookup(
+               sub { 'ffkk-peri-' . rec('000') },
+               'ffkk','peri',
+               sub { rec('11') }
+       ) ||
+       lookup(
+               sub { 'ffkk-peri-' . 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') },
+       )
+
+);
+
+