@@ -171,18 +171,18 @@ function update_database () {

 }

 function write_comparaison () {

-

     result="comparaisons ${groupe[0]} avec ${groupe_ref:-GDR}${dossier:+ - ${dossier}}"

     content="/dev/shm/$result/content.xml"

-    id_cols="Scrutin Date Titre Adoption Panurgisme${nom:+ Participation Loyauté}"

-    typevotes=$(sqlite_request "select nom from votes")

-    nb_cols=$(( $(wc -w <<< $id_cols) + $(wc -w <<< $typevotes) * ${#groupe[@]} ))

+    id_cols=(Scrutin Date Scéance Titre Adoption Panurgisme${nom:+ Participation Loyauté} Dossier)

+    eval $(sqlite_request 'select printf("typevotes[%i]=%s;", id, nom) from votes')

+    nb_cols=$(( ${#id_cols[@]} + ${#typevotes[@]} * ${#groupe[@]} ))

     last_col=$(awk -v n=$nb_cols 'BEGIN{printf("%c%c", n < 27 ? "" : int(n/26) + 64, (n % 26) + (n % 26 == 0 ? 26 : 0) + 64)}' | tr -d '\0')

     function write_cell () {

         case $1 in

             url)

                 cell='<table:table-cell office:value-type="string" calcext:value-type="string">'

-                cell+="<text:p><text:a xlink:href=\"$2\" xlink:type=\"simple\">$3</text:a></text:p>";;

+                cell+="<text:p><text:a xlink:href=$2 xlink:type=\"simple\">$3</text:a></text:p>"

+                ;;

             texte)

                 cell='<table:table-cell office:value-type="string" calcext:value-type="string">'

                 cell+="<text:p>$2</text:p>"

@@ -250,10 +250,10 @@ EOcontent

     <table:calculation-settings table:automatic-find-labels="false"/>

     <table:table table:name="$result" table:style-name="ta1">

     <office:forms form:automatic-focus="false" form:apply-design-mode="false"/>

-    <table:table-column table:style-name="co1" table:number-columns-repeated="$(wc -w <<< $id_cols)" table:default-cell-style-name="Default"/>

+    <table:table-column table:style-name="co1" table:number-columns-repeated="${#id_cols[@]}" table:default-cell-style-name="Default"/>

 EOcontent

-    for i in $(seq $(wc -w <<< $typevotes)); do

+    for i in $(seq ${#typevotes[@]}); do

         cat >> "$content" << EOcontent

         <table:table-column table:style-name="co1" table:default-cell-style-name="ce1"/>

 EOcontent

@@ -266,11 +266,11 @@ EOcontent

     echo '<table:table-row table:style-name="ro1">' >> "$content"

     IFS=$IFS_

-    for colonne in $id_cols; do

+    for colonne in ${id_cols[@]}; do

         write_cell texte $colonne

     done

-    for typevote in $typevotes; do

+    for typevote in ${typevotes[@]}; do

         for g in "${groupe[@]}"; do

             write_cell texte "$typevote - $g"

         done

@@ -283,82 +283,96 @@ EOcontent

     line=1

     test -z "$seq" && qty=$(( $last - $first ))

     IFS=$'\n'

+    scrutin_base_url="https://www2.assemblee-nationale.fr/scrutins/detail/(legislature)/$mandature/(num)/"

     for scrutin in $(eval ${seq:-seq $first $last}); do

-        data=$(sqlite_request "select date,intitulé,adoption,url.url from scrutins inner join url on scrutins.url = url.id where num is $scrutin")

-        date=$(cut -d'|' -sf 1 <<< $data)

-        title=$(cut -d'|' -sf 2 <<< $data)

-        adoption=$(cut -d'|' -sf 3 <<< $data)

-        url=$(cut -d'|' -sf 4 <<< $data)

+        data=$(sqlite_request "select date,séance,intitulé,adoption,dossiers.url,dossiers.titre from scrutins left join dossiers on scrutins.dossier = dossiers.id where num is $scrutin" json)

+        date=$(jq -r '.[].date' <<< $data)

+        seance=$(jq -r '.[]."séance"' <<< $data)

+        title=$(jq -r '.[]."intitulé" | @html' <<< $data)

+        adoption=$(jq '.[].adoption' <<< $data)

+        dossier_url=$(jq '.[].url' <<< $data)

+        dossier_texte=$(jq -r '.[].titre | @html' <<< $data)

         test $adoption -eq 1 && adoption='oui' || adoption='non'

         echo '<table:table-row table:style-name="ro1">' >> "$content"

-        if test -n "$url"; then

-            write_cell url "$url" $scrutin

-        else

-            write_cell nombre $scrutin

-        fi

+        write_cell url   "\"$scrutin_base_url$scrutin\"" $scrutin

         write_cell texte "$date"

-        write_cell texte "${title//\'/'}"

+        write_cell texte "$seance"

+        write_cell texte "$title"

         write_cell texte "$adoption"

-        for typevote in $(seq 0 $(( $(wc -w <<< $typevotes) - 1 ))); do

+        for typevote in $(seq ${#typevotes[@]}); do

             vote_cible[$typevote]=$(sqlite_request "select

                                         count(député)

                                      from

-                                        dépouillement

+                                        dépouillements

+                                     inner join

+                                        députés, groupes

+                                     on

+                                        députés.groupe = groupes.id and dépouillements.député = députés.id

                                      where

                                         scrutin is $scrutin

                                      and

                                         vote is $typevote

                                      and

-                                        groupe is ${groupe_id[0]} ${nom:+ and député is ${nom%|*}}")

+                                        groupes.id = ${groupe_id[0]} ${nom:+ and députés.nom is \"${nom}\"}")

         done

-        if test \( ${vote_cible[0]} -gt ${vote_cible[1]} -a $adoption = oui \) \

-            -o  \( ${vote_cible[1]} -gt ${vote_cible[0]} -a $adoption = non \); then

-            panurge=1

+        if test \( ${vote_cible[1]} -gt ${vote_cible[2]} -a $adoption = oui \) \

+            -o  \( ${vote_cible[2]} -gt ${vote_cible[1]} -a $adoption = non \); then

+            panurge=oui

         else

-            panurge=0

+            panurge=non

         fi

-        write_cell nombre $panurge

+        write_cell texte $panurge

         if test -n "$nom"; then

-            for typevote in 0 1; do

+            for typevote in 1 2; do

                 votes_g0[$typevote]=$(sqlite_request "select

                                             count(député)

                                          from

-                                            dépouillement

+                                            dépouillements

+                                         inner join

+                                            députés, groupes

+                                         on

+                                            députés.groupe = groupes.id and dépouillements.député = députés.id

                                          where

                                             scrutin is $scrutin

                                          and

                                             vote is $typevote

                                          and

-                                            groupe is ${groupe_id[0]}")

+                                            groupes.id is ${groupe_id[0]}")

             done

-            participation=$(( vote_cible[0] + vote_cible[1] + vote_cible[2] + vote_cible[3] ))

-            if test $(( (${votes_g0[0]} - ${votes_g0[1]}) * (${vote_cible[0]} - ${vote_cible[1]}) )) -gt 0; then

-                loyaute=1

+            participation=$(( vote_cible[1] + vote_cible[2] + vote_cible[3] + vote_cible[4] ))

+            if test $(( (${votes_g0[1]} - ${votes_g0[2]}) * (${vote_cible[1]} - ${vote_cible[2]}) )) -gt 0; then

+                loyaute=oui

             else

-                loyaute=0

+                loyaute=non

             fi

             write_cell nombre $participation

-            write_cell nombre $loyaute

+            write_cell texte $loyaute

         fi

-        for typevote in $(seq 0 $(( $(wc -w <<< $typevotes) - 1 ))); do

+        write_cell url "${dossier_url/#null/\"\"}" "${dossier_texte/#null}"

+

+        for typevote in $(seq ${#typevotes[@]}); do

             write_cell nombre ${vote_cible[$typevote]}

             for (( g = 1; g < ${#groupe_id[@]}; g++ )); do

                 votes=$(sqlite_request "select

                                             count(député)

                                          from

-                                            dépouillement

+                                            dépouillements

+                                         inner join

+                                            députés, groupes

+                                         on

+                                            députés.groupe = groupes.id and dépouillements.député = députés.id

                                          where

                                             scrutin is $scrutin

                                          and

                                             vote is $typevote

                                          and

-                                            groupe is ${groupe_id[$g]}")

+                                            groupes.id is ${groupe_id[$g]}")

                 write_cell nombre $votes

             done

         done