PHP sql_faru函数代码示例

/**
 * Kontrolas iun rajton de la aktuala uzanto.
 *
 * Faras demandon al la datumbazo tiucele.
 * @param $ago nomo de kolumno en la rajto-tabelo.
 * @return boolean true, se la uzanto havas tiun rajton,
 *                 false alikaze (ankaŭ se la uzanto ne
 *                  ekzistas aŭ pasvorto malĝustas).
 * @global string _SESSION["kodvorto"]  la pasvorto de la
 *                 uzanto, uzata por kontroli.
 * @global string _SESSION["kodnomo"] la uzantonomo por
 *                 kontroli la rajton.
 */
function rajtas($ago)
{
    $sql = datumbazdemando(array($ago, "kodvorto"), "entajpantoj", "nomo = '" . $_SESSION["kodnomo"] . "'", "", array("order" => "id"));
    $row = mysql_fetch_assoc(sql_faru($sql));
    return $row and $row['kodvorto'] == $_SESSION['kodvorto'] and 'J' == $row[$ago];
}

/**
 *
 * @param array $objektoj
 *     <code>array('partopreno' => {@link Partopreno}, ...)</code>
 * @return boolean
 */
function kondicxo_havas_unulitan_cxambron($objektoj)
{
    $partopreno = $objektoj['partopreno'];
    if ($partopreno->datoj["dulita"] != "U") {
        // ne mendis unulitan ĉambron
        return false;
    }
    if (estas_unu_el($partopreno->datoj['alvenstato'], 'm', 'n')) {
        // malaliĝis / ne venis
        return false;
    }
    if ($partopreno->datoj['domotipo'] != 'J') {
        return false;
    }
    $rez = eltrovu_cxambrojn($partopreno->datoj['ID']);
    if (mysql_num_rows($rez) > 0) {
        // ricevis ĉambron
        while ($linio1 = mysql_fetch_assoc($rez)) {
            $sql = datumbazdemando(array("litonombro", "dulita"), "cxambroj", "ID = '" . $linio1['cxambro'] . "'");
            $linio2 = mysql_fetch_assoc(sql_faru($sql));
            if ($linio2['litonombro'] <= 1 or $linio2['dulita'] == 'U') {
                return true;
            }
        }
        // ni ne trovis dulitan ĉambron, kvankam ri mendis
        return false;
    } else {
        // ankoraŭ ne havas ĉambron,
        // ~~> verŝajne ricevos dulitan
        return true;
    }
}

/**
 * kreas liston de la aligxintoj en array-formo.
 *
 * @param int $renkontigxoID
 * @param string $ordigo
 * @param lingvokodo $lingvo
 *
 * @return array du-dimensia array de la formo: <code>
 *   array( array('sxildnomo' => ...,
 *                'personanomo' => ...,
 *                'fam' => ...,
 *                'urbo' => ...,
 *                'landoid' => (ID de la lando),
 *                'sxildlando' => (eble alia lando indikita de la aligxinto),
 *                'partoprenoID' => (identigilo de la partopreno),
 *                'ordigoID' => (numero por uzo eble anstataux
 *                               la partoprenoID),
 *                'lando' => (la lando-objekto),
 *                'landonomo' => (nomo de la lando post traduko),
 *                'ordigo' => (aux ordigoID aux partoprenoID),
 *               ),
 *          array(...),
 *          ...)
 *   </code>
 * Gxi jam estas ordigita laux la petata maniero.
 */
