--- isis2stream.pl	2002/06/14 18:24:05	1.2
+++ isis2stream.pl	2002/06/16 14:37:43	1.3
@@ -4,6 +4,7 @@
 use OpenIsis;
 use Getopt::Std;
 #use Data::Dumper;
+require "common.pl";
 
 my $install_dir="/local/index";
 my $mpsindex="/local/mps-5.3/bin/mpsindex -l 9 -b";
@@ -177,27 +178,6 @@
 }
 
 #--------------------------------------------------------------------
-#
-# mps_expand(nr,"space separated string");
-#
-
-sub mps_expand {
-	my $nr = shift @_;
-	my $out = "";
-	while (my $fld = shift @_) {
-		if ($fld =~ s/\s*[,;\.!?'"<>\[\]]*\s+/ /g) {
-			foreach my $w (split(/\s+/,$fld)) {
-				# FIX: this should be replaced by stemmer!
-				$out .= "W $w $nr\n";
-			}
-		} else {
-			$out .= "W $fld $nr\n";
-		}
-	}
-	return c_852_czs($out);
-}
-
-#--------------------------------------------------------------------
 
 # $mps .= sf_to_mps($subfiled_hash,"subfields",mps_id);
 #