From f718b0d6a18f28e9d9ff949385856a1b430e6a6b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=B6rg=20Mayer?= <jmayer@loplof.de>
Date: Sat, 27 Aug 2005 15:11:00 +0000
Subject: Remove S/A from company names

svn path=/trunk/; revision=15568
---
 make-manuf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'make-manuf')

diff --git a/make-manuf b/make-manuf
index 1a53e3086e..9a68636023 100755
--- a/make-manuf
+++ b/make-manuf
@@ -45,11 +45,11 @@ sub shorten
   my $origmanuf = shift; 
   my $manuf = " " . $origmanuf . " ";
   # Remove any punctuation
-  $manuf =~ tr/,.()/    /;
+  $manuf =~ tr/',.()/    /;
   # & isn't needed when Standalone
   $manuf =~ s/ \& / /g;
   # Remove any "the", "inc", "plc" ...
-  $manuf =~ s/\s(the|inc|incorporated|plc||systems|corp|corporation|a\/s|ab|ag|kg|gmbh|co|company|limited|ltd)(?= )//gi;
+  $manuf =~ s/\s(the|inc|incorporated|plc||systems|corp|corporation|s\/a|a\/s|ab|ag|kg|gmbh|co|company|limited|ltd)(?= )//gi;
   # Convert to consistent case
   $manuf =~ s/(\w+)/\u\L$1/g;
   # Remove all spaces
-- 
cgit v1.2.3