function &kreu_aligxintoliston($renkontigxoID, $ordigo, $lingvo)
{
    $sql = datumbazdemando(array("p.sxildnomo", "p.personanomo", "p.nomo" => "fam", "p.urbo" => 'urbo', "p.lando" => "landoid", "p.sxildlando" => 'sxildlando', "pn.ID" => 'partoprenoID', "pn.ordigoID"), array("partoprenantoj" => "p", "partoprenoj" => "pn"), array("p.ID = pn.partoprenantoID", "alvenstato = 'v'", "pn.listo = 'J'", "pn.renkontigxoID" => $renkontigxoID), "", array("order" => "pn.ID"));
    $rez = sql_faru($sql);
    $landolisto = array();
    $listo = array();
    while ($linio = mysql_fetch_assoc($rez)) {
        if ($linio['ordigoID'] != 0.0) {
            $linio['ordigo'] = (double) $linio['ordigoID'];
        } else {
            $linio['ordigo'] = (double) $linio['partoprenoID'];
        }
        if (!isset($landolisto[$linio['landoid']])) {
            $landolisto[$linio['landoid']] =& new Lando($linio['landoid']);
        }
        $linio['lando'] =& $landolisto[$linio['landoid']];
        $linio['landonomo'] = $linio['lando']->tradukita('nomo', $lingvo);
        $listo[] = $linio;
    }
    $komparilo = donu_komparilon($ordigo);
    metu_ordigolokalajxon($lingvo);
    if (!usort($listo, $komparilo)) {
        darf_nicht_sein("ordigado ne funkciis");
    }
    debug_echo("<!--" . var_export($listo, true) . "-->\n");
    $nombro_entute = eltrovu_gxenerale("COUNT(*)", "partoprenoj", array("renkontigxoID" => $renkontigxoID, "alvenstato" => 'v'));
    $nombro_landoj = eltrovu_gxenerale("COUNT(DISTINCT p.lando)", array("partoprenoj" => "pn", "partoprenantoj" => "p"), array("renkontigxoID" => $renkontigxoID, "alvenstato" => 'v', "pn.partoprenantoID = p.ID"));
    return array($listo, $nombro_entute, $nombro_landoj);
}

/**
 * serĉas partoprenon por partoprenanto, kaj metas ĝin
 * en la sesion.
 * @param int $ppantoID Partoprenanto-identigilo.
 * @param int $ppenoID Partopreno-identigilo. Se ne 0,
 *           ni simple vokas {@link sesio_aktualigu_ppenon()}.
 *           Alikaze ni serĉas taŭgan partoprenon por $ppantoID,
 *           kaj metas tiun en la sesion.
 * @uses sesio_aktualigu_ppenon()
 * @return int se ni sukcesis, 1, alikaze la nombron de diversaj
 *             kandidatoj.
 */
function sesio_trovu_ppenon($ppantoID, $ppenoID = 0)
{
    debug_echo("<!-- trovu_ppenon(" . $ppantoID . ", " . $ppenoID . ") -->");
    if ($ppenoID) {
        sesio_aktualigu_ppenon($ppenoID);
        return 1;
    } else {
        if ($_SESSION['partopreno'] and $_SESSION['partopreno']->datoj['partoprenantoID'] == $ppantoID) {
            // ni havas jam unu partoprenon, kaj ĝi estas
            //  por la ĝusta partoprenanto.
            sesio_aktualigu_ppenon($_SESSION['partopreno']->datoj['ID']);
            return 1;
        }
        // malfacila kazo
        $sql = datumbazdemando("ID", "partoprenoj", array("partoprenantoID = '" . $ppantoID . "'"), array("renkontigxo" => "renkontigxoID"));
        $rez = sql_faru($sql);
        $num_pp = mysql_num_rows($rez);
        if ($num_pp == 1) {
            // precize unu partopreno por la aktuala
            // renkontiĝo - prenu tiun.
            $linio = mysql_fetch_assoc($rez);
            sesio_aktualigu_ppenon($linio['ID']);
        } else {
            // ne estas ununura taŭga partopreno por tiu ĉi
            // partoprenanto.
            unset($_SESSION['partopreno']);
        }
        // eble la vokanto volas scii, kiom da aliĝoj estis.
        return $num_pp;
    }
}

