r1471@llin: dpavlin | 2007-11-02 14:00:35 +0100

 local

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@964 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/conf/normalize/ff-libri.pl b/conf/normalize/ff-libri.pl
index f2fa054..83508b4 100644 (file)
--- a/conf/normalize/ff-libri.pl
+++ b/conf/normalize/ff-libri.pl
@@ -97,7 +97,7 @@ marc_fixed('008','39','d');           # 39 - Cataloging source
 # postoji modify -> drugi ISBN poèinje prefixom "ISBN" koji se mièe (sfb)
 
 marc('020','a',
-       regex('s/ ISBN //g',
+       regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g',
                rec('10')
        )
 );
@@ -168,7 +168,7 @@ if ( grep( m/prijevod/i, rec('300')) || grep( m/prevedeno/i, rec('300')) || grep
 #_debug(2);
 
 marc_repeatable_subfield('041','a',
-       rec('101')
+       lc( rec('101') )
 );
 
 #_debug(0);

diff --git a/conf/normalize/webpacus-unimarc.pl b/conf/normalize/webpacus-unimarc.pl
new file mode 100644 (file)
index 0000000..9161745
--- /dev/null
+++ b/conf/normalize/webpacus-unimarc.pl
@@ -0,0 +1,78 @@
+
+use WebPAC::Normalize::ISBN;
+
+search_display('ISBN',
+       rec('10')
+);
+
+search_display('ISSN',
+       rec('11')
+);
+
+
+search_display('Language',
+       rec('101','a')
+);
+
+search_display('TitleProper',
+       join_with(' / ',
+               join_with('',
+                       rec('200','a'),
+                       rec('200','c'),
+               ),
+               rec('200','f'),
+       )
+);
+       
+
+
+# regex('s/\s*[=:\/;]\s*//g',
+
+sorted('TitleProper',
+       rec('200','a'),
+);
+
+
+#display('PripadajuciOznaka',
+#      lookup(
+#              sub { [ rec('200','a') . rec('200','c'),  rec(451,'a') ] },
+#              'hidra','bib',
+#              sub { rec('900') },
+#              sub { rec('451','1') }
+#      )
+#);
+#
+#display('Fond',
+#      lookup(
+#              sub { rec('200','a') },
+#              'hidra','bib',
+#              sub { rec('900') },
+#              sub { rec('946','1') }
+#      )
+#);    
+
+
+search('PlacePublication',
+       rec('210','a')
+);
+
+search('NamePublisher',
+       rec('210','c'),
+);
+
+search_display('DatePublication',
+       rec('210','d')
+);
+
+display('Impresum',
+       rec('210'),
+);
+
+search_display('Series',
+       rec('225','a')
+);
+
+search_display('GeneralNote',
+       rec('300')
+);
+

diff --git a/conf/normalize/webpacus.pl b/conf/normalize/webpacus.pl
index 05e4fcf..1bd0b88 100644 (file)
--- a/conf/normalize/webpacus.pl
+++ b/conf/normalize/webpacus.pl
@@ -1,6 +1,7 @@
-
 search_display('ISBN',
-       rec('020','a')
+       isbn_13(
+               rec('020','a')
+       )
 );
 
 search_display('ISBN_incorrect',
@@ -13,13 +14,21 @@ search_display('ISSN',
 
 
 search_display('Language',
-       rec('040','a')
+       rec('041','a')
 );
 
 search_display('TitleProper',
-       rec('245','a')
+       join_with('',
+               rec('245','a'),
+               join_with(' / ',
+                       rec('245','b'),
+                       rec('245','c')
+               )
+       )
 );
 
+# regex('s/\s*[=:\/;]\s*//g',
+
 sorted('TitleProper',
        rec('245','a'),
 );
@@ -33,9 +42,14 @@ search_display('ReminderTitle',
        )
 );
 
-search_display('StatementResponsibility',
-       rec('245','f'),
-);
+#display('Pripadajuci',
+#      lookup(
+#              sub { rec('200','a') },
+#              'hidra','bib',
+#              sub { rec('900') },
+#              sub { rec('451','a') }
+#      )
+#);
 
 
 search('PlacePublication',