From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 2 Jul 2006 18:36:22 +0000 (+0000)
Subject: local
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=d84e6e373e4d32795818af159f3eac896028c4cb;p=webpac2

local


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

diff --git a/conf/normalize/mapping.pl b/conf/normalize/mapping.pl
index 8bc830d..864c987 100644
--- a/conf/normalize/mapping.pl
+++ b/conf/normalize/mapping.pl
@@ -1,3 +1,23 @@
+# Leader
+
+if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
+	marc_leader('05','c');
+} else {
+	marc_leader('05','n');
+}
+
+marc_leader('06','a');
+
+marc_leader('07','m');
+
+marc_leader('18','i');
+
+if ( rec('230') ) {
+	marc_leader('19','r');
+}
+
+# gre¹ka - 000 se ne zapisuje u marc:
+
 marc('001',
 	rec('000')
 );
@@ -204,31 +224,23 @@ marc('110','c',
 }
 
 # zapisi za duplanje
-
-if ( rec('230') ) {
-
-marc('245','a',
-	rec('230','a')
-);
-
-marc('245','b',
-	rec('230','e')
-);
-
-marc('245','c',
-	rec('230','f')
-);
-
-marc('245','n',
-	rec('230','v')
-);
-
-}
-
-
-
-
-
-
-
-
+#
+# if ( rec('230') ) {
+#
+# marc('245','a',
+# 	rec('230','a')
+# );
+# 
+# marc('245','b',
+# 	rec('230','e')
+# );
+# 
+# marc('245','c',
+# 	rec('230','f')
+# );
+# 
+# marc('245','n',
+# 	rec('230','v')
+# );
+# 
+# }