capitalize few more fields

[crolist2marc] / crolist2marc.pl

diff --git a/crolist2marc.pl b/crolist2marc.pl
index 0ca18aa..68e602e 100755 (executable)
--- 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;
        }