source: spip-zone/_plugins_/agenda/trunk/inc/agenda_filtres.php @ 98717

<?php
/**
 * Plugin Agenda 4 pour Spip 3.0
 * Licence GPL 3
 *
 * 2006-2011
 * Auteurs : cf paquet.xml
 */

if (!defined('_ECRIRE_INC_VERSION')) {
        return;
}


/**
 * Filtres&criteres deprecies/obsoletes
 */


/**
 * {agendafull ..} variante etendue du crietre agenda du core
 * qui accepte une date de debut et une date de fin
 *
 * {agendafull date_debut, date_fin, jour, #ENV{annee}, #ENV{mois}, #ENV{jour}}
 * {agendafull date_debut, date_fin, semaine, #ENV{annee}, #ENV{mois}, #ENV{jour}}
 * {agendafull date_debut, date_fin, mois, #ENV{annee}, #ENV{mois}}
 * {agendafull date_debut, date_fin, periode, #ENV{annee}, #ENV{mois}, #ENV{jour},
 *                                            #ENV{annee_fin}, #ENV{mois_fin}, #ENV{jour_fin}}
 *
 * @param string $idb
 * @param object $boucles
 * @param object $crit
 */
function critere_agendafull_dist($idb, &$boucles, $crit) {
        $params = $crit->param;

        if (count($params) < 1) {
                erreur_squelette(_T('zbug_info_erreur_squelette'), "{agenda ?} BOUCLE$idb");
        }

        $parent = $boucles[$idb]->id_parent;

        // les valeurs $date et $type doivent etre connus a la compilation
        // autrement dit ne pas etre des champs

        $date_deb = array_shift($params);
        $date_deb = $date_deb[0]->texte;

        $date_fin = array_shift($params);
        $date_fin = $date_fin[0]->texte;

        $type = array_shift($params);
        $type = $type[0]->texte;

        $annee = $params ? array_shift($params) : '';
        $annee = "\n" . 'sprintf("%04d", ($x = ' .
                calculer_liste($annee, array(), $boucles, $parent) .
                ') ? $x : date("Y"))';

        $mois =  $params ? array_shift($params) : '';
        $mois = "\n" . 'sprintf("%02d", ($x = ' .
                calculer_liste($mois, array(), $boucles, $parent) .
                ') ? $x : date("m"))';

        $jour =  $params ? array_shift($params) : '';
        $jour = "\n" . 'sprintf("%02d", ($x = ' .
                calculer_liste($jour, array(), $boucles, $parent) .
                ') ? $x : date("d"))';

        $annee2 = $params ? array_shift($params) : '';
        $annee2 = "\n" . 'sprintf("%04d", ($x = ' .
                calculer_liste($annee2, array(), $boucles, $parent) .
                ') ? $x : date("Y"))';

        $mois2 =  $params ? array_shift($params) : '';
        $mois2 = "\n" . 'sprintf("%02d", ($x = ' .
                calculer_liste($mois2, array(), $boucles, $parent) .
                ') ? $x : date("m"))';

        $jour2 =  $params ? array_shift($params) : '';
        $jour2 = "\n" .  'sprintf("%02d", ($x = ' .
                calculer_liste($jour2, array(), $boucles, $parent) .
                ') ? $x : date("d"))';

        $boucle = &$boucles[$idb];

        $quote_end = ",'".$boucle->sql_serveur."','text'";

        if ($type == 'jour') {
                $boucle->where[]= array("'AND'",
                                        array("'<='", "'DATE_FORMAT($date_deb, \'%Y%m%d\')'",("sql_quote($annee . $mois . $jour$quote_end)")),
                                        array("'>='", "'DATE_FORMAT($date_fin, \'%Y%m%d\')'",("sql_quote($annee . $mois . $jour$quote_end)")));
        } elseif ($type == 'mois') {
                $boucle->where[]= array("'AND'",
                                        array("'<='", "'DATE_FORMAT($date_deb, \'%Y%m\')'",("sql_quote($annee . $mois$quote_end)")),
                                        array("'>='", "'DATE_FORMAT($date_fin, \'%Y%m\')'",("sql_quote($annee . $mois$quote_end)")));
        } elseif ($type == 'semaine') {
                $boucle->where[]= array("'AND'",
                                        array("'>='",
                                             "'DATE_FORMAT($date_fin, \'%Y%m%d\')'",
                                              ("date_debut_semaine($annee, $mois, $jour)")),
                                        array("'<='",
                                              "'DATE_FORMAT($date_deb, \'%Y%m%d\')'",
                                              ("date_fin_semaine($annee, $mois, $jour)")));
        } elseif (count($crit->param) > 3) {
                $boucle->where[]= array("'AND'",
                                        array("'>='",
                                              "'DATE_FORMAT($date_fin, \'%Y%m%d\')'",
                                              ("sql_quote($annee . $mois . $jour$quote_end)")),
                                        array("'<='", "'DATE_FORMAT($date_deb, \'%Y%m%d\')'", ("sql_quote($annee2 . $mois2 . $jour2$quote_end)")));
        // sinon on prend tout
        }
}


