projects
/
crolist2marc
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a370107
)
capitalize few more fields
master
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 22 Sep 2013 10:30:13 +0000
(12:30 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 22 Sep 2013 10:30:13 +0000
(12:30 +0200)
crolist2marc.pl
patch
|
blob
|
history
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;
}