#74 ACM simplified

yegor256 · Mar 15, 2024 · 7d14050 · 7d14050
1 parent f53392d
commit 7d14050
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/bibcop.pl b/bibcop.pl
@@ -675,6 +675,7 @@ sub fix_journal {
 sub fix_publisher {
   my ($value) = @_;
   $value = fix_capitalization($value);
+  $value =~ s/^ACM($|[^A-Z0-9a-z].*$)/ACM/g;
   return $value;
 }
 

diff --git a/perl-tests/fixing.pl b/perl-tests/fixing.pl
@@ -44,6 +44,9 @@ package bibcop;
 fixes('booktitle', 'Symposium on Computers', 'Proceedings of the Symposium on Computers');
 fixes('booktitle', 'Proceedings of the 2014 7th Conference', 'Proceedings of the 7th Conference');
 
+fixes('publisher', 'ACM New York, NY, USA', 'ACM');
+fixes('publisher', 'ACME', 'ACME');
+
 fixes('pages', '13', '13');
 fixes('pages', '13-', '13');
 fixes('pages', '13--', '13');