/**
* Luo uuden lajiluokan annetuilla arvoilla, tallentaa sen tietokantaan
* ja palauttaa tallennetun id:n tai arvon
* Lajiluokka::$MUUTTUJAA_EI_MAARITELTY, jos jokin menee vikaan.
*
* @param type $ylaluokka_id
* @param type $nimi_latina
* @return type
*/
public function luo_ja_tallenna_lajiluokka($ylaluokka_id, $nimi_latina)
{
$tallennetun_id = Lajiluokka::$MUUTTUJAA_EI_MAARITELTY;
$id = Lajiluokka::$PARAMETRI_EI_KAYTOSSA;
$lajiluokka = new Lajiluokka($this->tietokantaolio, $id);
$this->lisaa_testikommentti("Uusi tyhja lajiluokka luotu!", false);
// Ei pitäisi olla tallennuskelpoinen:
if ($lajiluokka->on_tallennuskelpoinen(true)) {
$this->lisaa_virheilmoitus("Ei pitaisi olla tallennuskelpoinen!");
} else {
/*$this->lisaa_testikommentti("Muuttujia ei ole asetettu, joten".
" saatiin aivan oikein seuraava palaute: ".
$lajiluokka->tulosta_virheilmoitukset(),false);*/
}
/*$this->lisaa_testikommentti("Asetetaan lajiluokan ylaluokka_id,
ja nimi_latina. Testataan
uudelleen, onko nyt tallennuskelpoinen:",false);*/
$lajiluokka->set_ylaluokka_id($ylaluokka_id);
$lajiluokka->set_nimi_latina($nimi_latina);
// Tässä vaiheessa ongelmaksi voi tulla myös se, että nimi_latina on
// jo olemassa. Siitä annetaan erillinen ilmoitus.
if ($lajiluokka->on_tallennuskelpoinen(true)) {
$this->lisaa_testikommentti("Lajiluokka on tallennuskelpoinen", false);
$onnistuminen = $lajiluokka->tallenna_uusi();
if ($onnistuminen === Lajiluokka::$OPERAATIO_ONNISTUI) {
$tallennetun_id = mysql_insert_id();
$this->lisaa_testikommentti("Lajiluokan tallennus onnistui!", false);
} else {
$this->lisaa_testikommentti($onnistuminen . " Virhe tallennuksessa (luo_\n ja_tallenna_lajiluokka())!" . " Arvot: ylaluokka_id=" . $lajiluokka->get_ylaluokka_id() . ", nimi_latina=" . $lajiluokka->get_nimi_latina(), true);
}
} else {
// Tämä ei aina ole vastoin toivomuksia!
$this->lisaa_testikommentti($lajiluokka->tulosta_virheilmoitukset(), false);
}
return $tallennetun_id;
}
/**
* Toteuttaa nimenmukaisen toiminnon.
* @return Palauteolio $palauteolio
*/
public function toteuta_nayta_havainto_ja_kuva_siirtolomake()
{
$lajiluokkaolio = new Lajiluokka($this->tietokantaolio, $this->parametriolio->id_lj);
$sisaret = array();
// Muut lajiluokat.
$this->parametriolio->kieli_id = Kielet::$SUOMI;
// Haetaan suomenkielinen nimi, tai latina, ellei suomeksi löydy.
// Tarkistetaan ensin, että lajiluokkaolio kunnossa:
if ($lajiluokkaolio->olio_loytyi_tietokannasta) {
$kuvaus = $lajiluokkaolio->hae_kuvaus(Kielet::$SUOMI);
if ($kuvaus === Lajiluokka::$MUUTTUJAA_EI_MAARITELTY) {
$this->parametriolio->nimi_kuv = $lajiluokkaolio->get_nimi_latina();
} else {
$this->parametriolio->nimi_kuv = $kuvaus->get_nimi();
}
// Haetaan sisarlajit lajivalikkoa varten. Itseä ei mukaan!
$kieli_id = $this->parametriolio->kieli_id;
$itse_mukana = FALSE;
$sisaret = $lajiluokkaolio->hae_sisarlajiluokat($kieli_id, $itse_mukana);
} else {
$this->parametriolio->nimi_kuv = "tuntematon";
}
$oletus_id_lj = $lajiluokkaolio->get_id();
$sisarlajiluokat = $sisaret;
$otsikko = "";
$kieli_id = $this->parametriolio->kieli_id;
$name_arvo = Bongausasetuksia::$havaintokuvasiirtolomakevalikko_name;
$lajivalikko = Nakymat_lj::nayta_lajivalikko($oletus_id_lj, $sisarlajiluokat, $otsikko, $kieli_id, $name_arvo);
$this->palauteolio->set_sisalto(Nakymat_lj::nayta_havaintojen_ja_kuvien_siirtolomake($this->parametriolio, $lajivalikko));
return $this->palauteolio;
}
/**
* Testaa lajiluokan muokkausta:
*/
public function testaa_lajiluokan_muokkaus()
{
$this->lisaa_testikommentti("<h4>Lajiluokan muokkaustesti alkaa</h4>", false);
$this->lisaa_testikommentti("Otetaan muokattavaksi viimeksi luotu\n lajiluokka", false);
$this->muokattava = $this->lajiluokat[1];
//======================================================================
// Testataan ennen muutoksia onTallennuskelpoinen-metodi, jonka
// pitäisi valittaa:
$this->lisaa_testikommentti("Testataan ennen muutoksia\n onTallennuskelpoinen-metodi, jonka pitaisi valittaa:", false);
$uusi = false;
if ($this->muokattava->on_tallennuskelpoinen(false)) {
$this->lisaa_testikommentti("Virhe: samoja tietoja ei pida\n paastaa muokkaamaan!", true);
} else {
$this->lisaa_testikommentti("Oikein: samoja tietoja ei pida\n paastaa muokkaamaan! Kommentit: " . $this->muokattava->tulosta_virheilmoitukset(), false);
}
//======================================================================
// ASetetaan pikakommentille tahallaan vääriä arvoja:
$this->muokattava->set_nimi_latina("");
// Yritetään muuttaa ylaluokka_id:tä:
$onnistumispalaute = $this->muokattava->set_ylaluokka_id(345);
//ylaluokka_id:tä ei pitäisi pystyä muokkaamaan:
if ($onnistumispalaute == false) {
$this->lisaa_testikommentti("Ylaluokka_id:n muutos ei\n onnistunut (OIKEIN)", false);
} else {
$this->lisaa_testikommentti("Virhe: Ylaluokka_id:n muutos\n meni lapi!", true);
}
$this->lisaa_testikommentti("Asetetaan nimi_latinaksi tyhjä." . " Talloin onTallennuskelpoinen-metodin pitaisi valittaa.", false);
if (!$this->muokattava->on_tallennuskelpoinen(false)) {
$this->lisaa_testikommentti("Tyhjä latina ei mennyt läpi (OIKEIN)." . " Saatiin seuraava ilmoitus:" . $this->muokattava->tulosta_virheilmoitukset(), false);
} else {
$this->lisaa_testikommentti("Virhe: Tyhjä latina meni läpi!", true);
}
//======================================================================
$this->lisaa_testikommentti("Asetetaan nimi_latinaksi jo kaytossa oleva." . " Talloin onTallennuskelpoinen-metodin pitaisi valittaa.", false);
$this->muokattava->set_nimi_latina(Lajiluokkatestaus::$lj1_nimi_latina);
$palaute = $this->muokattava->tallenna_muutokset();
if ($palaute != Lajiluokka::$OPERAATIO_ONNISTUI) {
$this->lisaa_testikommentti("Tuplalatina ei mennyt läpi (OIKEIN)." . " Saatiin seuraava ilmoitus:" . $this->muokattava->tulosta_virheilmoitukset(), false);
} else {
$this->lisaa_testikommentti("Virhe: Tuplalatina meni läpi!", true);
}
//======================================================================
// ASetetaan nyt muutettavaksi hyviä arvoja:
$this->muokattava->set_nimi_latina(Lajiluokkatestaus::$lj2_nimi_latina_muutettu);
$this->lisaa_testikommentti("Muutetaan latinaa laillisesti.", false);
// Virheilmoituksia ei pitäisi tulla:
if ($this->muokattava->on_tallennuskelpoinen(false)) {
$this->lisaa_testikommentti("Oikein! ARvot puhtaita!", false);
} else {
$this->lisaa_testikommentti("Virhe: Tiedoissa olevinaan virheita:<br/>" . $this->muokattava->tulosta_virheilmoitukset(), false);
}
//======================================================================
// Kokeillaan sitten tallentaa muuttuneet tiedot:
$this->lisaa_testikommentti("Kokeillaan tallentaa muutokset:", false);
$tallennuspalaute = $this->muokattava->tallenna_muutokset();
if ($tallennuspalaute == Lajiluokka::$OPERAATIO_ONNISTUI) {
$this->lisaa_testikommentti("Muutosten tallennus onnistui!", false);
// Kokeillaan hakea sama tietokannasta ja varmistetaan, että
// muutettu kommentti on todella muuttunut:
$testi = new Lajiluokka($this->tietokantaolio, $this->muokattava->get_id());
if ($testi->get_nimi_latina() == Lajiluokkatestaus::$lj2_nimi_latina_muutettu) {
$this->lisaa_testikommentti("Muutokset oikein tietokannassa!\n Nimi_latina on nykyaan: " . $testi->get_nimi_latina(), false);
} else {
$this->lisaa_testikommentti("Muutokset vaarin tietokannassa!\n Nimi_latina on tietokannassa: " . $testi->get_nimi_latina(), true);
}
} else {
$this->lisaa_testikommentti($tallennuspalaute, true);
}
//======================================================================
$this->lisaa_testikommentti("<h4>Lajiluokan muokkaustesti loppui</h4>", false);
}
/**
* 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)));
}