function montru_konfiguran_liston()
{
    eoecho("\n<h2>Renkontig^o-konfiguroj</h2>\n<p>Jen maniero konfiguri detalojn de via renkontig^o.</p>\n<ul>\n");
    //       TODO: ligo al helpoteksto
    foreach ($GLOBALS['konfiguraj_tipoj'] as $tipo => $titolo) {
        echo "  <li>";
        ligu("#" . $tipo, $titolo[0]);
        echo "</li>\n";
    }
    echo "</ul>\n";
    foreach ($GLOBALS['konfiguraj_tipoj'] as $tipo => $titolo) {
        eoecho("<h3 id='" . $tipo . "'>" . $titolo[0] . "</h3>");
        eoecho("<table>\n   <tr>\n      <th>ID</th><th>grupo</th><th>interna</th>\n      <th>teksto</th><th>rimarko</th>\n   </tr>\n");
        $sql = datumbazdemando(array('ID', 'grupo', 'interna', 'teksto', 'aldona_komento'), 'renkontigxaj_konfiguroj', array('tipo' => $tipo), 'renkontigxoID', array('order' => 'grupo ASC, interna ASC'));
        $rez = sql_faru($sql);
        while ($linio = mysql_fetch_assoc($rez)) {
            echo "<tr><td>";
            ligu("renkontigxaj_konfiguroj.php?id=" . $linio['ID'], $linio['ID']);
            eoecho("</td><td>" . $linio['grupo'] . "</td><td>" . $linio['interna'] . "</td><td>" . $linio['teksto'] . "</td><td>" . $linio['aldona_komento'] . "</td></tr>\n");
        }
        echo "</table>\n";
        echo "<p>";
        ligu("renkontigxaj_konfiguroj.php?id=nova&tipo=" . $tipo, "kreu novan " . $titolo[1] . "n");
        echo "</p>";
    }
    // foreach tipo/titolo
}

function faru_SQL($sql)
{
    echo $sql . "\n";
    if (INSTALA_MODUSO) {
        eoecho("faranta ...");
        flush();
        sql_faru($sql);
        eoecho("farita!\n");
    }
}

/**
 * kontrolas, cxu la nuna uzanto (identifikata per la
 * globalaj variabloj $kodnomo kaj $kodvorto) havas la
 * rajton $ago.
 * redonas TRUE aux FALSE.
 */
function rajtas($ago)
{
    $sql = datumbazdemando($ago, "entajpantoj", array("nomo = '" . $_SESSION["kodnomo"] . "'", "kodvorto = '" . $_SESSION["kodvorto"] . "'"), "", array("order" => "id"));
    $result = sql_faru($sql);
    if ($row = mysql_fetch_array($result, MYSQL_BOTH) and $row[$ago] == "J") {
        return true;
    } else {
        return false;
    }
}

