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 (file)
--- 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')
+# );
+# 
+# }