projects
/
ferlib2koha.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ec5237d
)
fix swapped dates
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 14 Jul 2013 19:38:11 +0000
(21:38 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 14 Jul 2013 19:38:11 +0000
(21:38 +0200)
casopisi2koha.pl
patch
|
blob
|
history
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,
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 p
lann
eddate,
- primj_bruk.dat_prim as p
ublish
eddate,
+ broj.god_izd || '-' || broj.mjes_izd || '-' || broj.dan_izd as p
ublish
eddate,
+ primj_bruk.dat_prim as p
lann
eddate,
'ND:' || primj_bruk.ozn_nacdob || ' INV:' || primj.inv_broj || ' ; napomena: ' || broj.koment_broj || ' ; ' || primj_bruk.komentar || ' ; ' || primj.komentar as notes
from broj
'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->{p
lann
eddate} =~ s/-$/-01/;
- $row->{p
lann
eddate} =~ s/--/-01-/;
- $row->{p
ublishe
ddate} =~ s/(\d+)\.(\d+)\.(\d\d\d\d)/$3-$2-$1/;
+ $row->{p
ublish
eddate} =~ s/-$/-01/;
+ $row->{p
ublish
eddate} =~ s/--/-01-/;
+ $row->{p
lanned
ddate} =~ s/(\d+)\.(\d+)\.(\d\d\d\d)/$3-$2-$1/;
$row->{notes} =~ s/ ; $//;
$row->{notes} =~ s/: ; /: /;
$row->{notes} =~ s/ ; $//;
$row->{notes} =~ s/: ; /: /;
@@
-167,7
+167,7
@@
while (my $row = $sth->fetchrow_hashref ) {
insert 'serial' => {
biblionumber => $row->{biblionumber},
subscriptionid => $subscriptionid,
insert 'serial' => {
biblionumber => $row->{biblionumber},
subscriptionid => $subscriptionid,
- status =>
1
,
+ status =>
2
,
serialseq => $row->{serialseq},
planneddate => $row->{planneddate},
publisheddate => $row->{publisheddate},
serialseq => $row->{serialseq},
planneddate => $row->{planneddate},
publisheddate => $row->{publisheddate},