[Saturday, 10 December 2011], Krzysztof Kulesza napisał(a):

Witam Pozwolilem sobie dodac jeszcze mozliwosc wyszukiwania numerow mieszkan w formacie x/y/z gdyz takie numeracje sa stosowane np w Pyskowicach W zalaczniku patch do wersji z CVS Ten patch kasuje poprawność adresu "Krótka 1/2"

IMHO ten regexp powinien wygladać tak: elsif ($addr =~ /\s(([0-9]+\s*[a-z]*(?:\/[0-9]+\s*[a-z]*)?)\/([0-9]+))$/i) {

-- Krzysztof Kulesza

--- ../../../lms/lms-cvs/bin/lms-teryt 2011-12-10 10:01:37.389370292 +0100 +++ lms-teryt 2011-12-10 10:33:54.835143085 +0100 @@ -624,7 +624,7 @@ sub location_update $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]+\s*[a-z]*)\/([0-9]+)\/([0-9]+))$/i) { $addr = substr($addr, 0, -1 * length($1)); $house = $2; $flat = $3; @@ -641,7 +641,7 @@ sub location_update }

# try to remove prefix UL., AL., PL., SKWER, BULW., RONDO, PARK, RYNEK, SZOSA, DROGA, OS., OGR??D, WYSPA, WYB. - $street =~ s/^\s*(((ul\.|pl\.|al\.|bulw\.|os\.|wyb\.)\s*)|((skwer|rondo|park|rynek|szosa|droga|ogr??d|wyspa)\s+))//i; + $street =~ s/^\s*(((ul\.|pl\.|al\.|bulw\.|os\.|wyb\.)\s*)|((plac|skwer|rondo|park|rynek|szosa|droga|ogr??d|wyspa)\s+))//i; $street =~ s/(^\s+|\s+$)//g; $city =~ s/(^\s+|\s+$)//g;

_______________________________________________ lms mailing list lms@lists.lms.org.pl http://lists.lms.org.pl/mailman/listinfo/lms

-- Yaro IRL: Jaroslaw Dziubek | "Gdy kobieta patrzy często http://yaro.perfect.net.pl/ | w lustro dowodzi to nie tyle KNM Member: http://www.knm.org.pl/ | próżności co odwagi." IRC: Yaro, ICQ: 1340145, GG: 1110 | M. Twain