$nr_zm = 0;
$nr_stary = 0;
$bzm = $_GET['bzm'];
if(!$bzm)
$bzm=1;
require ("kard-list.ssi.php");
if($bzm==2)
{
$kards2 = array();
foreach($kards as $krd)
{
if($krd[4])
continue;
else
$kards2[]=$krd;
}
$kards=$kards2;
}
$nr_upr = $nr = count($kards); // ile kardynałów
setlocale(LC_COLLATE, "pl_PL.8859-2");
if($_GET['sort']>1)
$sortstr = "&sort=$sort";
?>
KOLEGIUM KARDYNAŁÓW
Oto pełny skład Kolegium Kardynałów prowadzony od 2001 r. Poszczególne pozycje oznaczają: liczbę porządkową, nazwisko (wersalikami) i imię kardynała, skrót zgromadzenia zakonnego (jeśli jest zakonnikiem), narodowość; daty — urodzenia, mianowania kardynałem i ew. śmierci. Kardynałowie, którzy przekroczyli 80. rok życia w dniu śmierci papieża nie są uprawnieni do brania udziału w Konklawe (tu wyróżniliśmy takim kolorem wszystkich kardynałów, którzy obchodzili 80 urodziny w $today=getdate(); echo $today['year']; ?> r. lub wcześniej). Na liście tej jest 24 purpuratów mianowanych kardynałami przez papieży przed Janem Pawłem II: jeden (Franz König z Austrii) przez Jana XXIII i 23 kreowanych przez Pawła VI; zdecydowana większość kardynałów została powołana do tej godności przez Jana Pawła II, Benedykta XVI i Papieża Franciszka.
Lp. |
">Nazwisko |
Imię, pochodzenie |
">Urodzony |
">Nominacja |
Zmarł (-)';
else echo'(+)';
?>
|
Informacje |
if (!$sort) // domyslnie sortowanie alfabetyczne
$sort = 1;
// sortowanie - przygotowanie tablic do sortowania
for ($i = 0; $i < $nr; $i++)
{
$nazwisko[$i] = $kards[$i][0];
// odwrócenie daty do formatu rrrr-mm-dd
if ( ereg( "([0-9]{1,2}).([0-9]{1,2}).([0-9]{4})", $kards[$i][2], $regs ) )
{
$m = $regs[2];
$d = $regs[1];
if ($d < 10)
$d = "0$d";
$y = $regs[3];
$data_ur[$i] = "$y-$m-$d";
}
if ( ereg( "([0-9]{1,2}).([0-9]{1,2}).([0-9]{4})", $kards[$i][3], $regs ) )
{
$m = $regs[2];
$d = $regs[1];
if ($d < 10)
$d = "0$d";
$y = $regs[3];
$data_nom[$i] = "$y-$m-$d";
}
}
switch ($sort)
{
case 1: // alfabetycznie
asort($nazwisko);
reset($nazwisko);
$posortowane = $nazwisko;
break;
case 2: // po dacie ur
asort($data_ur);
reset($data_ur);
$posortowane = $data_ur;
break;
case 3: // po dacie nom
asort($data_nom);
reset($data_nom);
$posortowane = $data_nom;
break;
}
$j = 0;
// data dzis przed 80 laty
$dzis_m = date("m");
$dzis_y = date("Y") - 80;
$dzis_d = date("d");
$eighty = "$dzis_y$dzis_m$dzis_d";
while (list($i, $v) = each($posortowane))
{
$trup = false; // może zyje
$nazw = $kards[$i][0];
$imie = $kards[$i][1];
$ur = $kards[$i][2];
$wybr = $kards[$i][3];
$smier = $kards[$i][4];
$nrkol = $j + 1;
// sprawdzenie czy żyje
if ($smier)
{
$nr_zm++; // ile zmarłych
$nr_upr--; // ile uprawnionych
$trup = true;
}
// sprawdzenie czy ma już 80 lat czyli
if ( ereg( "([0-9]{1,2}).([0-9]{1,2}).([0-9]{4})", $ur, $regs ) )
{
$month = $regs[2];
$day = $regs[1];
if (strlen($day) == 1)
$day = "0$day";
$year = $regs[3];
$urodzony = "$year$month$day";
if ($eighty >= $urodzony)
{
// za stary
$ur = "".$ur."";
if (!$trup)
$nr_upr = $nr_upr - 1;
}
}
$dodatk=$kards[$i][5];
$out="$nrkol | $nazw | $imie | $ur | $wybr | $smier | $dodatk |
";
echo $out;
$j++;
}
?>
W sumie kardynałów: echo $nr ?>, w tym żyjących: echo $nr-$nr_zm?>, uprawnionych do wyboru: echo $nr_upr?>
Kardynałowie zmarli w 2001 i w poprzednich latach:
opr. mg/mg na podstawie Gościa Niedzielnego, L'Osservatore Romano i materiałów własnych
include("/home/httpd/html/php/stopka.inc"); ?>