--- trunk/conf/normalize/mapping.pl 2006/07/02 16:14:41 562 +++ trunk/conf/normalize/mapping.pl 2006/07/02 18:36:22 563 @@ -1,3 +1,23 @@ +# Leader + +if ( rec('999') && first(rec('999')) =~ m/pregledan/i) { + marc_leader('05','c'); +} else { + marc_leader('05','n'); +} + +marc_leader('06','a'); + +marc_leader('07','m'); + +marc_leader('18','i'); + +if ( rec('230') ) { + marc_leader('19','r'); +} + +# greška - 000 se ne zapisuje u marc: + marc('001', rec('000') ); @@ -204,31 +224,23 @@ } # 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('245','a', +# rec('230','a') +# ); +# +# marc('245','b', +# rec('230','e') +# ); +# +# marc('245','c', +# rec('230','f') +# ); +# +# marc('245','n', +# rec('230','v') +# ); +# +# }