From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 22 Sep 2013 10:30:13 +0000 (+0200)
Subject: capitalize few more fields
X-Git-Url: http://git.rot13.org/?p=crolist2marc;a=commitdiff_plain;ds=sidebyside

capitalize few more fields
---

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;
 	}