#76 check org too

bibcop.pl

@@ -682,19 +682,26 @@ sub fix_journal {
   return $value;
 }
 
-sub fix_publisher {
+sub simplify_org_name {
   my ($value) = @_;
-  $value = fix_capitalization($value);
   my @orgs = qw/ACM IEEE/;
   foreach my $org (@orgs) {
     $value =~ s/^\Q$org\E($|[^A-Z0-9a-z].*$)/$org/g;
   }
   return $value;
 }
 
+sub fix_publisher {
+  my ($value) = @_;
+  $value = fix_capitalization($value);
+  $value = simplify_org_name($value);
+  return $value;
+}
+
 sub fix_organization {
   my ($value) = @_;
   $value = fix_capitalization($value);
+  $value = simplify_org_name($value);
   return $value;
 }