/[openfoncier]/trunk/obj/dossier.class.php
ViewVC logotype

Diff of /trunk/obj/dossier.class.php

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 142 by fraynaud, Tue Sep 27 14:52:41 2011 UTC revision 242 by fraynaud, Wed Nov 23 19:39:04 2011 UTC
# Line 52  class dossier extends dossier_gen { Line 52  class dossier extends dossier_gen {
52          unset ($this->valF['terrain_surface_calcul']);          unset ($this->valF['terrain_surface_calcul']);
53          unset ($this->valF['shon_calcul']);          unset ($this->valF['shon_calcul']);
54          unset ($this->valF['parcelle_archive']);          unset ($this->valF['parcelle_archive']);
55            unset ($this->valF['parcelle_lot_archive']);
56          unset ($this->valF['date_notification_delai']);          unset ($this->valF['date_notification_delai']);
57          unset ($this->valF['date_decision']);          unset ($this->valF['date_decision']);
58          unset ($this->valF['date_limite']);          unset ($this->valF['date_limite']);
# Line 73  class dossier extends dossier_gen { Line 74  class dossier extends dossier_gen {
74              include ("../dyn/var.inc");              include ("../dyn/var.inc");
75          if($numero_unique==1){          if($numero_unique==1){
76          // numero unique (voir dyn/var.inc)          // numero unique (voir dyn/var.inc)
77          $temp=$db->nextId($this->table);          $temp=$db->nextId(DB_PREFIXE.$this->table);
78          }else{          }else{
79          // numero suivant nature          // numero suivant nature
80          $temp=$db->nextId("dossier_".$this->nature);          $temp=$db->nextId(DB_PREFIXE."dossier_".$this->nature);
81          }          }
82          $temp=str_pad($temp,4,"0", STR_PAD_LEFT);          $temp=str_pad($temp,4,"0", STR_PAD_LEFT);
83          $this->valF['dossier'] = $this->valF['nature'].$this->valF['annee'].          $this->valF['dossier'] = $this->valF['nature'].$this->valF['annee'].
# Line 104  class dossier extends dossier_gen { Line 105  class dossier extends dossier_gen {
105          }          }
106          // regles travaux verification          // regles travaux verification
107          if ($this->valF['travaux']!=""){          if ($this->valF['travaux']!=""){
108              $sql= "select * from regle where id = '".$this->valF['travaux'].              $sql= "select * from ".DB_PREFIXE."regle where id = '".$this->valF['travaux'].
109              "' and controle = 'travaux' order by ordre";              "' and controle = 'travaux' order by ordre";
110              $res = $db->query($sql);              $res = $db->query($sql);
111               if (database :: isError($res)) die($res->getMessage().$sql);               if (database :: isError($res)) die($res->getMessage().$sql);
# Line 112  class dossier extends dossier_gen { Line 113  class dossier extends dossier_gen {
113              $regle=0;              $regle=0;
114              $msg="";              $msg="";
115              while ($row=& $res->fetchRow(DB_FETCHMODE_ASSOC)){              while ($row=& $res->fetchRow(DB_FETCHMODE_ASSOC)){
116                    if(isset($this->valF[$row['champ']]))
117                        $champvaleur=$this->valF[$row['champ']];
118                    else
119                        $champvaleur=0;
120                  switch ($row['operateur']) {                  switch ($row['operateur']) {
121                  case ">" :                  case ">" :
122                      if($row['sens']=="plus"){                      if($row['sens']=="plus"){
123                          if($this->valF[$row['champ']] > $row['valeur'])                          if($champvaleur > $row['valeur'])
124                              $condition = 1;                              $condition = 1;
125                          else                          else
126                              $condition = 0;                              $condition = 0;
# Line 124  class dossier extends dossier_gen { Line 129  class dossier extends dossier_gen {
129                          else                          else
130                              $regle=0;                              $regle=0;
131                          $msg=$msg."<br> + ".$row['message']." [".$row['champ']." = ".                          $msg=$msg."<br> + ".$row['message']." [".$row['champ']." = ".
132                          $this->valF[$row['champ']]."]";                                  $champvaleur."]";        
133                      }else{                      }else{
134                          if($this->valF[$row['champ']] > $row['valeur']){                          if($champvaleur > $row['valeur']){
135                              $condition = 0;                              $condition = 0;
136                          }else{                          }else{
137                              $condition = 1;                              $condition = 1;
138                              $regle=0;                              $regle=0;
139                          }                          }
140                          $msg=$msg."<br> ou ".$row['message']." [".$row['champ']." = ".                          $msg=$msg."<br> ou ".$row['message']." [".$row['champ']." = ".
141                          $this->valF[$row['champ']]."]";                          $champvaleur."]";
142                      }                      }
143                      break;                      break;
144                  case ">=":                  case ">=":
145                     if($row['sens']=="plus"){                      if($row['sens']=="plus"){
146                          if($this->valF[$row['champ']] >= $row['valeur'])                          if($champvaleur >= $row['valeur'])
147                              $condition = 1;                              $condition = 1;
148                          else                          else
149                              $condition = 0;                              $condition = 0;
# Line 147  class dossier extends dossier_gen { Line 152  class dossier extends dossier_gen {
152                          else                          else
153                              $regle=0;                              $regle=0;
154                          $msg=$msg."<br> + ".$row['message']." [".$row['champ']." = ".                          $msg=$msg."<br> + ".$row['message']." [".$row['champ']." = ".
155                          $this->valF[$row['champ']]."]";                          $champvaleur."]";
156                      }else{                      }else{
157                          if($this->valF[$row['champ']] >= $row['valeur']){                          if($champvaleur >= $row['valeur']){
158                              $condition = 0;                              $condition = 0;
159                        
160                          }else{                          }else{
# Line 157  class dossier extends dossier_gen { Line 162  class dossier extends dossier_gen {
162                              $regle=0;                              $regle=0;
163                          }                          }
164                          $msg=$msg."<br> ou ".$row['message']." [".$row['champ']." = ".                          $msg=$msg."<br> ou ".$row['message']." [".$row['champ']." = ".
165                          $this->valF[$row['champ']]."]";                          $champvaleur."]";
166                       }                      }
167                  break;                  break;
168                  case "<" :                  case "<" :
169                      if($row['sens']=="plus"){                      if($row['sens']=="plus"){
170                          if($this->valF[$row['champ']] < $row['valeur'])                          if($champvaleur < $row['valeur'])
171                              $condition = 1;                              $condition = 1;
172                          else                          else
173                              $condition = 0;                              $condition = 0;
# Line 171  class dossier extends dossier_gen { Line 176  class dossier extends dossier_gen {
176                          else                          else
177                              $regle=0;                              $regle=0;
178                          $msg=$msg."<br> + ".$row['message']." [".$row['champ']." = ".                          $msg=$msg."<br> + ".$row['message']." [".$row['champ']." = ".
179                          $this->valF[$row['champ']]."]";                          $champvaleur."]";
180                      }else{                      }else{
181                          if($this->valF[$row['champ']] < $row['valeur']){                          if($champvaleur < $row['valeur']){
182                              $condition = 0;                              $condition = 0;
183                          }else{                          }else{
184                              $condition = 1;                              $condition = 1;
185                              $regle=0;                              $regle=0;
186                          }                          }
187                          $msg=$msg."<br> et ".$row['message']." [".$row['champ']." = ".                          $msg=$msg."<br> et ".$row['message']." [".$row['champ']." = ".
188                              $this->valF[$row['champ']]."]";                              $champvaleur."]";
189                      }                      }
190                  break;                  break;
191                  case "==":                  case "==":
192                  if($row['sens']=="plus"){                      if($row['sens']=="plus"){
193                      if($this->valF[$row['champ']] == $row['valeur'])                          if($champvaleur == $row['valeur'])
194                          $condition = 1;                              $condition = 1;
195                      else                          else
196                          $condition = 0;                              $condition = 0;
197                      if($regle==1 or $condition == 1)                          if($regle==1 or $condition == 1)
198                          $regle=1;                              $regle=1;
199                      else                          else
200                          $regle=0;                              $regle=0;
201                      $msg=$msg."<br> + ".$row['message']." [".$row['champ']." = ".                          $msg=$msg."<br> + ".$row['message']." [".$row['champ']." = ".
202                      $this->valF[$row['champ']]."]";                          $champvaleur."]";
                 }else{  
                     if($this->valF[$row['champ']] == $row['valeur']){  
                         $condition = 0;  
         
203                      }else{                      }else{
204                          $condition = 1;                          if($champvaleur == $row['valeur']){
205                          $regle=0;                              $condition = 0;
206              
207                            }else{
208                                $condition = 1;
209                                $regle=0;
210                            }
211                            $msg=$msg."<br> ou ".$row['message']." [".$row['champ']." = ".
212                            $champvaleur."]";
213                      }                      }
                     $msg=$msg."<br> ou ".$row['message']." [".$row['champ']." = ".  
                     $this->valF[$row['champ']]."]";  
                 }  
                 break;  
214                  break;                  break;
215                    //break;
216                  } // switch                  } // switch
217                  if($regle==0)                  if($regle==0)
218                      $this->addToMessage(" <br><br>");                      $this->addToMessage($msg." <br>");
219              } // while              } // while
220          } // travaux          } // travaux
221      }//verifier      }//verifier
# Line 223  class dossier extends dossier_gen { Line 228  class dossier extends dossier_gen {
228              if($maj==0) $form->setType('dossier', 'hidden');              if($maj==0) $form->setType('dossier', 'hidden');
229              $form->setType('annee', 'hidden');              $form->setType('annee', 'hidden');
230              $form->setType('nature', 'hidden');              $form->setType('nature', 'hidden');
231              $form->setType('parcelle_archive','hidden');              $form->setType('parcelle_archive','hidden');
232                $form->setType('parcelle_lot_archive','hidden');
233              $form->setType('objet_dossier','hidden'); // PC              $form->setType('objet_dossier','hidden'); // PC
234              $form->setType('amenagement','hidden'); // PC              $form->setType('amenagement','hidden'); // PC
235              $form->setType('parcelle_lot','hidden'); // PC              $form->setType('parcelle_lot','hidden'); // PC
# Line 408  class dossier extends dossier_gen { Line 414  class dossier extends dossier_gen {
414                  $form->setVal('accord_tacite', 'Non');                  $form->setVal('accord_tacite', 'Non');
415                  $form->setVal('etat', 'initialiser');                  $form->setVal('etat', 'initialiser');
416                  $form->setVal('types', 'Initial');                  $form->setVal('types', 'Initial');
                 $form->setVal("saisie_architecte","saisie3()");  
             }else{  
                 $form->setVal("saisie_architecte","saisie3()");  
417             }             }
418          }          }
419      }      }
# Line 739  class dossier extends dossier_gen { Line 742  class dossier extends dossier_gen {
742          $form->setLib('parcelle_lot','');          $form->setLib('parcelle_lot','');
743          $form->setLib('parcelle_lot_lotissement',' '._('lotissement').' : ');          $form->setLib('parcelle_lot_lotissement',' '._('lotissement').' : ');
744          $form->setLib('parcelle_lot_numero',' '._('no').' : ');          $form->setLib('parcelle_lot_numero',' '._('no').' : ');
745            $form->setLib('sig',' '._('verrou').' '._('sig').' : ');
746                    
747          // zones temp          // zones temp
748          include ("../dyn/var.inc");          include ("../dyn/var.inc");
# Line 866  class dossier extends dossier_gen { Line 870  class dossier extends dossier_gen {
870      function triggerajouterapres($id,&$db,$val,$DEBUG) {      function triggerajouterapres($id,&$db,$val,$DEBUG) {
871          $this->sig_parametre($db);          $this->sig_parametre($db);
872          $id=$this->valF['dossier']; // id n est pas valorise en ajout          $id=$this->valF['dossier']; // id n est pas valorise en ajout
873          if($this->sig==1 ){          if($this->sig==1 and $val['sig']!='Oui'){
874              if($val['parcelle']!=''or $val['parcelle_lot']!='')              if($val['parcelle']!=''or $val['parcelle_lot']!='')
875                  $this->sig_interne($id,&$db,$val,$DEBUG);                  $this->sig_interne($id,&$db,$val,$DEBUG);
876              else              else
# Line 877  class dossier extends dossier_gen { Line 881  class dossier extends dossier_gen {
881      function triggermodifierapres($id,&$db,$val,$DEBUG) {      function triggermodifierapres($id,&$db,$val,$DEBUG) {
882          $this->sig_parametre($db);          $this->sig_parametre($db);
883          // si la parcelle est changée          // si la parcelle est changée
884          if(($this->sig==1 and $val['parcelle']!=$val['parcelle_archive'])          if(($this->sig==1 and $val['sig']!='Oui' and ($val['parcelle']!=$val['parcelle_archive'])
885             or $val['parcelle_lot']!=''){ // parcelle_lot_archive             or $val['parcelle_lot']!=$val['parcelle_lot_archive'])){ // parcelle_lot_archive
886              if($val['parcelle']!='' or $val['parcelle_lot']!='')              if($val['parcelle']!='' or $val['parcelle_lot']!='')
887                  $this->sig_interne($this->valF['dossier'],&$db,$val,$DEBUG);                  $this->sig_interne($this->valF['dossier'],&$db,$val,$DEBUG);
888              else              else
# Line 931  class dossier extends dossier_gen { Line 935  class dossier extends dossier_gen {
935          // Strategy interne dans var.inc          // Strategy interne dans var.inc
936          // si la parcelle existe, il est cree un point au milieu de la parcelle          // si la parcelle existe, il est cree un point au milieu de la parcelle
937          // de maniere automatique          // de maniere automatique
938            $geom='';
939            $parcelle=$val["parcelle"];
940          $projection = $db -> getOne("select srid from geometry_columns where f_table_name='dossier'");          $projection = $db -> getOne("select srid from geometry_columns where f_table_name='dossier'");
941          if($this->auto_parcelle==1)          if($this->auto_parcelle==1  and $val["parcelle"]!=''){
942              $sql= "select astext(centroid(geom)) from parcelle where parcelle ='".$val["parcelle"]."'";              $sql= "select astext(centroid(geom)) from ".DB_PREFIXE."parcelle where parcelle ='".$val["parcelle"]."'";
943          $this->addToLog("recherche centroid parcelle :".$sql, VERBOSE_MODE);              $this->addToLog("recherche centroid parcelle :".$sql, VERBOSE_MODE);
944          $geom = $db -> getOne($sql);              $geom = $db -> getOne($sql);
945          if (database :: isError($geom))die($res->getMessage()."erreur ".$sql);              if (database :: isError($geom))die($res->getMessage()."erreur ".$sql);
946          if($geom!='' and $this_auto_parcelle_lot==1){ // parcelle          }
947              $sql= "select astext(centroid(geom)) from parcelle where parcelle ='".$val["parcelle_lot"]."'";          if($geom=='' and $this->auto_parcelle_lot==1 and $val["parcelle_lot"]!=''){ // lot
948                $sql= "select astext(centroid(geom)) from ".DB_PREFIXE."parcelle_lot where parcelle_lot ='".$val["parcelle_lot"]."'";
949              $this->addToLog("recherche centroid parcelle lot :".$sql, VERBOSE_MODE);              $this->addToLog("recherche centroid parcelle lot :".$sql, VERBOSE_MODE);
950              $geom = $db -> getOne($sql);              $geom = $db -> getOne($sql);
951              if (database :: isError($geom))die($res->getMessage()."erreur ".$sql);              if (database :: isError($geom))die($res->getMessage()."erreur ".$sql);
952                $parcelle=$val["parcelle_lot"]." ".$val["parcelle_lot_lotissement"];
953          }          }
954            
955          if($geom!=''){ // la parcelle est exitante dans la table ou vue parcelle          if($geom!=''){ // la parcelle est exitante dans la table ou vue parcelle
956              $sql ="update dossier set geom =geometryfromtext('".$geom."', ".$projection." ) where dossier ='".$id."'";              $sql ="update ".DB_PREFIXE."dossier set geom =geometryfromtext('".$geom."', ".$projection." ) where dossier ='".$id."'";
957              $this->addToLog("sig_interne maj geom  :".$sql, VERBOSE_MODE);                  $this->addToLog("sig_interne maj geom  :".$sql, VERBOSE_MODE);    
958              $res = $db -> query($sql);              $res = $db -> query($sql);
959              if (database :: isError($res)){              if (database :: isError($res)) die($res->getMessage()."erreur ".$sql);
960                  die($res->getMessage()."erreur ".$sql);              $this->addToMessage(""._("centroid de parcelle calcule")." ".$parcelle." ");
             }else{  
                 $this->addToMessage(""._("centroid de parcelle calculé")." ".$val["parcelle"]." ");  
             }  
961              if($this->auto_pos==1) // recherche du pos              if($this->auto_pos==1) // recherche du pos
962                  $this->calcul_auto_pos($id,$db,$geom,$projection);                  $this->calcul_auto_pos($id,$db,$geom,$projection);
963              if($this->auto_servitude_surfacique==1) // recherche de servitude surfacique              if($this->auto_servitude_surfacique==1) // recherche de servitude surfacique
# Line 961  class dossier extends dossier_gen { Line 967  class dossier extends dossier_gen {
967              if($this->auto_servitude_point==1) // recherche de servitude point              if($this->auto_servitude_point==1) // recherche de servitude point
968                  $this->calcul_auto_servitude_point($id,$db,$geom,$projection);                  $this->calcul_auto_servitude_point($id,$db,$geom,$projection);
969              $temp=strtr($this->servitude,"'"," "); // enleve le '              $temp=strtr($this->servitude,"'"," "); // enleve le '
970              $sql1 ="update dossier set servitude = '".$temp."' where dossier = '".$id."'";              $sql1 ="update ".DB_PREFIXE."dossier set servitude = '".$temp."' where dossier = '".$id."'";
971              $res1 = $db -> query($sql1);              $res1 = $db -> query($sql1);
972              $this->addToLog("maj servitudes :".$sql1, VERBOSE_MODE);              $this->addToLog("maj servitudes :".$sql1, VERBOSE_MODE);
973              if (database:: isError($res1)) die($res1->getMessage()."erreur ".$sql1);              if (database:: isError($res1)) die($res1->getMessage()."erreur ".$sql1);
974          }else{ // parcelle inexistante          }else{ // parcelle inexistante
975              if($this->maj ==1){ // en maj mettre a null la geometrie si parcelle changée inexistante              if($this->maj ==1){ // en maj mettre a null la geometrie si parcelle changée inexistante
976                  $sql ="update dossier set geom = null where dossier ='".$id."'";                  $sql ="update ".DB_PREFIXE."dossier set geom = null where dossier ='".$id."'";
977                  $res = $db -> query($sql);                  $res = $db -> query($sql);
978                  $this->addToLog("requete sig_interne maj parcelle inexistante :".$sql, VERBOSE_MODE);                  $this->addToLog("requete sig_interne maj parcelle inexistante :".$sql, VERBOSE_MODE);
979                  if (database :: isError($res))                  if (database :: isError($res))
980                      die($res->getMessage()."erreur ".$sql);                      die($res->getMessage()."erreur ".$sql);
981              }              }
982              $this->addToMessage("<br> parcelle ".$val["parcelle"]." "._("inexistante")." ".$id."");              $this->addToMessage("<br> parcelle ".$parcelle." "._("inexistante")." ".$id."");
983          }          }
984      }      }
985    
986      function calcul_auto_pos($id,&$db,$geom,$projection){      function calcul_auto_pos($id,&$db,$geom,$projection){
987          // recherche du pos automatique          // recherche du pos automatique
988          $sql="select pos from pos  WHERE ST_contains(geom,  geometryfromtext('".$geom."', ".$projection."))";          $sql="select pos from ".DB_PREFIXE."pos  WHERE ST_contains(geom,  geometryfromtext('".$geom."', ".$projection."))";
989          $pos = $db -> getOne($sql);          $pos = $db -> getOne($sql);
990          $this->addToLog("recherche auto_pos :".$sql, VERBOSE_MODE);          $this->addToLog("recherche auto_pos :".$sql, VERBOSE_MODE);
991          if($pos!=''){          if($pos!=''){
992              $sql1 ="update dossier set pos = '".$pos."' where dossier = '".$id."'";              $sql1 ="update ".DB_PREFIXE."dossier set pos = '".$pos."' where dossier = '".$id."'";
993              $res1 = $db -> query($sql1);              $res1 = $db -> query($sql1);
994              $this->addToLog("maj auto_pos :".$sql1, VERBOSE_MODE);              $this->addToLog("maj auto_pos :".$sql1, VERBOSE_MODE);
995              if (database:: isError($res1)) die($res1->getMessage()."erreur ".$sql1);              if (database:: isError($res1)) die($res1->getMessage()."erreur ".$sql1);
# Line 995  class dossier extends dossier_gen { Line 1001  class dossier extends dossier_gen {
1001    
1002      function calcul_auto_servitude_surfacique($id,&$db,$geom,$projection){      function calcul_auto_servitude_surfacique($id,&$db,$geom,$projection){
1003          // recherche servitude surfacique          // recherche servitude surfacique
1004          $sql="select * from servitude_surfacique WHERE ST_contains(geom,  geometryfromtext('".$geom."', ".$projection."))";          $sql="select * from ".DB_PREFIXE."servitude_surfacique WHERE ST_contains(geom,  geometryfromtext('".$geom."', ".$projection."))";
1005          $res=$db->query($sql);          $res=$db->query($sql);
1006          if (database:: isError($res)) die($res1->getMessage()."erreur ".$sql);          if (database:: isError($res)) die($res1->getMessage()."erreur ".$sql);
1007          $this->addToLog("requete  :".$sql." executee ", VERBOSE_MODE);          $this->addToLog("requete  :".$sql." executee ", VERBOSE_MODE);
# Line 1007  class dossier extends dossier_gen { Line 1013  class dossier extends dossier_gen {
1013    
1014      function calcul_auto_servitude_ligne($id,&$db,$geom,$projection){      function calcul_auto_servitude_ligne($id,&$db,$geom,$projection){
1015          // recherche servitude ligne          // recherche servitude ligne
1016          $distance=100;          $sql="select * from ".DB_PREFIXE."servitude_ligne WHERE ST_contains(ST_buffer(geom, perimetre),  geometryfromtext('".$geom."', ".$projection."))";
         $sql="select * from servitude_ligne WHERE ST_contains(ST_buffer(geom, ".$distance."),  geometryfromtext('".$geom."', ".$projection."))";  
1017          $res=$db->query($sql);          $res=$db->query($sql);
1018          if (database:: isError($res)) die($res1->getMessage()."erreur ".$sql);          if (database:: isError($res)) die($res1->getMessage()."erreur ".$sql);
1019          $this->addToLog("requete  :".$sql." executee ", VERBOSE_MODE);          $this->addToLog("requete  :".$sql." executee ", VERBOSE_MODE);
# Line 1020  class dossier extends dossier_gen { Line 1025  class dossier extends dossier_gen {
1025    
1026      function calcul_auto_servitude_point($id,&$db,$geom,$projection){      function calcul_auto_servitude_point($id,&$db,$geom,$projection){
1027          // recherche servitude point          // recherche servitude point
1028          $distance=500; // monuments historiques          $sql="select libelle,observation, perimetre, distance(geom, geometryfromtext('".$geom."', ".$projection.")) as distance from ".
1029          $sql="select libelle,observation, distance(geom, geometryfromtext('".$geom."', ".$projection.")) as distance from servitude_point WHERE distance(geom,  geometryfromtext('".$geom."', ".$projection."))<".$distance."";              DB_PREFIXE."servitude_point WHERE distance(geom,  geometryfromtext('".$geom."', ".$projection."))<perimetre";
1030          $res=$db->query($sql);          $res=$db->query($sql);
1031          if (database:: isError($res)) die($res1->getMessage()."erreur ".$sql);          if (database:: isError($res)) die($res1->getMessage()."erreur ".$sql);
1032          $this->addToLog("requete  :".$sql." executee ", VERBOSE_MODE);          $this->addToLog("requete  :".$sql." executee ", VERBOSE_MODE);
1033          while ($row=& $res->fetchRow(DB_FETCHMODE_ASSOC)){          while ($row=& $res->fetchRow(DB_FETCHMODE_ASSOC)){
1034              $this->addToMessage("<br>"._("servitude")." : ".$row['libelle']." - *** ".$row['observation'])." a ".round($row['distance'],2)." m ";              $this->addToMessage("<br>"._("servitude")." : ".$row['libelle']." - ".$row['observation']." a ".round($row['distance'],2)." m ");
1035              $this->servitude.="  [".$row['libelle']."] ".$row['observation']." a ".round($row['distance'],2)." m - ";              $this->servitude.="  [".$row['libelle']."] ".$row['observation']." a ".round($row['distance'],2)." m - ";
1036         }         }
1037      }      }

Legend:
Removed from v.142  
changed lines
  Added in v.242

[email protected]
ViewVC Help
Powered by ViewVC 1.1.26