Ignore:
Timestamp:
Feb 5, 2011, 5:09:36 PM (10 years ago)
Author:
teymour
Message:

Non duplication des organisations

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/depute/parse_depute.pl

    r1775 r1776  
    2020sub infosgene {
    2121    $p = shift;
    22 print $p;
     22#print $p;
    2323    $t = $p->get_tag("li");
    2424    $depute{'Nom'} = $p->get_text("/li");
     
    115115                    $depute{'Debut_Mandat'} = $1;
    116116                }elsif ($orga !~ /^\s*$/) {
    117                     ${$depute{'Fonctions'}}{lc($orga)." / ".lc($fonction)." / ".$deb} = 1;
     117#                   ${$depute{'Fonctions'}}{lc($orga)." / ".lc($fonction)." / ".$deb} = 1;
     118                    $fonctions{lc($orga)} = lc($orga)." / ".lc($fonction)." / ".$deb;
    118119                }
    119120                $p->get_tag('/li');
    120121            }
    121122        }
     123    }
     124    foreach $orga (keys %fonctions) {
     125        ${$depute{'Fonctions'}}{$fonctions{$orga}} = 1;
    122126    }
    123127}
Note: See TracChangeset for help on using the changeset viewer.