X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=conf%2Fffcasopisi%2Fsigxls2marc.pl;h=c565ac39313af48373d15704b83f5d2620dd4291;hb=b38c2de2975e086a094920cb1c78df41bc6eb8ae;hp=60c6c1e653c76956547d93217a05ec59555a02c2;hpb=d237f2fa806afb0f42660c2a4e8223b007615862;p=webpac2 diff --git a/conf/ffcasopisi/sigxls2marc.pl b/conf/ffcasopisi/sigxls2marc.pl index 60c6c1e..c565ac3 100644 --- a/conf/ffcasopisi/sigxls2marc.pl +++ b/conf/ffcasopisi/sigxls2marc.pl @@ -188,6 +188,52 @@ if ( rec('E') =~ m/:/ ) { ); } +if ( rec('E') =~ m# / # && rec('E') =~ m/[:=]/ ) { + marc('299','a', + regex('s/(^.*?[:=]) (.*\/) (.*)/$1/', + rec('E') + ) + ); + marc('299','b', + regex('s/(^.*?[:=]) (.*\/) (.*)/$2/', + rec('E') + ) + ); + marc('299','c', + regex('s/(^.*?[:=]) (.*\/) (.*)/$3/', + rec('E') + ) + ); + +} elsif ( rec('E') =~ m/ \/ / && rec('E') !~ m/[:=]/ ) { + marc('299','a', + regex('s/(^.*?\/) (.*)/$1/', + rec('E') + ) + ); + marc('299','c', + regex('s/(^.*?\/) (.*)/$2/', + rec('E') + ) + ); +} elsif ( rec('E') !~ m/ \/ / && rec('E') =~ m/[:=]/ ) { + marc('299','a', + regex('s/(^.*?[:=]) (.*)/$1/', + rec('E') + ) + ); + marc('299','b', + regex('s/(^.*?[:=]) (.*)/$2/', + rec('E') + ) + ); + +} else { + marc('299','a', + rec('E') + ); +} + # ### 246 inikatori # # prema jeziku - provjera #