--- common.pm	2002/06/24 15:36:40	1.6
+++ common.pm	2002/09/23 18:46:21	1.10
@@ -6,7 +6,8 @@
 
 $common::install_dir="/local/index";
 $common::mpsindex="/local/mps-5.3/bin/mpsindex -l 9 -b";
-$common::isis_data="/var/autofs/misc/isis_data/";
+#$common::isis_data="/var/autofs/misc/isis_data/";
+$common::isis_data="/data/isis_data/";
 #$common::isis_data="/mnt/20020606/Isis/Data/";	# doma
 
 $common::mps_header="V 5 3
@@ -23,9 +24,11 @@
 F 686 10 CC
 F 990 11 Signatura
 F 991 12 Inventarni broj
-F ISBN 13 ISBN
+F ISN 13 ISBN, ISSN
 F MFN 14 MFN
 F 215+ 15 Materijalni opis
+F 101 16 Jezik
+F tip 17 Tip gra�e
 ";
 
 $common::database_cf="/local/search/databases.cf";
@@ -54,6 +57,10 @@
 					$w =~ s/[��]/ae/g;
 					$w =~ s/[��]/ue/g;
 					$out .= "W $w $nr\n";
+				# Irish Last names
+				} elsif (($nr == 1 || $nr == 2 || $nr == 3 || $nr == 6 || $nr == 7 || $nr == 8) && $w =~ m/^Ma?c([A-Z].+)/) {
+					$out .= "W Mc$1 $nr\n";
+					$out .= "W Mac$1 $nr\n";
 				} else {
 					$out .= "W $w $nr\n";
 				}