--- trunk/conf/normalize/mapping.pl 2006/07/02 21:30:00 568 +++ trunk/conf/normalize/mapping.pl 2006/07/02 21:32:53 569 @@ -1,22 +1,24 @@ # 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'); +# } -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: +# greška! - 000 se ne zapisuje u marc: marc('001', rec('000') @@ -59,9 +61,6 @@ rec('205','a') ); -_debug( 2 ); -warn "210a: ",dump( first(rec('210','a' )) ); - marc_compose('260', 'a', split_rec_on('210','a', qr/\s*;\s*/, 1), 'b', first(rec('210','c')), @@ -69,9 +68,6 @@ 'c', first(rec('210','d')), ); - -_debug( 0 ); - marc('300','a', rec('215','a') ); @@ -104,7 +100,10 @@ ); marc('490','v', - rec('225','v') + join_with(', ', + rec('225','v'), + rec('225','w') + ) ); marc('500','a',