--- trunk/conf/normalize/mapping.pl 2006/07/03 15:34:10 573 +++ trunk/conf/normalize/mapping.pl 2006/07/03 21:08:07 574 @@ -186,6 +186,8 @@ # ); # } +_debug( 2 ); + if ( rec('710','f') ) { marc_indicators('111', 2, ' '); @@ -223,24 +225,28 @@ } +_debug( 0 ); + # zapisi za duplanje -# -# if ( rec('230') ) { -# -# marc('245','a', -# rec('230','a') -# ); -# -# marc('245','b', -# rec('230','e') -# ); -# -# marc('245','c', -# rec('230','f') -# ); -# -# marc('245','n', -# rec('230','v') -# ); -# -# } + +if ( rec('230') ) { + +marc_duplicate(); + +marc('245','a', + rec('230','a') +); + +marc('245','b', + rec('230','e') +); + +marc('245','c', + rec('230','f') +); + +marc('245','n', + rec('230','v') +); + +}