local mv

[webpac2] / conf / normalize / minimal.pl

diff --git a/conf/normalize/minimal.pl b/conf/normalize/minimal.pl
index 27b00d1..79f801e 100644 (file)
--- a/conf/normalize/minimal.pl
+++ b/conf/normalize/minimal.pl
@@ -1,34 +1,34 @@
 
-if ( rec('200') ) {
+if ( rec('200','a') ) {
 
 marc('035','6',
-join_with('',
-               config(),
-               'L',
+       join_with('',
+               uc( config() ),
+               ' A',
                rec('000')
        )
 );
 
-
-marc('020','a',
-       rec('10')
-);
-
-
-marc('022','a',
-       rec('11','a')
-);
-
-
 marc_indicators('245', 1, 0);
 
 marc('245','a',
-       rec('200','a')
+       join_with(' / ',
+               join_with(' : ',
+                       join_with(' = ',
+                               rec('225','a'),
+                               rec('225','d')
+                       ),
+                       rec('225','e')
+               ),
+               join_with(' ; ',
+                       rec('225','f'),
+                       rec('225','g')
+               ),
+       ),
 );
 
-marc('260','c',
-       rec('210','d')
-       
+marc('999','a',
+       rec('200','i1')
 );
 
 }