r583@llin: dpavlin | 2006-05-12 17:32:42 +0200

 conversion from xml to sets

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@462 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/conf/normalize/isis_ffzg.pl b/conf/normalize/isis_ffzg.pl
new file mode 100755 (executable)
index 0000000..d18a4aa
--- /dev/null
+++ b/conf/normalize/isis_ffzg.pl
@@ -0,0 +1,219 @@
+tag('MFN',
+       rec('000')
+);
+
+display('ISBN',
+       rec('10')
+);
+
+display('ISSN',
+       rec('11')
+);
+
+search('IdentificationNumbers',
+       rec('10'),
+       rec('11'),
+);
+
+tag('Language',
+       rec('101')
+);
+
+tag('TitleProper',
+       regex( 's/<[^>]*>//g',
+               rec('200','a')
+       )
+);
+
+tag('titleNo',
+       rec('200','9')
+);
+
+tag('Subtitle',
+       rec('200','e')
+);
+
+tag('TitleProper2',
+       rec('200','c')
+);
+
+tag('ParallelTitle',
+       rec('200','d')
+);
+
+tag('Responsibility',
+       join_with(" ; ",
+               rec('200','f'),
+               rec('200','g')
+       )
+);
+
+display('ResponsibilityFirst',
+       rec('200','f')
+);
+
+display('ResponsibilitySecond',
+       rec('200','g')
+);
+
+tag('VolumeDesignation',
+       rec('200','v')
+);
+
+tag('EditionStatement',
+       rec('205','a')
+);
+
+tag('SerialNo',
+       rec('207','a')
+);
+
+tag('fond',
+       rec('209','a')
+);
+
+tag('PlacePublication',
+       rec('210','a')
+);
+
+tag('NamePublisher',
+       rec('210','c')
+);
+
+tag('DatePublication',
+       rec('210','d')
+);
+
+tag('PhysicalDescription',
+       join_with(" : ",
+               rec('215','a'),
+               join_with(" ; ",
+                       rec('215','c'),
+                       rec('215','d'),
+               )
+       )
+);
+
+tag('MaterialDesignation',
+       rec('215','a')
+);
+
+tag('PhysicalDetails',
+       rec('215','c')
+);
+
+tag('AccompanyingMaterial',
+       rec('215','e')
+);
+
+tag('Series',
+       join_with(" = ", rec('225','a'),
+               join_with(" : ", rec('225','d'),
+                       join_with(" ; ", rec('225','e'),
+                               join_with(". ", rec('225','v'),
+                                       join_with(", ", rec('225','h'),
+                                               join_with(" ; ", rec('225','i'),
+                                                       rec('225','w'),
+                                               )
+                                       )
+                               )
+                       )
+               )
+       )
+);
+
+tag('SeriesTitle',
+       rec('225','a')
+);
+
+tag('GeneralNote',
+       rec('300')
+);
+
+tag('EditionNote',
+       rec('305')
+);
+
+tag('PhysicalDescriptionNote',
+       rec('307')
+);
+
+tag('IntellectResponsNote',
+       rec('314')
+);
+
+tag('InternalBibliographies',
+       rec('320')
+);
+
+tag('Frequency',
+       rec('326')
+);
+
+tag('ContentsNote',
+       rec('327')
+);
+
+tag('Summary',
+       rec('330')
+);
+
+tag('SystemRequirements',
+       rec('337')
+);
+
+tag('IssuedWith',
+       join_with(': ', rec(423,'z'),
+               join_with(' / ', rec(423,'a'),
+                       join_with(' ', rec(423,'c'),
+                               rec(423,'b')
+                       )
+               )
+       )
+);
+
+display('Parts',
+       lookup(
+               regex( 's/^/dio-jzav:/', rec(900) )
+       )
+);
+
+search('Parts',
+       lookup(
+               regex( 's/^/id-dio-jzav:/', rec(900) )
+       )
+);
+
+display('PartsEF',
+       lookup(
+               regex( 's/^/naslov-efzg:001/', rec('001') )
+       )
+);
+
+tag('PartsID',
+       rec('463','1')
+);
+
+tag('Piece',
+       lookup(
+               regex( 's/^/nazlov-efzg:/',
+                       first(
+                               rec(463,1)
+                       )
+               )
+       )
+);
+
+tag('PieceSubtitle',
+       lookup(
+               regex( 's/^/podnazlov-efzg:/',
+                       first(
+                               rec(463,1)
+                       )
+               )
+       )
+);
+
+tag('PieceNum',
+       rec('463','v')
+);