function aligilo_aligxinto_listo($renkontigxoID, $lingvo, $ordigo)
{
    $prafix = $GLOBALS['prafix'] = get_option("aligilo-prafix");
    require_once $GLOBALS['prafix'] . "/iloj/iloj.php";
    malfermu_datumaro();
    $sql_listo = datumbazdemando(array("COUNT(pn.ID)" => "nombro"), array("partoprenantoj" => "p", "partoprenoj" => "pn"), array("p.ID = pn.partoprenantoID", "pn.alvenstato = 'v'", "pn.listo = 'J'", "pn.renkontigxoID ='{$renkontigxoID}'"));
    $rez_listo = sql_faru($sql_listo);
    $linio = mysql_fetch_assoc($rez_listo);
    $nombro_listo = $linio['nombro'];
    $sql_listo = datumbazdemando(array("COUNT(pn.ID)" => "nombro"), array("partoprenantoj" => "p", "partoprenoj" => "pn"), array("p.ID = pn.partoprenantoID", "pn.alvenstato = 'v'", "pn.renkontigxoID ='{$renkontigxoID}'"));
    $rez_listo = sql_faru($sql_listo);
    $linio = mysql_fetch_assoc($rez_listo);
    $nombro_chiuj = $linio['nombro'];
    $sql_landoj = datumbazdemando(array("COUNT(distinct p.lando)" => "nombro"), array("partoprenantoj" => "p", "partoprenoj" => "pn"), array("p.ID = pn.partoprenantoID", "pn.alvenstato = 'v'", "pn.renkontigxoID ='{$renkontigxoID}'"));
    echo "<!-- {$sql_landoj} -->";
    $rez_listo = sql_faru($sql_landoj);
    $linio = mysql_fetch_assoc($rez_listo);
    $nombro_landoj = $linio['nombro'];
    $sql = datumbazdemando(array("IF(p.sxildnomo<> '', p.sxildnomo, p.personanomo)" => 'persona', "p.nomo" => 'fam', "p.urbo" => 'urbo', "p.sxildlando" => 'sxildo', "l.nomo" => 'lando_eo', "l.lokanomo" => 'lando_de'), array("partoprenantoj" => "p", "partoprenoj" => "pn", "landoj" => "l"), array("p.ID = pn.partoprenantoID", "alvenstato <> 'm'", "p.lando = l.ID", "pn.listo = 'J'", "pn.renkontigxoID ='{$renkontigxoID}'"), "", array("order" => "p.personanomo ASC, p.nomo ASC"));
    $tabelo = "<tbody>";
    $rez = sql_faru($sql);
    while ($linio = mysql_fetch_array($rez)) {
        $tabelo .= "<tr>\n";
        $tabelo .= "  <td  style='text-align: right; padding-right:0.3em;'>";
        $tabelo .= uni($linio['persona']);
        $tabelo .= "</td>\n<td>";
        /*         if ($linio['fam']{1} == '^')
                     {
                         $fam = substr($linio['fam'], 0,2);
                     }
                 else
                     {
                         $fam = mb_substr($linio['fam'], 0, 1, "utf-8");
                     }
                 */
        $fam = $linio['fam'];
        $tabelo .= uni($fam);
        $tabelo .= "</td>\n  <td>";
        if ($linio['sxildo']) {
            $tabelo .= uni($linio['sxildo']);
        } else {
            if ($lingvo == 'de') {
                $tabelo .= uni($linio['lando_de']);
            } else {
                $tabelo .= uni($linio['lando_eo']);
            }
        }
        $tabelo .= "</td>\n  <td>";
        $tabelo .= uni($linio['urbo']);
        $tabelo .= "</td>\n</tr>\n";
    }
    $tabelo .= "</tbody>\n";
    return compact("tabelo", "nombro_landoj", "nombro_listo", "nombro_chiuj");
}

function montru_kunlogxdezirojn($partopreno)
{
    $sql = datumbazdemando(array("k.ID", "k.kunKiuID", 'k.stato', "pa.nomo", "pa.personanomo", "p.kunKiu", "p.partoprenantoID"), array("kunlogxdeziroj" => "k", "partoprenoj" => "p", "partoprenantoj" => "pa"), array("k.partoprenoID = '" . $partopreno->datoj['ID'] . "'", "k.kunKiuID = p.ID", "p.partoprenantoID = pa.ID"));
    sercxu($sql, array("pa.personanomo, pa.nomo", "ASC"), array(array("ID", "", "->", "z", "kunlogxado.php?kunlogxID=XXXXX", "partoprenantoID"), array("kunKiuID", "ID", "XXXXX", "r", "partrezultoj.php?partoprenidento=XXXXX", "partoprenantoID"), array("personanomo", "pers. nomo", "XXXXX", "l"), array("nomo", "nomo", "XXXXX", "l"), array("stato", "stato", "XXXXX", "l"), array("kunKiu", "volas log^i kun", "XXXXX", "l")), array(), "kunlogxantoj_de_ulo", array("anstatauxo_funkcio" => array(4 => 'kunlogx_stato')), 0, "", "", "ne");
    $rez = sql_faru(datumbazdemando("kunKiuID", "kunlogxdeziroj", "partoprenoID = '" . $partopreno->datoj['ID'] . "'"));
    $kunlogxantoj = array();
    while ($linio = mysql_fetch_assoc($rez)) {
        $kunlogxantoj[] = $linio['kunKiuID'];
    }
    return $kunlogxantoj;
}

/**
 * Listas la renkontiĝo-konfigurojn de donita tipo por iu renkontiĝo.
 * @param asciistring $tipo unu el "pagotipo", "valuto", "rabatotipo",
 *        "kromtipo" kaj "logxtipo".
 * @param Renkontigxo|int $renkontigxo (aux ID de tiu)
 * @return array ({@link Renkontigxa_konfiguro})
 */
