= 10000) { header("Location: http://cancan.waglo.com/dataface/district/$d_id/"); die(); } } if (3 === count($keys) && ('district' === $keys[1])) { header("Location: http://cancan.waglo.com/dataface/{$keys[1]}/{$keys[2]}/", true, 301); die(); } begin($keys); if (isset($keys[1])) { if ('district' === $keys[0]) district_info($keys, $dbh); else party_and_province_info($keys, $dbh); } if (isset($keys[0])) { province_info($keys, $dbh); } main($keys, $dbh); echo "\n"; echo ''; function main($keys, $dbh) { $sql = 'select province, count(*) as c from parliament group by province order by c desc'; $so2 = $dbh->query($sql, PDO::FETCH_NUM); $so = $so2->fetchAll(); $sql = "select parties.name_fr, count(edid) as c, party_id from parliament, candidates, parties where edid=district_id and province=? and parties.id=party_id group by party_id order by c desc"; $ccpp = $dbh->prepare($sql); echo '
'; foreach ($so as $p) { $name = $p[0]; $count = $p[1]; $name_url = str_repeat('../', count($keys)) . urlencode($name) . '/'; echo "
$name ($count circonscriptions)
\n"; $ccpp->execute(array($name)); $candidates_counts = $ccpp->fetchAll(PDO::FETCH_NUM); foreach ($candidates_counts as $cc) { $party = $cc[0]; $party_url = $name_url . $cc[2] . '/'; $party_count = $cc[1]; echo "
$party ($party_count candidats)
\n"; } } echo '
'; } function party_and_province_info($keys, $dbh) { // got party and province $province = urldecode($keys[0]); echo "

$province

"; $province_db = $dbh->quote($province); $party_id = $keys[1]; $sql = "select edid,districts.name_fr as s, first_name,last_name,phone, parties.name_fr from parliament,candidates,parties,districts where districts.id=edid and province=$province_db and edid=district_id and parties.id=party_id and party_id=$party_id order by s"; $req = $dbh->query($sql, PDO::FETCH_NUM); $so = $req->fetchAll(); echo "

{$so[0][5]}

"; echo '
'; foreach ($so as $s) { echo "
{$s[1]}
\n"; echo "
{$s[2]} {$s[3]} {$s[4]}
\n"; } echo '
'; echo ''; die(); } function province_info($keys, $dbh) { // got province only $province_db = $dbh->quote($keys[0]); $sql = "select name_fr,edid,count(*) from parliament,districts,candidates where province=$province_db and districts.id=edid and edid=candidates.district_id group by edid order by name_fr"; $req = $dbh->query($sql, PDO::FETCH_NUM); $so = $req->fetchAll(); echo '
    '; foreach ($so as $s) echo "
  1. {$s[0]} ({$s[2]} candidats)
    2. \n"; echo '
'; echo ''; die(); } function candidate_results($edid) { $f = 'results-elections-canada-2008-utf8.csv'; $fp = fopen($f, 'r'); $ret = array(); while (false !== ($data = fgetcsv($fp, 500, "\t"))) { if ($data[0] != $edid) continue; $ret[] = $data; // $num = count($data); // echo "

$num fields in line $row:

\n"; // $row++; // for ($c=0; $c < $num; $c++) { // echo $data[$c] . "
\n"; // } } fclose($fp); return $ret; } function order_votes($a, $b) { if ($a[10] > $b[10]) return -1; if ($a[10] < $b[10]) return 1; return 0; } function district_info($keys, $dbh) { $edid = $keys[1]; $results = candidate_results($edid); $sql = "select * from candidates,parties where district_id=$edid and parties.id=party_id order by last_name"; $so = $dbh->query($sql, PDO::FETCH_NUM); $candidates_array = $so->fetchAll(); $sql = "select * from districts where id=$edid"; $so2 = $dbh->query($sql, PDO::FETCH_NUM); $districts_array = $so2->fetchAll(); $sql = "select * from wikipedia where edid=$edid and language='fr'"; $so3 = $dbh->query($sql, PDO::FETCH_NUM); $wikipedia_array = $so3->fetchAll(); $sql = "select * from parliament where edid=$edid"; $so4 = $dbh->query($sql, PDO::FETCH_NUM); $parliament_array = $so4->fetchAll(); $p = $parliament_array[0]; $province = $p[2]; echo "

{$districts_array[0][2]}

\n"; echo "

Parlement

\n"; echo "

{$p[4]} est {$p[5]} pour $province

"; echo "

Voir la circonscription {$districts_array[0][2]} ou la page du député actuel ({$p[4]}) sur le site du parlement canadien.

\n"; if (isset($wikipedia_array[0][1])) { $w_url = 'http://fr.wikipedia.org/wiki/' . $wikipedia_array[0][1]; $w_text = str_replace('_', ' ', urldecode($wikipedia_array[0][1])); echo "

Voir aussi $w_text sur wikipedia.

\n"; } $cand_name = str_replace("\n", ' ', $p[4]); list($n1, $n2) = explode(',', $cand_name); $n1 = trim($n1); $n2 = trim($n2); $cand_name_url = urlencode("{$n2}_{$n1}"); echo "

Candidats

\n"; echo '
    '; usort($results, 'order_votes'); $m1 = 0; foreach ($results as $r) { $status = $r[4]; $name = "{$r[7]} {$r[6]} {$r[5]}"; $party = $r[9]; $votes = $r[10]; $p_votes = $r[11]; $rejects = $r[12]; $total = $r[13]; if ($m1) echo "
  1. $name ($party) a reçu $votes votes ($p_votes) dont $rejects votes rejetés sur un total de $total ($status)
    2. "; else echo "
  2. $name ($party) a reçu $votes votes ($p_votes) pour être élu dont $rejects votes rejetés sur un total de $total ($status)
    3. "; ++$m1; } // echo '
    ';
//    print_r($results);
//    echo '
    '; /* foreach ($candidates_array as $c) { $style = "{$c[3]}, {$c[4]}" === $cand_name ? ' style="font-weight: bold"' : ''; echo "{$c[4]} {$c[5]} {$c[3]} est candidat pour {$c[9]} {$c[6]}\n"; } */ echo '
'; echo "

Liens supplémentaires

\n"; echo ''; echo ''; die(); } function begin($keys) { header('Content-Type: text/html;charset=utf-8'); echo<< {$keys[0]} / {$keys[1]} - Canada Elections 2008

Élections Canada 2008

Aller au menu principal de dataface.

Entrez un code postal : (via make the change).

Voir le billet Candidats 2008 des élections canadiennes sur le carnet de Robin Millette pour plus d'info, laisser un commentaire ou contacter le responsable de cancan.waglo.com. Source AGPL v3 et bases de données disponibles sur demande.

E_O_T; }