/**
 * Afficher de facon textuelle les dates de debut et fin en fonction des cas
 * - Le lundi 20 fevrier a 18h
 * - Le 20 fevrier de 18h a 20h
 * - Du 20 au 23 fevrier
 * - du 20 fevrier au 30 mars
 * - du 20 fevrier 2007 au 30 mars 2008
 * $horaire='oui' permet d'afficher l'horaire, toute autre valeur n'indique que le jour
 * $forme peut contenir abbr (afficher le nom des jours en abbrege) et ou hcal (generer une date au format hcal)
 *
 * @param string $date_debut
 * @param string $date_fin
 * @param string $horaire
 * @param string $forme
 * @return string
 */
function agenda_affdate_debut_fin($date_debut, $date_fin, $horaire = 'oui', $forme = '') {
        $abbr = '';
        if (strpos($forme, 'abbr') !== false) {
                $abbr = 'abbr';
        }
        $affdate = 'affdate_jourcourt';
        if (strpos($forme, 'annee') !== false) {
                $affdate = 'affdate';
        }

        $dtstart = $dtend = $dtabbr = '';
        if (strpos($forme, 'hcal') !== false) {
                $dtstart = "<abbr class='dtstart' title='".date_iso($date_debut)."'>";
                $dtend = "<abbr class='dtend' title='".date_iso($date_fin)."'>";
                $dtabbr = '</abbr>';
        }

        $date_debut = strtotime($date_debut);
        $date_fin = strtotime($date_fin);
        $d = date('Y-m-d', $date_debut);
        $f = date('Y-m-d', $date_fin);
        $h = $horaire == 'oui';
        $hd = date('H:i', $date_debut);
        $hf = date('H:i', $date_fin);
        $au = ' ' . strtolower(_T('agenda:evenement_date_au'));
        $du = _T('agenda:evenement_date_du') . ' ';
        $s = '';
        if ($d == $f) { // meme jour
                $s = ucfirst(nom_jour($d, $abbr)).' '.$affdate($d);
                if ($h) {
                        $s .= " $hd";
                }
                $s = "$dtstart$s$dtabbr";
                if ($h and $hd != $hf) {
                        $s .= "-$dtend$hf$dtabbr";
                }
        } elseif ((date('Y-m', $date_debut)) == date('Y-m', $date_fin)) {
                // meme annee et mois, jours differents
                if ($h) {
                        $s = $du . $dtstart . affdate_jourcourt($d) . " $hd" . $dtabbr;
                        $s .= $au . $dtend . $affdate($f);
                        $s .= " $hf";
                        $s .= $dtabbr;
                } else {
                        $s = $du . $dtstart . jour($d) . $dtabbr;
                        $s .= $au . $dtend . $affdate($f) . $dtabbr;
                }
        } elseif ((date('Y', $date_debut)) == date('Y', $date_fin)) {
                // meme annee, mois et jours differents
                $s = $du . $dtstart . affdate_jourcourt($d);
                if ($h) {
                        $s .= " $hd";
                }
                $s .= $dtabbr . $au . $dtend . $affdate($f);
                if ($h) {
                        $s .= " $hf";
                }
                $s .= $dtabbr;
        } else {
                // tout different
                $s = $du . $dtstart . affdate($d);
                if ($h) {
                        $s .= ' '.date('(H:i)', $date_debut);
                }
                $s .= $dtabbr . $au . $dtend. affdate($f);
                if ($h) {
                        $s .= ' '.date('(H:i)', $date_fin);
                }
                $s .= $dtabbr;
        }
        return unicode2charset(charset2unicode($s, 'AUTO'));
}