From 2b606b94e13d874e8587a43971ac0346790bb179 Mon Sep 17 00:00:00 2001
From: Marijana Glavica <mglavica@ffzg.hr>
Date: Tue, 17 Dec 2013 21:44:42 +0100
Subject: [PATCH] work on bibliografija

---
 conf/bibliografija/biblio.pl         | 109 ++++++++++++++++++++-------
 conf/bibliografija/config-baze.yml   |   2 +-
 conf/bibliografija/config-biblio.yml |   5 +-
 3 files changed, 87 insertions(+), 29 deletions(-)

diff --git a/conf/bibliografija/biblio.pl b/conf/bibliografija/biblio.pl
index 7005af6..b26129b 100644
--- a/conf/bibliografija/biblio.pl
+++ b/conf/bibliografija/biblio.pl
@@ -2,17 +2,12 @@ if ( rec('942','u') ) {
 
 marc_clone();
 
+if ( rec('999','c') =~ m/305996/ ) {
+	marc_remove('520');
+}
+
 marc_remove('942');
 
-marc('942','0',
-	rec('942','0')
-);
-marc('942','2',
-	rec('942','2')
-);
-marc('942','6',
-	rec('942','6')
-);
 marc('942','a',
 	rec('942','a')
 );
@@ -56,48 +51,110 @@ marc('942','n',
 	rec('942','n')
 );
 
+#if ( rec('773','x') ) {
+#	marc_repeatable_subfield('942','r',
+#		lookup(
+#			sub{ 
+#				join_with(' ; ',
+#					rec('baza'),
+#					rec('coverage_policy'),
+#					rec('coverage_status'),
+#					join_with('-',
+#						rec('coverage_start'),
+#						rec('coverage_stop'),
+#					),
+#				);
+#			},
+#			'rbaze','rbaze',
+#			sub{ rec('isn') },
+#			sub{ rec('773','x') }
+#		)
+#	);
+#}
+#
+#if ( rec('773','x') ) {
+#	marc_repeatable_subfield('942','r',
+#		lookup(
+#			sub{ 
+#				join_with(' ; ',
+#					rec('baza'),
+#					rec('coverage_policy'),
+#					rec('coverage_status'),
+#					join_with('-',
+#						rec('coverage_start'),
+#						rec('coverage_stop'),
+#					),
+#				);
+#			},
+#			'rbaze','rbaze',
+#			sub{ rec('isn') },
+#			sub{ rec('773','y') }
+#		)
+#	);
+#}
+
 if ( rec('773','x') ) {
 	marc_repeatable_subfield('942','r',
 		lookup(
 			sub{ 
 				join_with(' ; ',
-					rec('baza'),
-					rec('coverage_policy'),
-					rec('coverage_status'),
+					rec('B'),
+					rec('N'),
+					rec('O'),
 					join_with('-',
-						rec('coverage_start'),
-						rec('coverage_stop'),
+						rec('P'),
+						rec('R'),
 					),
-				);
+				)
 			},
 			'rbaze','rbaze',
-			sub{ rec('isn') },
-			sub{ rec('773','x') }
+			sub{ regex('s/-//g', rec('C')) },
+			sub{ regex('s/-//g', rec('773','x')) }
 		)
 	);
 }
-
 if ( rec('773','x') ) {
 	marc_repeatable_subfield('942','r',
 		lookup(
 			sub{ 
 				join_with(' ; ',
-					rec('baza'),
-					rec('coverage_policy'),
-					rec('coverage_status'),
+					rec('B'),
+					rec('N'),
+					rec('O'),
 					join_with('-',
-						rec('coverage_start'),
-						rec('coverage_stop'),
+						rec('P'),
+						rec('R'),
 					),
-				);
+				)
 			},
 			'rbaze','rbaze',
-			sub{ rec('isn') },
-			sub{ rec('773','x') }
+			sub{ regex('s/-//g', rec('D')) },
+			sub{ regex('s/-//g', rec('773','x')) }
 		)
 	);
 }
 
+#if ( rec('773','x') ) {
+#	marc_repeatable_subfield('942','r',
+#		lookup(
+#			sub{ 
+#				join_with(' ; ',
+#					rec('B'),
+#					rec('N'),
+#					rec('O'),
+#					join_with('-',
+#						rec('P'),
+#						rec('R'),
+#					),
+#				);
+#			},
+#			'rbaze','rbaze',
+#			sub{ rec('C') },
+#			sub{ rec('773','z') }
+#		)
+#	);
+#}
+
 marc('942','s',
 	rec('942','s')
 );
diff --git a/conf/bibliografija/config-baze.yml b/conf/bibliografija/config-baze.yml
index 71404ec..bede90f 100644
--- a/conf/bibliografija/config-baze.yml
+++ b/conf/bibliografija/config-baze.yml
@@ -466,7 +466,7 @@ databases:
         normalize: 
           path: 'conf/bibliografija/baza-geobase.pl'
         encoding: 'utf-8'
-      - name: 'Hrvatski humanistički a1 i a2 časopisi'
+      - name: 'Hrvatski humanistički a1 i a2 casopisi'
         module: 'WebPAC::Input::CSV'
         path: '/data/FF/bibliografija/baze/sources/humanistika-pravilnik-a1a2.csv'
         skip: 0
diff --git a/conf/bibliografija/config-biblio.yml b/conf/bibliografija/config-biblio.yml
index cc0fd63..9f0bb1c 100644
--- a/conf/bibliografija/config-biblio.yml
+++ b/conf/bibliografija/config-biblio.yml
@@ -15,9 +15,10 @@ databases:
 #          path: 'conf/bibliografija/xls2marc-mini.pl'
 #        encoding: 'utf-8'
       - name: 'rbaze'
-        module: 'WebPAC::Input::DBI'
+        module: 'WebPAC::Input::CSV'
         dsn: 'dbi:Pg:dbname=ffbib'
-        path: '/data/FF/bibliografija/baze/rbaze.sql'
+        #path: '/data/FF/bibliografija/baze/rbaze.sql'
+        path: '/data/FF/bibliografija/baze/rbaze.csv'
         skip: 0
         normalize:
           path: 'conf/bibliografija/minimal.pl'
-- 
2.20.1