ISSN cleaning

diff --git a/conf/bibliografija/baza-csa.pl b/conf/bibliografija/baza-csa.pl
index 0b5a299..be8ebaa 100644 (file)
--- a/conf/bibliografija/baza-csa.pl
+++ b/conf/bibliografija/baza-csa.pl
@@ -3,9 +3,11 @@ my $covstatus;
 
 ( $covpolicy, $covstatus ) = split(/\s*-\s*/, rec('F'));
 
+my @isn = regex('s/^.*(\d\d\d\w)(\d\d\d\w).*/$1-$2/', rec('B'));
+
 row('rbaze',
        baza => config('input name'),
-       isn => rec('B'),
+       isn => $isn[0],
        eissn => rec('C'),
        title => rec('A'),
        coverage_policy => $covpolicy,

diff --git a/conf/bibliografija/baza-geobase.pl b/conf/bibliografija/baza-geobase.pl
index 6ec739a..1b969a2 100644 (file)
--- a/conf/bibliografija/baza-geobase.pl
+++ b/conf/bibliografija/baza-geobase.pl
@@ -1,8 +1,10 @@
+my @isn = regex('s/^.*(\d\d\d\w)(\d\d\d\w).*/$1-$2/', rec('C'));
+
 row('rbaze',
        baza => config('input name'),
        title => rec('A'),
        source_type => rec('B'),
-       isn => rec('C'),
+       isn => $isn[0],
        eissn => rec('D'),
        publisher => rec('E'),
        country => rec('F'),

diff --git a/conf/bibliografija/baza-pi.pl b/conf/bibliografija/baza-pi.pl
index abd1a34..e91175e 100644 (file)
--- a/conf/bibliografija/baza-pi.pl
+++ b/conf/bibliografija/baza-pi.pl
@@ -1,4 +1,4 @@
-my @isn = regex('s/^.*(\d\d\d\w-\d\d\d\w).*/$1/', rec('B'));
+my @isn = regex('s/^.*(\d\d\d\w).*(\d\d\d\w).*/$1-$2/', rec('B'));
 
 row('rbaze',
        baza => config('input name'),