PageRenderTime 60ms CodeModel.GetById 20ms RepoModel.GetById 0ms app.codeStats 1ms

/class.xmodtif.inc

https://github.com/jcplat/console-seolan
PHP | 2176 lines | 1984 code | 79 blank | 113 comment | 402 complexity | eebb76002582b2a3971ed6957c3c1918 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, GPL-3.0, Apache-2.0, BSD-3-Clause

Large files files are truncated, but you can click here to view the full file

    

  1. <?php
    2. 

  2. class XModTif extends XModTable{
    3. 

  3.   public $submodmax=20;
    4. 

  4.   public $oiddc;                  // oid de la ressource en cours
    5. 

  5.   public $NSURI;                  // NS principal des XML TiF
    6. 

  6.   public $prefixSQL;              // Prefix SQL sur les tables du module (TiF1_, TiF2_ ...)
    7. 

  7.   public $alreadyexport=array(); 
    8. 

  8.   public $structparam=array();    // Paramètres sur la structure des granules => renseigner dans prepareParam
    9. 

  9.   public $idlist=array();
    10. 

  10.   public $acttype='';             // Indique le type d'import en cours (ACVS, GITD...)
    11. 

  11.   public $tzrns='';
    12. 

  12.   private $_cache=array();        // Cache du module
    13. 

  13.   public $TiFTables=array("CAPAGLOB","DMULTIMEDIA","DCONTACT","DADRESSE","DPERSONNE","DMOYENCOM","INFOLEG","DCLASSEMENT","DGEOLOC","ZONES",
    14. 

  14. 			  "DPOINT","DCOOR","DENV","DCARTE","DACCES","DPERIODE","DDATE","DJOURS","JOURS","HORAIRES","DCLIENTELES","DCLIENT",
    15. 

  15. 			  "USAGE","DMODERESA","CAPACAPA","CAPASUP","DCAPAPREST","DCAPAUNIT","DDISP","DOFFREPRESTA","DPRESTA","DTARIF",
    16. 

  16. 			  "DDESCRCOMP","DITI","DPLANNING","DPRESTAPLA","JOURPLA","PRESTLIEE");
    17. 

  17.   public $withCodeAttr=array('table'  =>  array('DC'),
    18. 

  18. 			     'target'  =>  array('LS_Communes','LS_ZoneNoms','LS_Pays'));
    19. 

  19.   
    20. 

  20.   // Propriétés ACVS
    21. 

  21.   public $ACVSUrl='http://www.acvsnet.net/SI-ACVS/WebServices';
    22. 

  22.   public $ACVSFile='ACVSWebServices.asmx';
    23. 

  23.   public $ACVSFileWSDL='ACVSWebServices.asmx?WSDL';
    24. 

  24.   public $ACVSNSUri='http://www.acvsnet.net/tif3acvs/';
    25. 

  25.   public $ACVSEnvUris='xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"';
    26. 

  26.   public $ACVSLogin;
    27. 

  27.   public $ACVSPwd;
    28. 

  28.   public $ACVSFilter;
    29. 

  29. 

  30.   // Propriétés GITD
    31. 

  31.   public $GITDUrl='http://extranet.hautes-alpes.net/publication?WSDL';
    32. 

  32.   public $GITDUrlDomain='http://webservice.hautes-alpes.net';
    33. 

  33.   public $GITDLogin;
    34. 

  34.   public $GITDPwd;
    35. 

  35.   public $GITDFilter;
    36. 

  36. 

  37.   // Propriétés SITRA
    38. 

  38.   public $SITRANSUri='';
    39. 

  39.   public $SITRADirs='';
    40. 

  40.   public $SITRAExportFileRegex='/^\([0-9]+\)_ListeOI_([a-z]+)_([0-9]{8}_[0-9]{6})\.xml$/i';
    41. 

  41.   public $SITRADelFileRegex='/^\([0-9]+\)_DEL_ListeOI_([0-9]{8}_[0-9]{6})\.xml$/i';
    42. 

  42.   public $SITRAImagesFileRegex='/^\([0-9]+\)_ImagesOI_([0-9]{8}_[0-9]{6})\.zip$/i';
    43. 

  43.   public $SITRASelectionsFileRegex='/^\([0-9]+\)_Selections_([0-9]{8}_[0-9]{6})\.xml$/i';
    44. 

  44. 

  45.   function __construct($ar=NULL){
    46. 

  46.     parent::__construct($ar);
    47. 

  47.     if(in_array('ACVS',$this->type)) $this->TiFTables[]="MODESPAIEMENT";
    48. 

  48.   }
    49. 

  49. 

  50.   /// securite des fonctions accessibles par le web
    51. 

  51.   function secGroups($function, $group=NULL) {
    52. 

  52.     $g=array();
    53. 

  53.     $g['importNomenclature']=array('admin');
    54. 

  54.     $g['ACVSImport']=array('rwv','admin','none');
    55. 

  55.     $g['GITDImport']=array('rwv','admin','none');
    56. 

  56.     $g['GITDCheckService']=array('none');
    57. 

  57.     $g['SITRAImport']=array('rwv','admin','none');
    58. 

  58.     $g['exportTiF']=array('rwv','admin','none');
    59. 

  59. 

  60.     if(isset($g[$function])) {
    61. 

  61.       if(!empty($group)) return in_array($group, $g[$function]);
    62. 

  62.       return $g[$function];
    63. 

  63.     }
    64. 

  64.     return parent::secGroups($function,$group);
    65. 

  65.   }
    66. 

  66. 

  67.   public function initOptions() {
    68. 

  68.     parent::initOptions();
    69. 

  69.     $this->_options->setOpt('Prefix SQL des tables', 'prefixSQL', 'text');
    70. 

  70.     $this->_options->setOpt('Type de la structure', 'type', 'multiplelist', array('values'  =>  array('','ACVS','GITD','SITRA'),
    71. 

  71. 										  'labels'  =>  array('---','ACVS','GITD','SITRA')));
    72. 

  72.     
    73. 

  73.     $this->_options->setOpt('ACVS : Login', 'ACVSLogin', 'text');
    74. 

  74.     $this->_options->setOpt('ACVS : Password', 'ACVSPwd', 'text');
    75. 

  75.     $this->_options->setOpt('ACVS : Filtre', 'ACVSFilter', 'text', array('rows' => 6,'cols' => 80));
    76. 

  76. 

  77.     $this->_options->setOpt('GITD : Login', 'GITDLogin', 'text');
    78. 

  78.     $this->_options->setOpt('GITD : Password', 'GITDPwd', 'text');
    79. 

  79.     $this->_options->setOpt('GITD : Filtre', 'GITDFilter', 'text', array('rows' => 6,'cols' => 80));
    80. 

  80. 

  81.     $this->_options->setOpt('SITRA : Répertoires', 'SITRADirs', 'text', array('rows' => 6,'cols' => 80));
    82. 

  82.   }
    83. 

  83. 

  84.   protected function _actionlist(&$my) {
    85. 

  85.     parent::_actionlist($my);
    86. 

  86.     $myclass=get_class($this);
    87. 

  87.     $moid=$this->_moid;
    88. 

  88.     $o1=new XModuleAction($this,'deletewithtable',XLabels::getSysLabel('xmodtif','deletewithtable','text'),
    89. 

  89.                           'class='.$myclass.'&moid='.$moid.'&_function=delete&template=proc.html&withtable=1');
    90. 

  90.     $o1->needsconfirm=true;
    91. 

  91.     $my['deletewithtable']=$o1;
    92. 

  92.   }
    93. 

  93.   
    94. 

  94.   /// Suppression de tous les modules lié à TiF
    95. 

  95.   function delete($ar){
    96. 

  96.     global $XSHELL;
    97. 

  97. 

  98.     $p=new XParam($ar,array('tplentry' => ''));
    99. 

  99.     $withtable=$p->get('withtable');
    100. 

  100.     if(!empty($withtable)){
    101. 

  101.       $tplentry=$p->get('tplentry');
    102. 

  102.       $message=parent::delete(array('tplentry' => TZR_RETURN_DATA));
    103. 

  103.       $rs=selectQuery('select MOID from MODULES where MPARAM like "%<field name=\"table\" type=\"%\"><value>'.
    104. 

  104. 		       '<![CDATA['.$this->prefixSQL.'%]]></value></field>%" order by MOID');
    105. 

  105.       while($rs && ($ors=$rs->fetch())){
    106. 

  106. 	$mod=XModule::objectFactory($ors['MOID']);
    107. 

  107. 	$message.=$mod->delete(array('tplentry'=>TZR_RETURN_DATA));
    108. 

  108.       }
    109. 

  109.       $rs=selectQuery('select BTAB from BASEBASE where BTAB LIKE "'.$this->prefixSQL.'LS_%"');
    110. 

  110.       while($rs && ($ors=$rs->fetch())){
    111. 

  111. 	$xbase=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS='.$ors['BTAB']);
    112. 

  112. 	$ret=$xbase->procDeleteDataSource(array('tplentry' => TZR_RETURN_DATA));
    113. 

  113. 	$message.=$ret['message'];
    114. 

  114.       }
    115. 

  115.       return XShell::toScreen2($tplentry,'message',$message);
    116. 

  116.     }else{
    117. 

  117.       return parent::delete($ar);
    118. 

  118.     }
    119. 

  119.   }
    120. 

  120. 

  121.   /// Efface toutes les fiches liés à la ressource
    122. 

  122.   function del($ar) {
    123. 

  123.     $p=new XParam($ar,array());
    124. 

  124.     $oid=$p->get('_selected');
    125. 

  125.     $selectedok=$p->get('_selectedok');
    126. 

  126.     if(($selectedok!='ok') || empty($oid)) $oid=$p->get('oid');
    127. 

  127.     if(!is_array($oid)) $oid=array($oid => 1);
    128. 

  128.     if(!empty($oid)){
    129. 

  129.       $oid=array_keys($oid);
    130. 

  130.       $oid_list = '"'.implode('","',$oid).'"';
    131. 

  131.       foreach($this->TiFTables as $table) {
    132. 

  132.         updateQuery('delete from '.$this->prefixSQL.$table.' where  tzr_dc in ('.$oid_list.')');
    133. 

  133.       }
    134. 

  134.       updateQuery('delete from '.$this->xset->getTable().' where KOID in ('.$oid_list.')');
    135. 

  135.     }
    136. 

  136.   }
    137. 

  137. 

  138.   /// Prepare les paramètres des différents granules pour l'import/export
    139. 

  139.   function prepareParam(){
    140. 

  140.     if(empty($this->_cache['gparam-'.$this->acttype])){
    141. 

  141.       $gparam=array();
    142. 

  142.       //--- DC
    143. 

  143.       $gparam['dc']=array(
    144. 

  144.           'DC' => array(
    145. 

  145.               'balisegroup' => NULL,
    146. 

  146.               'balises' => array(
    147. 

  147.                   'DublinCore' => array(
    148. 

  148.                       'table' => 'DC','delNS' => false,'oidfield' => 'dc:identifier',
    149. 

  149.                       'updfield' => 'dcterms:modified',
    150. 

  150.                       'ar' => array('tzr_type' => $this->acttype),
    151. 

  151.                                     'notexport' => array('ModePaiement','ObservationModePaiement',
    152. 

  152.                                                          'ObservationModePaiement',
    153. 

  153.                                                          'CapacitesGlobales')))));
    154. 

  154.       //--- Multimedia
    155. 

  155.       $gparam['mu']=array('MU' => array('balisegroup' => 'Multimedia',
    156. 

  156. 				      'balises' => array('DetailMultimedia' => array('table' => 'DMULTIMEDIA','fssm' => 'tzr_lie',
    157. 

  157. 										 'notexport' => array('URL_url','URL_img')))));
    158. 

  158.       //--- Contact
    159. 

  159.       $param=array('MC' => array('balisegroup' => 'MoyensCommunications',
    160. 

  160. 			       'balises' => array('DetailMoyenCom' => array('table' => 'DMOYENCOM','fssm' => 'tzr_lie'))));
    161. 

  161.       $param=array('PE' => array('balisegroup' => 'Personnes',
    162. 

  162. 			       'balises' => array('DetailPersonne' => array('table' => 'DPERSONNE','fssm' => 'tzr_lie','ssm' => $param))));
    163. 

  163.       $param=array('AD' => array('balisegroup' => 'Adresses',
    164. 

  164. 			       'balises' => array('DetailAdresse' => array('table' => 'DADRESSE','fssm' => 'tzr_lie','ssm' => $param))));
    165. 

  165.       $gparam['co']=array('CO' => array('balisegroup' => 'Contacts',
    166. 

  166. 				      'balises' => array('DetailContact' => array('table' => 'DCONTACT','fssm' => 'tzr_lie','ssm' => $param))));
    167. 

  167.       $param=array('CT' => array('balisegroup' => 'Contact',
    168. 

  168. 				      'balises' => array('DetailContact' => array('table' => 'DCONTACT','fssm' => 'tzr_lie','ssm' => $param))));
    169. 

  169.       $gparam['sg']=array('SG' => array('balisegroup' => NULL,
    170. 

  170. 				      'balises' => array('StructureGestion' => array('table' => 'STRGESTION','fssm' => 'tzr_lie','ssm' => $param))));
    171. 

  171.       $gparam['si']=array('SI' => array('balisegroup' => NULL,
    172. 

  172. 				      'balises' => array('StructureInformation' => array('table' => 'STRINFO','fssm' => 'tzr_lie','ssm' => $param))));
    173. 

  173.       //--- Informations légales
    174. 

  174.       $gparam['il']=array('IL' => array('balisegroup' => NULL,
    175. 

  175. 				      'balises' => array('InformationsLegales' => array('table' => 'INFOLEG','fssm' => 'tzr_lie'))));
    176. 

  176.       //--- Classement
    177. 

  177.       $gparam['cl']=array('Classement' => array('balisegroup' => 'Classements',
    178. 

  178. 					      'balises' => array('DetailClassement' => array('table' => 'DCLASSEMENT','fssm' => 'tzr_lie'))));
    179. 

  179.       //--- Geoloc
    180. 

  180.       $param=array('CO' => array('balisegroup' => 'Coordonnees',
    181. 

  181. 			       'balises' => array('DetailCoordonnees' => array('table' => 'DCOOR','fssm' => 'tzr_lie'))),
    182. 

  182. 		   'EN' => array('balisegroup' => 'Environnements',
    183. 

  183. 			       'balises' => array('DetailEnvironnement' => array('table' => 'DENV','fssm' => 'tzr_lie'))),
    184. 

  184. 		   'CA' => array('balisegroup' => 'Cartes',
    185. 

  185. 			       'balises' => array('DetailCarte' => array('table' => 'DCARTE','fssm' => 'tzr_lie'))),
    186. 

  186. 		   'AC' => array('balisegroup' => 'Acces',
    187. 

  187. 			       'balises' => array('DetailAcces' => array('table' => 'DACCES','fssm' => 'tzr_lie'))),
    188. 

  188. 		   'MU' => array('balisegroup' => 'Multimedia',
    189. 

  189. 			       'balises' => array('DetailMultimedia' => array('table' => 'DMULTIMEDIA','fssm' => 'tzr_lie',
    190. 

  190. 									  'ar' => array('tzr_ispoint' => 1)))));
    191. 

  191.       $param=array('PO' => array('balisegroup' => 'Points',
    192. 

  192. 			       'balises' => array('DetailPoint' => array('table' => 'DPOINT','fssm' => 'tzr_lie','ssm' => $param))));
    193. 

  193.       $param=array('ZO' => array('balisegroup' => NULL,
    194. 

  194. 			       'balises' => array('Zone' => array('table' => 'ZONES','fssm' => 'tzr_lie','ssm' => $param))));
    195. 

  195.       $gparam['ge']=array('GE' => array('balisegroup' => 'Geolocalisations',
    196. 

  196. 				      'balises' => array('DetailGeolocalisation' => array('table' => 'DGEOLOC','fssm' => 'tzr_lie',
    197. 

  197. 										      'ssm' => $param))));
    198. 

  198.       //--- Periode
    199. 

  199.       $param=array('HO' => array('balisegroup' => NULL,
    200. 

  200. 			       'balises' => array('Horaires' => array('table' => 'HORAIRES','fssm' => 'tzr_lie'))));
    201. 

  201.       $param=array('JO' => array('balisegroup' => NULL,
    202. 

  202. 			       'balises' => array('Jour' => array('table' => 'JOURS','fssm' => 'tzr_lie','ssm' => $param))));
    203. 

  203.       $param=array('DJ' => array('balisegroup' => 'Jours',
    204. 

  204. 			       'balises' => array('DetailJours' => array('table' => 'DJOURS','fssm' => 'tzr_lie','ssm' => $param))));
    205. 

  205.       $param=array('DA' => array('balisegroup' => 'Dates',
    206. 

  206. 			       'balises' => array('DetailDates' => array('table' => 'DDATE','fssm' => 'tzr_lie','ssm' => $param))));
    207. 

  207.       $gparam['pe']=array('PE' => array('balisegroup' => 'Periodes',
    208. 

  208. 				      'balises' => array('DetailPeriode' => array('table' => 'DPERIODE','fssm' => 'tzr_lie','ssm' => $param))));
    209. 

  209.       //--- Clientele
    210. 

  210.       $param=array('DC' => array('balisegroup' => NULL,
    211. 

  211. 			       'balises' => array('DetailClient' => array('table' => 'DCLIENT','fssm' => 'tzr_lie'))));
    212. 

  212.       $gparam['cli']=array('CL' => array('balisegroup' => 'Clienteles',
    213. 

  213. 				       'balises' => array('DetailClienteles' => array('table' => 'DCLIENTELES','fssm' => 'tzr_lie',
    214. 

  214. 										  'ssm' => $param))));
    215. 

  215.       //--- Langues
    216. 

  216.       $gparam['la']=array('LA' => array('balisegroup' => 'Langues',
    217. 

  217. 				      'balises' => array('Usage' => array('table' => 'USAGE','fssm' => 'tzr_lie'),
    218. 

  218. 						       'ListeLangues' => array('table' => 'LISTELANGUES','fssm' => 'tzr_lie'))));
    219. 

  219.       //--- Mode resa
    220. 

  220.       $gparam['mr']=array('MO' => array('balisegroup' => 'ModesReservations',
    221. 

  221. 				      'balises' => array('DetailModeReservation' => array('table' => 'DMODERESA','fssm' => 'tzr_lie',
    222. 

  222. 										      'ssm' => $gparam['co']))));
    223. 

  223.       //--- Capacité sup
    224. 

  224.       $gparam['cs']=array('CS' => array('balisegroup' => NULL,
    225. 

  225. 				      'balises' => array('Capacite' => array('table' => 'CAPACAPA','fssm' => 'tzr_lie','direct' => true),
    226. 

  226. 						       'Superficie' => array('table' => 'CAPASUP','fssm' => 'tzr_lie','direct' => true))));
    227. 

  227.       //--- Capacité presta
    228. 

  228.       $gparam['cp']=array('CP' => array('balisegroup' => 'CapacitesPrestations',
    229. 

  229. 				      'balises' => array('DetailCapacitePrestation' => array('table' => 'DCAPAPREST','fssm' => 'tzr_lie',
    230. 

  230. 											 'ssm' => $gparam['cs']))));
    231. 

  231.       //--- Capacité unité
    232. 

  232.       $param=array('DD' => array('balisegroup' => 'Dispositions',
    233. 

  233. 			       'balises' => array('DetailDisposition' => array('table' => 'DDISP','fssm' => 'tzr_lie'))));
    234. 

  234.       $gparam['cu']=array('CU' => array('balisegroup' => 'CapacitesUnites',
    235. 

  235. 				      'balises' => array('DetailCapaciteUnite' => array('table' => 'DCAPAUNIT','fssm' => 'tzr_lie',
    236. 

  236. 										    'ssm' => $param))));
    237. 

  237.       //--- Offre presta
    238. 

  238.       $oparamcu=$gparam['cu'];
    239. 

  239.       $oparamcp=$gparam['cp'];
    240. 

  240.       $oparamcp['CP']['balisegroup']=$oparamcu['CU']['balisegroup']=NULL;
    241. 

  241.       $oparamcp['CP']['balises']['DetailCapacitePrestation']['ar']=$oparamcu['CU']['balises']['DetailCapaciteUnite']['ar']=
    242. 

  242. 	array('tzr_ispresta' => 1);
    243. 

  243.       $param=array('PR' => array('balisegroup' => NULL,
    244. 

  244. 			       'balises' => array('DetailPrestation' => array('table' => 'DPRESTA','fssm' => 'tzr_lie','ssm' => $gparam['mr'],
    245. 

  245. 									  'linkparam' => array('DetailCapaciteUnite' => $oparamcu,
    246. 

  246. 											     'DetailCapacitePrestation' => $oparamcp)))));
    247. 

  247.       $gparam['op']=array('OP' => array('balisegroup' => 'OffresPrestations',
    248. 

  248. 				      'balises' => array('DetailOffrePrestation' => array('table' => 'DOFFREPRESTA','fssm' => 'tzr_lie',
    249. 

  249. 										      'ssm' => $param))));
    250. 

  250.       //--- Tarif
    251. 

  251.       $oparamcl=$gparam['cli']['CL']['balises']['DetailClienteles']['ssm'];
    252. 

  252.       $oparampr=$gparam['op']['OP']['balises']['DetailOffrePrestation']['ssm'];
    253. 

  253.       $oparampe=$gparam['pe'];
    254. 

  254.       $oparampe['PE']['balisegroup']=$oparampr['PR']['balisegroup']=$oparamcl['DC']['balisegroup']=NULL;
    255. 

  255.       $oparampe['PE']['balises']['DetailPeriode']['ar']=$oparampr['PR']['balises']['DetailPrestation']['ar']=
    256. 

  256.       $oparamcl['DC']['balises']['DetailClient']['ar']=array('tzr_istarif' => 1);
    257. 

  257.       $oparampe['PE']['balises']['DetailPeriode']['fssm']=$oparampr['PR']['balises']['DetailPrestation']['fssm']=
    258. 

  258.       $oparamcl['DC']['balises']['DetailClient']['fssm']=NULL;
    259. 

  259.       $gparam['ta']=array('TA' => array('balisegroup' => 'DetailTarifs',
    260. 

  260. 				      'balises' => array('DetailTarif' => array('table' => 'DTARIF','fssm' => 'tzr_lie',
    261. 

  261. 									    'linkparam' => array('DetailClient' => $oparamcl,
    262. 

  262. 											       'DetailPrestation' => $oparampr,
    263. 

  263. 											       'DetailPeriode' => $oparampe)))));
    264. 

  264.       //--- Descr comp
    265. 

  265.       $gparam['desc']=array('DE' => array('balisegroup' => 'DescriptionsComplementaires',
    266. 

  266. 					'balises' => array('DetailDescriptionComplementaire' => array('table' => 'DDESCRCOMP',
    267. 

  267. 												  'fssm' => 'tzr_lie'))));
    268. 

  268.       //--- Itinieraire
    269. 

  269.       $oparamzo=$gparam['ge']['GE']['balises']['DetailGeolocalisation']['ssm'];
    270. 

  270.       $oparamzo['ZO']['balisegroup']=NULL;
    271. 

  271.       $oparamzo['ZO']['balises']['Zone']['ar']=array('tzr_isiti' => 1);
    272. 

  272.       $gparam['it']=array('IT' => array('balisegroup' => 'Itineraires',
    273. 

  273. 				      'balises' => array('DetailItineraire' => array('table' => 'DITI','fssm' => 'tzr_lie',
    274. 

  274. 										 'linkparam' => array('Zone' => $oparamzo)))));;
    275. 

  275.       //--- Planning
    276. 

  276.       $param=array('JP' => array('balisegroup' => NULL,
    277. 

  277. 			       'balises' => array('JourPlanning' => array('table' => 'JOURPLA','fssm' => 'tzr_lie'))));
    278. 

  278.       $oparampr['PR']['balises']['DetailPrestation']['ar']=array('tzr_isprestapla' => 1);
    279. 

  279.       $param=array('PP' => array('balisegroup' => 'PrestationsPlanning',
    280. 

  280. 			       'balises' => array('DetailPrestationPlanning' => array('table' => 'DPRESTAPLA','fssm' => 'tzr_lie',
    281. 

  281. 										  'ssm' => $param,
    282. 

  282. 										  'linkparam' => array('DetailPrestation' => $oparampr)))));
    283. 

  283.       $oparampe['PE']['balises']['DetailPeriode']['ar']=array('tzr_ispla' => 1);
    284. 

  284.       $gparam['pla']=array('PL' => array('balisegroup' => 'Plannings',
    285. 

  285. 				       'balises' => array('DetailPlanning' => array('table' => 'DPLANNING','fssm' => 'tzr_lie','ssm' => $param,
    286. 

  286. 										'linkparam' => array('DetailPeriode' => $oparampe)))));
    287. 

  287.       //--- Prestations liées
    288. 

  288.       $gparam['pliee']=array('PL' => array('balisegroup' => 'PrestationsLiees',
    289. 

  289. 					 'balises' => array('DetailPrestationLiee' => array('table' => 'PRESTLIEE','fssm' => 'tzr_lie'))));
    290. 

  290.       $this->_cache['gparam-'.$this->acttype]=$gparam;
    291. 

  291.     }
    292. 

  292.     $this->structparam=$this->_cache['gparam-'.$this->acttype];
    293. 

  293.   }
    294. 

  294. 

  295.   /// Importe une chaine/fichier au format TiF
    296. 

  296.   function _import($ar=NULL){
    297. 

  297.     $p=new XParam($ar,NULL);
    298. 

  298.     $file=$p->get('file');
    299. 

  299.     $limit=$p->get('limit');
    300. 

  300.     $xmlstring=$p->get('xmlstring');
    301. 

  301.     if(!empty($xmlstring)) $sxml=$xmlstring;
    302. 

  302.     else $sxml=file_get_contents($file);
    303. 

  303.     $idlist=array();
    304. 

  304.     $dom = new DOMDocument();
    305. 

  305.     $dom->preserveWhiteSpace=false;
    306. 

  306.     $dom->validateOnParse = true;
    307. 

  307.     $dom->loadXML($sxml);
    308. 

  308.     $this->xpath=new DOMXpath($dom);
    309. 

  309.     $this->xpath->registerNamespace('dc','http://purl.org/dc/elements/1.1/');
    310. 

  310.     $this->xpath->registerNamespace('dcterms', 'http://purl.org/dc/terms/');
    311. 

  311.     if(!empty($this->NSURI)){
    312. 

  312.       $this->xpath->registerNamespace('tzrns',$this->NSURI);
    313. 

  313.       $this->tzrns='tzrns:';
    314. 

  314.     }else{
    315. 

  315.       $this->tzrns='';
    316. 

  316.     }
    317. 

  317. 

  318.     $this->prepareParam();
    319. 

  319.     $ois=$this->xpath->query('/'.$this->tzrns.'OI');
    320. 

  320.     if($ois->length==0)
    321. 

  321.       $ois=$this->xpath->query('/ListeOI/'.$this->tzrns.'OI');
    322. 

  322.     foreach($ois as $i => $oi){
    323. 

  323.       $oiddc=$this->importDC($oi);                      // DublinCore
    324. 

  324.       XLogs::notice('ModTif::_import', "import $oiddc");
    325. 

  325.       if(!empty($oiddc)){
    326. 

  326. 	$this->oiddc=$oiddc;
    327. 

  327. 	$this->importMultimedia($oi,$oiddc);	        // Multimédia
    328. 

  328. 	$this->importContacts($oi,$oiddc); 	        // Contacts (Adresses - Personnes - Moyens de communications)
    329. 

  329. 	$this->importStructuresGestion($oi,$oiddc); 	// Structures gestion (Contacts)
    330. 

  330. 	$this->importStructuresInformation($oi,$oiddc); // Structures information (Contacts)
    331. 

  331. 	$this->importInfosLegales($oi,$oiddc);	        // Informations légales
    332. 

  332. 	$this->importClassements($oi,$oiddc);	        // Classements
    333. 

  333. 	$this->importGeolocs($oi,$oiddc);	        // Geolocalisation (Zones - Points - Coords - Envs - Cartes - Acces - Multimédia)
    334. 

  334. 	$this->importPeriodes($oi,$oiddc);	        // Periodes (Dates - Details jours - Jours - Horaires)
    335. 

  335. 	$this->importClienteles($oi,$oiddc);	        // Clientèles (Details client)
    336. 

  336. 	$this->importUsages($oi,$oiddc);	        // Usages/Langues
    337. 

  337. 	$this->importModesResa($oi,$oiddc);	        // Modes de réservation
    338. 

  338. 	$this->importCapacites($oi,$oiddc);	        // Capacités
    339. 

  339. 	$this->importOffresPresta($oi,$oiddc);	        // Offres de prestation (Prestations)
    340. 

  340. 	$this->importTarifs($oi,$oiddc);	        // Tarifs et modes de paiement
    341. 

  341. 	$this->importDescrComp($oi,$oiddc);	        // Descriptions complémentaires
    342. 

  342. 	$this->importItineraires($oi,$oiddc);	        // Itinéraires
    343. 

  343. 	$this->importPlannings($oi,$oiddc);	        // Plannings (Presta planning - Jour planning)
    344. 

  344. 	$this->importPresationsLiees($oi,$oiddc);	// Prestations liées
    345. 

  345. 	$this->importOther($oi,$oiddc);	                // Fonction à personnaliser
    346. 

  346. 	if(!empty($limit) && $limit<=$i) break;
    347. 

  347.       }
    348. 

  348.     }
    349. 

  349.     unset($dom,$xmlstring,$sxml,$ois);
    350. 

  350.   }
    351. 

  351.   function importDC($oi){
    352. 

  352.     $this->idlist=array();
    353. 

  353.     $dc=$this->xpath->query($this->tzrns.'DublinCore',$oi);
    354. 

  354.     if($dc->length>0){
    355. 

  355.       $dc=$dc->item(0);
    356. 

  356.       $oiddc=$this->analyseDC($dc,NULL,$this->structparam['dc']['DC']['balises']['DublinCore']);
    357. 

  357.       if(!empty($this->structparam['dc']['DC']['balises']['DublinCore']['ssm'])) $this->analyseQuery($dc,$this->structparam['dc']['DC']['balises']['DublinCore']['ssm'],$oiddc);
    358. 

  358.     }
    359. 

  359.     unset($dc);
    360. 

  360.     return $oiddc;
    361. 

  361.   }
    362. 

  362.   function importMultimedia(&$oi,$oiddc){
    363. 

  363.     $this->analyseQuery($oi,$this->structparam['mu'],$oiddc);
    364. 

  364.   }
    365. 

  365.   function importContacts(&$oi,$oiddc){
    366. 

  366.     $this->analyseQuery($oi,$this->structparam['co'],$oiddc);
    367. 

  367.   }
    368. 

  368.   function importStructuresGestion(&$oi,$oiddc){
    369. 

  369.     $this->analyseQuery($oi,$this->structparam['sg'],$oiddc);
    370. 

  370.   }
    371. 

  371.   function importStructuresInformation(&$oi,$oiddc){
    372. 

  372.     $this->analyseQuery($oi,$this->structparam['si'],$oiddc);
    373. 

  373.   }
    374. 

  374.   function importInfosLegales(&$oi,$oiddc){
    375. 

  375.     $this->analyseQuery($oi,$this->structparam['il'],$oiddc);
    376. 

  376.   }
    377. 

  377.   function importClassements(&$oi,$oiddc){
    378. 

  378.     $this->analyseQuery($oi,$this->structparam['cl'],$oiddc);
    379. 

  379.   }
    380. 

  380.   function importGeolocs(&$oi,$oiddc){
    381. 

  381.     $this->analyseQuery($oi,$this->structparam['ge'],$oiddc);
    382. 

  382.   }
    383. 

  383.   function importPeriodes(&$oi,$oiddc){
    384. 

  384.     $this->analyseQuery($oi,$this->structparam['pe'],$oiddc);
    385. 

  385.   }
    386. 

  386.   function importClienteles(&$oi,$oiddc){
    387. 

  387.     $this->analyseQuery($oi,$this->structparam['cli'],$oiddc);
    388. 

  388.   }
    389. 

  389.   function importUsages(&$oi,$oiddc){
    390. 

  390.     $this->analyseQuery($oi,$this->structparam['la'],$oiddc);
    391. 

  391.   }
    392. 

  392.   function importModesResa(&$oi,$oiddc){
    393. 

  393.     $this->analyseQuery($oi,$this->structparam['mr'],$oiddc);
    394. 

  394.   }
    395. 

  395.   function importCapacites(&$oi,$oiddc){
    396. 

  396.     $capa=$this->xpath->query($this->tzrns.'Capacites',$oi);
    397. 

  397.     if($capa->length>0){
    398. 

  398.       $capa=$capa->item(0);
    399. 

  399.       // Capacité globale
    400. 

  400.       $capaglob=$this->xpath->query($this->tzrns.'CapacitesGlobales',$capa);
    401. 

  401.       if($capaglob->length>0){
    402. 

  402. 	$capaglob=$capaglob->item(0);
    403. 

  403.  	$param=array('table' => 'CAPAGLOB','fssm' => 'tzr_lie');
    404. 

  404.  	$oid=$this->analyseDC($capaglob,$oiddc,$param);
    405. 

  405. 	$xset=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS='.$this->prefixSQL.'DC');
    406. 

  406. 	$xset->procEdit(array('oid' => $oiddc,'CapacitesGlobales' => $oid,'_nolog' => true));
    407. 

  407. 	$this->analyseQuery($capaglob,$this->structparam['cs'],$oid);
    408. 

  408.       }
    409. 

  409.       // Capacités prestations
    410. 

  410.       $this->analyseQuery($capa,$this->structparam['cp'],$oiddc);
    411. 

  411.       // Capacités unités
    412. 

  412.       $this->analyseQuery($capa,$this->structparam['cu'],$oiddc);
    413. 

  413.     }
    414. 

  414.   }
    415. 

  415.   function importOffresPresta(&$oi,$oiddc){
    416. 

  416.     $this->analyseQuery($oi,$this->structparam['op'],$oiddc);
    417. 

  417.   }
    418. 

  418.   function importTarifs(&$oi,$oiddc){
    419. 

  419.     // Modes de paiement
    420. 

  420.     $mp=$this->xpath->query($this->tzrns.'Tarifs/'.$this->tzrns.'ModesPaiement',$oi);
    421. 

  421.     if($mp->length>0){
    422. 

  422.       $mp=$mp->item(0);
    423. 

  423.       $mdps=$this->xpath->query($this->tzrns.'ModePaiement',$mp);
    424. 

  424.       $xset=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS='.$this->prefixSQL.'DC');
    425. 

  425.       $xsetmp=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS='.$xset->desc['ModePaiement']->target);
    426. 

  426.       $ar2=array();
    427. 

  427.       foreach($mdps as $mpd){
    428. 

  428. 	$oidmp=$xset->desc['ModePaiement']->target.':'.str_replace('.','-',$mpd->getAttribute('type'));
    429. 

  429. 	$xsetmp->procInput(array('newoid' => $oidmp,'_nolog' => true,
    430. 

  430. 				 'code' => $mpd->getAttribute('type'),'libelle' => $mpd->textContent));
    431. 

  431. 	$ar2['ModePaiement'][]=$oidmp;
    432. 

  432.       }
    433. 

  433.       $obs=$this->xpath->query($this->tzrns.'ObservationModePaiement',$mp);
    434. 

  434.       if($obs->length>0) $ar2['ObservationModePaiement']=$obs->item(0)->textContent;
    435. 

  435.       $ar2['oid']=$oiddc;
    436. 

  436.       $ar2['_nolog']=true;
    437. 

  437.       $xset->procEdit($ar2);
    438. 

  438.     }
    439. 

  439.     unset($mp,$mdps,$mdp,$ar2,$obs);
    440. 

  440. 

  441.     // Tarifs
    442. 

  442.     $ta=$this->xpath->query($this->tzrns.'Tarifs',$oi);
    443. 

  443.     if($ta->length>0){
    444. 

  444.       $ta=$ta->item(0);
    445. 

  445.       $this->analyseQuery($ta,$this->structparam['ta'],$oiddc);
    446. 

  446.     }
    447. 

  447.     unset($ta);
    448. 

  448.   }
    449. 

  449.   function importDescrComp(&$oi,$oiddc){
    450. 

  450.     $this->analyseQuery($oi,$this->structparam['desc'],$oiddc);
    451. 

  451.   }
    452. 

  452.   function importItineraires(&$oi,$oiddc){
    453. 

  453.     $this->analyseQuery($oi,$this->structparam['it'],$oiddc);
    454. 

  454.   }
    455. 

  455.   function importPlannings(&$oi,$oiddc){
    456. 

  456.     $this->analyseQuery($oi,$this->structparam['pla'],$oiddc);
    457. 

  457.   }
    458. 

  458.   function importPresationsLiees(&$oi,$oiddc){
    459. 

  459.     $this->analyseQuery($oi,$this->structparam['pliee'],$oiddc);
    460. 

  460.   }
    461. 

  461.   function importOther(&$oi,$oiddc){
    462. 

  462.   }
    463. 

  463. 

  464.   /// Requete un noeud et prepare son analyse
    465. 

  465.   function analyseQuery(&$base,$params,$oidssm){
    466. 

  466.     if(isset($params['balises'])) $params=array($params);
    467. 

  467. 

  468.     $oids=array();
    469. 

  469.     foreach($params as $param){
    470. 

  470.       $balisegrp=$param['balisegroup'];
    471. 

  471.       $balises=$param['balises'];
    472. 

  472.       if(!empty($balisegrp)){
    473. 

  473. 	$dc=$this->xpath->query($this->tzrns.$balisegrp,$base);
    474. 

  474. 	if($dc->length>0){
    475. 

  475. 	  $dc=$dc->item(0);
    476. 

  476. 	  $idref=$dc->getAttribute('idref');
    477. 

  477. 	  $id=$dc->getAttribute('id');
    478. 

  478. 	  if(!empty($idref)){
    479. 

  479. 	    foreach($this->idlist[$idref]['idlist'] as $i => $myid){
    480. 

  480. 	      $oids[]=$this->addReference($myid,$oidssm,$this->idlist[$idref]['fssmlist'][$i]);
    481. 

  481. 	    }
    482. 

  482. 	  }else{
    483. 

  483. 	    foreach($balises as $balise => $data){
    484. 

  484. 	      $details=$this->xpath->query($this->tzrns.$balise,$dc);
    485. 

  485. 	      foreach($details as $i => $detail){
    486. 

  486. 		if(!empty($id)){
    487. 

  487. 		  $idd=$detail->getAttribute('id');
    488. 

  488. 		  if(empty($idd)){
    489. 

  489. 		    $idd=$id.'-tzr'.$i;
    490. 

  490. 		    $detail->setAttribute('id',$idd);
    491. 

  491. 		  }
    492. 

  492. 		  $this->idlist[$id]['idlist'][]=$idd;
    493. 

  493. 		  $this->idlist[$id]['fssmlist'][]=$data['fssm'];
    494. 

  494. 		}
    495. 

  495. 		$oid=$this->analyseDC($detail,$oidssm,$data);
    496. 

  496. 		$oids[]=$oid;
    497. 

  497. 		if(!empty($data['ssm'])) $this->analyseQuery($detail,$data['ssm'],$oid);
    498. 

  498. 	      }
    499. 

  499. 	    }
    500. 

  500. 	  }
    501. 

  501. 	}
    502. 

  502.       }else{
    503. 

  503. 	foreach($balises as $balise => $data){
    504. 

  504. 	  $details=$this->xpath->query($this->tzrns.$balise,$base);
    505. 

  505. 	  foreach($details as $detail){
    506. 

  506. 	    $oid=$this->analyseDC($detail,$oidssm,$data);
    507. 

  507. 	    $oids[]=$oid;
    508. 

  508. 	    if(!empty($data['ssm'])) $this->analyseQuery($detail,$data['ssm'],$oid);
    509. 

  509. 	  }
    510. 

  510. 	}
    511. 

  511.       }
    512. 

  512.     }
    513. 

  513.     unset($dc,$details,$detail,$data);
    514. 

  514.     return $oids;
    515. 

  515.   }
    516. 

  516. 

  517.   /// Insere les données en base dans le cas d'un objet faisant référence à un autre
    518. 

  518.   private function addReference($idref,$oidssm,$fssm){
    519. 

  519.     if(!empty($idref) && !empty($this->idlist[$idref])){
    520. 

  520.       if(!empty($oidssm) && !empty($fssm)){
    521. 

  521. 	$ar=array('oid' => $this->idlist[$idref]['oid']);
    522. 

  522. 	$ar[$fssm]=$this->idlist[$idref]['data'][$fssm];
    523. 

  523. 	if(is_array($ar[$fssm])){
    524. 

  524. 	  $ar[$fssm][]=$oidssm;
    525. 

  525. 	}else{
    526. 

  526. 	  $ar[$fssm]=array($ar[$fssm],$oidssm);
    527. 

  527. 	}
    528. 

  528. 	$table=Kernel::getTable($this->idlist[$idref]['oid']);
    529. 

  529. 	if(XSystem::tableExists($table)){
    530. 

  530. 	  $xset=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS='.$table);
    531. 

  531. 	  $ar['_nolog']=true;
    532. 

  532. 	  $xset->procEdit($ar);
    533. 

  533. 	}
    534. 

  534.       }
    535. 

  535.       return $this->idlist[$idref]['oid'];
    536. 

  536.     }
    537. 

  537.     return false;
    538. 

  538.   }
    539. 

  539. 

  540.   /// Analyse un noeud et insere en base
    541. 

  541.   private function analyseDC(&$dc,$oidssm=NULL,&$param=array()){
    542. 

  542.     $table=$param['table'];
    543. 

  543.     if(empty($table)) return;
    544. 

  544.     $forceedit=false;
    545. 

  545.     $id=$dc->getAttribute('id');
    546. 

  546.     $idref=$dc->getAttribute('idref');
    547. 

  547.     $ar=isset($param['ar'])?$param['ar']:array();
    548. 

  548.     $fssm=isset($param['fssm'])?$param['fssm']:NULL;
    549. 

  549.     $delNS=isset($param['delNS'])?$param['delNS']:true;
    550. 

  550.     $direct=isset($param['direct'])?$param['direct']:false;
    551. 

  551.     $oidfield=isset($param['oidfield'])?$param['oidfield']:NULL;
    552. 

  552.     $updfield=isset($param['updfield'])?$param['updfield']:'';
    553. 

  553.     $linkparam=isset($param['linkparam'])?$param['linkparam']:array();
    554. 

  554.     if($direct) $items=array($dc);
    555. 

  555.     else $items=$dc->childNodes;
    556. 

  556. 

  557.     // Génération du KOID
    558. 

  558.     if(Kernel::getTable($oidssm)==$this->prefixSQL.$table){
    559. 

  559.       $ar['oid']=$oidssm;
    560. 

  560.       $forceedit=true;
    561. 

  561.     }elseif(!empty($param['oid'])){
    562. 

  562.       $ar['newoid']=$newoid=$param['oid'];
    563. 

  563.     }elseif($oidfield){
    564. 

  564.       if(strpos($this->acttype,'SITRA')===0 && strpos($oidfield,':')){
    565. 

  565. 	$oidfield=$this->xpath->query(substr($oidfield,strpos($oidfield,':')+1),$dc);
    566. 

  566.       }else{
    567. 

  567. 	$oidfield=$this->xpath->query($oidfield,$dc);
    568. 

  568.       }
    569. 

  569.       if($oidfield->length>0){
    570. 

  570. 	$oidfield=$oidfield->item(0)->textContent;
    571. 

  571. 	$ar['newoid']=$newoid=$this->prefixSQL.$table.':'.preg_replace('/[^a-z0-9_-]/i','_',$oidfield);
    572. 

  572.       }
    573. 

  573.     }
    574. 

  574.     if(empty($newoid)){
    575. 

  575.       $ar['newoid']=$newoid=XDataSource::getNewBasicOID($this->prefixSQL.$table);
    576. 

  576.     }
    577. 

  577.     XLogs::notice('ModTif::analyseDC', "import oid:{$ar['oid']}, newoid:$newoid");
    578. 

  578. 

  579.     // Verification du dernier update. Si doit etre mis à jour, on efface pour mieux reinserer
    580. 

  580.     if(!empty($updfield)){
    581. 

  581.       if(strpos($this->acttype,'SITRA')===0 && strpos($updfield,':')){
    582. 

  582. 	$updbal=$this->xpath->query(substr($updfield,strpos($updfield,':')+1),$dc);
    583. 

  583.       }else{
    584. 

  584. 	$updbal=$this->xpath->query($updfield,$dc);
    585. 

  585.       }
    586. 

  586.       if($updbal->length>0){
    587. 

  587. 	$updfield=str_replace(':','__',$updfield);
    588. 

  588.  	$updvalue=$this->xset->desc[$updfield]->post_edit($updbal->item(0)->textContent);
    589. 

  589. 	$updvalue=$updvalue->raw;
    590. 

  590.  	$rs=selectQuery('select '.$updfield.' as UPD from '.$this->prefixSQL.$table.' where KOID="'.$newoid.'"');
    591. 

  591.  	$ors=&$rs->fetch();
    592. 

  592.  	$rs->CloseCursor();
    593. 

  593.  	if(!empty($ors['UPD'])){
    594. 

  594.  	  if($ors['UPD']>=$updvalue) {
    595. 

  595.             XLogs::notice('ModTif::analyseDC', "import $newoid not imported {$ors['UPD']} >= $updvalue");
    596. 

  596.             return false;
    597. 

  597.  	  }
    598. 

  598.  	  elseif($this->prefixSQL.$table==$this->table) {
    599. 

  599.             XLogs::notice('ModTif::analyseDC', "delete $newoid");
    600. 

  600.             $this->del(array('oid' => $newoid,'_nolog' => true));
    601. 

  601.  	  }
    602. 

  602. 	}
    603. 

  603.       }
    604. 

  604.     }
    605. 

  605. 

  606.     // Dans le cas d'une référence, on recupère les données
    607. 

  607.     if(!empty($idref)){
    608. 

  608.       $ret['oid']=$this->addReference($idref,$oidssm,$fssm);
    609. 

  609.     }else{
    610. 

  610.       if((!$dc->hasChildNodes() && !$dc->hasAttributes() && !$direct) || !XSystem::tableExists($this->prefixSQL.$table)) return false;
    611. 

  611.       $xset=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS='.$this->prefixSQL.$table);
    612. 

  612. 

  613.       $hasData=false;
    614. 

  614.       // Traite les eventuels attributs de la balise source à enregistrer
    615. 

  615.       foreach($dc->attributes as $dcatt => $i){
    616. 

  616. 	if(isset($xset->desc['att_'.$dcatt])){
    617. 

  617. 	  $hasData=true;
    618. 

  618. 	  $att='att_'.$dcatt;
    619. 

  619. 	  $value=$dc->getAttribute($dcatt);
    620. 

  620. 	  $ar[$att]=$this->getAttributeValue($xset,$att,$value,$dc);
    621. 

  621. 	}
    622. 

  622.       }
    623. 

  623. 

  624.       // Parcours les enfants
    625. 

  625.       foreach($items as $item){
    626. 

  626. 	$hasData=true;
    627. 

  627. 	if($delNS){
    628. 

  628. 	  list($ns,$field)=explode(':',$item->tagName);
    629. 

  629. 	  if(empty($field)) $field=$ns;
    630. 

  630. 	}else{
    631. 

  631. 	  $field=str_replace(':','__',$item->tagName);
    632. 

  632. 	  // Patch pour DC de sitra qui n'utilise pas les espaces de noms
    633. 

  633. 	  if(strpos($this->acttype,'SITRA')===0){
    634. 

  634. 	    if(!isset($xset->desc[$field])){
    635. 

  635. 	      if(isset($xset->desc['dc__'.$field])) $field='dc__'.$field;
    636. 

  636. 	      elseif(isset($xset->desc['dcterms__'.$field])) $field='dcterms__'.$field;
    637. 

  637. 	    }
    638. 

  638. 	  }
    639. 

  639. 	}
    640. 

  640. 	if(isset($xset->desc[$field])){
    641. 

  641. 	  $xfield=&$xset->desc[$field];
    642. 

  642. 	  $ftype=$xfield->ftype;
    643. 

  643. 	  switch($ftype){
    644. 

  644. 	  case 'XFileDef': // Tente de recupérer le fichier pour le mettre en local, sinon utilise un champ url
    645. 

  645. 	    $file=TZR_TMP_DIR.'TiF'.uniqid();
    646. 

  646. 	    $content=file_get_contents($item->textContent);
    647. 

  647. 	    if(!empty($content)){
    648. 

  648. 	      file_put_contents($file,$content);
    649. 

  649. 	      unset($content);
    650. 

  650. 	      $mimeClasse=XMimeTypes::getInstance();
    651. 

  651. 	      $mime=$mimeClasse->get_file_type($file);
    652. 

  652. 	      if($mimeClasse->isImage($mime)){
    653. 

  653. 		$ar[$field.'_img']='';
    654. 

  654. 		$_FILES[$field.'_img']['tmp_name']=$file;
    655. 

  655. 		$_FILES[$field.'_img']['type']=$mime;
    656. 

  656. 		$_FILES[$field.'_img']['name']=$item->textContent;
    657. 

  657. 		$_FILES[$field.'_img']['size']=filesize($file);
    658. 

  658. 	      }else{
    659. 

  659. 		$ar[$field]='';
    660. 

  660. 		$_FILES[$field]['tmp_name']=$file;
    661. 

  661. 		$_FILES[$field]['type']=$mime;
    662. 

  662. 		$_FILES[$field]['name']=$item->textContent;
    663. 

  663. 		$_FILES[$field]['size']=filesize($file);
    664. 

  664. 	      }
    665. 

  665. 	    }
    666. 

  666. 	    $ar[$field.'_url']['url']=$item->textContent;
    667. 

  667. 	    break;
    668. 

  668. 	  case 'XUrlDef':
    669. 

  669. 	    $ar[$field]['url']=$item->textContent;
    670. 

  670. 	    break;
    671. 

  671. 	  case 'XLinkDef':
    672. 

  672. 	    if(strpos($xset->desc[$field]->target,$this->prefixSQL.'LS_')===0){
    673. 

  673. 	      $code=$item->getAttribute('code');
    674. 

  674. 	      if(empty($code)) $code=$item->getAttribute('type');
    675. 

  675. 	      $code=$this->getFormatCode($code);
    676. 

  676. 	      if(!empty($code)){
    677. 

  677. 		$rs=selectQuery('select KOID from '.$xset->desc[$field]->target.' where code="'.$code.'"');
    678. 

  678. 		if($rs && $rs->rowCount()==0){
    679. 

  679. 		  $codeoid=$xset->desc[$field]->target.':'.str_replace('.','-',$code);
    680. 

  680. 		  $libelle=$item->getAttribute('libelle');
    681. 

  681. 		  if(empty($libelle)) $libelle=$item->textContent;
    682. 

  682.                   $xsettmp=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS='.$xset->desc[$field]->target);
    683. 

  683.  		  $xsettmp->procInput(array('newoid' => $codeoid,'code' => $code,'libelle' => $libelle,'_nolog' => true));
    684. 

  684. 		}else{
    685. 

  685. 		  $ors=$rs->fetch();
    686. 

  686. 		  $codeoid=$ors['KOID'];
    687. 

  687. 		}
    688. 

  688. 		$rs->CloseCursor();
    689. 

  689. 		if($xset->desc[$field]->multivalued) $ar[$field][]=$codeoid;
    690. 

  690. 		else $ar[$field]=$codeoid;
    691. 

  691. 	      }
    692. 

  692. 	    }elseif(!empty($linkparam[$field])){
    693. 

  693. 	      $oids=$this->analyseQuery($item->parentNode,$linkparam[$field],$newoid);
    694. 

  694. 	      if(!$xset->desc[$field]->multivalued) $oids=$oids[0];
    695. 

  695. 	      $ar[$field]=$oids;
    696. 

  696. 	    }
    697. 

  697. 	    break;
    698. 

  698. 	  case 'XTextDef':
    699. 

  699. 	    if(!empty($ar[$field])) $ar[$field].="\n\n".$item->textContent;
    700. 

  700. 	    else $ar[$field]=$item->textContent;
    701. 

  701. 	    break;
    702. 

  702. 	  case 'XBoolDef':
    703. 

  703. 	    if($item->textContent=='O') $ar[$field]=1;
    704. 

  704. 	    else $ar[$field]=0;
    705. 

  705. 	    break;
    706. 

  706. 	  case 'XDateTimeDef':
    707. 

  707. 	    $parts=preg_split('@[\ ]@',$item->textContent);
    708. 

  708. 	    if(!empty($parts[1]) && preg_match('@^[0-9]{2}:[0-9]{2}$@',$parts[1]))
    709. 

  709. 	      $ar[$field]=array('date' => $parts[0],'hour' => $parts[1].":00");
    710. 

  710. 	    else
    711. 

  711. 	      $ar[$field]=$item->textContent;
    712. 

  712. 	    break;
    713. 

  713. 	  default:
    714. 

  714. 	    if($xset->desc[$field]->multivalued){
    715. 

  715. 	      if(empty($ar[$field])) $ar[$field]=$item->textContent;
    716. 

  716. 	      else $ar[$field].=','.$item->textContent;
    717. 

  717. 	    }else{
    718. 

  718. 	      if(!empty($item->textContent)) $ar[$field]=$item->textContent;
    719. 

  719. 	    }
    720. 

  720. 	    break;
    721. 

  721. 	  }
    722. 

  722. 	  
    723. 

  723. 	  // Traite les eventuels attributs à enregistrer
    724. 

  724. 	  $ord=$xset->desc[$field]->forder+1;
    725. 

  725. 	  for($i=$ord;$i<count($xset->desc);$i++){
    726. 

  726. 	    if(preg_match("/^att_".$field."_(.*)$/",$xset->orddesc[$i],$ret)){
    727. 

  727. 	      $att=$xset->orddesc[$i];
    728. 

  728. 	      $atttype=$xset->desc[$att]->ftype;
    729. 

  729. 	      $value=$item->getAttribute($ret[1]);
    730. 

  730. 	      $ar[$att]=$this->getAttributeValue($xset,$att,$value,$item);
    731. 

  731. 	    }else{
    732. 

  732. 	      break;
    733. 

  733. 	    }
    734. 

  734. 	  }
    735. 

  735. 	  
    736. 

  736. 	  // Boucle pour forcer les champs numériques à NULL s'ils ne sont pas renseignés (car sinon 0, et c'est pas bien)
    737. 

  737. 	  foreach($xset->desc as $fn => &$f){
    738. 

  738. 	    if($f->ftype=='XRealDef' && !isset($ar[$fn])) $ar[$fn]='';
    739. 

  739. 	  }
    740. 

  740. 	}
    741. 

  741.       }
    742. 

  742.       if($hasData){
    743. 

  743. 	$ar['_nolog']=true;
    744. 

  744. 	$ar['tzr_dc']=$this->oiddc;
    745. 

  745. 	if($forceedit){
    746. 

  746.           XLogs::notice('ModTif::analyseDC', "update {$ar['oid']}");
    747. 

  747. 	  $xset->procEdit($ar);
    748. 

  748. 	  $ret['oid']=$ar['oid'];
    749. 

  749. 	}else{
    750. 

  750. 	  // Renseigne l'oid du module parent si necessaire
    751. 

  751. 	  if(!empty($oidssm) && !empty($fssm)) $ar[$fssm]=$oidssm;
    752. 

  752.           XLogs::notice('ModTif::analyseDC', "insert $newoid");
    753. 

  753. 	  $ret=$xset->procInput($ar);
    754. 

  754. 	}
    755. 

  755.       }
    756. 

  756.     }
    757. 

  757. 

  758.     // Enregistre les données si la balise à un identifiant
    759. 

  759.     if(!empty($id)){
    760. 

  760.       $this->idlist[$id]=array('oid' => $ret['oid'],'data' => $ar);
    761. 

  761.     }
    762. 

  762.     unset($ar,$items);
    763. 

  763.     return $ret['oid'];
    764. 

  764.   }
    765. 

  765. 

  766.   /// Recupere une valeur TZR d'un attribut
    767. 

  767.   function getAttributeValue(&$xset,$att,$value,&$item){
    768. 

  768.     $atttype=$xset->desc[$att]->ftype;
    769. 

  769.     switch($atttype){
    770. 

  770.     case 'XLinkDef':
    771. 

  771.       if(strpos($xset->desc[$att]->target,$this->prefixSQL.'LS_')===0){
    772. 

  772. 	if(!empty($value)){
    773. 

  773. 	  $code=$this->getFormatCode($value);
    774. 

  774. 	  $rs=selectQuery('select KOID from '.$xset->desc[$att]->target.' where code="'.$code.'"');
    775. 

  775. 	  if($rs && $rs->rowCount()==0){
    776. 

  776. 	    $value=$xset->desc[$att]->target.':'.str_replace('.','-',$code);
    777. 

  777. 	    $libelle=$item->getAttribute('libelle');
    778. 

  778. 	    if(empty($libelle)) $libelle=$item->textContent;
    779. 

  779. 	    $libelle=$libelle;
    780. 

  780. 	    $xsettmp=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS='.$xset->desc[$att]->target);
    781. 

  781. 	    $xsettmp->procInput(array('newoid' => $value,'code' => $code,'libelle' => $libelle,'_nolog' => true));
    782. 

  782. 	  }else{
    783. 

  783. 	    $ors=$rs->fetch();
    784. 

  784. 	    $value=$ors['KOID'];
    785. 

  785. 	  }
    786. 

  786. 	  $rs->closeCursor();
    787. 

  787. 	}
    788. 

  788.       }else{
    789. 

  789. 	if(!empty($value)) $value=$xset->desc[$att]->target.':'.preg_replace('/([^a-z0-9_-]+)/','-',$value);
    790. 

  790.       }
    791. 

  791.       break;
    792. 

  792.     case 'XBoolDef':
    793. 

  793.       if(strtolower($value)=='o') $value=1;
    794. 

  794.       else $value=0;
    795. 

  795.       break;
    796. 

  796.     default:
    797. 

  797.       break;
    798. 

  798.     }
    799. 

  799.     return $value;
    800. 

  800.   }
    801. 

  801.   
    802. 

  802.   /// Formate un code du thésaurus en xx.xx.xx...
    803. 

  803.   function getFormatCode($code){
    804. 

  804.     $acode=explode('.',$code);
    805. 

  805.     $code=array();
    806. 

  806.     foreach($acode as $tmp) $code[]=sprintf("%02d",$tmp);
    807. 

  807.     return implode('.',$code);
    808. 

  808.   }
    809. 

  809. 

  810.   /**
    811. 

  811.    Fonction pour retourner un resultat plat sur une ressource
    812. 

  812.    Exemple de $list=array('DCONTACT' => array('filter' => 'RaisonSociale="LES RAILLES"',
    813. 

  813.                                             'fields' => array('Sigle' => "Sig",'RaisonSociale' => "RS"),
    814. 

  814.                                             'sstables' => array('DADRESSE' => array('fields' => array('Adr1' => 'adr'),'all' => true,
    815. 

  815.                                                                                 'order' => 'Adr1 DESC','pagesize' => 5)))
    816. 

  816.    filter : filter sql   /   fields : liste des champs à recupérer (clé=champ TiF, valeur=champ destination)
    817. 

  817.    order : ordre         /   pagesize : nombre d'éléments à recuperer
    818. 

  818.   **/
    819. 

  819.   function getFlatEntry($oid,$list,&$targetxset,$alloids=array()){
    820. 

  820.     $lang_data=XShell::getLangData();
    821. 

  821.     $ret=array();
    822. 

  822.     if(!is_array($oid)) $oid=array($oid);
    823. 

  823.     if(empty($alloids)) $alloids=$oid;
    824. 

  824. 

  825.     foreach($list as $table => $param){
    826. 

  826.       $p=new XParam($param,array('filter' => '','pagesize' => 1,'all' => false,'sstables' => array(),'fields' => array(),'ssmfield' => 'tzr_lie',
    827. 

  827. 				 'order' => 'tzr_lie,UPD desc','multivalued' => array(),'format' => array(),'pageseparator' => array(),
    828. 

  828. 				 'concatseparator' => array(),'boolcond' => array(),'increment' => array(),'ifempty' => array()));
    829. 

  829.       if(strpos($table,':')!==false) // requête multiple sur la même table
    830. 

  830.         $table = substr($table,strpos($table,':')+1);
    831. 

  831.       $table=$this->prefixSQL.$table;
    832. 

  832.       $all=$p->get('all');
    833. 

  833.       $eval=$p->get('eval');
    834. 

  834.       $order=$p->get('order');
    835. 

  835.       $filter=$p->get('filter');
    836. 

  836.       $fields=$p->get('fields');
    837. 

  837.       $format=$p->get('format');
    838. 

  838.       // Tableau de champs qui ne sont a traiter que si le champ de destination est vide
    839. 

  839.       $ifempty=$p->get('ifempty');
    840. 

  840.       // Champ faisant le lien entre l'objet parent et l'objet fils (tzr_lie par defaut)
    841. 

  841.       $ssmfield=$p->get('ssmfield');
    842. 

  842.       $sstables=$p->get('sstables');
    843. 

  843.       // Nombre d'objet à traier (1 par defaut)
    844. 

  844.       $pagesize=$p->get('pagesize');
    845. 

  845.       $increment=$p->get('increment');
    846. 

  846.       $multivalued=$p->get('multivalued');
    847. 

  847.       // Separateur à utiliser dans le cas ou on concatene plusieurs objets dans le meme champ de destination
    848. 

  848.       $pageseparator=$p->get('pageseparator');
    849. 

  849.       // Separateur à utiliser dans le cas ou on concatene plusieurs champ d'un même objet  dans le meme champ de destination
    850. 

  850.       $concatseparator=$p->get('concatseparator');
    851. 

  851.       // Tableau des champs => champs cible dans le cas d'un lien sur un objet
    852. 

  852.       $xlinktargetf=$p->get('xlinktargetf');
    853. 

  853.       $oidlies=array();
    854. 

  854.       $lastpage=array();
    855. 

  855.       if($all) $oid=$alloids;
    856. 

  856.       
    857. 

  857.       if($table==$this->table){
    858. 

  858.  	$q='select * from '.$table.' where LANG="'.$lang_data.'" AND KOID="'.$oid[0].'"';
    859. 

  859. 	$order='';
    860. 

  860. 	$ret['oid']=$ret['newoid']=str_replace($this->prefixSQL.'DC',$targetxset->getTable(),$oid[0]);
    861. 

  861.       }else{
    862. 

  862. 	$q='select * from '.$table.' where LANG="'.$lang_data.'" AND '.$ssmfield.' IN("'.implode('", "',$oid).'")';
    863. 

  863. 	if(!empty($filter)) $q.=' AND '.$filter;
    864. 

  864.       }
    865. 

  865. 

  866.       $xset=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS='.$table);
    867. 

  867.       $options=array();
    868. 

  868.       foreach($xlinktargetf as $f=>$targetf){
    869. 

  869.         $options[$f]=array('target_fields' => $targetf, 'nocache' => 1);
    870. 

  870.       }
    871. 

  871.       $br=$xset->browse(array(
    872. 

  872.         'select' => $q,
    873. 

  873.         'order' => $order,
    874. 

  874.         'tplentry' => TZR_RETURN_DATA,
    875. 

  875.         'selectedfields' => array_keys($fields),
    876. 

  876.         'options' => $options,
    877. 

  877.         'nocount' => 1
    878. 

  878.       ));
    879. 

  879. 

  880.       foreach($br['lines_oid'] as $i => $actoid){
    881. 

  881. 	if($i==$pagesize) break;
    882. 

  882. 	foreach($fields as $f => $newf){
    883. 

  883. 	  if(!empty($ret[$newf]) && in_array($f,$ifempty)) continue;
    884. 

  884. 	  if(in_array($newf,$increment)) $newf=$newf.($i+1);
    885. 

  885.           if($f=='oid')
    886. 

  886.             $value = $br['lines_oid'][$i];
    887. 

  887.           else
    888. 

  888.             $value=$this->getValueForInput($br['lines_o'.$f][$i],$xset->desc[$f],$targetxset->desc[$newf]);
    889. 

  889. 	  if(is_array($value)){
    890. 

  890. 	    if(empty($ret[$newf])) $ret[$newf]=array();
    891. 

  891. 	    $ret[$newf]=array_merge($ret[$newf],$value);
    892. 

  892. 	  }else{
    893. 

  893. 	    if(!empty($eval[$f])) $value=eval('return '.$eval[$f]);
    894. 

  894. 	    if($targetxset->desc[$newf]->ftype=='XBoolDef' && $ret[$newf]!=1) $ret[$newf]=$value; 
    895. 

  895. 	    elseif($targetxset->desc[$newf]->ftype=='XGeodesicCoordinatesDef' && !empty($ret[$newf])) $ret[$newf].=';'.$value;
    896. 

  896. 	    else{
    897. 

  897. 	      // Formate la valeur si besoin
    898. 

  898. 	      if(!empty($format[$f])) $value=sprintf($format[$f],$value);
    899. 

  899. 	      if(empty($ret[$newf])) $ret[$newf]='';
    900. 

  900. 	      elseif(!empty($value)){
    901. 

  901. 		// Ajoute le separateur suite à un changement d'objet ou pour une simple concat de champ sur un meme objet
    902. 

  902. 		if($lastpage[$newf]!=$i){
    903. 

  903. 		  if(!empty($pageseparator[$newf])) $sep=$pageseparator[$newf];
    904. 

  904. 		  elseif($targetxset->desc[$newf]->ftype=='XTextDef') $sep="\r\n";
    905. 

  905. 		  elseif($targetxset->desc[$newf]->ftype=='XShortTextDef') $sep=', ';
    906. 

  906. 		  else $sep='';
    907. 

  907. 		  $value=$sep.$value;
    908. 

  908. 		}else{
    909. 

  909.  		  if(!array_key_exists($newf,$concatseparator)) $concatseparator[$newf]=' ';
    910. 

  910.  		  $value=$concatseparator[$newf].$value;
    911. 

  911.  		}
    912. 

  912.  	      }
    913. 

  913.  	      $ret[$newf].=$value;
    914. 

  914.  	    }
    915. 

  915.   	  }
    916. 

  916.   	  if(!empty($ret[$newf])) $lastpage[$newf]=$i;
    917. 

  917.   	}
    918. 

  918.   	$oidlies[]=$actoid;
    919. 

  919.       }
    920. 

  920.       unset($br,$param);
    921. 

  921.       
    922. 

  922.       // Recupere les sous tables
    923. 

  923.       if(!empty($sstables)) {
    924. 

  924.         if($table!=$this->table) {
    925. 

  925.           $ssalloids = selectQuery('select KOID from '.$table.' '.
    926. 

  926.                                     'where tzr_lie IN("'.implode('","',$alloids).'")')
    927. 

  927.                                     ->fetchAll(PDO::FETCH_COLUMN);
    928. 

  928.         }
    929. 

  929.         $ret2=$this->getFlatEntry($oidlies,$sstables,$targetxset,$ssalloids);
    930. 

  930.       }
    931. 

  931.       
    932. 

  932.       if(!empty($ret2)) $ret=array_merge($ret,$ret2);
    933. 

  933.     }
    934. 

  934.     return $ret;
    935. 

  935.   }
    936. 

  936. 

  937.   /// Transforme la valeur du champ source en valeur à passer à un procInput pour la champ destination
    938. 

  938.   function getValueForInput($value,$f,$targetf){
    939. 

  939.     global $DATA_DIR;
    940. 

  940.     if($targetf->ftype=='XTextDef' || $targetf->ftype=='XShortTextDef'){
    941. 

  941.       return $value->text;
    942. 

  942.     }
    943. 

  943.     if($targetf->ftype=='XBoolDef' && $f->ftype!='XBoolDef'){
    944. 

  944.       if((empty($targetf->boolcond) && !empty($value->raw)) || (!empty($targetf->boolcond) && in_array($value->raw,$targetf->boolcond)))
    945. 

  945. 	return 1;
    946. 

  946.       else
    947. 

  947. 	return 2;
    948. 

  948.     }
    949. 

  949.     switch($targetf->ftype){
    950. 

  950.     case 'XGeodesicCoordinatesDef':
    951. 

  951.       return str_replace(',','.',$value->raw);
    952. 

  952.       break;
    953. 

  953.     }
    954. 

  954.     switch($f->ftype){
    955. 

  955.     case 'XLinkDef':
    956. 

  956.       return explode('||',$value->raw);
    957. 

  957.       break;
    958. 

  958.     case 'XImageDef':
    959. 

  959.       $tmp_name=TZR_TMP_DIR.uniqid();
    960. 

  960.       copy($value->filename,$tmp_name);
    961. 

  961.       return $tmp_name;
    962. 

  962.       break;
    963. 

  963.     default:
    964. 

  964.       return $value->raw;
    965. 

  965.       break;
    966. 

  966.     }
    967. 

  967.   }
    968. 

  968.   
    969. 

  969.   /// Fonction pour checker l'état du webservice de ACVS
    970. 

  970.   function ACVSCheckService($ar=NULL){
    971. 

  971.     $p=new XParam($ar,NULL);
    972. 

  972.     $filter=$p->get('ACVSFilter');
    973. 

  973.     if(empty($filter)) $filter=$this->ACVSFilter;
    974. 

  974.     $idsql=array();
    975. 

  975. 

  976.     ini_set('soap.wsdl_cache_enabled', 0);
    977. 

  977.     $soap=new SoapClient($this->ACVSUrl.'/'.$this->ACVSFileWSDL,array('exceptions' => false));
    978. 

  978.     $header=$this->ACVSParamGetHeader();
    979. 

  979.     $params=XSystem::xml2array($filter);
    980. 

  980.     foreach($params as $param){
    981. 

  981.       $param=$this->ACVSParamGetSearchOnlyIdPrestation($param);
    982. 

  982.       $request='<?xml version="1.0" encoding="utf-8"?>';
    983. 

  983.       $request.='<soap:Envelope '.$this->ACVSEnvUris.'>';
    984. 

  984.       $request.=$header.$param;
    985. 

  985.       $request.='</soap:Envelope>';
    986. 

  986.       $xmlidlist=$soap->__doRequest($request,$this->ACVSUrl.'/'.$this->ACVSFile,$this->ACVSUrl.'/SearchOnlyIdPrestation',1);
    987. 

  987.       if(get_class($xmlidlist)=='SoapFault') die('false');
    988. 

  988.       $dom=new DOMDocument();
    989. 

  989.       $dom->loadXML($xmlidlist);
    990. 

  990.       $ids=$dom->getElementsByTagName('idPrestation');
    991. 

  991.       if(empty($ids) || $ids->length==0 || empty($ids->item(0)->textContent)) die('false');
    992. 

  992.     }
    993. 

  993.     die('true');
    994. 

  994.   }
    995. 

  995. 

  996.   /// Procédure d'import depuis le webservice d'ACVS
    997. 

  997.   function ACVSImport(/*$ar=NULL*/$sched, $o, $more) {
    998. 

  998.     $this->NSURI=$this->ACVSNSUri;
    999. 

  999.     $filter=$this->ACVSFilter;
    1000. 

  1000.     $message='';
    1001. 

  1001.     ini_set('soap.wsdl_cache_enabled', 0);
    1002. 

  1002.     $soap=new SoapClient($this->ACVSUrl.'/'.$this->ACVSFileWSDL,array('exceptions' => false));
    1003. 

  1003.     $header=$this->ACVSParamGetHeader();
    1004. 

  1004.     $params=XSystem::xml2array($filter);
    1005. 

  1005.     foreach($params as $rechname => $tzrparam){
    1006. 

  1006.       $this->acttype='ACVS ('.$rechname.')';
    1007. 

  1007.       $param=$this->ACVSParamGetSearchOnlyIdPrestation($tzrparam);
    1008. 

  1008.       $request='<?xml version="1.0" encoding="utf-8"?>';
    1009. 

  1009.       $request.='<soap:Envelope '.$this->ACVSEnvUris.'>';
    1010. 

  1010.       $request.=$header.$param;
    1011. 

  1011.       $request.='</soap:Envelope>';
    1012. 

  1012.       $xmlidlist=$soap->__doRequest($request,$this->ACVSUrl.'/'.$this->ACVSFile,$this->ACVSUrl.'/SearchOnlyIdPrestation',1);
    1013. 

  1013.       $dom=new DOMDocument();
    1014. 

  1014.       $dom->loadXML($xmlidlist);
    1015. 

  1015.       $fault=$dom->getElementsByTagName('faultstring');
    1016. 

  1016.       if($fault->length>0){
    1017. 

  1017. 	if(!empty($this->reportto)){
    1018. 

  1018. 	  $GLOBALS['XUSER']->sendMail2User('TiF : Erreur import ACVS',"L'interrogation saop a retourné l'erreur suivante : \n".
    1019. 

  1019. 					   $fault->item(0)->textContent,$this->reportto);
    1020. 

  1020. 	}
    1021. 

  1021. 	return "L'interrogation saop a retourné l'erreur suivante : \n".$fault->item(0)->textContent;
    1022. 

  1022.       }
    1023. 

  1023.       $ids=$dom->getElementsByTagName('idPrestation');
    1024. 

  1024.       foreach($ids as $i => $id){
    1025. 

  1025. 	$dom2=new DOMDocument();
    1026. 

  1026. 	$param=$this->ACVSParamGetGetPrestationTIF(array('idPrestation' => $id->textContent));
    1027. 

  1027. 	$request='<?xml version="1.0" encoding="utf-8"?>';
    1028. 

  1028. 	$request.='<soap:Envelope '.$this->ACVSEnvUris.'>';
    1029. 

  1029. 	$request.=$header.$param;
    1030. 

  1030. 	$request.='</soap:Envelope>';
    1031. 

  1031. 	$tif=$soap->__doRequest($request,$this->ACVSUrl.'/'.$this->ACVSFile,$this->ACVSUrl.'/GetPrestationTIF',1);
    1032. 

  1032. 	$dom2->loadXML($tif);
    1033. 

  1033. 	$tif=$dom2->getElementsByTagName('xmlTif');
    1034. 

  1034. 	if($tif->length>0)
    1035. 

  1035.           $this->_import(array('xmlstring' => '<?xml version="1.0"?>'.$tif->item(0)->textContent));
    1036. 

  1036.       }
    1037. 

  1037. 

  1038.       // Suppression des élémenents qui ne sont pas dans l'import
    1039. 

  1039.       $param=$this->ACVSParamGetSearchOnlyIdPrestation($tzrparam,true);
    1040. 

  1040.       $request='<?xml version="1.0" encoding="utf-8"?>';
    1041. 

  1041.       $request.='<soap:Envelope '.$this->ACVSEnvUris.'>';
    1042. 

  1042.       $request.=$header.$param;
    1043. 

  1043.       $request.='</soap:Envelope>';
    1044. 

  1044.       $xmlidlist=$soap->__doRequest($request,$this->ACVSUrl.'/'.$this->ACVSFile,$this->ACVSUrl.'/SearchOnlyIdPrestation',1);
    1045. 

  1045.       $dom=new DOMDocument();
    1046. 

  1046.       $dom->loadXML($xmlidlist);
    1047. 

  1047.       $ids=$dom->getElementsByTagName('idPrestation');
    1048. 

  1048.       $idsql=array();
    1049. 

  1049.       foreach($ids as $i => $id)
    1050. 

  1050.         $idsql[]='ACVS'.$id->textContent;
    1051. 

  1051.       if(empty($idsql)){
    1052. 

  1052.  	$mail='La requete "'.$rechname.'" n\'a retournée aucun enregistrement.';
    1053. 

  1053.  	if(!empty($this->reportto))
    1054. 

  1054.           $GLOBALS['XUSER']->sendMail2User('TiF : Erreur import ACVS',$mail,$this->reportto);
    1055. 

  1055.  	$message.=$mail."\n";
    1056. 

  1056.       }
    1057. 

  1057.       $rs=selectQuery('select KOID from '.$this->table.' where tzr_type="'.$this->acttype.'" and '.
    1058. 

  1058.   		       'dc__identifier not in ("'.implode('","',$idsql).'")');
    1059. 

  1059.       while($rs && ($ors=$rs->fetch()))
    1060. 

  1060.         $this->del(array('oid' => $ors['KOID'],'_nolog' => true));
    1061. 

  1061.       $rs->CloseCursor();
    1062. 

  1062.     }
    1063. 

  1063.     return $message;
    1064. 

  1064.   }
    1065. 

  1065. 

  1066.   /// Prepare l'entete des requètes Soap d'ACVS (identification)
    1067. 

  1067.   function ACVSParamGetHeader(){
    1068. 

  1068.     $ret='<soap:Header><AuthHeader xmlns="'.$this->ACVSUrl.'">';
    1069. 

  1069.     $ret.='<Login>'.$this->ACVSLogin.'</Login><Password>'.$this->ACVSPwd.'</Password>';
    1070. 

  1070.     $ret.='</AuthHeader></soap:Header>';
    1071. 

  1071.     return $ret;
    1072. 

  1072.   }
    1073. 

  1073. 

  1074.   /// Prepare le xml pour la fonction SearchOnlyIdPrestation du Soap ACVS
    1075. 

  1075.   function ACVSParamGetSearchOnlyIdPrestation($parameters=array(),$nodate=false){
    1076. 

  1076.     $ret='<soap:Body><SearchOnlyIdPrestation xmlns="'.$this->ACVSUrl.'">';
    1077. 

  1077.     $defaults=array('' => array('libPrestation','criteres','majApresLe'),
    1078. 

  1078. 		    '-1' => array('triEvenement','bMonth1','bMonth2','bMonth3','bMonth4','bMonth5','bMonth6',
    1079. 

  1079. 				'bMonth7','bMonth8','bMonth9','bMonth10','bMonth11','bMonth12','bWeekEnd','idAnneeExercice',
    1080. 

  1080. 				'dayBorneInfOuverture','dayBorneSupOuverture','bCritereA','bCritereB','bCritereC','bCritereD',
    1081. 

  1081. 				'bCritereE','bCritereF','bCritereG','bCritereH'));
    1082. 

  1082.     if($nodate) unset($parameters['majApresLe']);
    1083. 

  1083.     foreach($defaults as $default => $balises){
    1084. 

  1084.       foreach($balises as $balise){
    1085. 

  1085. 	if(isset($parameters[$balise])){
    1086. 

  1086. 	  if($balise=='majApresLe'){
    1087. 

  1087. 	    if(preg_match("/[0-9]{4}-[0-9]{2}-[0-9]{2}/",$parameters[$balise]))
    1088. 

  1088. 	      $ret.='<'.$balise.'>'.$parameters[$balise].'</'.$balise.'>';
    1089. 

  1089. 	    else
    1090. 

  1090. 	      $ret.='<'.$balise.'>'.date('Y-m-d',strtotime($parameters[$balise])).'</'.$balise.'>';
    1091. 

  1091. 	  }else{
    1092. 

  1092. 	    $ret.='<'.$balise.'>'.$parameters[$balise].'</'.$balise.'>';
    1093. 

  1093. 	  }
    1094. 

  1094. 	}else{
    1095. 

  1095. 	  $ret.='<'.$balise.'>'.$default.'</'.$balise.'>';
    1096. 

  1096. 	}
    1097. 

  1097.       }
    1098. 

  1098.     }
    1099. 

  1099.     $ret.='</SearchOnlyIdPrestation></soap:Body>';
    1100. 

  1100.     return $ret;
    1101. 

  1101.   }
    1102. 

  1102. 

  1103.   /// Prepare le xml pour la fonction GetPrestationTIF du Soap ACVS
    1104. 

  1104.   function ACVSParamGetGetPrestationTIF($parameters = array()){
    1105. 

  1105.     $ret='<soap:Body><GetPrestationTIF xmlns="'.$this->ACVSUrl.'">';
    1106. 

  1106.     if(isset($parameters['idPrestation'])) $ret.='<idPrestation>'.$parameters['idPrestation'].'</idPrestation>';
    1107. 

  1107.     else $ret.='<idPrestation>-1</idPrestation>';
    1108. 

  1108.     $ret.='</GetPrestationTIF></soap:Body>';
    1109. 

  1109.     return $ret;
    1110. 

  1110.   }
    1111. 

  1111. 

  1112.   /// Fonction pour checker l'état du webservice de GITD (avec die pour rq)
    1113. 

  1113.   function GITDCheckService($ar=NULL){
    1114. 

  1114.     $ret=$this->GITDCheckService2($ar);
    1115. 

  1115.     if($ret) die('true');
    1116. 

  1116.     else die('false');
    1117. 

  1117.   }
    1118. 

  1118. 

  1119.   /// Fonction pour checker l'état du webservice de GITD (retourne true ou false)
    1120. 

  1120.   function GITDCheckService2($ar=NULL){
    1121. 

  1121.     $filter=$this->GITDFilter;
    1122. 

  1122.     ini_set('soap.wsdl_cache_enabled', 0);
    1123. 

  1123.     $soap=new SoapClient($this->GITDUrl,array('exceptions' => false));
    1124. 

  1124.     $params=XSystem::xml2array($filter);
    1125. 

  1125.     foreach($params as $param){
    1126. 

  1126.       $rep=$soap->executeQueryN(array('arg0' => $this->GITDLogin,'arg1' => $this->GITDPwd,'arg2' => $…
    1127.

Large files files are truncated, but you can click here to view the full file