projects
/
koha-hnb-currency-import.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6c10bae
)
convert spaces to tabs
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 27 Jan 2012 10:58:27 +0000
(11:58 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 27 Jan 2012 10:58:27 +0000
(11:58 +0100)
hnb.pl
patch
|
blob
|
history
diff --git
a/hnb.pl
b/hnb.pl
index
1a3498d
..
3664d51
100644
(file)
--- a/
hnb.pl
+++ b/
hnb.pl
@@
-15,14
+15,14
@@
my ( $broj, $izrada, $dd, $mm, $yyyy, $rows ) = unpack 'A3A8A2A2A4A2', $zag;
warn "# $broj - $izrada - $dd $mm $yyyy - $rows\n";
while(<>) {
warn "# $broj - $izrada - $dd $mm $yyyy - $rows\n";
while(<>) {
-
chomp;
-
s/(\d+),(\d{6})/$1.$2/gs;
-
my ( $sifra, $oznaka, $broj, $kupovni, $srednji, $prodajni ) = unpack 'A3A3A3A15A15A15', $_;
-
warn "$sifra|$oznaka|$broj|$kupovni|$srednji|$prodajni|\n";
+ chomp;
+ s/(\d+),(\d{6})/$1.$2/gs;
+ my ( $sifra, $oznaka, $broj, $kupovni, $srednji, $prodajni ) = unpack 'A3A3A3A15A15A15', $_;
+ warn "$sifra|$oznaka|$broj|$kupovni|$srednji|$prodajni|\n";
-
print qq{
-
INSERT INTO currency SET currency='$oznaka',symbol='$oznaka',rate=$srednji,active=0
-
ON DUPLICATE KEY UPDATE rate=$srednji ;
-
};
+ print qq{
+ INSERT INTO currency SET currency='$oznaka',symbol='$oznaka',rate=$srednji,active=0
+ ON DUPLICATE KEY UPDATE rate=$srednji ;
+ };
-}
\ No newline at end of file
+}