source: spip-zone/_plugins_/calendrier_mini/spip-1.9/minical_fonctions.php @ 43548

<?php

/* Balise #CALENDRIER_MINI
   Auteur James (c) 2006
   Plugin pour spip 1.9
   Licence GNU/GPL
*/

include_spip('inc/vieilles_defs');
if (!defined('VAR_DATE')) define('VAR_DATE', 'archives');

function balise_DATE_ARCHIVES($p) {
        $p->code = "_request('".VAR_DATE."')";

        #$p->interdire_scripts = true;
        return $p;
}

function critere_archives($idb, &$boucles, $crit) {
        $boucle = &$boucles[$idb];
 $champ_date = "'" . $boucle->id_table ."." .
  $GLOBALS['table_date'][$boucle->type_requete] . "'";
 $boucle->where[] = array(
  'REGEXP',
  $champ_date, 
  "spip_abstract_quote(('^' . interdire_scripts(entites_html(\$Pile[0]['".VAR_DATE."']))))"
 );
 
}

function thead($lang){
        $ret = '';
        $debut = 2;
        if($lang == 'en') $debut = 1;
        for($i=0;$i<7;$i++) {
                $ret .= "\n\t\t\t\t".'<th scope="col"><abbr title="'._T('date_jour_'.$debut).'">' .
                _T('minical:date_jour_abbr_'.$debut) . '</abbr></th>';
                $debut = $debut == 7 ? 1 : $debut+1;
        }
        return "\n\t\t".'<thead>
                        <tr>' .$ret. '
                        </tr>
                </thead>'."\n";
}

function agenda_minical($i) {
    $args = func_get_args();
    $une_date = array_shift($args); // une date comme balise
    $sinon = array_shift($args);
    if (!$une_date) return $sinon;
    $type = 'minical';
    $agenda = agenda_memo(0);
    $evt = array();
    foreach (($args ? $args : array_keys($agenda)) as $k) {  
        if (is_array($agenda[$k]))
                        foreach($agenda[$k] as $d => $v) { 
                            $evt[$d] = $evt[$d] ? (array_merge($evt[$d], $v)) : $v;
                        }
    }
    $la_date = mktime(0, 0, 0, mois($une_date), 1, annee($une_date));
    include_spip('inc/agenda');
    return http_calendrier_init($la_date, $type, '', '', '', array('', $evt));
}

function http_calendrier_minical($annee, $mois, $jour, $echelle, $partie_cal, $script, $ancre, $evt) {
     list($sansduree, $evenements, $premier_jour, $dernier_jour) = $evt;
     if ($sansduree)
      foreach($sansduree as $d => $r) {
       $evenements[$d] = !$evenements[$d] ? $r : 
         array_merge($evenements[$d], $r);
        }
     if (!$premier_jour) $premier_jour = '01';
     if (!$dernier_jour) {
      $dernier_jour = 31;
      while (!(checkdate($mois,$dernier_jour,$annee))) $dernier_jour--;
     }
     // affichage du debut de semaine hors periode
     $lang = _request('lang')?_request('lang'):$GLOBALS['spip_lang'];
     $ligne = '';
     $debut = date("w",mktime(1,1,1,$mois,$premier_jour,$annee));
     $jour_semaine_lang=1; 
     if($lang=='en') {
      $debut=$debut+1;
      if($debut==7) $debut=0;
      $jour_semaine_lang=0;
     } 
     for ($i=$debut ? $debut : 7;$i>1;$i--) {
      $ligne .= "\n\t<td>&nbsp;</td>";
     }
     $total = '';
     for ($j=$premier_jour; $j<=$dernier_jour; $j++) {
      $nom = mktime(1,1,1,$mois,$j,$annee);
      $jour = date("d",$nom);
      $jour_semaine = date("w",$nom);
      $mois_en_cours = date("m",$nom);
      $annee_en_cours = date("Y",$nom);
      $amj = date("Y",$nom) . $mois_en_cours . $jour;
      if ($jour_semaine==$jour_semaine_lang AND $ligne != '') { 
       $total .= "\n<tr>$ligne\n</tr>";
       $ligne = '';
      }
      $evts = $evenements[$amj];
      if ($evts) {
       $evts = "<a href=\"".$evts[0]['URL']."\">".$evts[0]['SUMMARY']."</a>";
      }
      else {
       $evts = intval($jour);
      }
      $ligne .= "\n\t<td".($amj == date("Ymd")?' class="today"':'').">" . $evts . "\n\t</td>";
     }

     // affichage de la fin de semaine hors periode
        if ($lang=='en') {
                for($j=($jour_semaine != 6) ? $jour_semaine + 1 : 7; $j<7; $j++) {
                        $ligne .= "\n\t<td>&nbsp;</td>";
                }
        } else {
                for($j=$jour_semaine ? $jour_semaine : 7; $j<7; $j++) {
                        $ligne .= "\n\t<td>&nbsp;</td>";
                }
        }

     return $total . ($ligne ? "\n<tr>$ligne\n</tr>" : '');
}

?>