Exemplo n.º 1
0
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]} &agrave; 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&oacute;minum nostrum.", $oratio9lat);
                    $oratio9fr .= " Par le Christ notre Seigneur.";
                    break;
                case "minum.":
                    $oratio9lat = str_replace(substr($oratio9lat, -13), " Per Christum D&oacute;minum nostrum.", $oratio9lat);
                    $oratio9fr .= " Par le Christ notre Seigneur.";
                    break;
                case "tecum.":
                    $oratio9lat = str_replace(" Qui tecum.", " Qui vivit et regnat in s&aelig;cula s&aelig;cul&oacute;rum.", $oratio9lat);
                    $oratio9fr .= " Lui qui vit et r&egrave;gne pour tous les si&egrave;cles des si&egrave;cles.";
                    break;
                case "vivit.":
                    $oratio9lat = str_replace(" Qui vivit.", " Qui vivit et regnat in s&aelig;cula s&aelig;cul&oacute;rum.", $oratio9lat);
                    $oratio9fr .= " Lui qui vit et r&egrave;gne pour tous les si&egrave;cles des si&egrave;cles.";
                    break;
                case "vivis.":
                    $oratio9lat = str_replace(" Qui vivis.", " Qui vivis et regnas in s&aelig;cula s&aelig;cul&oacute;rum.", $oratio9lat);
                    $oratio9fr .= " Toi qui vis et r&egrave;gnes pour tous les si&egrave;cles des si&egrave;cles.";
                    break;
            }
            $none .= "<tr><td>Or&eacute;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;
}
Exemplo n.º 2
0
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&ecirc;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&ecirc;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&eacute;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&oacute;minum nostrum Iesum Christum, F&iacute;lium tuum, qui tecum vivit et regnat in unit&aacute;te Sp&iacute;ritus Sancti, Deus, per &oacute;mnia s&aelig;cula s&aelig;cul&oacute;rum.", $oratiolat);
                $oratiofr .= " Par notre Seigneur J&eacute;sus-Christ, ton Fils, qui vit et r&egrave;gne avec toi dans l'unit&eacute; du Saint-Esprit, Dieu, pour tous les si&egrave;cles des si&egrave;cles.";
            }
            if (substr($oratiolat, -17) == " Qui tecum vivit.") {
                $oratiolat = str_replace(" Qui tecum vivit.", " Qui tecum vivit et regnat in unit&aacute;te Sp&iacute;ritus Sancti, Deus, per &oacute;mnia s&aelig;cula s&aelig;cul&oacute;rum.", $oratiolat);
                $oratiofr .= " Lui qui vit et r&egrave;gne avec toi dans l'unit&eacute; du Saint-Esprit, Dieu, pour tous les si&egrave;cles des si&egrave;cles.";
            }
            if (substr($oratiolat, -11) == " Qui vivis.") {
                $oratiolat = str_replace(" Qui vivis.", " Qui vivis et regnas cum Deo Patre in unit&aacute;te Sp&iacute;ritus Sancti, Deus, per &oacute;mnia s&aelig;cula s&aelig;cul&oacute;rum.", $oratiolat);
                $oratiofr .= " Toi qui vis et r&egrave;gnes avec Dieu le P&egrave;re dans l'unit&eacute; du Saint-Esprit, Dieu, pour tous les si&egrave;cles des si&egrave;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&uacute;ia, allel&uacute;ia.";
            $fr = "Allez en paix, all&eacute;luia, all&eacute;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&aacute;tias, allel&uacute;ia, allel&uacute;ia.";
            $fr = "R/. Rendons gr&acirc;ces &agrave; Dieu, all&eacute;luia, all&eacute;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;
}
Exemplo n.º 3
0
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&aelig;</H1></td>\n";
    $tenebres .= "<td style=\"width: 49%; text-align: center;\"><h1>Office des T&eacute;n&egrave;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&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&egrave;re.</h5></td>\r\n\t    \t\t<td><h5>On garde le silence, le temps d'un Notre P&egrave;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&eacute;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&egrave;re.</h5></td>\r\n\t    \t\t<td><h5>On garde le silence, le temps d'un Notre P&egrave;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&eacute;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;cles. Amen.</td></tr>\n";
    $psaume = $temp['ps32']['latin'];
    $tenebres .= psaume($psaume);
    $tenebres .= "<tr><td>Gloria Patri, et F&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;cles. Amen.</td></tr>\n";
    $psaume = $temp['ps33']['latin'];
    $tenebres .= psaume($psaume);
    $tenebres .= "<tr><td>Gloria Patri, et F&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&egrave;re.</h5></td>\r\n\t    \t\t<td><h5>On garde le silence, le temps d'un Notre P&egrave;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&eacute;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&eacute;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&iacute;lio, * et Spir&iacute;tui Sancto.</td>\n\r\n\t\t\t\t\t<td>Gloire au P&egrave;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&aelig;cula s&aelig;cul&oacute;rum. Amen.</td>\r\n\t    \t\t\t<td>Comme il &eacute;tait au commencement, maintenant et toujours, et dans les si&egrave;cles des si&egrave;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&eacute; R/. Seigneur, ayez piti&eacute;</td></tr>\n";
    $tenebres .= "<tr><td>V/. Christe eleison R/. Christe eleison</td>\n\r\n\t\t\t\t\t<td>V/. &Ocirc; Christ, ayez piti&eacute; R/. &Ocirc; Christ, ayez piti&eacute;</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&eacute; R/. Seigneur, ayez piti&eacute;</td></tr>\n";
    $tenebres .= "<tr><td>V/. Pater noster, qui es in c&aelig;lis,</td><td>V/. Notre P&egravere, qui es aux Cieux,</td></tr>\n\r\n\t\t\t<tr><td>sanctific&eacute;tur nomen tuum: adv&eacute;niat regnum tuum:</td><td>que ton nom soit sanctifi&eacute;; que ton r&egrave;gne arrive;</td></tr>\n\r\n\t\t\t<tr><td>fiat vol&uacute;ntas tua, sicut in c&aelig;lo et in terra.</td><td>que ta volont&eacute; soit faite au Ciel comme sur la terre.</td></tr>\n\r\n\t\t\t<tr><td>Panem nostrum quotidi&aacute;num da nobis h&oacute;die:</td><td>Donne-nous aujourd'hui notre pain quotidien,</td></tr>\n\r\n\t\t\t <tr><td>et dim&iacute;tte nobis d&eacute;bita nostra, sicut et nos dim&iacute;ttimus debit&oacute;ribus nostris:</td><td>et remets-nous nos dettes, comme nous les remettons nous-m&ecirc;mes &agrave; nos d&eacute;biteurs ;</td></tr>\n\r\n\t\t\t <tr><td>et ne nos ind&uacute;cas in tentati&oacute;nem</td><td>et ne nous abandonne pas dans l'&eacute;preuve, </td></tr>\r\n\t\t\t<tr><td>R/. sed l&iacute;bera nos a malo.</td><td>R/. mais d&eacute;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&oacute;minum nostrum Iesum Christum, F&iacute;lium tuum, qui tecum vivit et regnat in unit&aacute;te Sp&iacute;ritus Sancti, Deus, per &oacute;mnia s&aelig;cula s&aelig;cul&oacute;rum.", $oratiolat);
        $oratiofr .= " Par notre Seigneur J&eacute;sus-Christ, ton Fils, qui vit et r&egrave;gne avec toi dans l'unit&eacute; du Saint-Esprit, Dieu, pour tous les si&egrave;cles des si&egrave;cles.";
    }
    if (substr($oratiolat, -11) == " Qui tecum.") {
        $oratiolat = str_replace(" Qui tecum.", " Qui tecum vivit et regnat in unit&aacute;te Sp&iacute;ritus Sancti, Deus, per &oacute;mnia s&aelig;cula s&aelig;cul&oacute;rum.", $oratiolat);
        $oratiofr .= " Lui qui vit et r&egrave;gne avec toi dans l'unit&eacute; du Saint-Esprit, Dieu, pour tous les si&egrave;cles des si&egrave;cles.";
    }
    if (substr($oratiolat, -11) == " Qui vivis.") {
        $oratiolat = str_replace(" Qui vivis.", " Qui vivis et regnas cum Deo Patre in unit&aacute;te Sp&iacute;ritus Sancti, Deus, per &oacute;mnia s&aelig;cula s&aelig;cul&oacute;rum.", $oratiolat);
        $oratiofr .= " Toi qui vis et r&egrave;gnes avec Dieu le P&egrave;re dans l'unit&eacute; du Saint-Esprit, Dieu, pour tous les si&egrave;cles des si&egrave;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&eacute;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&acirc;ce &agrave; Dieu.</td></tr>\n";
    $tenebres .= "</table>";
    $tenebres = rougis_verset($tenebres);
    return $tenebres;
}
Exemplo n.º 4
0
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&egrave;tement disponible. Merci de bien vouloir patienter. <a href=\"nous_contacter./index.php\">Vous pouvez nous aider &agrave; compl&eacute;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&egrave;s les IIes V&ecirc;pres, aux  ", "Le Lundi aux ", "Le Mardi aux ", "Le Mercredi aux ", "Le Jeudi aux ", "Le Vendredi aux ", "Le Dimanche, apr&egrave;s les I&egrave;res V&ecirc;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&eacute;";
        $complies_lat = "Post I Vesperas, ad Completorium";
        $complies_fr = "Apr&egrave;s les I&egrave;res V&ecirc;pres, aux Complies";
        $date_l = $intitule_lat . "<br> Post I Vesperas, ad ";
        $date_fr = $intitule_fr . "<br> Apr&egrave;s les I&egrave;res V&ecirc;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&eacute;";
        $date_l = $intitule_lat . "<br> Post II Vesperas, ad ";
        $date_fr = $intitule_fr . "<br> Apr&egrave;s les IIes V&ecirc;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&uacute;ia, allel&uacute;ia, allel&uacute;ia.";
                    $antfr = "All&eacute;luia, all&eacute;luia, all&eacute;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&uacute;ia, allel&uacute;ia, allel&uacute;ia.";
                    $antfr = "All&eacute;luia, all&eacute;luia, all&eacute;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&uacute;ia, allel&uacute;ia, allel&uacute;ia.";
                        $antfr = "All&eacute;luia, all&eacute;luia, all&eacute;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&uacute;ia, allel&uacute;ia, allel&uacute;ia.";
                        $antfr = "All&eacute;luia, all&eacute;luia, all&eacute;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&eacute;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&oacute;mine, vigil&aacute;ntes, cust&oacute;di nos dormi&eacute;ntes, ut vigil&eacute;mus cum Christo et requiesc&aacute;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&uacute;ia.";
                    $magniffr .= " all&eacute;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&oacute;mine, hum&iacute;liter deprec&eacute;tur, ut, dom&oacute;nic&aelig; resurrecti&oacute;nis hac die myst&eacute;rio celebr&aacute;to, in pace tua sec&uacute;ri a malis &oacute;mnibus quiesc&aacute;mus, et in tua resurg&aacute;mus laude gaud&eacute;ntes. Per Christum D&oacute;minum nostrum.";
                    $oratiofr = "Notre voix te supplie humblement, Seigneur. Nous avons c&eacute;l&eacute;br&eacute; aujourd'hui le myst&egrave;re de la r&eacute;surrection du Seigneur : fais-nous reposer dans ta paix &agrave; 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;
}