1 wrz 2008

Wczytanie pliku do tablicy

sub load_file_to_table {
    my ( $plik, $tab_format) = @_;

    open(PLIK, $plik);
    while ($line = <PLIK>) {
        chomp $line;</p>

        if($tab_format==1) {
            my ($region, $gmina, $kierunkowy) = split(/\t/, $line);
            $tablica{$region."-".$gmina} = $kierunkowy;
        }
        elsif($tab_format==2) {
            my ($wojew, $miejsc, $gmina, $kierunkowy, $pna) = split(/\t/, $line);
            $tablica{$wojew."-".$gmina}{$miejsc}{'nr_kier'} = $kierunkowy;
            $tablica{$wojew."-".$gmina}{$miejsc}{'pna'}  = $pna;
            $tablica{$wojew."-"}{$miejsc}{'nr_kier'}  = $kierunkowy;
            $tablica{$wojew."-"}{$miejsc}{'pna'}   = $pna;
        }
        elsif($tab_format==3) {
            my ($miejsc, $ulica, $kierunkowy, $pna) = split(/\t/, $line);
            $tablica{$miejsc}{$ulica}{'nr_kier'} = $kierunkowy;
            $tablica{$miejsc}{$ulica}{'pna'}  = $pna;
        }

        elsif($tab_format==4) {
            my $nr_kier = $line;
               $nr_kier =~ s/\-/ /g;
            $tablica{$nr_kier} = $nr_kier;
        }
    }

    close(PLIK);
    return %tablica;
}
%region_gmina_nr_kierunkowe   = &load_file_to_table ( $PATH_DATA . 'gmnkier.txt', 1);
1 wrz 2008

Konwersja ISO ANSI

sub ISO_ANSI {
# Conversion of polish characters: ISO Latin2 (8859-2) -&gt; ANSI (Win-1250)
my ( $tekst ) = @_;
  $tekst =~ tr/ˇĆĘŁŃÓ¦¬Ż±ćęłńó¶Ľż/ĄĆĘŁŃÓŚŹŻąćęłńóśźż/;
  return $tekst;
}
$linia = &amp;ISO_ANSI($linia);

Finkcja do konwersja ISO ANSI

19 sie 2008

Podmiana kodu html podczytanego z diva

var el = document.getElementById("cell_" + nr);
var el2 = document.getElementById("frm2");

var html = el2.innerHTML;
var html = html.replace(/cell_osoba_nr/, "cell_osoba_" + nr);
var html = html.replace(/combo_osoba_nr/, "combo_osoba_" + nr);
var html = html.replace(/szukajwBazie\(\)/, "szukajwBazie(\'" + nr + "\')");
var html = html.replace(/wybierzWyszukany\(\)/, "wybierzWyszukany(\'" + nr + "\')");
el.innerHTML = html;
19 sie 2008

Wyrażenie regularne walidacja daty

function testdate(fld, form) {
  let blad = '';

  if (fld.value !== '') {
    const data = fld.value;

    const RegDate = /^(19|20)\d\d[-](0[1-9]|1[012])[-](0[1-9]|[12][0-9]|3[01])$/i;
    const wynik = RegDate.test(data);
    if (wynik === false) blad += ' – data\';
  }

  if (blad !== '') blad = `Proszę wypełnić pola: ${blad}`;

  if (blad !== '') {
    alert(blad);
    return false;
  }
}