Changeset 362 for trunk/client
- Timestamp:
- Mar 27, 2022, 7:51:34 PM (3 years ago)
- Location:
- trunk/client
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/client/modules.php
r345 r362 99 99 100 100 101 $dbi = new PDO("mysql:host=$dbhost;charset= latin1", $dbuname, $dbpass, array(PDO::ATTR_EMULATE_PREPARES => false,101 $dbi = new PDO("mysql:host=$dbhost;charset=utf8", $dbuname, $dbpass, array(PDO::ATTR_EMULATE_PREPARES => false, 102 102 PDO::ATTR_ERRMODE=>PDO::ERRMODE_EXCEPTION)); 103 103 $sql = "use $dbname"; 104 104 $dbi->exec($sql); 105 $sth = $dbi->prepare("SET SESSION character_set_connection = 'utf8' "); 106 $sth->execute(); 107 $sth = $dbi->prepare("SET SESSION character_set_client = 'utf8' "); 108 $sth->execute(); 109 $sth = $dbi->prepare("SET SESSION character_set_database = 'utf8' "); 110 $sth->execute(); 111 $sth = $dbi->prepare("SET CHARACTER SET utf8"); 112 $sth->execute(); 113 114 $sth = $dbi->prepare("SET NAMES 'utf8'"); 115 $sth->execute(); 105 116 106 117 # protezione csrf ottobre 2012 - by l.apolito -
trunk/client/modules/Elezioni/consiglieri.php
r357 r362 16 16 die(); 17 17 } 18 19 18 $param=strtolower($_SERVER['REQUEST_METHOD']) == 'get' ? $_GET : $_POST; 20 21 19 if (isset($param['gruppo'])) $gruppo=intval($param['gruppo']); else $gruppo=''; 22 20 if (isset($param['numgruppo'])) $numgruppo=intval($param['numgruppo']); else $numgruppo=''; 23 21 if (isset($param['listecol'])) $listecol=intval($param['listecol']); else $listecol=0; 24 25 22 $sql = "select id_conf,id_fascia from ".$prefix."_ele_cons_comune where id_cons='$id_cons'"; 26 23 $result = $dbi->prepare("$sql"); 27 24 $result->execute(); 28 29 25 list($id_conf,$fascia) = $result->fetch(PDO::FETCH_NUM); 30 31 26 $sql = "SELECT limite,consin,infpremio,supsbarramento,suppremio,listinfsbar,listinfconta,listsupconta,supminpremio,infminpremio from ".$prefix."_ele_conf where id_conf='$id_conf'"; 32 27 $res = $dbi->prepare("$sql"); 33 28 $res->execute(); 34 35 29 list($limite,$consin,$infpremio,$supsbarramento,$suppremio,$listinfsbar,$listinfconta,$listsupconta,$supminpremio,$infminpremio) = $res->fetch(PDO::FETCH_NUM); 36 30 $numcons=0; 37 38 31 echo "<table><tr><td align=\"center\">"._PROIEZCONS."</td></tr></table>"; 39 32 … … 362 355 } 363 356 364 365 366 357 function calcoloseggi($gruppi,$num_cons,$flag){ 367 358 global $ultimo,$mex,$sorteggio,$quozienti,$num_cand,$num_candlst; … … 477 468 478 469 function conssup($fascia,$gruppo,$collegate,$collperd,$primoturno) { 479 global $id_cons, $id_cons_gen, $id_comune, $prefix,$dbi;480 global $groups,$lists,$eletti,$ultimo,$quozienti,$num_candlst,$mex,$PNE,$CSEC,$consin;481 global $supsbarramento, $supminpremio, $suppremio;482 global $listsupconta,$numcons;483 #funzione di calcolo per comuni oltre 15.000 abitanti484 #carica il numero di consiglieri da eleggere$groups=array();485 $PNE=_PRIMONON;486 $CSEC=_SINDCONS;487 $lists=array();488 $eletti=array();489 $num_candlst=array();490 #$quozienti = array();491 $oldlists=array();492 $oldlstgrp=array();493 $premio=0;494 /* "Ai fini della determinazione nel secondo turno, della cifra elettorale complessiva delle liste collegate deve tenersi conto anche del collegamento intervenuto in vista del ballottaggio" (Cons. St. Sez. V 4 maggio 2001 n. 2519; 20 settembre 2000 n. 4894; 19 marzo 1996 n. 290)495 */496 497 if (!isset($_SESSION['ballo1'])) $_SESSION['ballo1']='';498 if (!isset($_SESSION['ballo2'])) $_SESSION['ballo2']='';499 $gruppoperd= ($gruppo==$_SESSION['ballo1']) ? $_SESSION['ballo2'] : $_SESSION['ballo1'];500 501 #per voti validi non si intendono i voti validi alle liste ma i voti validi espressi502 #$res_val = mysql_query("SELECT sum(validi_lista) from ".$prefix."_ele_sezioni where id_cons='$id_cons'",$dbi);503 $sql = "SELECT sum(voti) from ".$prefix."_ele_voti_gruppo where id_cons='$id_cons'";504 $res_val = $dbi->prepare("$sql");505 $res_val->execute();506 507 list($validi) = $res_val->fetch(PDO::FETCH_NUM);508 509 $sbarra=($validi*$supsbarramento)/100;510 $sql = "SELECT t1.descrizione,t1.num_gruppo,t2.id_lista,t2.num_lista,t2.descrizione,sum(t3.voti) as voti from ".$prefix."_ele_gruppo as t1, ".$prefix."_ele_lista as t2, ".$prefix."_ele_voti_lista as t3 where t1.id_cons='$id_cons' and t1.id_gruppo=t2.id_gruppo and t2.id_lista=t3.id_lista group by t1.descrizione,t1.num_gruppo,t2.num_lista,t2.descrizione order by voti desc";511 $res_per = $dbi->prepare("$sql");512 $res_per->execute();513 514 $groups=array();515 $premio=0;516 //10-05-2009 gestione differenziata delle norme elettorali517 #carica l'array dei gruppi e della cifra di gruppo518 while (list($descr,$num_gruppo,$id_lista,$num_lista,$descr_lista,$voti)= $res_per->fetch(PDO::FETCH_NUM)){519 if ($listsupconta or $voti>=$sbarra){520 521 522 523 524 525 526 527 }528 }470 global $id_cons, $id_cons_gen, $id_comune, $prefix,$dbi; 471 global $groups,$lists,$eletti,$ultimo,$quozienti,$num_candlst,$mex,$PNE,$CSEC,$consin; 472 global $supsbarramento, $supminpremio, $suppremio; 473 global $listsupconta,$numcons; 474 #funzione di calcolo per comuni oltre 15.000 abitanti 475 #carica il numero di consiglieri da eleggere$groups=array(); 476 $PNE=_PRIMONON; 477 $CSEC=_SINDCONS; 478 $lists=array(); 479 $eletti=array(); 480 $num_candlst=array(); 481 #$quozienti = array(); 482 $oldlists=array(); 483 $oldlstgrp=array(); 484 $premio=0; 485 /* "Ai fini della determinazione nel secondo turno, della cifra elettorale complessiva delle liste collegate deve tenersi conto anche del collegamento intervenuto in vista del ballottaggio" (Cons. St. Sez. V 4 maggio 2001 n. 2519; 20 settembre 2000 n. 4894; 19 marzo 1996 n. 290) 486 */ 487 488 if (!isset($_SESSION['ballo1'])) $_SESSION['ballo1']=''; 489 if (!isset($_SESSION['ballo2'])) $_SESSION['ballo2']=''; 490 $gruppoperd= ($gruppo==$_SESSION['ballo1']) ? $_SESSION['ballo2'] : $_SESSION['ballo1']; 491 492 #per voti validi non si intendono i voti validi alle liste ma i voti validi espressi 493 #$res_val = mysql_query("SELECT sum(validi_lista) from ".$prefix."_ele_sezioni where id_cons='$id_cons'",$dbi); 494 $sql = "SELECT sum(voti) from ".$prefix."_ele_voti_gruppo where id_cons='$id_cons'"; 495 $res_val = $dbi->prepare("$sql"); 496 $res_val->execute(); 497 498 list($validi) = $res_val->fetch(PDO::FETCH_NUM); 499 500 $sbarra=($validi*$supsbarramento)/100; 501 $sql = "SELECT t1.descrizione,t1.num_gruppo,t2.id_lista,t2.num_lista,t2.descrizione,sum(t3.voti) as voti from ".$prefix."_ele_gruppo as t1, ".$prefix."_ele_lista as t2, ".$prefix."_ele_voti_lista as t3 where t1.id_cons='$id_cons' and t1.id_gruppo=t2.id_gruppo and t2.id_lista=t3.id_lista group by t1.descrizione,t1.num_gruppo,t2.num_lista,t2.descrizione order by voti desc"; 502 $res_per = $dbi->prepare("$sql"); 503 $res_per->execute(); 504 505 $groups=array(); 506 $premio=0; 507 //10-05-2009 gestione differenziata delle norme elettorali 508 #carica l'array dei gruppi e della cifra di gruppo 509 while (list($descr,$num_gruppo,$id_lista,$num_lista,$descr_lista,$voti)= $res_per->fetch(PDO::FETCH_NUM)){ 510 if ($listsupconta or $voti>=$sbarra){ 511 if (! isset($groups[($num_gruppo)])) $groups[($num_gruppo)]=0; 512 $desgruppi[$num_gruppo]=$descr; 513 $desliste[$num_lista]=$num_lista.") ".$descr_lista; 514 $idlst[$num_lista]=$id_lista; 515 $listagruppo[$num_lista]=$num_gruppo; 516 $lists[$num_lista]=$voti; 517 $groups[($num_gruppo)]+=$voti; 518 } 519 } 529 520 ################### carica array ... 25 maggio 2014 530 foreach($collegate as $key=>$val){ 531 $sql = "SELECT id_gruppo from ".$prefix."_ele_lista where num_lista='$val' and id_cons='$id_cons'"; 532 $res = $dbi->prepare("$sql"); 533 $res->execute(); 534 521 foreach($collegate as $key=>$val){ 522 $sql = "SELECT id_gruppo from ".$prefix."_ele_lista where num_lista='$val' and id_cons='$id_cons'"; 523 $res = $dbi->prepare("$sql"); 524 $res->execute(); 535 525 list($tempig)=$res->fetch(PDO::FETCH_NUM); 536 526 $sql = "SELECT num_gruppo from ".$prefix."_ele_gruppo where id_gruppo='$tempig' and id_cons='$id_cons'"; 537 $res = $dbi->prepare("$sql"); 538 $res->execute(); 539 527 $res = $dbi->prepare("$sql"); 528 $res->execute(); 540 529 list($tempng)=$res->fetch(PDO::FETCH_NUM); 541 530 $grpinc[$val]=$tempng; 542 }531 } 543 532 $elencog=array(); 544 533 $sindseggiopre=array(); … … 547 536 foreach($testseggio as $testk=>$valk) { $sindseggiopre[]=$testk;} 548 537 ################## 549 $descrsind=$desgruppi[$gruppo]; 550 foreach ($groups as $key=>$val){ 551 #controlla se un gruppo di liste, tra quelle perdenti, ha superato il 50% 552 if ($key!=$gruppo and $val> $validi/2) $premio=2; 553 #elimina gruppi che non hanno superato lo sbarramento 554 if ($val<$sbarra){ 555 foreach ($listagruppo as $lst=>$grp) 556 if ($grp==$key){ 557 unset($listagruppo[$lst]); 558 unset($desliste[$lst]); 559 unset($lists[$lst]); 560 } 561 unset($groups[($key)]); 562 unset($desgruppi[($key)]); 563 564 } 565 } 566 538 $descrsind=$desgruppi[$gruppo]; 539 foreach ($groups as $key=>$val){ 540 #controlla se un gruppo di liste, tra quelle perdenti, ha superato il 50% 541 if ($key!=$gruppo and $val> $validi/2) $premio=2; 542 #elimina gruppi che non hanno superato lo sbarramento 543 if ($val<$sbarra){ 544 foreach ($listagruppo as $lst=>$grp) 545 if ($grp==$key){ 546 unset($listagruppo[$lst]); 547 unset($desliste[$lst]); 548 unset($lists[$lst]); 549 } 550 unset($groups[($key)]); 551 unset($desgruppi[($key)]); 552 553 } 554 } 567 555 foreach ($collegate as $lst) 568 556 if (isset($lists[$lst])){ … … 575 563 $groups[$gruppo]+=$lists[$lst]; 576 564 } 577 ////maggio 2011: da qui578 579 565 #controlla se la percentuale del gruppo vincente e' tra il 40 e il 60% o il sindaco e' eletto al secondo turno 580 566 #e se nessun altro gruppo ha superato il 50% assegna il premio di maggioranza 581 567 #e se nessun altro gruppo ha superato il 50% e nessuno ha ottenuto piu' del 60% dei seggi, assegna il premio di maggioranza 582 $consmin=$numcons; 583 $gruppomin=calcoloseggi($groups,$consmin,0); 584 $nopremio=1; 585 #die("qui:".($numcons*60/100)."<$val"); 586 if (($groups[$gruppo]>=(($validi*$supminpremio)/100) or ! $primoturno) and $groups[$gruppo]<(($validi*$suppremio)/100) and !$premio and $nopremio) $premio=1; 587 else $premio=0; 568 $consmin=$numcons; 569 $gruppomin=calcoloseggi($groups,$consmin,0); 570 $nopremio=1; 571 if (($groups[$gruppo]>=(($validi*$supminpremio)/100) or ! $primoturno) and $groups[$gruppo]<(($validi*$suppremio)/100) and !$premio and $nopremio) $premio=1; 572 else $premio=0; 588 573 $consel=array(); 589 574 $consel[]=array(_LISTA,_VOTI,_SEGGI,_CANDIDATO,_CIFRAELE,_QUOZIENTI); 590 $groupsappo=$groups;591 $candidati=array();592 $grpperd=$gruppoperd;575 $groupsappo=$groups; 576 $candidati=array(); 577 $grpperd=$gruppoperd; 593 578 //maggio 2011: a qui viene spostato in modo da aggiungere i voti di lista delle collegate per il perdente solo dopo aver controllato se supera il 50%, in questo modo si evita che il collegamento tra perdenti faccia decadere il premio di maggioranza se solo insieme superano il 50% 594 579 //maggio 2011: da qui 595 if(!isset($groups[$gruppoperd])) $groups[$gruppoperd]=0; 596 foreach ($collperd as $lst) 597 if (isset($lists[$lst])){ 598 $oldlstgrp[$lst]=$listagruppo[$lst]; 599 $listagruppo[$lst]=$gruppoperd; 600 $oldlists[$lst]=$lists[$lst]; 601 $groups[$gruppoperd]+=$lists[$lst]; 602 $groups[$oldlstgrp[$lst]]-=$lists[$lst]; 603 } 604 580 if(!isset($groups[$gruppoperd])) $groups[$gruppoperd]=0; 581 foreach ($collperd as $lst) 582 if (isset($lists[$lst])){ 583 $oldlstgrp[$lst]=$listagruppo[$lst]; 584 $listagruppo[$lst]=$gruppoperd; 585 $oldlists[$lst]=$lists[$lst]; 586 $groups[$gruppoperd]+=$lists[$lst]; 587 $groups[$oldlstgrp[$lst]]-=$lists[$lst]; 588 } 605 589 ////maggio 2011: a qui (mettendolo dopo Ú come se l'avessi tolto ma possono esserci altre implicazioni visto che si modificano le percentuali del gruppo, così per ora non lo tolgo) va tolto se non vanno sommati i voti delle liste collegate al secondo turno con quelli del gruppo che perde il ballottaggio, se non si collegano viene favorita l'elezione del candidato sindaco con cui era collegata al primo turno mentre se si collegano viene favorito il principio di aggregazione. Per ora i perdenti sono considerati con la situazione al primo turno. Implementiamo cosï¿œ: il 50% deve essere superato dalla minoranza nel primo turno, quindo senza somma dei voti delle liste aggiunte nel secondo turno - la suddivisione dei seggi viene fatta considerando i collegamenti al secondo turno, le liste collegate partecipano alla suddivisione dei seggi con questo gruppo quindi si confronta con le liste del gruppo in cui era al primo turno e valutando i coefficienti si stabilisce quale lista cede il seggio al candidato sindaco non acceduto al ballottaggio. 606 607 if ($premio) { 608 ######### 609 ################### carica array ... 610 /* $elencog=array(); 611 $sindseggiopre=array(); 612 foreach($groups as $testk=>$valk) if($testk!=$grpperd) {$elencog[$testk]=$valk;} 613 $testseggio=calcoloseggi($elencog,ceil($numcons*($suppremio)/100),0); 614 foreach($testseggio as $testk=>$valk) {if($valk) $sindseggio[]=$testk; echo "<br>testkpre: $testk - $valk";} 615 */#foreach ($gruppomin as $key=>$val) {if (($numcons*60/100)<$val) $nopremio=0;if($key!=$gruppo){echo "<br>gruppomin: $key -- $val";}} 616 ################## 590 if ($premio) { 617 591 ################### nell'array sindseggio vengono inseriti i candidati sindaco che restano senza seggio per gli apparentamenti 618 $elencog=array(); 619 $testseggio=array(); 620 $sindseggio=array(); 621 foreach($groups as $testk=>$valk) {if($testk!=$gruppo) $elencog[$testk]=$valk;} 622 $perdente[$gruppoperd]=$groups[$gruppoperd]; 623 $testseggio=calcoloseggi($elencog,floor($numcons-$numcons*($suppremio)/100),0); 624 foreach($testseggio as $testk=>$valk) 625 foreach($sindseggiopre as $testk=>$valk){ if(isset($testseggio[$valk]) and $testseggio[$valk]) continue; $sindseggio[$valk]=$valk;} #foreach ($sindseggiopre as $keyl=>$vall) echo "<br> seggi: $keyl - $vall"; 626 ########### 627 $sindaco[$gruppo]=$groups[$gruppo]; $groups[$gruppo]=0; 628 $gruppomag=calcoloseggi($sindaco,ceil($numcons*$suppremio/100),0); 592 $elencog=array(); 593 $testseggio=array(); 594 $sindseggio=array(); 595 foreach($groups as $testk=>$valk) {if($testk!=$gruppo) $elencog[$testk]=$valk;} 596 $perdente[$gruppoperd]=$groups[$gruppoperd]; 597 $testseggio=calcoloseggi($elencog,floor($numcons-$numcons*($suppremio)/100),0); 598 foreach($testseggio as $testk=>$valk) 599 foreach($sindseggiopre as $testk=>$valk){ if(isset($testseggio[$valk]) and $testseggio[$valk]) continue; $sindseggio[$valk]=$valk;} 600 $sindaco[$gruppo]=$groups[$gruppo]; $groups[$gruppo]=0; 601 $gruppomag=calcoloseggi($sindaco,ceil($numcons*$suppremio/100),0); 629 602 #######calcola i seggi per lista 630 foreach ($gruppomag as $key=>$val){ 631 foreach($listagruppo as $lst=>$grp){ 632 if($grp!=$key) continue; 633 $id_lista=$idlst[$lst]; 634 $x=$lst; 635 $y=$lists[$x]; 636 $pos=0; 637 $z=0; 638 $arvin[$x][$pos++]=$desliste[$lst]; 639 $sql = "SELECT concat(substring(concat('0',t1.num_cand),-2),') ',t1.cognome,' ',substring(t1.nome from 1 for 1),'.') as descr,sum(t2.voti) as voti from ".$prefix."_ele_candidati as t1, ".$prefix."_ele_voti_candidati as t2 where t1.id_lista='$id_lista' and t1.id_cand=t2.id_cand GROUP BY descr order by voti desc,t1.num_cand"; 640 $res_can = $dbi->prepare("$sql"); 641 $res_can->execute(); 642 643 $num_candlst[$x]=$res_can->rowCount(); 644 while(list($cand,$pre)=$res_can->fetch(PDO::FETCH_NUM)){ 645 $cifra[$x][$pos]=$y+$pre; 646 $arvin[$x][$pos++]=$cand; 647 } 648 $listemag[$x]=$y; 649 $desliste[$x]=$descr; 650 $percliste[$x]="<br/>$y (".number_format($y*100/$validi,2)."%)"; 651 $z++; 652 ## } 653 $seggimag=array(); 654 $x=0;#foreach($listemag as $kkk=>$vvv) echo "<br> listemag: $kkk - $vvv - $grp - $gruppo -val=$val"; 603 foreach ($gruppomag as $key=>$val){ 604 foreach($listagruppo as $lst=>$grp){ 605 if($grp!=$key) continue; 606 $id_lista=$idlst[$lst]; 607 $x=$lst; 608 $y=$lists[$x]; 609 $pos=0; 610 $z=0; 611 $arvin[$x][$pos++]=$desliste[$lst]; 612 $sql = "SELECT concat(substring(concat('0',t1.num_cand),-2),') ',t1.cognome,' ',substring(t1.nome from 1 for 1),'.') as descr,sum(t2.voti) as voti from ".$prefix."_ele_candidati as t1, ".$prefix."_ele_voti_candidati as t2 where t1.id_lista='$id_lista' and t1.id_cand=t2.id_cand GROUP BY descr order by voti desc,t1.num_cand"; 613 $res_can = $dbi->prepare("$sql"); 614 $res_can->execute(); 615 $num_candlst[$x]=$res_can->rowCount(); 616 while(list($cand,$pre)=$res_can->fetch(PDO::FETCH_NUM)){ 617 $cifra[$x][$pos]=$y+$pre; 618 $arvin[$x][$pos++]=$cand; 619 } 620 $listemag[$x]=$y; 621 $desliste[$x]=$descr; 622 $percliste[$x]="<br/>$y (".number_format($y*100/$validi,2)."%)"; 623 $z++; 624 $seggimag=array(); 625 $x=0; 655 626 #####25 maggio 2014 - il candidato sindaco non eletto ha diritto al seggio anche se di maggioranza 656 627 ### individua ultimi seggi assegnati a liste collegate 657 if($grp==$gruppo){ 658 $listdec =array(); 659 $seggitmp=calcoloseggi($listemag,$val,1); 660 foreach ($seggitmp as $keyl=>$vall){#echo "<br> lista: $vall - $keyl - $grp - $gruppo"; 661 if($vall==0) continue; 662 663 $sql = "SELECT id_gruppo from ".$prefix."_ele_lista where num_lista='$keyl' and id_cons='$id_cons'"; 664 $res = $dbi->prepare("$sql"); 665 $res->execute(); 666 667 list($tempig)=$res->fetch(PDO::FETCH_NUM); 668 $sql = "SELECT num_gruppo from ".$prefix."_ele_gruppo where id_gruppo='$tempig' and id_cons='$id_cons'"; 669 $res = $dbi->prepare("$sql"); 670 $res->execute(); 671 672 list($tempng)=$res->fetch(PDO::FETCH_NUM); #foreach ($sindseggio as $keyl=>$vall) echo "<br> listdecseggi: $keyl - $vall - $tempng"; 673 if (isset($sindseggio[$tempng])) {$listdec[$tempng][]=$keyl;} 674 # if (in_array($tempng,$sindseggio)) {$listdec[$tempng][]=$keyl;} 675 } 676 } 677 } 678 ########## 679 $seggimag=calcoloseggi($listemag,$val,1); 680 628 if($grp==$gruppo){ 629 $listdec =array(); 630 $seggitmp=calcoloseggi($listemag,$val,1); 631 foreach ($seggitmp as $keyl=>$vall){ 632 if($vall==0) continue; 633 $sql = "SELECT id_gruppo from ".$prefix."_ele_lista where num_lista='$keyl' and id_cons='$id_cons'"; 634 $res = $dbi->prepare("$sql"); 635 $res->execute(); 636 list($tempig)=$res->fetch(PDO::FETCH_NUM); 637 $sql = "SELECT num_gruppo from ".$prefix."_ele_gruppo where id_gruppo='$tempig' and id_cons='$id_cons'"; 638 $res = $dbi->prepare("$sql"); 639 $res->execute(); 640 list($tempng)=$res->fetch(PDO::FETCH_NUM); 641 if (isset($sindseggio[$tempng])) {$listdec[$tempng][]=$keyl;} 642 } 643 } 644 } 645 $seggimag=calcoloseggi($listemag,$val,1); 681 646 ####cerca ultimo seggio assegnato per gruppo di liste collegate al primo turno 682 foreach ($seggimag as $key2=>$val2){ if($val2==0) continue; 683 if(isset($grpinc[$key2])) { $tempng=$grpinc[$key2];} 684 if(isset($listdec[$tempng])) 685 foreach($listdec[$tempng] as $ark=>$arv) { 686 if(!isset($ultquoz[($sindseggio[$tempng])]) and $sindseggio[$tempng]) {$ultquoz[($sindseggio[$tempng])]=$quozienti[$arv][($val2-1)];$lastlist[$tempng]=$arv;} 687 elseif ($ultquoz[($sindseggio[$tempng])]>$quozienti[$arv][($val2-1)]) {$ultquoz[($sindseggio[$tempng])]=$quozienti[$arv][($val2-1)];$lastlist[($sindseggio[$tempng])]=$arv; 688 } 689 }} 690 691 foreach ($seggimag as $key2=>$val2){ 692 ## condizione per esclusione di un seggio da destinare al sindaco non eletto in_array($key2,$lastlist) 693 if(isset($lastlist)) 694 foreach($lastlist as $key3=>$val3){ 695 if($key2==$val3) { 696 $arappo=array_shift($arvin[$key2]);$tpmgrp=0; 697 array_unshift($arvin[$key2],$desgruppi[$key3]); array_unshift($arvin[$key2],$arappo);array_unshift($cifra[$key2],"--");array_unshift($cifra[$key2],"--"); 698 } 699 } 700 ## fine condizione - impostare variabile in db per differenziare il comportamento per consultazioni diverse 701 for ($z=0;$z<$val2;$z++){ 702 if ($z) $consel[]=array("","","",$arvin[$key2][($z+1)],$cifra[$key2][($z+1)],number_format($quozienti[$key2][$z],2)); 703 else 704 { 705 $consel[]=array($arvin[$key2][0],$percliste[$key2],$val2,$arvin[$key2][($z+1)],$cifra[$key2][($z+1)],number_format($quozienti[$key2][$z],2)); 706 $arlisdesv[]=$arvin[$key2][0];$arlissegv[]=$val2;$arlisnumv[]=$key2; 707 } 708 } 709 $x++; 710 if($val2) 711 $consel[]=array($arvin[$key2][0],"$PNE","",$arvin[$key2][($z+1)],$cifra[$key2][($z+1)],number_format($quozienti[$key2][$z],2)); 712 } 713 } 714 } 715 if ($premio) $consmin=floor($numcons*(100-$suppremio)/100); 716 else $consmin=$numcons; 717 647 foreach ($seggimag as $key2=>$val2){ 648 if($val2==0) continue; 649 if(isset($grpinc[$key2])) { $tempng=$grpinc[$key2];} 650 if(isset($listdec[$tempng])) 651 foreach($listdec[$tempng] as $ark=>$arv) { 652 if(!isset($ultquoz[($sindseggio[$tempng])]) and $sindseggio[$tempng]) {$ultquoz[($sindseggio[$tempng])]=$quozienti[$arv][($val2-1)];$lastlist[$tempng]=$arv;} 653 elseif ($ultquoz[($sindseggio[$tempng])]>$quozienti[$arv][($val2-1)]) 654 { 655 $ultquoz[($sindseggio[$tempng])]=$quozienti[$arv][($val2-1)];$lastlist[($sindseggio[$tempng])]=$arv; 656 } 657 } 658 } 659 foreach ($seggimag as $key2=>$val2){ 660 ## condizione per esclusione di un seggio da destinare al sindaco non eletto in_array($key2,$lastlist) 661 if(isset($lastlist)) 662 foreach($lastlist as $key3=>$val3){ 663 if($key2==$val3) { 664 $arappo=array_shift($arvin[$key2]);$tpmgrp=0; 665 array_unshift($arvin[$key2],$desgruppi[$key3]); array_unshift($arvin[$key2],$arappo);array_unshift($cifra[$key2],"--");array_unshift($cifra[$key2],"--"); 666 } 667 } 668 ## fine condizione - impostare variabile in db per differenziare il comportamento per consultazioni diverse 669 for ($z=0;$z<$val2;$z++){ 670 if ($z) $consel[]=array("","","",$arvin[$key2][($z+1)],$cifra[$key2][($z+1)],number_format($quozienti[$key2][$z],2)); 671 else 672 { 673 $consel[]=array($arvin[$key2][0],$percliste[$key2],$val2,$arvin[$key2][($z+1)],$cifra[$key2][($z+1)],number_format($quozienti[$key2][$z],2)); 674 $arlisdesv[]=$arvin[$key2][0];$arlissegv[]=$val2;$arlisnumv[]=$key2; 675 } 676 } 677 $x++; 678 if($val2) 679 $consel[]=array($arvin[$key2][0],"$PNE","",$arvin[$key2][($z+1)],$cifra[$key2][($z+1)],number_format($quozienti[$key2][$z],2)); 680 } 681 } 682 } 683 if ($premio) $consmin=floor($numcons*(100-$suppremio)/100); 684 else $consmin=$numcons; 718 685 #####calcolo per la minoranza o in caso non ci sia premio di maggioranza 719 $gruppomin=calcoloseggi($groups,$consmin,0);720 $ordinati[$gruppo]=$gruppomin[$gruppo];721 foreach ($gruppomin as $key=>$val){722 if($key!=$gruppo) $ordinati[$key]=$val;723 }724 $gruppomin=$ordinati;725 foreach ($gruppomin as $key=>$val){686 $gruppomin=calcoloseggi($groups,$consmin,0); 687 $ordinati[$gruppo]=$gruppomin[$gruppo]; 688 foreach ($gruppomin as $key=>$val){ 689 if($key!=$gruppo) $ordinati[$key]=$val; 690 } 691 $gruppomin=$ordinati; 692 foreach ($gruppomin as $key=>$val){ 726 693 if($premio and $key==$gruppo) continue; 727 $listemin=array(); 728 $cifra=array(); 729 foreach($listagruppo as $lst=>$grp){ 730 if($grp!=$key) continue; 731 732 $id_lista=$idlst[$lst]; 733 $x=$lst; 734 $y=$lists[$x]; 735 $pos=0; 736 $z=0; 737 $pos=0;$z=0; 738 if(!$premio and $key==$gruppo) $arvin[$x][$pos++]=$desliste[$lst]; 739 else $arper[$x][$pos++]=$desliste[$lst]; 740 $sql = "SELECT concat(substring(concat('0',t1.num_cand),-2),') ',t1.cognome,' ',substring(t1.nome from 1 for 1),'.') as descr,sum(t2.voti) as voti from ".$prefix."_ele_candidati as t1, ".$prefix."_ele_voti_candidati as t2 where t1.id_lista='$id_lista' and t1.id_cand=t2.id_cand GROUP BY descr order by voti desc,t1.num_cand"; 741 $res_can = $dbi->prepare("$sql"); 742 $res_can->execute(); 743 744 $num_candlst[$x]=$res_can->rowCount(); 745 while(list($cand,$pre)=$res_can->fetch(PDO::FETCH_NUM)) { 746 $cifra[$x][$pos]=$y+$pre; 747 if(!$premio and $key==$gruppo) 748 $arvin[$x][$pos++]=$cand; 749 else 750 $arper[$x][$pos++]=$cand; 751 } 752 $listemin[$x]=$y; 753 $desliste[$x]=$descr; 754 $percliste[$x]="<br/>$y (".number_format($y*100/$validi,2)."%)"; 755 } 756 $seggimin=array(); 757 echo "$mex"; 758 $ultimo=''; 759 760 $seggimin=calcoloseggi($listemin,$val,1); 761 echo "$mex";#foreach ($seggimin as $lista=>$valc) echo $seggimin[$lista]." key:$lista -val:$valc<br/>"; 762 if(!$premio and $key==$gruppo) 694 $listemin=array(); 695 $cifra=array(); 696 foreach($listagruppo as $lst=>$grp){ 697 if($grp!=$key) continue; 698 $id_lista=$idlst[$lst]; 699 $x=$lst; 700 $y=$lists[$x]; 701 $pos=0; 702 $z=0; 703 $pos=0;$z=0; 704 if(!$premio and $key==$gruppo) $arvin[$x][$pos++]=$desliste[$lst]; 705 else $arper[$x][$pos++]=$desliste[$lst]; 706 $sql = "SELECT concat(substring(concat('0',t1.num_cand),-2),') ',t1.cognome,' ',substring(t1.nome from 1 for 1),'.') as descr,sum(t2.voti) as voti from ".$prefix."_ele_candidati as t1, ".$prefix."_ele_voti_candidati as t2 where t1.id_lista='$id_lista' and t1.id_cand=t2.id_cand GROUP BY descr order by voti desc,t1.num_cand"; 707 $res_can = $dbi->prepare("$sql"); 708 $res_can->execute(); 709 $num_candlst[$x]=$res_can->rowCount(); 710 while(list($cand,$pre)=$res_can->fetch(PDO::FETCH_NUM)) { 711 $cifra[$x][$pos]=$y+$pre; 712 if(!$premio and $key==$gruppo) 713 $arvin[$x][$pos++]=$cand; 714 else 715 $arper[$x][$pos++]=$cand; 716 } 717 $listemin[$x]=$y; 718 $desliste[$x]=$descr; 719 $percliste[$x]="<br/>$y (".number_format($y*100/$validi,2)."%)"; 720 } 721 $seggimin=array(); 722 echo "$mex"; 723 $ultimo=''; 724 $seggimin=calcoloseggi($listemin,$val,1); 725 echo "$mex"; 726 if(!$premio and $key==$gruppo) 763 727 foreach ($seggimin as $lista=>$valc){ 764 $arper[$lista]=$arvin[$lista]; 765 } 766 /* for ($z=0;$z<$valc;$z++){ 767 if ($z) $consel[]=array("","","",$arvin[$lista][($z+1)],$cifra[$lista][($z+1)],$quozienti[$lista][$z]); 768 else $consel[]=array($arvin[$lista][0],$percliste[$lista],$valc,$arvin[$lista][($z+1)],$cifra[$lista][($z+1)],$quozienti[$lista][$z]); 769 } 770 } 771 $consel[]=array($arvin[$lista][0],"$PNE","",$arvin[$lista][($z+1)],$cifra[$lista][($z+1)],$quozienti[$lista][$z]); 772 }//else{ 773 */ 774 775 if ($val and $key!=$gruppo and $consin) {$conselsin[]=array("$CSEC",$desgruppi[$key]); $arcansin[]=$desgruppi[$key];} 776 foreach ($seggimin as $lista=>$val) 777 if(isset($oldlstgrp[$lista]) and !isset($oldseggi[$lista])) {$oldseggi[$lista]=$val; 778 } 728 $arper[$lista]=$arvin[$lista]; 729 } 730 if ($val and $key!=$gruppo and $consin) {$conselsin[]=array("$CSEC",$desgruppi[$key]); $arcansin[]=$desgruppi[$key];} 731 foreach ($seggimin as $lista=>$val) 732 if(isset($oldlstgrp[$lista]) and !isset($oldseggi[$lista])) {$oldseggi[$lista]=$val; 733 } 779 734 if($val==0){ 780 if($ultimo==''){ 781 foreach($oldlists as $lst=>$vot) 782 { 783 if (!isset($quozienti[$lst][($val)])) $quozienti[$lst][($val)]=$vot; 784 if ($oldlstgrp[$lst]!= $key or !isset($oldseggi[$lst]) or $oldseggi[$lst]==0) continue; 785 if($ultimo=='') $ultimo=$lst; 786 if($quozienti[$ultimo][($val)]==$last[$lst]) 735 if($ultimo==''){ 736 foreach($oldlists as $lst=>$vot) 787 737 { 738 if (!isset($quozienti[$lst][($val)])) $quozienti[$lst][($val)]=$vot; 739 if ($oldlstgrp[$lst]!= $key or !isset($oldseggi[$lst]) or $oldseggi[$lst]==0) continue; 740 if($ultimo=='') $ultimo=$lst; 741 if($quozienti[$ultimo][($val)]==$last[$lst]) 742 { 788 743 if($lists[$ultimo]==$lists[$lst] and $ultimo!=$lst) $mex="Per attribuire l'ultimo seggio Ú necessario un sorteggio tra la lista n. $ultimo e la lista n. $lst"; 789 elseif($lists[$ultimo]>$lists[$lst]) {$ultimo=$lst;$mex="";} 790 } 791 if ($quozienti[$ultimo][($val)]> $last[$lst]) {$ultimo=$lst;$mex="";} 792 }$lst=$ultimo; 793 if($ultimo and $consin){ 794 # if($conselb[$ttl[($lst-1)]][2]>1) $conselb[$ttl[($lst-1)]][2]--;else $conselb[$ttl[($lst-1)]][2]=''; 795 # $daunset[]=$tt[($lst-1)]; 796 if($conselb[$ttl[($lst)]][2]>1) $conselb[$ttl[($lst)]][2]--;else $conselb[$ttl[($lst)]][2]=''; 797 $daunset[]=$tt[($lst)]; 798 $conselsin[]=array("$CSEC",$desgruppi[$key]); 799 $arcansin[]=$desgruppi[$key]; 800 } 801 } 802 } 803 #if($key!=$gruppo){ 804 ############### 805 #foreach($collegate 806 foreach ($seggimin as $lista=>$val){ 807 if($ultimo==$lista and $key!=$gruppo and $consin) $val--; 808 } 809 ################ 810 foreach ($seggimin as $lista=>$val){ 811 if($ultimo==$lista and $key!=$gruppo and $consin) $val--; 812 813 814 for ($z=0;$z<$val;$z++){ 815 if ($z) $conselb[]=array("","","",$arper[$lista][($z+1)],$cifra[$lista][($z+1)],number_format($quozienti[$lista][$z],2)); 816 else{ 817 if(!isset($arper[$lista][($z+1)])) $arper[$lista][($z+1)]=0; 818 if(!isset($cifra[$lista][($z+1)])) $cifra[$lista][($z+1)]=0; 819 $conselb[]=array($arper[$lista][0],$percliste[$lista],$val,$arper[$lista][($z+1)],$cifra[$lista][($z+1)],number_format($quozienti[$lista][$z],2)); 820 $ttl[$lista]=(count($conselb)-1); 821 ######## 822 # echo "<br>".$tt[$lista]." arper --- $gruppo --$ultimo--$key--".$arper[$lista][0]; 823 } 824 } 825 if (isset($oldlists[$lista])) 826 { 827 $tt[$lista]=(count($conselb)-1); 828 if($z) $last[$lista]=$quozienti[$lista][($z-1)]; else $last[$lista]=0; 829 830 } 831 if($val){ 832 if(!isset($arper[$lista][($z+1)])) $arper[$lista][($z+1)]=0; 833 if(!isset($cifra[$lista][($z+1)])) $cifra[$lista][($z+1)]=0; 834 if(!isset($quozienti[$lista][$z])) $quozienti[$lista][$z]=0; 835 $conselb[]=array($arper[$lista][0],"$PNE","",$arper[$lista][($z+1)],$cifra[$lista][($z+1)],number_format($quozienti[$lista][$z],2)); 836 } 837 } 838 # }//chiude if $key 744 elseif($lists[$ultimo]>$lists[$lst]) {$ultimo=$lst;$mex="";} 745 } 746 if ($quozienti[$ultimo][($val)]> $last[$lst]) {$ultimo=$lst;$mex="";} 747 } 748 $lst=$ultimo; 749 if($ultimo and $consin){ 750 if($conselb[$ttl[($lst)]][2]>1) $conselb[$ttl[($lst)]][2]--;else $conselb[$ttl[($lst)]][2]=''; 751 $daunset[]=$tt[($lst)]; 752 $conselsin[]=array("$CSEC",$desgruppi[$key]); 753 $arcansin[]=$desgruppi[$key]; 754 } 755 } 756 } 757 foreach ($seggimin as $lista=>$val){ 758 if($ultimo==$lista and $key!=$gruppo and $consin) $val--; 759 } 760 foreach ($seggimin as $lista=>$val){ 761 if($ultimo==$lista and $key!=$gruppo and $consin) $val--; 762 for ($z=0;$z<$val;$z++){ 763 if ($z) $conselb[]=array("","","",$arper[$lista][($z+1)],$cifra[$lista][($z+1)],number_format($quozienti[$lista][$z],2)); 764 else{ 765 if(!isset($arper[$lista][($z+1)])) $arper[$lista][($z+1)]=0; 766 if(!isset($cifra[$lista][($z+1)])) $cifra[$lista][($z+1)]=0; 767 $conselb[]=array($arper[$lista][0],$percliste[$lista],$val,$arper[$lista][($z+1)],$cifra[$lista][($z+1)],number_format($quozienti[$lista][$z],2)); 768 $ttl[$lista]=(count($conselb)-1); 769 } 770 } 771 if (isset($oldlists[$lista])) 772 { 773 $tt[$lista]=(count($conselb)-1); 774 if($z) $last[$lista]=$quozienti[$lista][($z-1)]; else $last[$lista]=0; 775 } 776 if($val){ 777 if(!isset($arper[$lista][($z+1)])) $arper[$lista][($z+1)]=0; 778 if(!isset($cifra[$lista][($z+1)])) $cifra[$lista][($z+1)]=0; 779 if(!isset($quozienti[$lista][$z])) $quozienti[$lista][$z]=0; 780 $conselb[]=array($arper[$lista][0],"$PNE","",$arper[$lista][($z+1)],$cifra[$lista][($z+1)],number_format($quozienti[$lista][$z],2)); 781 } 782 } 839 783 }//chiude foreach gruppomin 840 # }841 784 echo "<table summary=\"Tabella dei consiglieri eletti\" class=\"table-docs\" cellspacing=\"0\" cellpadding=\"2\" border=\"1\" rules=\"all\">"; 842 785 echo "<tr class=\"bggray\"><td scope=\"row\"><b>"; 843 786 echo _SINDACO.": ".$desgruppi[$gruppo]."</b></td></tr></table>"; 844 787 if(isset($daunset)){ 845 if ((sort($daunset,SORT_NUMERIC))==false) echo "Errore di programma!";846 ELSE {847 $tmpda=array_reverse($daunset);848 foreach($tmpda as $key=>$val) {849 $conselb[$val][0]=$conselb[($val+1)][0];$conselb[$val][1]=$conselb[($val+1)][1];850 unset($conselb[($val+1)]);851 } 852 } 853 } #foreach($conselb as $key=>$val) if($val[2]) echo "$x) ".$val[0]."--".$val[2]."<br/>"; else echo "passa".$x++;788 if ((sort($daunset,SORT_NUMERIC))==false) echo "Errore di programma!"; 789 ELSE { 790 $tmpda=array_reverse($daunset); 791 foreach($tmpda as $key=>$val) { 792 $conselb[$val][0]=$conselb[($val+1)][0];$conselb[$val][1]=$conselb[($val+1)][1]; 793 unset($conselb[($val+1)]); 794 } 795 } 796 } 854 797 if (!$premio) 855 798 { … … 865 808 } 866 809 } 867 868 810 if (isset($conselsin)) foreach($conselsin as $key=>$val) 869 811 { … … 880 822 $consel[]=array($val[0],$val[1],$val[2],$val[3],$val[4],$val[5]); 881 823 } 882 883 // plotgraf($descrsind,$arlisdesv,$arlissegv,$arlisdesp,$arlissegp,$arcansin); // per grafico884 824 stampalista($consel); 885 825 unset($_SESSION['ballo1']);unset($_SESSION['ballo2']);unset($_SESSION['grp1']);unset($_SESSION['grp2']); 886 826 } 887 // Grafico 888 function plotgraf($descrsind,$arlisdes,$arlisseg,$arlisdesp,$arlissegp,$arcansin){ 889 //echo "sindaco: $descrsind<br/>"; 890 /* foreach($arlisdes as $key=>$val){ 891 echo "key:$key -- val:$val seggi:".$arlisseg[$key]."<br/>"; 892 } 893 echo "<br/><br/>"; 894 foreach($arlisdesp as $key=>$val){ 895 echo "key:$key -- val:$val seggi:".$arlissegp[$key]."<br/>"; 896 } */ 897 foreach($arlisdes as $key=>$val){ 898 if($arlisseg[$key]=='1') $vocale="o"; else $vocale=''; 899 900 $lista[]="$val \n [ ".$arlisseg[$key]." seggi".$vocale." ]"; 901 $seggin[]=$arlisseg[$key]." seggi".$vocale.""; 902 //echo "La lista $val ottiene ".$arlisseg[$key]." seggi.<br/>"; 903 } 904 foreach($arcansin as $val) { 905 $seggin[]="1 seggio"; 906 $arlisseg[]=1; 907 $lista[]=$val ."\n [ 1 seggio ]" ; 908 //echo "Il candidato sindaco $val e' eletto consigliere.<br/>"; 909 } 910 $sindaco=urlencode($descrsind); 911 912 $seggi=serialize($arlisseg); 913 $seggi=urlencode($seggi); 914 $seggin=serialize($seggin); 915 $seggin=urlencode($seggin); 916 $lista=serialize($lista); 917 $lista=urlencode($lista); 918 $title="Proiezione Composizione Consiglio Comunale"; 919 echo "<table><tr><td> 920 <img src='modules/Elezioni/grafici/consiglio.php?title=$title&seggi=$seggi&seggin=$seggin&lista=$lista&sindaco=$sindaco' alt=\"Grafico\" /></td></tr></table>"; 921 922 923 924 } 827 925 828 ?> -
trunk/client/temi/Futura2/function_theme.php
r335 r362 1238 1238 $res = $dbi->prepare("$sql"); 1239 1239 $res->execute(); 1240 list($tot_aventi) = $res->rowCount();1240 list($tot_aventi) = $res->fetch(PDO::FETCH_NUM); 1241 1241 1242 1242 $sql="select sum(t1.validi+t1.nulli+t1.bianchi+t1.contestati) as tot, … … 1250 1250 $res = $dbi->prepare("$sql"); 1251 1251 $res->execute(); 1252 list($tot_aventi) 1252 list($tot_aventi) = $res->fetch(PDO::FETCH_NUM); 1253 1253 $sql="SELECT sum(validi+nulli+bianchi+contestati) as tot, 1254 1254 sum(validi),sum(nulli),sum(bianchi),sum(contestati), id_gruppo, sum(si), sum(no) -
trunk/client/versione.php
r361 r362 1 1 <?php 2 2 3 $versione = "3.0 rev 36 1";3 $versione = "3.0 rev 362"; 4 4 $version_number = $versione; 5 $datarel = " 17 marzo 2022";5 $datarel = "27 marzo 2022"; 6 6 $version = "Eleonline $version_number (<i>Data Release: $datarel</i>)"; 7 7
Note:
See TracChangeset
for help on using the changeset viewer.