work on journals database conversion

[webpac2] / conf / ffcasopisi / sigxls2marc.pl

diff --git a/conf/ffcasopisi/sigxls2marc.pl b/conf/ffcasopisi/sigxls2marc.pl
index 60c6c1e..c565ac3 100644 (file)
--- 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
 #