--- common.pm	2002/06/16 14:37:43	1.1
+++ common.pm	2002/07/17 18:37:37	1.9
@@ -1,7 +1,37 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
+
+#package common;
 
 use strict;
 
+$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="/mnt/20020606/Isis/Data/";	# doma
+
+$common::mps_header="V 5 3
+L hr-HR
+F 700+ 1 Autor
+F 200+ 2 Naslov
+F 210+ 3 Izdavanje
+F 225 4 Nakladnička cjelina
+F 300+ 5 Napomene
+F 330 6 Sadržaj
+F 464 7 Analitički radovi
+F 610 8 Ključne riječi
+F 675 9 UDK
+F 686 10 CC
+F 990 11 Signatura
+F 991 12 Inventarni broj
+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";
+
 #--------------------------------------------------------------------
 #
 # mps_expand(nr,"space separated string");
@@ -12,9 +42,27 @@
 	my $out = "";
 	while (my $fld = shift @_) {
 		if ($fld =~ s/\s*[,;\.!?'"<>\[\]]*\s+/ /g) {
+			$fld =~ s/></ /g;
 			foreach my $w (split(/\s+/,$fld)) {
 				# FIX: this should be replaced by stemmer!
-				$out .= "W $w $nr\n";
+				# remove chars from beginning of word
+				$w =~ s/^['"<(\[]//g;
+				# remove chars from end of word
+				$w =~ s/[,;\.!?'">)\]]$//g;
+				# preglasi öÖäÄüÜ -> ”™„Žš
+				if ($w =~ m/[”™„Žš]/) {
+					$out .= "W $w $nr\n";
+					$w =~ s/[”™]/oe/g;
+					$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";
+				}
 			}
 		} else {
 			$out .= "W $fld $nr\n";