From efd8b038a6fc47f45bfd8d0d7cda4aa908b05210 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 22 Sep 2013 12:30:13 +0200
Subject: [PATCH] capitalize few more fields

---
 crolist2marc.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/crolist2marc.pl b/crolist2marc.pl
index 0ca18aa..68e602e 100755
--- a/crolist2marc.pl
+++ b/crolist2marc.pl
@@ -29,7 +29,7 @@ sub vc_casefix { # partial reverse-engeenered implementation of case mapping
 		$sel >>= 1;
 	}
 
-	if ( substr($vc,0,1) eq 'x' || ( $vc eq 'am  ' && $tag =~ m/^(200|210|225)$/ ) ) { #&& $sfi eq '$a' )) {
+	if ( substr($vc,0,1) eq 'x' || ( $tag =~ m/^(200|210|225|700|701|702|710|711|712)$/ ) ) { #&& $sfi eq '$a' )) {
 		$fixed = ucfirst $fixed;
 	}
 
-- 
2.20.1