fix swapped dates

diff --git a/casopisi2koha.pl b/casopisi2koha.pl
index 3cf5e46..963f7dd 100755 (executable)
--- a/casopisi2koha.pl
+++ b/casopisi2koha.pl
@@ -114,8 +114,8 @@ select distinct
   posj_br.sif_orgjed as branchcode,
 
   'v.' || broj.vol_broj || ':no.' || broj.broj as serialseq,
-  broj.god_izd || '-' || broj.mjes_izd || '-' || broj.dan_izd as planneddate,
-  primj_bruk.dat_prim as publisheddate,
+  broj.god_izd || '-' || broj.mjes_izd || '-' || broj.dan_izd as publisheddate,
+  primj_bruk.dat_prim as planneddate,
   'ND:' || primj_bruk.ozn_nacdob || ' INV:' || primj.inv_broj || ' ; napomena: ' || broj.koment_broj || ' ; ' || primj_bruk.komentar || ' ; ' || primj.komentar as notes
 
 from broj
@@ -156,9 +156,9 @@ while (my $row = $sth->fetchrow_hashref ) {
 
        }
 
-       $row->{planneddate} =~ s/-$/-01/;
-       $row->{planneddate} =~ s/--/-01-/;
-       $row->{publisheddate} =~ s/(\d+)\.(\d+)\.(\d\d\d\d)/$3-$2-$1/;
+       $row->{publisheddate} =~ s/-$/-01/;
+       $row->{publisheddate} =~ s/--/-01-/;
+       $row->{plannedddate} =~ s/(\d+)\.(\d+)\.(\d\d\d\d)/$3-$2-$1/;
 
        $row->{notes} =~ s/ ; $//;
        $row->{notes} =~ s/:  ; /: /;
@@ -167,7 +167,7 @@ while (my $row = $sth->fetchrow_hashref ) {
        insert 'serial' => {
                biblionumber =>   $row->{biblionumber},
                subscriptionid => $subscriptionid,
-               status => 1,
+               status => 2,
                serialseq => $row->{serialseq},
                planneddate => $row->{planneddate},
                publisheddate => $row->{publisheddate},