[Friday, 09 December 2011], Tomasz Chiliński napisał(a):
On 09.12.2011 23:15, Jaroslaw Dziubek wrote:
Małe usprawnienie do kodu ;)
Co robi? Ano jesli mamy wioske/miejscowosc bez ulic, a poczte dla niej zupelnie gdzies indziej to wpisanie jako adresu klient: "Pcim Dolny xx, yy-yyy Pcim Górny" powoduje, że nie uda się zaimportować. Po mojej poprawce system automatycznie spróbuje potraktować ulicę jako miejscowośc i znaleźć ją w bazie :)
Takich Fixxxer-ów LMS-a jest więcej potrzebnych! ;-) Zobaczymy co na to powie Alek.
To jeszcze jedna mała poprawka - numer domu może być w formacie: aa-bb (np. "Krótka 1-4/3"). Patch poniżej:
Index: lms-teryt =================================================================== RCS file: /cvsroot/lms/bin/lms-teryt,v retrieving revision 1.10 diff -u -r1.10 lms-teryt --- lms-teryt 9 Dec 2011 19:52:22 -0000 1.10 +++ lms-teryt 9 Dec 2011 22:44:46 -0000 @@ -620,11 +620,11 @@ printf("%s (%04d) %s: ", $row->{'name'}, $row->{'id'}, $addr) if not $quiet;
# get house/flat - if ($addr =~ /\s([0-9]+\s*[a-z]*)$/i) { + if ($addr =~ /\s([0-9]+(?:-[0-9]+)?\s*[a-z]*)$/i) { $addr = substr($addr, 0, -1 * length($1)); $house = $1; } - elsif ($addr =~ /\s(([0-9]+\s*[a-z]*)/([0-9]+))$/i) { + elsif ($addr =~ /\s(([0-9]+(?:-[0-9]+)?\s*[a-z]*)/([0-9]+))$/i) { $addr = substr($addr, 0, -1 * length($1)); $house = $2; $flat = $3;