/**
  * Palauttaa yhden olion tiedot taulukkoriviin pakattuna (tr-elementti).
  * Huomaa huolehtia muista taulukkotageista!
  * @param \Havainto $hav
  * @param int $rivinro Taulukon rivin juokseva nro alkaen yhdestä.
  * @param bool $erikoisvarustelu TRUE -> sopii poistovahvistukseen jne.
  * @return type
  */
 public function luo_taulukkorivi($hav, $rivinro, $erikoisvarustelu)
 {
     $rivi_class = "";
     if ($rivinro % 2 == 0) {
         $rivi_class = Bongausasetuksia::$havaintotaulu_parillinenrivi_class;
     }
     $rivi_id = "havainto" . $hav->get_id();
     // Haetaan sitten lajiluokan nimi (kieli saadaan parametrioliosta:
     $lj = new Lajiluokka($this->tietokantaolio, $hav->get_lajiluokka_id());
     $kuvaus = $lj->hae_kuvaus($this->parametriolio->kieli_id);
     if ($kuvaus === Lajiluokka::$MUUTTUJAA_EI_MAARITELTY) {
         $nimi = $lj->get_nimi_latina();
     } else {
         $nimi = $kuvaus->get_nimi();
     }
     $bongaajan_nimi = hae_henkilon_nimi($hav->get_henkilo_id(), true, $this->tietokantaolio);
     //========================== PIkakommentit =========================
     // Toiminnot on tässä vaiheessa valintaruutu. Hakasulut pitää lisätä!
     $maar_array_valinnat = array(Maarite::name(Bongausasetuksia::$havaintovalinta_id_taulukko_name . "[]"), Maarite::value($hav->get_id()));
     $toimintasolu = Html::luo_tablesolu(Html::luo_checkbox($maar_array_valinnat), array());
     // Esim. poistovahvistuksessa valinta oletuksena päällä (koska nämä
     // on valittu):
     if ($erikoisvarustelu) {
         Maarite::lisaa_maarite(Maarite::checked(), $maar_array_valinnat);
         $toimintasolu = Html::luo_tablesolu(Html::luo_checkbox($maar_array_valinnat), array());
     }
     //========================== PIkakommentit =========================
     $pikakommenttisolu = "";
     $kommenttien_lkm = 0;
     $on_uusia_pk = false;
     $pikakommentit = Pikakommentti::hae_pikakommentit($this->parametriolio->omaid, Pikakommentti::$KOHDE_BONGAUS, $hav->get_id(), $this->tietokantaolio);
     // Jos viimeistä katseluaikaa ei ole asetettu, asetetaan 0:
     if (!isset($_SESSION['edellinen_uloskirjausaika_sek'])) {
         $_SESSION['edellinen_uloskirjausaika_sek'] = 0;
     }
     // Korostetaan solu, jos uusin on riittävän uusi eikä oma:
     if (!empty($pikakommentit)) {
         $kommenttien_lkm = sizeof($pikakommentit);
         if ($pikakommentit[0]->get_tallennushetki_sek() > $_SESSION['edellinen_uloskirjausaika_sek'] && $pikakommentit[0]->get_henkilo_id() != $this->parametriolio->omaid) {
             $on_uusia_pk = true;
         }
     }
     // Taulukon solun muotoilu:
     $onclick = Maarite::onclick("hae_pikakommentit", array(Pikakommentti::$KOHDE_BONGAUS, $hav->get_id()));
     $pk_class = "";
     if ($on_uusia_pk) {
         $pk_class = "on_uusia";
     }
     $pikakommenttisolu = Html::luo_tablesolu(Html::luo_span($kommenttien_lkm, array(Maarite::id("id" . $hav->get_id()))), array(Maarite::classs($pk_class), Maarite::title(Bongaustekstit::$ilm_pikakommentit_nakyviin), Maarite::onclick("hae_pikakommentit", array(Pikakommentti::$KOHDE_BONGAUS, $hav->get_id()))));
     //============= PIkakommentit loppu ================================
     // Muokataan varmuus- ja maamerkinnät:
     // Maa merkitään, ellei Suomi:
     if ($hav->get_maa() == Maat::$suomi) {
         $maa = "";
     } else {
         $maa = " (" . Maat::hae_maan_kuvaus($hav->get_maa()) . ")";
     }
     // Vain epävarmuus näytetään
     $varmuus = "";
     if ($hav->get_varmuus() == Varmuus::$epavarma) {
         $varmuus = " (?)";
     }
     // Haetaan kuva_id ja koodi:
     $kuvaolio = $hav->hae_kuva();
     if ($kuvaolio instanceof Kuva) {
         $kuvakoodi = $kuvaolio->nayta_pelkka_kuva($this->parametriolio->kuvien_kansio_osoite);
         $kuva_id = $kuvaolio->getId();
     } else {
         $kuvakoodi = "";
         $kuva_id = -1;
     }
     // Mahdollistetaan kuvan näyttö klikkaamalla:
     // Kuvaa klikkaamalla saadaan se isoksi:
     $klikkaus = "";
     // Tyhjä, ellei kuvakoodi ok.
     $title = "";
     if ($kuvakoodi != "") {
         $klikkaus = Maarite::onclick("hae_kuva_ja_tiedot", array($hav->get_lajiluokka_id(), $kuva_id, Kuva::$KUVAT_BONGAUS));
         $title = Bongaustekstit::$havtaulkuvan_klikkausohje;
     }
     return Html::luo_tablerivi(Html::luo_tablesolu($rivinro, array()) . Html::luo_tablesolu($nimi . $varmuus, array(Maarite::classs("huomio"), Maarite::title(Bongauspainikkeet::$HAVAINNOT_NAYTA_LAJIHAVAINNOT_TITLE), Maarite::onclick("hae_lajihavainnot", array($hav->get_lajiluokka_id())))) . Html::luo_tablesolu($hav->hae_pvm(), array()) . Html::luo_tablesolu($hav->get_paikka() . $maa, array()) . Html::luo_tablesolu(Html::luo_table(Html::luo_tablerivi(Html::luo_tablesolu(Html::luo_span($hav->get_kommentti(), array(Maarite::classs(Bongausasetuksia::$havaintokuvakommentti_class))), array(Maarite::classs("rajaton"))) . Html::luo_tablesolu($kuvakoodi, array(Maarite::classs("rajaton"), $klikkaus, Maarite::title($title))), array()), array()), array(Maarite::name(Bongausasetuksia::$havaintotaulukon_kommenttisolun_name_arvo))) . Html::luo_tablesolu($bongaajan_nimi, array(Maarite::classs("huomio"), Maarite::title(Bongauspainikkeet::$HAVAINNOT_NAYTA_HENKILON_HAVAINNOT_TITLE), Maarite::onclick("hae_henkilon_havainnot", array($hav->get_henkilo_id(), $hav->get_lajiluokka_id())))) . $toimintasolu . $pikakommenttisolu, array(Maarite::classs($rivi_class), Maarite::id($rivi_id)));
 }
 /**
  * Lisää havainnot, joiden kaikkien tiedot on kopioitu valituista. 
  * Kopioida saa kaikkien havaintoja, myös omia, jos siihen näkee tarvetta. 
  * 
  * <p>Antaa ilmoitukset ja ilmoituksen onnistumisesta $palauteolion kautta.
  * Palauttaa käyttäjän havaintojen näyttötilaan.</p>
  * 
  * @return \Palaute Palauttaa Palaute-luokan olion.
  */
 public function toteuta_kopioi_itselle()
 {
     $valitut = $this->valittujen_idt;
     $omaid = $this->get_parametriolio()->omaid;
     $tallennetut = array();
     $palauteolio = $this->get_palauteolio();
     $virheilmot = array();
     if (empty($valitut)) {
         $palauteolio->set_ilmoitus(Bongaustekstit::$ilm_ei_valintoja);
         $palauteolio->set_operaatio_onnistui(true);
     } else {
         foreach ($valitut as $id) {
             $kopioitava = new Havainto($this->get_tietokantaolio(), $id);
             if ($kopioitava->olio_loytyi_tietokannasta) {
                 $uusi = new Havainto($this->get_tietokantaolio(), Havainto::$PARAMETRI_EI_KAYTOSSA);
                 $uusi->set_lajiluokka_id($kopioitava->get_lajiluokka_id());
                 $uusi->set_henkilo_id($omaid);
                 $uusi->set_kk($kopioitava->get_kk());
                 $uusi->set_paiva($kopioitava->get_paiva());
                 $uusi->set_vuosi($kopioitava->get_vuosi());
                 $uusi->set_maa($kopioitava->get_maa());
                 $uusi->set_paikka($kopioitava->get_paikka());
                 $uusi->set_varmuus($kopioitava->get_varmuus());
                 $uusi->set_kommentti("");
                 // Kommentiksi tyhjä.
                 if ($uusi->tallenna_uusi() === Havainto::$OPERAATIO_ONNISTUI) {
                     array_push($tallennetut, $uusi);
                 } else {
                     // tallennetaan virheilmoitukset
                     array_push($virheilmot, $uusi->tulosta_virheilmoitukset());
                 }
             }
         }
         if (sizeof($tallennetut) == sizeof($valitut)) {
             $palauteolio->set_ilmoitus(sizeof($tallennetut) . " " . Bongaustekstit::$ilm_havaintojen_lisays_ok);
             $palauteolio->set_operaatio_onnistui(true);
         } else {
             $viestit = sizeof($valitut) - sizeof($tallennetut) . " " . Bongaustekstit::$ilm_havaintojen_lisays_eiok;
             foreach ($virheilmot as $ilm) {
                 $viestit .= $ilm . Html::luo_br();
             }
             $palauteolio->set_ilmoitus($viestit);
             $palauteolio->set_operaatio_onnistui(false);
         }
     }
     // Näytetään havainnot:
     $palauteolio->set_sisalto($this->toteuta_nayta()->get_sisalto());
     return $palauteolio;
 }
 public function testaa_havainnon_muokkaus()
 {
     $this->lisaa_testikommentti("<h4>Havainnon muokkaustesti alkaa</h4>", false);
     $this->lisaa_testikommentti("Muokataan ekaa valmista havaintota (Linnut)", false);
     $this->muokattava = $this->havainto1;
     //======================================================================
     // Testataan ennen muutoksia onTallennuskelpoinen-metodi, jonka
     // pitäisi valittaa:
     $this->lisaa_testikommentti("Kokeillaan tallentaa ennen muutoksia,\n            minka ei pitaisi onnistua:", false);
     if ($this->muokattava->tallenna_muutokset() == Havainto::$OPERAATIO_ONNISTUI) {
         $this->lisaa_testikommentti("Virhe: muuttumattomia tietoja ei\n                ole tarkoitus antaa tallentaa!", true);
     } else {
         $this->lisaa_testikommentti("Oikein: muuttumattomia tietoja ei\n                tallenneta!", false);
     }
     //======================================================================
     // ASetetaan kuvaukselle tahallaan vääriä arvoja (paikaksi tyhjä):
     $this->muokattava->set_paikka("");
     $this->lisaa_testikommentti("Testataan tahallaan tallennus,\n            jonka pitaisi valittaa:", false);
     // tyhjennetään vielä aiemmat virheilmoitukset:
     $this->muokattava->tyhjenna_virheilmoitukset();
     // Virheilmoitus pitäisi tulla:
     if ($this->muokattava->tallenna_muutokset() == Havainto::$OPERAATIO_ONNISTUI) {
         $this->lisaa_testikommentti("Virhe: tyhjä paikka-muuttuja livahti ohi\n                        tarkastuksen!", true);
     } else {
         if ($this->muokattava->virheilmoitusten_lkm() == 1) {
             $this->lisaa_testikommentti("Oikein:  Tiedoissa virheita:<br/>" . $this->muokattava->tulosta_virheilmoitukset(), false);
         } else {
             $this->lisaa_testikommentti("Virhe: virheilmoituksia (" . $this->muokattava->virheilmoitusten_lkm() . " kpl):<br/>" . $this->muokattava->tulosta_virheilmoitukset(), true);
         }
     }
     // tyhjennetään vielä aiemmat virheilmoitukset:
     $this->muokattava->tyhjenna_virheilmoitukset();
     //======================================================================
     // ASetetaan havainnolle hyviä arvoja:
     $muokattu_paikka = "Naapurin pihallla";
     $muokattu_vuosi = 1999;
     $this->muokattava->set_paikka($muokattu_paikka);
     $this->muokattava->set_vuosi($muokattu_vuosi);
     $this->lisaa_testikommentti("Testataan hyvien muutosten tallennus, \n            jonka ei pitaisi valittaa:", false);
     // tyhjennetään vielä aiemmat virheilmoitukset:
     $this->muokattava->tyhjenna_virheilmoitukset();
     // Virheilmoituksia ei pitäisi tulla:
     if ($this->muokattava->tallenna_muutokset() === Havainto::$OPERAATIO_ONNISTUI) {
         $this->lisaa_testikommentti("Oikein! Tallennus ok!", false);
         // Kokeillaan hakea sama tietokannasta ja varmistetaan, että
         // muutettu kommentti on todella muuttunut:
         // Huom! Alla vuoden vertailussa pitää olla merkit noin. Täysi
         // identtisyys ei mene läpi. Menisi, jos vuosi olisi
         // määritelty $muokattu_vuosi = "1999". Liittyy ilmeisesti
         // tapaan, jolla numeroarvot jossakin vaiheessa muuttuvat merkkijonoiksi.
         $testi = new Havainto($this->tietokantaolio, $this->muokattava->get_id());
         if ($testi->get_paikka() === $muokattu_paikka && $testi->get_vuosi() == $muokattu_vuosi) {
             $this->lisaa_testikommentti("Muutokset oikein tietokannassa!\n                     Paikka on nykyaan: '" . $testi->get_paikka() . "' ja " . "vuosi '" . $testi->get_vuosi() . "'", false);
         } else {
             $this->lisaa_testikommentti("Muutokset vaarin tietokannassa!\n                     Paikka on nykyaan: '" . $testi->get_paikka() . "' ja " . "vuosi '" . $testi->get_vuosi() . "'", true);
         }
     } else {
         $this->lisaa_testikommentti("Virhe:  Tallennus ei ok:<br/>" . $this->muokattava->tulosta_virheilmoitukset(), true);
         $testi = new Havainto($this->tietokantaolio, $this->muokattava->get_id());
         $this->lisaa_testikommentti(" Tietokannassa seuraavat tiedot:\n                     Paikka on nykyaan: '" . $testi->get_paikka() . "' ja " . "vuosi '" . $testi->get_vuosi() . "'", true);
     }
     //======================================================================
     $this->lisaa_testikommentti("<h4>Havainnon muokkaustesti loppui</h4>", false);
     // Tyhjennetään virheilmoitukset:
     $this->tyhjenna_virheilmoitukset();
     //======================================================================
     //======================================================================
 }