<?php
include "tete.php3";
$esp=chr(10);
$tab=chr(11);
?>


<H1>Estadisticas sobre las contribuciones</H1><br>
<?
include "st6.php3";


$totoweb=str_replace("$esp", "<br>", $totaux);
$totoweb=str_replace("$tab", "&nbsp; &nbsp; ", $totoweb);
echo "$totoweb <br>";



$conn=pg_pconnect("dbname=emecmistica user=postgres"); 
$tabes=array("0");
$taben=array("0");
$tabfr=array("0");
$tabpo=array("0");
$ces=0;
$cen=0;
$cfr=0;
$cpo=0;
$par1=0;
$par2=0;
$par3=0; 
$par4=0;
$par1_es=0;
$par1_en=0;
$par1_fr=0;
$par1_po=0;
$par2_esen=0;
$par2_esfr=0;
$par2_espo=0;
$par2_enfr=0;
$par2_enpo=0;
$par2_frpo=0;
$par3_esenfr=0;
$par3_esenpo=0;
$par3_esfrpo=0;
$par3_enfrpo=0;
$texto="";
$texto="$texto Los idiomas de suscripcion de los soci@s $esp $esp";
$querymem=pg_exec($conn, "select distinct id_miembro from members");
for ($w=0; $w<pg_numrows($querymem); $w++) {
$getmem=pg_fetch_row($querymem, $w);
$compteur_es=0;
$compteur_en=0;
$compteur_fr=0;
$compteur_po=0;
$quer2=pg_exec($conn, "select codigo_idioma from suscripcion where id_miembro='$getmem[0]' and fecha_unsuscripcion isnull");
for($a=0; $a<pg_numrows($quer2); $a++) {
$getidi=pg_fetch_row($quer2, $a);
if($getidi[0]=="es") {
$compteur_es=1;
}
if($getidi[0]=="en") {
$compteur_en=1;
}
if($getidi[0]=="fr") {
$compteur_fr=1;
}
if($getidi[0]=="po") {
$compteur_po=1;
}
}

$nbdelangues=$compteur_es+$compteur_en +$compteur_fr + $compteur_po;
$leslangues="$compteur_es"."$compteur_en"."$compteur_fr"."$compteur_po";
//echo "$getmem[0]: $nbdelangues<br>";

if ($nbdelangues==1) {
$par1++;
if ($leslangues=="1000") {
$par1_es++;
}
elseif ($leslangues=="0100") {
$par1_en++;
}
elseif($leslangues=="0010") {
$par1_fr++;
}
elseif($leslangues=="0001") {
$par1_po++;
}
}
elseif($nbdelangues==2) {
$par2++;
 if($leslangues=="1100") {
$par2_esen++;
}
elseif($leslangues=="1010") {
$par2_esfr++;
}
elseif($leslangues=="1001") {
$par2_espo++;
}
elseif($leslangues=="0110") {
$par2_enfr++;
}
elseif($leslangues=="0101") {
$par2_enpo++;
}
elseif($leslangues=="0011"){
$par2_frpo++;
}
}
elseif($nbdelangues==3) {
$par3++;
if ($leslangues=="1110") {
$par3_esenfr++;
}
elseif($leslangues=="1101") {
$par3_esenpo++;
}
elseif($leslangues=="1011") {
$par3_esfrpo++;
}
elseif($leslangues=="0111") {
$par3_enfrpo++;
}
}
}
echo "<H2>Personas suscritas a un idioma solamente</H2><br>";
echo "<table><tr><td>es</td><td>$par1_es</td></tr><tr><td>en</td><td>$par1_en</td></tr><tr><td>fr</td><td>$par1_fr</td></tr><tr><td>po</td><td>$par1_po</td></tr></table>";
echo "<H2>Personas suscritas a dos idiomas</H2><br>";
echo "<table>";

if ($par2_esen !=0) {
echo "<tr><td>es/en</td><td>$par2_esen</td></tr>";
}
if ($par2_esfr !=0) {
echo "<tr><td>es/fr</td><td>$par2_esfr</td></tr>";
}
if ($par2_espo !=0) {
echo "<tr><td>es/po</td><td>$par2_espo</td></tr>";
}
if ($par2_enfr !=0) {
echo "<tr><td>en/fr</td><td>$par2_enfr</td></tr>";
}
if ($par2_enpo !=0) {
echo "<tr><td>en/po</td><td>$par2_enpo</td></tr>";
}
if ($par2_frpo !=0) {
echo "<tr><td>fr/po</td><td>$par2_frpo</td></tr>";
}

echo "</table>";

echo "<br><H2>Personas suscritas a tres idiomas</H2><br>";
echo "<table><tr><td>es/en/fr</td><td>$par3_esenfr</td></tr><tr><td>es/en/po</td><td>$par3_esenpo</td></tr><tr><td>es/fr/po</td><td>$par3_esfrpo</td></tr><tr><td>en/fr/po</td><td>$par3_enfrpo</td></tr></table>";
$ouin=$par1+$par2+$par3;
$truc=pg_numrows($querymem);
$cuatroidiomas = ($truc) - ($ouin);
echo "<br><H2>Personas suscritas a cuatro idiomas</H2><br>";
echo"<table><tr><td> </td><td>$cuatroidiomas</td></tr></table>";

?>

