function none($jour, $date_l, $date_fr, $var, $propre, $temp)
{
/*
* Chargement du squelette de None dans $lau
* remplissage de $none pour l'affichage de l'office
*
*/
$row = 0;
$fp = fopen("offices_r/none.csv", "r");
$jrdelasemaine--;
while ($data = fgetcsv($fp, 1000, ";")) {
$latin = $data[0];
$francais = $data[1];
$lau[$row]['latin'] = $latin;
$lau[$row]['francais'] = $francais;
$row++;
}
fclose($fp);
$max = $row;
$none = "<table>";
for ($row = 0; $row < $max; $row++) {
$lat = $lau[$row]['latin'];
$fr = $lau[$row]['francais'];
$testAlleluia = utf8_encode($lat);
if ($tem == "Tempus Quadragesimae" && $testAlleluia == "Allelúia.") {
$lat = "";
$fr = "";
}
if ($tem == "Tempus passionis" && $testAlleluia == "Allelúia.") {
$lat = "";
$fr = "";
}
if ($lat == "#JOUR") {
if ($propre['jour']['latin']) {
$pr_lat = $propre['jour']['latin'];
$pr_fr = $propre['jour']['francais'];
}
if (!$pr_lat) {
$pr_lat = $temp['jour']['latin'];
$pr_fr = $temp['jour']['francais'];
}
if ($pr_lat) {
$none .= "<tr><td style=\"width: 49%; text-align: center;\"><p style=\"font-weight: bold;\">{$pr_lat}</p></td>";
$none .= "<td style=\"width: 49%; text-align: center;\"><p style=\"font-weight: bold;\">{$pr_fr}</p></td></tr>";
}
if ($propre['intitule']['latin']) {
$intitule_lat = $propre['intitule']['latin'];
$intitule_fr = $propre['intitule']['francais'];
}
if (!$intitule_lat) {
$intitule_lat = $temp['intitule']['latin'];
$intitule_fr = $temp['intitule']['francais'];
}
if ($intitule_lat) {
$none .= "<tr><td style=\"width: 49%; text-align: center;\"><p style=\"font-weight: bold;\">{$intitule_lat}</p></td>";
$none .= "<td style=\"width: 49%; text-align: center;\"><p style=\"font-weight: bold;\">{$intitule_fr}</p></td></tr>";
}
if (!$rang_lat) {
$rang_lat = $propre['rang']['latin'];
$rang_fr = $propre['rang']['francais'];
}
if ($rang_lat) {
$none .= "<tr><td style=\"width: 49%; text-align: center;\"><h3>{$rang_lat}</h3></td>";
$none .= "<td style=\"width: 49%; text-align: center;\"><h3>{$rang_fr}</h3></td></tr>";
}
if (!$pr_lat and !$intitule_lat and !$rang_lat) {
$none .= "<tr><td style=\"width: 49%; text-align: center;\"><h2>{$jours_l[$jrdelasemaine]} ad Nonam.</h2></td>\r\n \t\t\t\t\t<td style=\"width: 49%; text-align: center;\"><h2>{$jours_fr[$jrdelasemaine]} à None.</h2></td></tr>";
} else {
$none .= "<tr><td style=\"width: 49%; text-align: center;\"><h2>Ad Nonam</h2></td>";
$none .= "<td style=\"width: 49%; text-align: center;\"><h2>A None</h2></td></tr>";
}
} elseif ($lat == "#HYMNUS_nonam") {
if ($propre['HYMNUS_nonam']['latin']) {
$hymne9 = $propre['HYMNUS_nonam']['latin'];
} elseif ($temp['HYMNUS_nonam']['latin']) {
$hymne9 = $temp['HYMNUS_nonam']['latin'];
} else {
$hymne9 = $var['HYMNUS_nonam']['latin'];
}
$none .= hymne($hymne9);
} elseif ($lat == "#ANT1*") {
if ($propre['ant4']['latin']) {
$antlat = nl2br($propre['ant4']['latin']);
$antfr = nl2br($propre['ant4']['francais']);
} elseif ($temp['ant4']['latin']) {
$antlat = nl2br($temp['ant4']['latin']);
$antfr = nl2br($temp['ant4']['francais']);
} else {
$antlat = $var['ant4']['latin'];
$antfr = $var['ant4']['francais'];
}
$none .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>";
} elseif ($lat == "#PS1") {
$psaume = "ps125";
$none .= psaume($psaume);
} elseif ($lat == "#ANT1") {
if ($propre['ant4']['latin']) {
$antlat = nl2br($propre['ant4']['latin']);
$antfr = nl2br($propre['ant4']['francais']);
} elseif ($temp['ant4']['latin']) {
$antlat = nl2br($temp['ant4']['latin']);
$antfr = nl2br($temp['ant4']['francais']);
} else {
$antlat = $var['ant4']['latin'];
$antfr = $var['ant4']['francais'];
}
$none .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>";
} elseif ($lat == "#ANT2*") {
if ($propre['ant5']['latin']) {
$antlat = nl2br($propre['ant5']['latin']);
$antfr = nl2br($propre['ant5']['francais']);
} elseif ($temp['ant5']['latin']) {
$antlat = nl2br($temp['ant5']['latin']);
$antfr = nl2br($temp['ant5']['francais']);
} else {
$antlat = $var['ant5']['latin'];
$antfr = $var['ant5']['francais'];
}
$none .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>";
} elseif ($lat == "#PS2") {
$psaume = "ps126";
$none .= psaume($psaume);
} elseif ($lat == "#ANT2") {
if ($propre['ant5']['latin']) {
$antlat = nl2br($propre['ant5']['latin']);
$antfr = nl2br($propre['ant5']['francais']);
} elseif ($temp['ant5']['latin']) {
$antlat = nl2br($temp['ant5']['latin']);
$antfr = nl2br($temp['ant5']['francais']);
} else {
$antlat = $var['ant4']['latin'];
$antfr = $var['ant4']['francais'];
}
$none .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>";
} elseif ($lat == "#ANT3*") {
if ($propre['ant6']['latin']) {
$antlat = nl2br($propre['ant6']['latin']);
$antfr = nl2br($propre['ant6']['francais']);
} elseif ($temp['ant6']['latin']) {
$antlat = nl2br($temp['ant6']['latin']);
$antfr = nl2br($temp['ant6']['francais']);
} else {
$antlat = $var['ant6']['latin'];
$antfr = $var['ant6']['francais'];
}
$none .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>";
} elseif ($lat == "#PS3") {
$psaume = "ps127";
$none .= psaume($psaume);
} elseif ($lat == "#ANT3") {
if ($propre['ant6']['latin']) {
$antlat = nl2br($propre['ant6']['latin']);
$antfr = nl2br($propre['ant6']['francais']);
} elseif ($temp['ant6']['latin']) {
$antlat = nl2br($temp['ant6']['latin']);
$antfr = nl2br($temp['ant6']['francais']);
} else {
$antlat = $var['ant6']['latin'];
$antfr = $var['ant6']['francais'];
}
$none .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>";
} elseif ($lat == "#LB_9") {
if ($propre['LB_9']['latin']) {
$lectiobrevis = $propre['LB_9']['latin'];
} elseif ($temp['LB_9']['latin']) {
$lectiobrevis = $temp['LB_9']['latin'];
} else {
$lectiobrevis = $var['LB_9']['latin'];
}
$none .= lectiobrevis($lectiobrevis);
} elseif ($lat == "#RB_9") {
if ($propre['RB_9']['latin']) {
$rblat = nl2br($propre['RB_9']['latin']);
$rbfr = nl2br($propre['RB_9']['francais']);
} elseif ($temp['RB_9']['latin']) {
$rblat = nl2br($temp['RB_9']['latin']);
$rbfr = nl2br($temp['RB_9']['francais']);
} else {
$rblat = nl2br($var['RB_9']['latin']);
$rbfr = nl2br($var['RB_9']['francais']);
}
$none .= "<tr><td>{$rblat}</td><td>{$rbfr}</td></tr>";
} elseif ($lat == "#ORATIO_9") {
if ($propre['oratio']['latin']) {
$oratio9lat = $propre['oratio']['latin'];
$oratio9fr = $propre['oratio']['francais'];
} elseif ($temp['oratio']['latin']) {
$oratio9lat = $temp['oratio']['latin'];
$oratio9fr = $temp['oratio']['francais'];
} elseif ($var['oratio_9']['latin']) {
$oratio9lat = $var['oratio_9']['latin'];
$oratio9fr = $var['oratio_9']['francais'];
} elseif ($var['oratio']['latin']) {
$oratio9lat = $var['oratio']['latin'];
$oratio9fr = $var['oratio']['francais'];
}
switch (substr($oratio9lat, -6)) {
case "istum.":
$oratio9lat = str_replace(" Per Christum.", " Per Christum Dóminum nostrum.", $oratio9lat);
$oratio9fr .= " Par le Christ notre Seigneur.";
break;
case "minum.":
$oratio9lat = str_replace(substr($oratio9lat, -13), " Per Christum Dóminum nostrum.", $oratio9lat);
$oratio9fr .= " Par le Christ notre Seigneur.";
break;
case "tecum.":
$oratio9lat = str_replace(" Qui tecum.", " Qui vivit et regnat in sæcula sæculórum.", $oratio9lat);
$oratio9fr .= " Lui qui vit et règne pour tous les siècles des siècles.";
break;
case "vivit.":
$oratio9lat = str_replace(" Qui vivit.", " Qui vivit et regnat in sæcula sæculórum.", $oratio9lat);
$oratio9fr .= " Lui qui vit et règne pour tous les siècles des siècles.";
break;
case "vivis.":
$oratio9lat = str_replace(" Qui vivis.", " Qui vivis et regnas in sæcula sæculórum.", $oratio9lat);
$oratio9fr .= " Toi qui vis et règnes pour tous les siècles des siècles.";
break;
}
$none .= "<tr><td>Orémus</td><td>Prions</td></tr>\r\n\t \t\t<tr><td>{$oratio9lat}</td><td>{$oratio9fr}</td></tr>";
} else {
$none .= "<tr><td>{$lat}</td><td>{$fr}</td></tr>";
}
}
$none .= "</table>";
$none = rougis_verset($none);
return $none;
}
function tenebres($jour, $date_l, $date_fr, $var, $propre, $temp)
{
/*
* Impression directe de l'Office
*/
$tenebres = "<table>";
$intitule_lat = nl2br($temp['intitule']['latin']);
$intitule_fr = nl2br($temp['intitule']['francais']);
$tenebres .= "<tr><td style=\"width: 49%; text-align: center;\"><h1>Tenebræ</H1></td>\n";
$tenebres .= "<td style=\"width: 49%; text-align: center;\"><h1>Office des Ténèbres</h1></td></tr>\n";
$tenebres .= "<tr><td style=\"width: 49%; text-align: center;\"><h1>{$intitule_lat}</h1></td>\n";
$tenebres .= "<td style=\"width: 49%; text-align: center;\"><h1>{$intitule_fr}</h1></td></tr>\n";
/*
* Invitatoire
*/
$tenebres .= "<tr><td><h2>AD INVITATORIUM</h2></td>\n\r\n\t\t\t\t\t<td><h2>INVITATOIRE</h2></td></tr>\n";
$tenebres .= "<tr><td>V/. Domine, labia mea aperies.</td>\n\r\n\t\t\t\t\t<td>V/. Seigneur, ouvre mes lèvres,</td></tr>\n\r\n\t \t\t<tr><td>R/. Et os meum annuntiabit laudem tuam.</td>\r\n\t \t\t\t<td>R/. et ma bouche publiera ta louange.</td></tr>\n";
$antlat = nl2br($temp['invitatoire']['latin']);
$antfr = nl2br($temp['invitatoire']['francais']);
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume("ps94_inv");
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
/*
* Hymne
*/
$tenebres .= "<tr><td><h2>AD VIGILIAS</h2></td>\n\r\n\t\t\t\t\t<td><h2>VIGILES</h2></td></tr>\n";
$hymne = $temp['hymne']['latin'];
$tenebres .= hymne($hymne);
/*
* 1er Nocturne
*/
$tenebres .= "<tr><td><h2>IN I NOCTURNO</h2></td>\n\r\n\t\t\t\t\t<td><h2>Ier NOCTURNE</h2></td></tr>\n";
// PS VIG1-1
$antlat = nl2br($temp['ant11']['latin']);
$antfr = nl2br($temp['ant11']['francais']);
$psaume = $temp['ps11']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 1 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 1 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS VIG1-2
$antlat = nl2br($temp['ant12']['latin']);
$antfr = nl2br($temp['ant12']['francais']);
$psaume = $temp['ps12']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 2 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 2 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS VIG1-3
$antlat = nl2br($temp['ant13']['latin']);
$antfr = nl2br($temp['ant13']['francais']);
$psaume = $temp['ps13']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 3 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 3 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS VIG1-4
$antlat = nl2br($temp['ant14']['latin']);
$antfr = nl2br($temp['ant14']['francais']);
$psaume = $temp['ps14']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 4 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 4 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS VIG1-5
$antlat = nl2br($temp['ant15']['latin']);
$antfr = nl2br($temp['ant15']['francais']);
$psaume = $temp['ps15']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 5 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 5 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS VIG1-6
$antlat = nl2br($temp['ant16']['latin']);
$antfr = nl2br($temp['ant16']['francais']);
$psaume = $temp['ps16']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 6 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 6 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// verset 1
$verslat = nl2br($temp['V_1']['latin']);
$versfr = nl2br($temp['V_1']['francais']);
$tenebres .= "<tr><td><h2>Versus</h2></td>\n\r\n\t\t\t\t<td><h2>Verset</h2></td></tr>\n\r\n\t \t\t<tr><td>{$verslat}</td><td>{$versfr}</td></tr>\n\r\n\t \t\t<tr><td><h5>On garde le silence, le temps d'un Notre Père.</h5></td>\r\n\t \t\t<td><h5>On garde le silence, le temps d'un Notre Père.</h5></td></tr>\n";
// Lectio 1
$LB_matin = $temp['LB_1']['latin'];
$tenebres .= lectiobrevis($LB_matin);
// RB 1
$rblat = nl2br($temp['RB_1']['latin']);
$rbfr = nl2br($temp['RB_1']['francais']);
$tenebres .= "<tr><td><h2>Responsorium</h2></td>\n\r\n\t\t\t\t\t<td><h2>Répons</h2></td></tr>\n\r\n\t \t\t<tr><td>{$rblat}</td><td>{$rbfr}</td></tr>\n";
/*
* 2e Nocturne
*/
$tenebres .= "<tr><td><h2>IN II NOCTURNO</h2></td>\n\r\n\t\t\t\t\t<td><h2>IIe NOCTURNE</h2></td></tr>\n";
// PS VIG2-1
$antlat = nl2br($temp['ant21']['latin']);
$antfr = nl2br($temp['ant21']['francais']);
$psaume = $temp['ps21']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 1 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 1 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS VIG2-2
$antlat = nl2br($temp['ant22']['latin']);
$antfr = nl2br($temp['ant22']['francais']);
$psaume = $temp['ps22']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 2 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 2 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS VIG2-3
$antlat = nl2br($temp['ant23']['latin']);
$antfr = nl2br($temp['ant23']['francais']);
$psaume = $temp['ps23']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 3 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 3 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS VIG2-4
$antlat = nl2br($temp['ant24']['latin']);
$antfr = nl2br($temp['ant24']['francais']);
$psaume = $temp['ps24']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 4 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 4 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS VIG2-5
$antlat = nl2br($temp['ant25']['latin']);
$antfr = nl2br($temp['ant25']['francais']);
$psaume = $temp['ps25']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 5 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 5 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS VIG2-6
$antlat = nl2br($temp['ant26']['latin']);
$antfr = nl2br($temp['ant26']['francais']);
$psaume = $temp['ps26']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 6 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 6 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// verset 2
$verslat = nl2br($temp['V_2']['latin']);
$versfr = nl2br($temp['V_2']['francais']);
$tenebres .= "<tr><td><h2>Versus</h2></td>\n\r\n\t\t\t\t<td><h2>Verset</h2></td></tr>\n\r\n\t \t\t<tr><td>{$verslat}</td><td>{$versfr}</td></tr>\n\r\n\t \t\t<tr><td><h5>On garde le silence, le temps d'un Notre Père.</h5></td>\r\n\t \t\t<td><h5>On garde le silence, le temps d'un Notre Père.</h5></td></tr>\n";
// Lectio 2
$LB_matin = $temp['LB_2']['latin'];
$tenebres .= lectiobrevis($LB_matin);
// RB 2
$rblat = nl2br($temp['RB_2']['latin']);
$rbfr = nl2br($temp['RB_2']['francais']);
$tenebres .= "<tr><td><h2>Responsorium</h2></td>\n\r\n\t\t\t\t\t<td><h2>Répons</h2></td></tr>\n\r\n\t \t\t<tr><td>{$rblat}</td><td>{$rbfr}</td></tr>\n";
/*
* 3e Nocturne
* 3 cantique AT sous 1 antienne unique
*/
$tenebres .= "<tr><td><h2>IN III NOCTURNO</h2></td>\n\r\n\t\t\t\t\t<td><h2>IIIe NOCTURNE</h2></td></tr>\n";
//
$antlat = nl2br($temp['ant31']['latin']);
$antfr = nl2br($temp['ant31']['francais']);
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 1 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 1 </span> {$antfr}</p></td></tr>\n";
$psaume = $temp['ps31']['latin'];
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$psaume = $temp['ps32']['latin'];
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$psaume = $temp['ps33']['latin'];
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// verset 3
$verslat = nl2br($temp['V_3']['latin']);
$versfr = nl2br($temp['V_3']['francais']);
$tenebres .= "<tr><td><h2>Versus</h2></td>\n\r\n\t\t\t\t<td><h2>Verset</h2></td></tr>\n\r\n\t \t\t<tr><td>{$verslat}</td><td>{$versfr}</td></tr>\n\r\n\t \t\t<tr><td><h5>On garde le silence, le temps d'un Notre Père.</h5></td>\r\n\t \t\t<td><h5>On garde le silence, le temps d'un Notre Père.</h5></td></tr>\n";
// Lectio 3
$LB_matin = $temp['LB_3']['latin'];
$tenebres .= lectiobrevis($LB_matin);
// RB 3
$rblat = nl2br($temp['RB_3']['latin']);
$rbfr = nl2br($temp['RB_3']['francais']);
$tenebres .= "<tr><td><h2>Responsorium</h2></td>\n\r\n\t\t\t\t\t<td><h2>Répons</h2></td></tr>\n\r\n\t \t\t<tr><td>{$rblat}</td><td>{$rbfr}</td></tr>\n";
/*
* Laudes
*/
$tenebres .= "<tr><td><h2>AD LAUDES MATUTINAS</h2></td>\n\r\n\t\t\t\t\t<td><h2>AUX LAUDES</h2></td></tr>\n";
// PS L-1
$antlat = nl2br($temp['antl1']['latin']);
$antfr = nl2br($temp['antl1']['francais']);
$psaume = 'ps50';
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 1 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 1 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS L-2
$antlat = nl2br($temp['antl2']['latin']);
$antfr = nl2br($temp['antl2']['francais']);
$psaume = $temp['psl2']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 2 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 2 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS L-3
$antlat = nl2br($temp['antl3']['latin']);
$antfr = nl2br($temp['antl3']['francais']);
$psaume = $temp['psl3']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 3 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 3 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS L-4
$antlat = nl2br($temp['antl4']['latin']);
$antfr = nl2br($temp['antl4']['francais']);
$psaume = $temp['psl4']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 4 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 4 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// PS L-5
$antlat = nl2br($temp['antl5']['latin']);
$antfr = nl2br($temp['antl5']['francais']);
$psaume = $temp['psl5']['latin'];
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. 5 </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. 5 </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// Lectio L
$LB_matin = $temp['LB_matin']['latin'];
$tenebres .= lectiobrevis($LB_matin);
// RB 3
$rblat = nl2br($temp['RB_matin']['latin']);
$rbfr = nl2br($temp['RB_matin']['francais']);
$tenebres .= "<tr><td><h2>Responsorium</h2></td>\n\r\n\t\t\t\t\t<td><h2>Répons</h2></td></tr>\n\r\n\t \t\t<tr><td>{$rblat}</td><td>{$rbfr}</td></tr>\n";
// Benedictus
$antlat = nl2br($temp['benedictus']['latin']);
$antfr = nl2br($temp['benedictus']['francais']);
$psaume = 'benedictus';
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
$tenebres .= psaume($psaume);
$tenebres .= "<tr><td>Gloria Patri, et Fílio, * et Spirítui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au Père, au Fils et au Saint Esprit.</td></tr>\n\r\n\t \t\t<tr><td>Sicut erat in principio, et nunc et semper * et in sæcula sæculórum. Amen.</td>\r\n\t \t\t\t<td>Comme il était au commencement, maintenant et toujours, et dans les siècles des siècles. Amen.</td></tr>\n";
$tenebres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$antlat}</p></td>\n\r\n\t\t\t\t\t\t<td><p><span style=\"color:red\">Ant. </span> {$antfr}</p></td></tr>\n";
// Preces + Pater
$tenebres .= "<tr><td><h2>Acclamtio finalis</h2></td>\n\r\n\t\t\t\t\t<td><h2>Acclamations finales</h2></td></tr>\n";
$tenebres .= "<tr><td>V/. Kyrie eleison R/. Kyrie eleison</td>\n\r\n\t\t\t\t\t<td>V/. Seigneur, ayez pitié R/. Seigneur, ayez pitié</td></tr>\n";
$tenebres .= "<tr><td>V/. Christe eleison R/. Christe eleison</td>\n\r\n\t\t\t\t\t<td>V/. Ô Christ, ayez pitié R/. Ô Christ, ayez pitié</td></tr>\n";
$tenebres .= "<tr><td>V/. Kyrie eleison R/. Kyrie eleison</td>\n\r\n\t\t\t\t\t<td>V/. Seigneur, ayez pitié R/. Seigneur, ayez pitié</td></tr>\n";
$tenebres .= "<tr><td>V/. Pater noster, qui es in cælis,</td><td>V/. Notre Père, qui es aux Cieux,</td></tr>\n\r\n\t\t\t<tr><td>sanctificétur nomen tuum: advéniat regnum tuum:</td><td>que ton nom soit sanctifié; que ton règne arrive;</td></tr>\n\r\n\t\t\t<tr><td>fiat volúntas tua, sicut in cælo et in terra.</td><td>que ta volonté soit faite au Ciel comme sur la terre.</td></tr>\n\r\n\t\t\t<tr><td>Panem nostrum quotidiánum da nobis hódie:</td><td>Donne-nous aujourd'hui notre pain quotidien,</td></tr>\n\r\n\t\t\t <tr><td>et dimítte nobis débita nostra, sicut et nos dimíttimus debitóribus nostris:</td><td>et remets-nous nos dettes, comme nous les remettons nous-mêmes à nos débiteurs ;</td></tr>\n\r\n\t\t\t <tr><td>et ne nos indúcas in tentatiónem</td><td>et ne nous abandonne pas dans l'épreuve, </td></tr>\r\n\t\t\t<tr><td>R/. sed líbera nos a malo.</td><td>R/. mais délivre-nous du malin.</td></tr>\n";
// Oraison
$tenebres .= "<tr><td><h2>Oratio</h2></td>\n\r\n\t\t\t\t\t<td><h2>Oraison</h2></td></tr>\n";
$oratiolat = $temp['oratio']['latin'];
$oratiofr = $temp['oratio']['francais'];
if (substr($oratiolat, -6) == "minum.") {
$oratiolat = str_replace(substr($oratiolat, -13), " Per Dóminum nostrum Iesum Christum, Fílium tuum, qui tecum vivit et regnat in unitáte Spíritus Sancti, Deus, per ómnia sæcula sæculórum.", $oratiolat);
$oratiofr .= " Par notre Seigneur Jésus-Christ, ton Fils, qui vit et règne avec toi dans l'unité du Saint-Esprit, Dieu, pour tous les siècles des siècles.";
}
if (substr($oratiolat, -11) == " Qui tecum.") {
$oratiolat = str_replace(" Qui tecum.", " Qui tecum vivit et regnat in unitáte Spíritus Sancti, Deus, per ómnia sæcula sæculórum.", $oratiolat);
$oratiofr .= " Lui qui vit et règne avec toi dans l'unité du Saint-Esprit, Dieu, pour tous les siècles des siècles.";
}
if (substr($oratiolat, -11) == " Qui vivis.") {
$oratiolat = str_replace(" Qui vivis.", " Qui vivis et regnas cum Deo Patre in unitáte Spíritus Sancti, Deus, per ómnia sæcula sæculórum.", $oratiolat);
$oratiofr .= " Toi qui vis et règnes avec Dieu le Père dans l'unité du Saint-Esprit, Dieu, pour tous les siècles des siècles.";
}
$tenebres .= "<tr><td>{$oratiolat}</td><td>{$oratiofr}</td></tr>";
$tenebres .= "<tr><td>V/. Benedicamus Domino.</td>\n\r\n\t\t\t\t\t<td>V/. Bénissons le Seigneur.</td></tr>\n\r\n\t \t\t<tr><td>R/. Deo gratias.</td>\r\n\t \t\t\t<td>R/. Nous rendos grâce à Dieu.</td></tr>\n";
$tenebres .= "</table>";
$tenebres = rougis_verset($tenebres);
return $tenebres;
}
function complies($jour, $calendarium)
{
$var = null;
$tem = $calendarium['tempus'][$jour];
switch ($tem) {
case "Tempus Adventus":
$psautier = "adven";
break;
case "Tempus Nativitatis":
$psautier = "noel";
break;
case "Tempus per annum":
$psautier = "perannum";
break;
case "Tempus Quadragesimae":
$psautier = "quadragesimae";
break;
case "Tempus passionis":
$psautier = "hebdomada_sancta";
break;
case "Tempus Paschale":
$psautier = "pascha";
break;
default:
print "<br><i>Cet office n'est pas encore complètement disponible. Merci de bien vouloir patienter. <a href=\"nous_contacter./index.php\">Vous pouvez nous aider à compléter ce travail.</a></i>";
return;
break;
}
$jours_l = array("Dominica, post II Vesperas, ad ", "Feria secunda, ad ", "Feria tertia, ad ", "Feria quarta, ad ", "Feria quinta, ad ", "Feria sexta, ad ", "Dominica, post I Vesperas, ad ");
$jours_fr = array("Le Dimanche après les IIes Vêpres, aux ", "Le Lundi aux ", "Le Mardi aux ", "Le Mercredi aux ", "Le Jeudi aux ", "Le Vendredi aux ", "Le Dimanche, après les Ières Vêpres, aux ");
$anno = substr($jour, 0, 4);
$mense = substr($jour, 4, 2);
$die = substr($jour, 6, 2);
$day = mktime(12, 0, 0, $mense, $die, $anno);
$jrdelasemaine = date("w", $day);
$date_fr = $jours_fr[$jrdelasemaine];
$date_l = $jours_l[$jrdelasemaine];
$jrdelasemaine++;
// pour avoir dimanche=1 etc...
$spsautier = $calendarium['hebdomada_psalterium'][$jour];
$tomorow = $day + 60 * 60 * 24;
$demain = date("Ymd", $tomorow);
if ($calendarium['1V'][$demain] == 1 && $calendarium['priorite'][$jour] > $calendarium['priorite'][$demain] && $jrdelasemaine != 7) {
////////////////////////////////////////
/// il y a des "1ères Complies" //////
//////////////////////////////////////
$fp = fopen("propres_r/complies/comp_FVS.csv", "r");
while ($data = fgetcsv($fp, 1000, ";")) {
$id = $data[0];
$var[$id]['latin'] = $data[1];
$var[$id]['francais'] = $data[2];
$row++;
}
$LB_comp = null;
$RB_comp = null;
$pr_lat = null;
$pr_fr = null;
$intitule_lat = null;
$intitule_fr = null;
$rang_lat = null;
$rang_fr = null;
$preces = null;
$ps2 = 1;
$tempo = $calendarium['intitule'][$demain];
$fp = fopen("propres_r/temporal/" . $tempo . ".csv", "r");
while ($data = fgetcsv($fp, 1000, ";")) {
$id = $data[0];
$temp[$id]['latin'] = $data[1];
$temp[$id]['francais'] = $data[2];
$row++;
}
fclose($fp);
if ($temp['intitule']['latin']) {
$intitule_lat = $temp['intitule']['latin'];
}
if ($temp['intitule']['francais']) {
$intitule_fr = $temp['intitule']['francais'];
}
$rang_lat = "Sollemnitas";
$rang_fr = "Solennité";
$complies_lat = "Post I Vesperas, ad Completorium";
$complies_fr = "Après les Ières Vêpres, aux Complies";
$date_l = $intitule_lat . "<br> Post I Vesperas, ad ";
$date_fr = $intitule_fr . "<br> Après les Ières Vêpres, aux ";
}
if ($calendarium['1V'][$jour] == 1 && $calendarium['priorite'][$jour] < $calendarium['priorite'][$demain] && $jrdelasemaine != 1) {
////////////////////////////////////////
/// il y a des "2ndes Complies" //////
//////////////////////////////////////
$fp = fopen("propres_r/complies/comp_FS.csv", "r");
while ($data = fgetcsv($fp, 1000, ";")) {
$id = $data[0];
$var[$id]['latin'] = $data[1];
$var[$id]['francais'] = $data[2];
$row++;
}
$LB_comp = null;
$RB_comp = null;
$pr_lat = null;
$pr_fr = null;
$intitule_lat = null;
$intitule_fr = null;
$rang_lat = null;
$rang_fr = null;
$preces = null;
$ps2 = 1;
$tempo = $calendarium['intitule'][$jour];
$fp = fopen("propres_r/temporal/" . $tempo . ".csv", "r");
while ($data = fgetcsv($fp, 1000, ";")) {
$id = $data[0];
$temp[$id]['latin'] = $data[1];
$temp[$id]['francais'] = $data[2];
$row++;
}
fclose($fp);
if ($temp['intitule']['latin']) {
$intitule_lat = $temp['intitule']['latin'];
}
if ($temp['intitule']['francais']) {
$intitule_fr = $temp['intitule']['francais'];
}
$rang_lat = "Sollemnitas";
$rang_fr = "Solennité";
$date_l = $intitule_lat . "<br> Post II Vesperas, ad ";
$date_fr = $intitule_fr . "<br> Après les IIes Vêpres, aux ";
}
if (!$var) {
$fp = fopen("propres_r/complies/comp_F" . $jrdelasemaine . ".csv", "r");
while ($data = fgetcsv($fp, 1000, ";")) {
$id = $data[0];
$latin = $data[1];
$francais = $data[2];
$var[$id]['latin'] = $latin;
$var[$id]['francais'] = $francais;
$row++;
}
fclose($fp);
}
$row = 0;
$fp = fopen("offices_r/complies.csv", "r");
while ($data = fgetcsv($fp, 1000, ";")) {
$latin = $data[0];
$francais = $data[1];
$comp[$row]['latin'] = $latin;
$comp[$row]['francais'] = $francais;
$row++;
}
$max = $row;
$complies = "<table>";
for ($row = 0; $row < $max; $row++) {
$lat = $comp[$row]['latin'];
$fr = $comp[$row]['francais'];
//Suppression de l'Alléluia en Carême et Semaine Sainte
if ($tem == "Tempus Quadragesimae" && $lat == "Allel�ia.") {
$lat = "";
$fr = "";
}
if ($tem == "Tempus passionis" && $lat == "Allel�ia.") {
$lat = "";
$fr = "";
}
switch ($lat) {
case "#JOUR":
$complies .= "<tr><td style=\"width: 49%; text-align: center;\"><h2>{$date_l} Completorium</h2></td>\r\n \t\t<td style=\"width: 49%; text-align: center;\"><h2>{$date_fr} Complies</h2></td></tr>";
if ($rang_lat) {
$complies .= "<tr><td style=\"width: 49%; text-align: center;\"><h3>{$rang_lat}</h3></td>\r\n \t\t<td style=\"width: 49%; text-align: center;\"><h3>{$rang_fr}</h3></td></tr>";
}
break;
//fin du case #JOUR
//fin du case #JOUR
case "#HYMNUS":
switch ($tem) {
case "Tempus Paschale":
$complies .= hymne(utf8_decode("hy_Iesu, redémptor"));
break;
case "Tempus Quadragesimae":
case "Tempus per annum":
switch ($calendarium['hebdomada_psalterium'][$jour]) {
case 1:
case 3:
$complies .= hymne(utf8_decode("hy_Te lucis"));
break;
case 2:
case 4:
$complies .= hymne(utf8_decode("hy_Christe, qui, splendor"));
break;
}
break;
case "Tempus Adventus":
$seizedec = mktime(12, 0, 0, 12, 16, $anno);
if ($day <= $seizedec) {
$complies .= hymne("hy_Te lucis");
} else {
$complies .= hymne("hy_Christe, qui, splendor");
}
break;
case "Tempus Nativitatis":
$sixjanv = mktime(12, 0, 0, 1, 6, $anno);
if ($mense == "12") {
$annosuivante = $anno + 1;
$sixjanv = mktime(12, 0, 0, 1, 6, $annosuivante);
}
if ($day <= $sixjanv) {
$complies .= hymne("hy_Te lucis");
} else {
$complies .= hymne("hy_Christe, qui, splendor");
}
break;
}
//fin du switch $tem
break;
//fin du case #HYMNUS
//fin du case #HYMNUS
case "#ANT1*":
$antlat = $var['ant1']['latin'];
$antfr = $var['ant1']['francais'];
if ($tem == "Tempus Paschale") {
$antlat = "Allelúia, allelúia, allelúia.";
$antfr = "Alléluia, alléluia, alléluia.";
}
$complies .= "<tr><td><p><span style=\"color:red\">Ant. 1 </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. 1 </span> {$antfr}</p></td></tr>";
break;
//fin du case #ANT1*
//fin du case #ANT1*
case "#PS1":
$psaume = $var['ps1']['latin'];
$complies .= psaume($psaume);
break;
//fin du case #PS1
//fin du case #PS1
case "#ANT1":
$antlat = $var['ant1']['latin'];
$antfr = $var['ant1']['francais'];
if ($tem == "Tempus Paschale") {
$antlat = "Allelúia, allelúia, allelúia.";
$antfr = "Alléluia, alléluia, alléluia.";
}
$complies .= "<tr><td><p><span style=\"color:red\">Ant. 1 </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. 1 </span> {$antfr}</p></td></tr>";
break;
//fin du case #ANT1
//fin du case #ANT1
case "#ANT2*":
$antlat = $var['ant2']['latin'];
$antfr = $var['ant2']['francais'];
if ($antlat == "") {
$ps2 = 0;
$row++;
$row++;
$row++;
$row++;
} else {
$ps2 = 1;
if ($tem == "Tempus Paschale") {
$antlat = "Allelúia, allelúia, allelúia.";
$antfr = "Alléluia, alléluia, alléluia.";
}
$complies .= "<tr><td><p><span style=\"color:red\">Ant. 2 </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. 2 </span> {$antfr}</p></td></tr>";
}
break;
//fin du case #ANT2*
//fin du case #ANT2*
case "#PS2":
$psaume = $var['ps2']['latin'];
if ($ps2 == 1) {
$complies .= psaume($psaume);
}
break;
//fin du case #PS2
//fin du case #PS2
case "#ANT2":
$antlat = $var['ant2']['latin'];
$antfr = $var['ant2']['francais'];
if ($ps2 == 1) {
if ($tem == "Tempus Paschale") {
$antlat = "Allelúia, allelúia, allelúia.";
$antfr = "Alléluia, alléluia, alléluia.";
}
$complies .= "<tr><td><p><span style=\"color:red\">Ant. 2 </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. 2 </span> {$antfr}</p></td></tr>";
}
break;
//fin du case #ANT2
//fin du case #ANT2
case "#LB":
$lectiobrevis = $var['LB_comp']['latin'];
$complies .= lectiobrevis($lectiobrevis);
break;
//fin du case #LB
//fin du case #LB
case "#RB":
if ($tem == "Tempus Paschale") {
$rblat = nl2br($var['RB_comp_TP']['latin']);
$rbfr = nl2br($var['RB_comp_TP']['francais']);
} else {
$rblat = nl2br($var['RB_comp']['latin']);
$rbfr = nl2br($var['RB_comp']['francais']);
}
$complies .= "<tr><td><h2>Responsorium Breve</h2></td>\r\n \t\t<td><h2>Répons bref</h2></td></tr>\r\n \t\t<tr><td>{$rblat}</td><td>{$rbfr}</td></tr>";
break;
//fin du case #RB
//fin du case #RB
case "#ANT_NUNCD":
$magniflat = "Salva nos, Dómine, vigilántes, custódi nos dormiéntes, ut vigilémus cum Christo et requiescámus in pace.";
$magniffr = "Sauve nous, Seigneur, quand nous veillons, garde nous quand nous dormons, et nous veillerons avec le Messie et nous reposerons en paix.";
if ($tem == "Tempus Paschale") {
$magniflat .= " allelúia.";
$magniffr .= " alléluia.";
}
$complies .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$magniflat}</p></td>\r\n \t\t<td><p><span style=\"color:red\">Ant. </span> {$magniffr}</p></td></tr>";
break;
//fin du case #ANT_NUNCD
//fin du case #ANT_NUNCD
case "#NUNCDIMITTIS":
$complies .= psaume("nuncdimittis");
break;
//fin du case #NUNCDIMITTIS
//fin du case #NUNCDIMITTIS
case "#ORATIO":
if (!$oratiolat) {
$oratiolat = $var['oratio_vesperas']['latin'];
$oratiofr = $var['oratio_vesperas']['francais'];
}
if ($calendarium['hebdomada'][$jour] == "Infra octavam paschae") {
$oratiolat = "Vox nostra te, Dómine, humíliter deprecétur, ut, domónicæ resurrectiónis hac die mystério celebráto, in pace tua secúri a malis ómnibus quiescámus, et in tua resurgámus laude gaudéntes. Per Christum Dóminum nostrum.";
$oratiofr = "Notre voix te supplie humblement, Seigneur. Nous avons célébré aujourd'hui le mystère de la résurrection du Seigneur : fais-nous reposer dans ta paix à l'abri de tout mal, et nous relever pour chanter joyeusement ta louange. Par le Christ notre Seigneur.";
}
$complies .= "<tr><td>{$oratiolat}</td><td>{$oratiofr}</td></tr>";
break;
//fin du case #ORATIO
//fin du case #ORATIO
case "#ANT_MARIALE":
$ant_marie = "";
switch ($tem) {
case "Tempus Paschale":
$ant_marie = "ant_regina caeli";
break;
case "Tempus Quadragesimae":
$ant_marie = "ant_ave regina";
break;
case "Tempus passionis":
$ant_marie = "ant_ave regina";
break;
case "Tempus Nativitatis":
$ant_marie = "ant_alma redemtoris";
break;
case "Tempus Adventus":
$ant_marie = "ant_alma redemtoris";
break;
case "Tempus per annum":
$deuxfev = mktime(12, 0, 0, 2, 2, $anno);
if ($mense == "01" or $mense == "02" or $mense == "03") {
$ant_marie = "ant_ave regina";
} elseif ($tempo == "IN ASSUMPTIONE B. MARIAE VIRGINIS") {
$ant_marie = "ant_ave regina";
} else {
$ant_marie = "ant_salve regina";
}
}
if ($calendarium['1V'][$demain] == 1 && $calendarium['priorite'][$jour] > $calendarium['priorite'][$demain] && $jrdelasemaine != 7) {
$ant_marie = "ant_sub tuum";
}
$complies .= hymne($ant_marie);
break;
//fin du case #ANT_MARIALE
//fin du case #ANT_MARIALE
default:
$complies .= "<tr><td>{$lat}</td><td>{$fr}</td></tr>";
break;
//fin default
}
// fin switch $lat
}
// fin boucle for
$complies .= "</table>";
$complies = rougis_verset($complies);
return $complies;
}
function vepres($jour, $date_l, $date_fr, $var, $propre, $temp)
{
/*
* Chargement du squelette des Vepres dans $vesp
* remplissage de $vepres pour l'affichage de l'office
*
*/
$row = 0;
$fp = fopen("offices_r/vepres.csv", "r");
$jrdelasemaine--;
while ($data = fgetcsv($fp, 1000, ";")) {
$latin = $data[0];
$francais = $data[1];
$vesp[$row]['latin'] = $latin;
$vesp[$row]['francais'] = $francais;
$row++;
}
fclose($fp);
$max = $row;
$vepres = "<table>";
for ($row = 0; $row < $max; $row++) {
$lat = $vesp[$row]['latin'];
$fr = $vesp[$row]['francais'];
$testAlleluia = utf8_encode($lat);
if ($tem == "Tempus Quadragesimae" && $testAlleluia == "Allelúia.") {
$lat = "";
$fr = "";
}
if ($tem == "Tempus passionis" && $testAlleluia == "Allelúia.") {
$lat = "";
$fr = "";
}
if ($lat == "#JOUR") {
if ($propre['jour']['latin']) {
$pr_lat = $propre['jour']['latin'];
$pr_fr = $propre['jour']['francais'];
}
if (!$pr_lat or $calendarium['1V'][$demain]) {
$pr_lat = $temp['jour']['latin'];
$pr_fr = $temp['jour']['francais'];
}
if ($pr_lat) {
$vepres .= "<tr><td style=\"width: 49%; text-align: center;\"><p style=\"font-weight: bold;\">{$pr_lat}</p></td>";
$vepres .= "<td style=\"width: 49%; text-align: center;\"><p style=\"font-weight: bold;\">{$pr_fr}</p></td></tr>";
$oratiolat = $propre['oratio']['latin'];
$oratiofr = $propre['oratio']['francais'];
}
if ($propre['intitule']['latin']) {
$intitule_lat = $propre['intitule']['latin'];
$intitule_fr = $propre['intitule']['francais'];
}
if (!$intitule_lat or $calendarium['1V'][$demain]) {
$intitule_lat = $temp['intitule']['latin'];
$intitule_fr = $temp['intitule']['francais'];
}
if ($intitule_lat) {
$vepres .= "<tr><td style=\"width: 49%; text-align: center;\"><p style=\"font-weight: bold;\">{$intitule_lat}</p></td>";
$vepres .= "<td style=\"width: 49%; text-align: center;\"><p style=\"font-weight: bold;\">{$intitule_fr}</p></td></tr>";
$oratiolat = $propre['oratio']['latin'];
$oratiofr = $propre['oratio']['francais'];
}
if ($propre['rang']['latin']) {
$rang_lat = $propre['rang']['latin'];
$rang_fr = $propre['rang']['francais'];
}
if (!$rang_lat or $calendarium['1V'][$demain]) {
$rang_lat = $temp['rang']['latin'];
$rang_fr = $temp['rang']['francais'];
}
if ($rang_lat) {
$vepres .= "<tr><td style=\"width: 49%; text-align: center;\"><h3> {$rang_lat}</h3></td>";
$vepres .= "<td style=\"width: 49%; text-align: center;\"><h3>{$rang_fr}</h3></td></tr>";
$oratiolat = $propre['oratio']['latin'];
$oratiofr = $propre['oratio']['francais'];
}
if ($pr_lat or $intitule_lat or $rang_lat) {
$vepres .= "<tr><td style=\"width: 49%; text-align: center;\"><h2>{$date_l} Vesperas</h2></td>";
$vepres .= "<td style=\"width: 49%; text-align: center;\"><h2>{$date_fr} Vêpres</h2></td></tr>";
} else {
$vepres .= "<tr><td style=\"width: 49%; text-align: center;\"><h2>{$jours_l[$jrdelasemaine]} Vesperas</h2></td>";
$vepres .= "<td style=\"width: 49%; text-align: center;\"><h2>{$jours_fr[$jrdelasemaine]} Vêpres</h2></td></tr>";
}
} elseif ($lat == "#HYMNUS") {
if ($propre['HYMNUS_vepres']['latin']) {
$hymne = $propre['HYMNUS_vepres']['latin'];
} elseif ($temp['HYMNUS_vepres']['latin']) {
$hymne = $temp['HYMNUS_vepres']['latin'];
} else {
$hymne = $var['HYMNUS_vesperas']['latin'];
}
$vepres .= hymne($hymne);
} elseif ($lat == "#ANT1*") {
if ($propre['ant7']['latin']) {
$antlat = $propre['ant7']['latin'];
$antfr = $propre['ant7']['francais'];
} elseif ($temp['ant7']['latin']) {
$antlat = $temp['ant7']['latin'];
$antfr = $temp['ant7']['francais'];
} else {
$antfr = $var['ant7']['francais'];
$antlat = $var['ant7']['latin'];
}
$vepres .= "<tr><td><p><span style=\"color:red\">Ant. 1 </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. 1 </span> {$antfr}</p></td></tr>";
} elseif ($lat == "#PS1") {
if ($propre['ps7']['latin']) {
$psaume = $propre['ps7']['latin'];
} elseif ($temp['ps7']['latin']) {
$psaume = $temp['ps7']['latin'];
} elseif ($var['ps7']['latin']) {
$psaume = $var['ps7']['latin'];
}
//else $psaume=$reference['ps7'];
$vepres .= psaume($psaume);
} elseif ($lat == "#ANT1") {
if ($propre['ant7']['latin']) {
$antlat = $propre['ant7']['latin'];
$antfr = $propre['ant7']['francais'];
} elseif ($temp['ant7']['latin']) {
$antlat = $temp['ant7']['latin'];
$antfr = $temp['ant7']['francais'];
} else {
$antfr = $var['ant7']['francais'];
$antlat = $var['ant7']['latin'];
}
$vepres .= "<tr><td><p><span style=\"color:red\">Ant. 1 </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. 1 </span> {$antfr}</p></td></tr>";
} elseif ($lat == "#ANT2*") {
if ($propre['ant8']['latin']) {
$antlat = $propre['ant8']['latin'];
$antfr = $propre['ant8']['francais'];
} elseif ($temp['ant8']['latin']) {
$antlat = $temp['ant8']['latin'];
$antfr = $temp['ant8']['francais'];
} else {
$antfr = $var['ant8']['francais'];
$antlat = $var['ant8']['latin'];
}
$vepres .= "<tr><td><p><span style=\"color:red\">Ant. 2 </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. 2 </span> {$antfr}</p></td></tr>";
} elseif ($lat == "#PS2") {
if ($propre['ps8']['latin']) {
$psaume = $propre['ps8']['latin'];
} elseif ($temp['ps8']['latin']) {
$psaume = $temp['ps8']['latin'];
} elseif ($var['ps8']['latin']) {
$psaume = $var['ps8']['latin'];
} else {
$psaume = $reference['ps8'];
}
$vepres .= psaume($psaume);
} elseif ($lat == "#ANT2") {
if ($propre['ant8']['latin']) {
$antlat = $propre['ant8']['latin'];
$antfr = $propre['ant8']['francais'];
} elseif ($temp['ant8']['latin']) {
$antlat = $temp['ant8']['latin'];
$antfr = $temp['ant8']['francais'];
} else {
$antfr = $var['ant8']['francais'];
$antlat = $var['ant8']['latin'];
}
$vepres .= "<tr><td><p><span style=\"color:red\">Ant. 2 </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. 2 </span> {$antfr}</p></td></tr>";
} elseif ($lat == "#ANT3*") {
if ($propre['ant9']['latin']) {
$antlat = $propre['ant9']['latin'];
$antfr = $propre['ant9']['francais'];
} elseif ($temp['ant9']['latin']) {
$antlat = $temp['ant9']['latin'];
$antfr = $temp['ant9']['francais'];
} else {
$antfr = $var['ant9']['francais'];
$antlat = $var['ant9']['latin'];
}
$vepres .= "<tr><td><p><span style=\"color:red\">Ant. 3 </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. 3 </span> {$antfr}</p></td></tr>";
} elseif ($lat == "#PS3") {
if ($propre['ps9']['latin']) {
$psaume = $propre['ps9']['latin'];
} elseif ($temp['ps9']['latin']) {
$psaume = $temp['ps9']['latin'];
} elseif ($var['ps9']['latin']) {
$psaume = $var['ps9']['latin'];
} elseif ($var['ps9']['latin']) {
$psaume = $var['ps9']['latin'];
} else {
$psaume = $reference['ps9'];
}
$vepres .= psaume($psaume);
} elseif ($lat == "#ANT3") {
if ($propre['ant9']['latin']) {
$antlat = $propre['ant9']['latin'];
$antfr = $propre['ant9']['francais'];
} elseif ($temp['ant9']['latin']) {
$antlat = $temp['ant9']['latin'];
$antfr = $temp['ant9']['francais'];
} else {
$antfr = $var['ant9']['francais'];
$antlat = $var['ant9']['latin'];
}
$vepres .= "<tr><td><p><span style=\"color:red\">Ant. 3 </span>{$antlat}</p></td>\r\n\t\t\t\t<td><p><span style=\"color:red\">Ant. 3 </span> {$antfr}</p></td></tr>";
} elseif ($lat == "#LB") {
if ($propre['LB_soir']['latin']) {
$LB_soir = $propre['LB_soir']['latin'];
} elseif ($temp['LB_soir']['latin']) {
$LB_soir = $temp['LB_soir']['latin'];
} else {
$LB_soir = $var['LB_soir']['latin'];
}
$vepres .= lectiobrevis($LB_soir);
} elseif ($lat == "#RB") {
if ($propre['RB_soir']['latin']) {
$rblat = nl2br($propre['RB_soir']['latin']);
$rbfr = nl2br($propre['RB_soir']['francais']);
} elseif ($temp['RB_soir']['latin']) {
$rblat = nl2br($temp['RB_soir']['latin']);
$rbfr = nl2br($temp['RB_soir']['francais']);
} else {
$rblat = nl2br($var['RB_soir']['latin']);
$rbfr = nl2br($var['RB_soir']['francais']);
}
$vepres .= "<tr><td><h2>Responsorium Breve</h2></td>\r\n\t \t\t<td><h2>Répons bref</h2></td></tr>\r\n\t \t\t<tr><td>{$rblat}</td>\r\n\t \t\t<td>{$rbfr}</td></tr>";
} elseif ($lat == "#ANT_MAGN") {
$magnificat = "magnificat_" . $lettre;
if ($propre[$magnificat]['latin']) {
$magniflat = $propre[$magnificat]['latin'];
$magniffr = $propre[$magnificat]['francais'];
} elseif ($propre['magnificat']['latin']) {
$magniflat = $propre['magnificat']['latin'];
$magniffr = $propre['magnificat']['francais'];
} elseif ($temp['magnificat']['latin']) {
$magniflat = $temp['magnificat']['latin'];
$magniffr = $temp['magnificat']['francais'];
} else {
if (!$magniflat) {
$magniflat = $var['magnificat']['latin'];
}
if (!$magniffr) {
$magniffr = $var['magnificat']['francais'];
}
}
$vepres .= "<tr><td><p><span style=\"color:red\">Ant. </span>{$magniflat}</p></td>\r\n\t \t\t<td><p><span style=\"color:red\">Ant. </span>{$magniffr}</p></td></tr>";
} elseif ($lat == "#MAGNIFICAT") {
$vepres .= psaume("magnificat");
} elseif ($lat == "#PRECES") {
if ($propre['preces_soir']['latin']) {
$preces = $propre['preces_soir']['latin'];
} elseif ($temp['preces_soir']['latin']) {
$preces = $temp['preces_soir']['latin'];
} else {
$preces = $var['preces_soir']['latin'];
}
$vepres .= preces($preces);
} elseif ($lat == "#PATER") {
$vepres .= psaume("pater");
} elseif ($lat == "#ORATIO") {
if ($propre['oratio_soir']['latin']) {
$oratiolat = $propre['oratio_soir']['latin'];
$oratiofr = $propre['oratio_soir']['francais'];
} elseif ($propre['oratio']['latin']) {
$oratiolat = $propre['oratio']['latin'];
$oratiofr = $propre['oratio']['francais'];
} elseif ($temp['oratio_soir']['latin']) {
$oratiolat = $temp['oratio_soir']['latin'];
$oratiofr = $temp['oratio_soir']['francais'];
} elseif ($temp['oratio']['latin']) {
$oratiolat = $temp['oratio']['latin'];
$oratiofr = $temp['oratio']['francais'];
} elseif ($oratiolat = $var['oratio_vesperas']['latin']) {
$oratiolat = $var['oratio_vesperas']['latin'];
$oratiofr = $var['oratio_vesperas']['francais'];
} elseif ($oratiolat = $var['oratio']['latin']) {
$oratiolat = $var['oratio']['latin'];
$oratiofr = $var['oratio']['francais'];
}
if (substr($oratiolat, -6) == "minum.") {
$oratiolat = str_replace(substr($oratiolat, -13), " Per Dóminum nostrum Iesum Christum, Fílium tuum, qui tecum vivit et regnat in unitáte Spíritus Sancti, Deus, per ómnia sæcula sæculórum.", $oratiolat);
$oratiofr .= " Par notre Seigneur Jésus-Christ, ton Fils, qui vit et règne avec toi dans l'unité du Saint-Esprit, Dieu, pour tous les siècles des siècles.";
}
if (substr($oratiolat, -17) == " Qui tecum vivit.") {
$oratiolat = str_replace(" Qui tecum vivit.", " Qui tecum vivit et regnat in unitáte Spíritus Sancti, Deus, per ómnia sæcula sæculórum.", $oratiolat);
$oratiofr .= " Lui qui vit et règne avec toi dans l'unité du Saint-Esprit, Dieu, pour tous les siècles des siècles.";
}
if (substr($oratiolat, -11) == " Qui vivis.") {
$oratiolat = str_replace(" Qui vivis.", " Qui vivis et regnas cum Deo Patre in unitáte Spíritus Sancti, Deus, per ómnia sæcula sæculórum.", $oratiolat);
$oratiofr .= " Toi qui vis et règnes avec Dieu le Père dans l'unité du Saint-Esprit, Dieu, pour tous les siècles des siècles.";
}
$vepres .= "<tr><td>{$oratiolat}</td>\r\n\t \t\t<td>{$oratiofr}</td></tr>";
} elseif ($lat == "Ite in pace. " && ($calendarium['hebdomada'][$jour] == "Infra octavam paschae" or $calendarium['temporal'][$jour] == "Dominica Pentecostes" or $calendarium['temporal'][$demain] == "Dominica Pentecostes")) {
$lat = "Ite in pace, allelúia, allelúia.";
$fr = "Allez en paix, alléluia, alléluia.";
$vepres .= "<tr><td>{$lat}</td>\r\n\t\t\t\t<td>{$fr}</td></tr>";
} elseif ($lat == "R/. Deo gr�tias." && ($calendarium['hebdomada'][$jour] == "Infra octavam paschae" or $calendarium['temporal'][$jour] == "Dominica Pentecostes" or $calendarium['temporal'][$demain] == "Dominica Pentecostes")) {
$lat = "R/. Deo grátias, allelúia, allelúia.";
$fr = "R/. Rendons grâces à Dieu, alléluia, alléluia.";
$vepres .= "<tr><td>{$lat}</td>\r\n\t \t\t<td>{$fr}</td></tr>";
} else {
$vepres .= "<tr><td>{$lat}</td>\r\n\t\t\t<td>{$fr}</td></tr>";
}
}
$vepres .= "</table>";
$vepres = rougis_verset($vepres);
return $vepres;
}
function invitatoire($jour, $calendarium, $my)
{
/*
if(!$my->email) {
print"<center><i>Le textes des offices latin/français ne sont disponibles que pour les utilisateurs enregistrés.</i></center>";
return;
}
*/
$jours_l = array("Dominica, post II Vesperas, ad ", "Feria secunda, ad ", "Feria tertia, ad ", "Feria quarta, ad ", "Feria quinta, ad ", "Feria sexta, ad ", "Dominica, post I Vesperas, ad ");
$jours_fr = array("Le Dimanche après les IIes Vêpres, aux ", "Le Lundi aux ", "Le Mardi aux ", "Le Mercredi aux ", "Le Jeudi aux ", "Le Vendredi aux ", "Le Dimanche, après les Ières Vêpres, aux ");
$anno = substr($jour, 0, 4);
$mense = substr($jour, 4, 2);
$die = substr($jour, 6, 2);
$day = mktime(12, 0, 0, $mense, $die, $anno);
$jrdelasemaine = date("w", $day);
$date_fr = $jours_fr[$jrdelasemaine];
$date_l = $jours_l[$jrdelasemaine];
$fp = fopen("calendrier/liturgia/jours.csv", "r");
while ($data = fgetcsv($fp, 1000, ";")) {
$id = $data[0];
$latin = $data[1];
$francais = $data[2];
$jo[$id]['latin'] = $latin;
$jo[$id]['francais'] = $francais;
$row++;
}
fclose($fp);
$jrdelasemaine++;
// pour avoir dimanche=1 etc...
$spsautier = $calendarium['hebdomada_psalterium'][$jour];
$tomorow = $day + 60 * 60 * 24;
$demain = date("Ymd", $tomorow);
$ant_invit_lat = null;
$ant_invit_fr = null;
$var = null;
$tem = $calendarium['tempus'][$jour];
switch ($tem) {
case "Tempus Adventus":
$psautier = "adven";
$q = "adven_" . $spsautier;
break;
case "Tempus Nativitatis":
$psautier = "noel";
$q = "noel_" . $spsautier;
break;
case "Tempus per annum":
$psautier = "perannum";
$q = "perannum_" . $spsautier;
break;
case "Tempus Quadragesimae":
$psautier = "quadragesimae";
$q = "quadragesima";
switch ($calendarium['hebdomada'][$jour]) {
case "Dies post Cineres":
$q = "quadragesima_0";
break;
case "Hebdomada I Quadragesimae":
$q = "quadragesima_1";
break;
case "Hebdomada II Quadragesimae":
$q = "quadragesima_2";
break;
case "Hebdomada III Quadragesimae":
$q = "quadragesima_3";
break;
case "Hebdomada IV Quadragesimae":
$q = "quadragesima_4";
break;
case "Hebdomada V Quadragesimae":
$q = "quadragesima_5";
break;
}
break;
case "Tempus passionis":
$psautier = "hebdomada_sancta";
$q = "hebdomada_sancta";
break;
case "Tempus Paschale":
$psautier = "pascha";
switch ($calendarium['hebdomada'][$jour]) {
case "Infra octavam paschae":
$q = "pascha_1";
break;
case "Hebdomada II Paschae":
$q = "pascha_2";
break;
case "Hebdomada III Paschae":
$q = "pascha_3";
break;
case "Hebdomada IV Paschae":
$q = "pascha_4";
break;
case "Hebdomada V Paschae":
$q = "pascha_5";
break;
case "Hebdomada VI Paschae":
$q = "pascha_6";
break;
case "Hebdomada VII Paschae":
$q = "pascha_7";
break;
case " ":
$q = "pascha_8";
break;
}
break;
default:
print "<br><i>Cet office n'est pas encore complètement disponible. Merci de bien vouloir patienter. <a href=\"nous_contacter./index.php\">Vous pouvez nous aider à compléter ce travail.</a></i>";
return;
break;
}
// lecture du fichier du jour :
$fp = fopen("calendrier/liturgia/psautier/" . $q . $jrdelasemaine . ".csv", "r");
while ($data = fgetcsv($fp, 1000, ";")) {
$id = $data[0];
$latin = $data[1];
$francais = $data[2];
$var[$id]['latin'] = $latin;
$var[$id]['francais'] = $francais;
$row++;
}
fclose($fp);
//Lecture du fichier des psaumes
$fp = fopen("calendrier/liturgia/psautier/psautier_" . $spsautier . $jrdelasemaine . ".csv", "r");
while ($data = fgetcsv($fp, 1000, ";")) {
$id = $data[0];
$ref = $data[1];
$reference[$id] = $ref;
$row++;
}
fclose($fp);
if ($reference['ps_invit']) {
$psaume_invit = $reference['ps_invit'];
} else {
$psaume_invit = ps94_inv;
}
//Lecture du fichier du propre si le jour a un rang
if ($calendarium['rang'][$jour]) {
$prop = $mense . $die;
//print"<br>prop = $prop";
$fp = @fopen("calendrier/liturgia/psautier/" . $prop . ".csv", "r");
while ($data = @fgetcsv($fp, 1000, ";")) {
$id = $data[0];
$propre[$id]['latin'] = $data[1];
$propre[$id]['francais'] = $data[2];
$row++;
}
@fclose($fp);
if ($propre['ant_invit']['latin']) {
$ant_invit_lat = $propre['ant_invit']['latin'];
}
if ($propre['ant_invit']['francais']) {
$ant_invit_fr = $propre['ant_invit']['francais'];
}
}
//Lecture du fichier du temporal si le jour a un temporal
if ($calendarium['temporal'][$jour] == $calendarium['intitule'][$jour]) {
$tempo = $calendarium['temporal'][$jour];
$fp = @fopen("calendrier/liturgia/psautier/" . $tempo . ".csv", "r");
//$fp = fopen ("calendrier/liturgia/psautier/".$prop.".csv","r");
while ($data = @fgetcsv($fp, 1000, ";")) {
$id = $data[0];
$temp[$id]['latin'] = $data[1];
$temp[$id]['francais'] = $data[2];
$row++;
}
$ant_invit_lat = $temp['ant_invit']['latin'];
$ant_invit_fr = $temp['ant_invit']['francais'];
}
$row = 0;
$fp = fopen("offices_r/invitatoire.csv", "r");
while ($data = fgetcsv($fp, 1000, ";")) {
$latin = $data[0];
$francais = $data[1];
$comp[$row]['latin'] = $latin;
$comp[$row]['francais'] = $francais;
$row++;
}
$max = $row;
for ($row = 0; $row < $max; $row++) {
$lat = $comp[$row]['latin'];
$fr = $comp[$row]['francais'];
switch ($lat) {
/*case "#JOUR":
//$invitatoire.="<tr><td width=49%><center><font color=red><b>$date_l Ad Invitatorium</b></font></center></td>";
//$invitatoire.="<td width=49%><b><center><font color=red><b>$date_fr à l'Invitatoire</b></font></center></td></tr>";
//$invitatoire.="<tr><td width=49%><center><font color=red> $rang_lat</font></center></td><td width=49%><center><font color=red>$rang_fr</font></center></td></tr>";
$pr_lat=$propre['jour']['latin'];
if($pr_lat){
$invitatoire.="<tr><td width=49%><center><b>$pr_lat</b></center></td>";
$pr_fr=$propre['jour']['francais'];
$invitatoire.="<td width=49%><center><b>$pr_fr</b></center></td></tr>";
$intitule_lat=$propre['intitule']['latin'];
$intitule_fr=$propre['intitule']['francais'];
$invitatoire.="<tr><td width=49%><center><b> $intitule_lat</b></center></td><td width=49%><center><b>$intitule_fr</b></center></td></tr>";
$rang_lat=$propre['rang']['latin'];
$rang_fr=$propre['rang']['francais'];
$invitatoire.="<tr><td width=49%><center><font color=red> $rang_lat</font></center></td><td width=49%><center><font color=red>$rang_fr</font></center></td></tr>";
$invitatoire.="<tr><td width=49%><center><font color=red><b>Ad Invitatorium</b></font></center></td>";
$invitatoire.="<td width=49%><b><center><font color=red><b>A l'Invitatoire</b></font></center></td></tr>";
}
else {
$invitatoire.="<tr><td width=49%><center><font color=red><b>$date_l ad Invitatorium</b></font></center></td>";
$invitatoire.="<td width=49%><b><center><font color=red><b>$date_fr à l'Invitatoire</b></font></center></td></tr>";
}
break; */
//fin du case #JOUR
case "#ANT_INVIT*":
if (!$ant_invit_lat) {
$ant_invit_lat = $var['ant_invit']['latin'];
$ant_invit_fr = $var['ant_invit']['francais'];
}
break;
//fin case #ANT_INVIT*
//fin case #ANT_INVIT*
case "#PS_INVIT":
$invitatoire .= psaume_invitatoire($psaume_invit, $ant_invit_lat, $ant_invit_fr);
break;
//fin case #PS_INVIT
//fin case #PS_INVIT
case "#ANT_INVIT":
$lat = "R/. " . $ant_invit_lat;
$fr = "R/. " . $ant_invit_fr;
$invitatoire .= "\r\n\r\n <tr>\r\n\r\n <td id=\"colgauche\">{$lat}</td><td id=\"coldroite\">{$fr}</td></tr>";
break;
//fin case #ANT_INVIT
//fin case #ANT_INVIT
default:
$invitatoire .= "\r\n <tr>\r\n <td id=\"colgauche\">{$lat}</td><td id=\"coldroite\">{$fr}</td></tr>";
break;
//fin default
}
// fin switch $lat
}
// fin boucle for
$invitatoire = rougis_verset($invitatoire);
return $invitatoire;
}