function listu_konfigurojn($tipo, $renkontigxo = "")
{
    $renkontigxo = kreuRenkontigxon($renkontigxo);
    $sql = datumbazdemando(array("ID", "grupo", "interna"), "renkontigxaj_konfiguroj", array('tipo' => $tipo, 'renkontigxoID' => $renkontigxo->datoj['ID']), "", array('order' => "grupo ASC, interna ASC"));
    $rez = sql_faru($sql);
    $listo = array();
    while ($linio = mysql_fetch_assoc($rez)) {
        $konf = new Renkontigxa_konfiguro($linio["ID"]);
        $listo[] = $konf;
    }
    return $listo;
}

function aligilo_aligxintoj_nombro()
{
    $prafix = get_option("aligilo-prafix");
    $GLOBALS['prafix'] = $prafix;
    $renkID = get_option("aligilo-renkontigxo");
    require_once $prafix . "/iloj/iloj.php";
    malfermu_datumaro();
    $sql = datumbazdemando(array("COUNT(*)" => "num"), array("partoprenoj" => "p"), array("p.alvenstato = 'v'", "p.renkontigxoID = '{$renkID}'"));
    $rez = sql_faru($sql);
    $linio = mysql_fetch_assoc($rez);
    return $linio['num'];
}

function listu_kurzojn_por($valuto)
{
    $sql = datumbazdemando(array('dato', 'kurzo', 'ID'), 'kurzoj', array('valuto' => $valuto), "", array('order' => 'dato ASC'));
    $rez = sql_faru($sql);
    echo "<table class='kurzolisto'>\n";
    while ($linio = mysql_fetch_assoc($rez)) {
        echo "  <tr><td>";
        ligu("kurzoj.php?id=" . $linio['ID'], "red.");
        echo "</td><td>" . $linio['dato'] . "</td><td>" . $linio['kurzo'] . "</td></tr>\n";
    }
    echo "</table>\n";
}

 /**
  * trovas kaj redonas la kondicxo-objekton por tiu cxi
  *  malaligxkondicxosistemo kaj la menciita aligxkategori-objekto.
  */
 function donu_kondicxon($aligxkategorio)
 {
     if (is_object($aligxkategorio)) {
         $aligxkategorio = $aligxkategorio->datoj['ID'];
     }
     $sql = datumbazdemando("kondicxtipo", "malaligxkondicxoj", array("sistemo = '" . $this->datoj['ID'] . "'", "aligxkategorio = '" . $aligxkategorio . "'"));
     $linio = mysql_fetch_assoc(sql_faru($sql));
     if (!$linio) {
         return null;
     }
     return new Malaligxkondicxotipo($linio['kondicxtipo']);
 }

/**
 *
 */
function montru_laux_tage($nomo, $noktonombro, $sql, $klaso)
{
    eoecho("<tr class='" . $klaso . "'><th>" . $nomo . "</th>");
    //  echo "<!-- noktonombro: $noktonombro -->";
    for ($noktoj = 1; $noktoj <= $noktonombro; $noktoj++) {
        //	  echo "<!-- noktoj: $noktoj -->";
        $vera_sql = str_replace('{{nokto}}', $noktoj, $sql);
        echo "<!-- vera_sql: [{$vera_sql}] -->\n";
        $row = mysql_fetch_array(sql_faru($vera_sql));
        echo "<td>" . $row[0] . "</td>";
    }
    echo "</tr>\n";
}

/**
 * eltrovas la lastan kurzon de valuto ĝis iu dato.
 *
 * @param asciistring $valuto
 * @param datostring $dato (se forlasita, la nuna dato)
 * @return array (kurzo, dato)
 */
function eltrovu_kurzon($valuto, $dato = "")
{
    if ($valuto == CXEFA_VALUTO) {
        return array(1.0, null);
    }
    if (!$dato) {
        $dato = date("y-m-d");
    }
    $sql = datumbazdemando(array('kurzo', 'dato'), 'kurzoj', array('valuto' => $valuto, "dato <= '{$dato}'"), "", array('order' => 'dato DESC', 'limit' => '0,1'));
    $linio = mysql_fetch_assoc(sql_faru($sql));
    if ($linio) {
        return array($linio['kurzo'], $linio['dato']);
    } else {
        return null;
    }
}