projects
/
Biblio-Z3950.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
leader fix
[Biblio-Z3950.git]
/
CROSBI.pm
diff --git
a/CROSBI.pm
b/CROSBI.pm
index
b549f8b
..
199484d
100644
(file)
--- a/
CROSBI.pm
+++ b/
CROSBI.pm
@@
-199,12
+199,12
@@
sub next_marc {
## LDR 06 - a - language material
## LDR 07 - a - monographic component part
## LDR 06 - a - language material
## LDR 07 - a - monographic component part
- $leader =~ s/^(....)...(.+)/$1naa$2/;
+ $leader =~ s/^(....
.
)...(.+)/$1naa$2/;
## LDR 17 - Encoding level ; 7 - minimal level, u - unknown
## LDR 18 - i = isbd ; u = unknown
## LDR 17 - Encoding level ; 7 - minimal level, u - unknown
## LDR 18 - i = isbd ; u = unknown
- $leader =~ s/^(.{17})..(.+)/$1u
u
$2/;
+ $leader =~ s/^(.{17})..(.+)/$1u
i
$2/;
$marc->leader( $leader );
warn "# leader [$leader]";
$marc->leader( $leader );
warn "# leader [$leader]";