PageRenderTime 62ms CodeModel.GetById 19ms RepoModel.GetById 0ms app.codeStats 2ms

/class.xmodtable.inc

https://github.com/jcplat/console-seolan
PHP | 4658 lines | 4000 code | 247 blank | 411 comment | 778 complexity | 55424be8b9a6697202b4b2a0f9d9c4c8 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. /****c* tzr-5/XModTable
    3. 

  3.  * NAME
    4. 

  4.  *   XModTable -- gestion d'un ensemble de fiches
    5. 

  5.  * DESCRIPTION
    6. 

  6.  *   Affichage edition et manipulations diverses sur une ensemble de fiches.
    7. 

  7.  * SYNOPSIS
    8. 

  8.  *   La creation d'un module est realisee par utilisation de la methode de classe XModule::objectFactory.
    9. 

  9.  * PARAMETERS
    10. 

  10.  ****/
    11. 

  11. /// Module de gestion de fiches, base sur une simple table SQL
    12. 

  12. class XModTable extends XModule implements XModuleContainerInterface, XCalInterface {
    13. 

  13.   static $_templates;
    14. 

  14.   public $xset=NULL;
    15. 

  15.   public $fieldssec=array();
    16. 

  16.   public $boid;
    17. 

  17.   public $table='T001';
    18. 

  18.   public $multipleedit=true;
    19. 

  19.   public $owner_sec=true;
    20. 

  20.   public $filter='';
    21. 

  21.   public $order='UPD DESC';
    22. 

  22.   public $quickquery=true;
    23. 

  23.   public $stored_query=false;
    24. 

  24.   public $pagesize=TZR_XMODTABLE_BROWSE_PAGESIZE;
    25. 

  25.   public $templates='';
    26. 

  26.   public $btemplates='';
    27. 

  27.   public $captcha=false;
    28. 

  28.   public $savenext='standard';
    29. 

  29.   public $showsystprop='show';
    30. 

  30.   public $persistentquery=false;
    31. 

  31.   public $trackaccess=false;
    32. 

  32.   public $trackchanges=true;
    33. 

  33.   public $archive=false;
    34. 

  34.   public $searchtemplate='xmodtable/searchResult.html';
    35. 

  35.   public $submodsearch=false;
    36. 

  36.   private $secOids_cache;
    37. 

  37.   private $navActions = NULL;
    38. 

  38. 

  39.   function __construct($ar=NULL) {
    40. 

  40.     parent::__construct($ar);
    41. 

  41.     XLabels::loadLabels('xmodtable');
    42. 

  42.     $this->xset=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS='.$this->table);
    43. 

  43.     if (!is_object($this->xset)) {
    44. 

  44.       throw new Exception('Non existent table: "'.$this->table.'"');
    45. 

  45.     }
    46. 

  46.     $this->boid=$this->xset->getBoid();
    47. 

  47.     if(XShell::admini_mode() && empty($this->_templates) && (!empty($this->templates) || !empty($this->btemplates)))
    48. 

  48.       $this->_templates=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS=TEMPLATES');
    49. 

  49. 

  50.     if(!XShell::isRoot() && !empty($GLOBALS['XUSER'])) $this->loadFieldsSec($this->fieldssec);
    51. 

  51.   }
    52. 

  52. 

  53. 

  54.   /// Duplication d'un module, méthode interne
    55. 

  55.   /// Retour : duplicatetables => liste des tables dupliquées par le module (cle : ancienne table, valeur : nouvelle table))
    56. 

  56.   /// Retour : duplicatemods => liste des modules dupliqués par le module (cle : ancien moid, valeur : nouveau moid))
    57. 

  57.   function _duplicateModule($newmoid,&$params,$prefix) {
    58. 

  58.     if(!is_array($params['tables'])) $params['tables']=array();
    59. 

  59.     if(!$params['noduplicatetable']){
    60. 

  60.       if(empty($params['tables'][$this->table])){
    61. 

  61. 	$ar['newtable']=XDSTable::newTableNumber();
    62. 

  62. 	if(($pos=strpos($this->xset->getLabel(),':'))!==false) $ar['mtxt']=$prefix.substr($this->xset->getLabel(),$pos);
    63. 

  63. 	else $ar['mtxt']=$prefix.':'.$this->xset->getLabel();
    64. 

  64. 	$ar['data']=true;
    65. 

  65. 	$ar['_options']=array('local'=>1);
    66. 

  66. 	$xset2=$this->xset->procDuplicateDataSource($ar);
    67. 

  67. 	$params['table']=$ar['newtable'];
    68. 

  68.       }else{
    69. 

  69. 	$params['table']=$params['tables'][$this->table];
    70. 

  70.       }
    71. 

  71.     }
    72. 

  72.     unset($params['noduplicatetable']);
    73. 

  73.     return array('duplicatetables'=>array($this->table=>$params['table']),'duplicatemods'=>array());
    74. 

  74.   }
    75. 

  75. 

  76.   /// securite des fonctions accessibles par le web
    77. 

  77.   function secGroups($function, $group=NULL) {
    78. 

  78.     $g=array();
    79. 

  79.     $g['browse']=array('list','ro','rw','rwv','admin');
    80. 

  80.     $g['browseFiles']=array('list','ro','rw','rwv','admin');
    81. 

  81.     $g['del']=array('rw','rwv','admin');
    82. 

  82.     $g['delAll']=array('rw','rwv','admin');
    83. 

  83.     $g['delStoredQuery']=array('rw','rwv','admin');
    84. 

  84.     $g['display']=array('ro','rw','rwv','admin');
    85. 

  85.     $g['XMCdisplay']=array('ro','rw','rwv','admin');
    86. 

  86.     $g['edit']=array('rw','rwv','admin');
    87. 

  87.     $g['editSelection']=array('rw','rwv','admin');
    88. 

  88.     $g['editAll']=array('rw','rwv','admin');
    89. 

  89.     $g['export']=array('list','ro','rw','rwv','admin');
    90. 

  90.     $g['exportDisplay']=array('ro','rw','rwv','admin');
    91. 

  91.     $g['exportFilesBatch']=array('ro','rw','rwv','admin');
    92. 

  92.     $g['gDisplay']=array('admin');
    93. 

  93.     $g['insert']=array('rw','rwv','admin');
    94. 

  94.     $g['journal']=array('ro','rw','rwv','admin');
    95. 

  95.     $g['prePrintBrowse']=array('list','ro','rw','rwv','admin');
    96. 

  96.     $g['prePrintDisplay']=array('list','ro','rw','rwv','admin');
    97. 

  97.     $g['preExportBrowse']=array('list','ro','rw','rwv','admin');
    98. 

  98.     $g['preExportDisplay']=array('list','ro','rw','rwv','admin');
    99. 

  99.     $g['printBrowse']=array('list','ro','rw','rwv','admin');
    100. 

  100.     $g['printDisplay']=array('ro','rw','rwv','admin');
    101. 

  101.     $g['procEdit']=array('rw','rwv','admin');
    102. 

  102.     $g['procEditDup']=array('rw','rwv','admin');
    103. 

  103.     $g['procEditAllLang']=array('rw','rwv','admin');
    104. 

  104.     $g['procEditSelection']=array('rw','rwv','admin');
    105. 

  105.     $g['procInsert']=array('rw','rwv','admin');
    106. 

  106.     $g['procQuery']=array('list','ro','rw','rwv','admin');
    107. 

  107.     $g['procQueryFiles']=array('list','ro','rw','rwv','admin');
    108. 

  108.     $g['publish']=array('rwv','admin');
    109. 

  109.     $g['query']=array('list', 'ro','rw','rwv','admin');
    110. 

  110.     $g['quickquery']=array('list','ro','rw','rwv','admin');
    111. 

  111.     $g['adminSubscribe']=array('admin');
    112. 

  112.     $g['getUnread']=array('list','ro','rw','rwv','admin');
    113. 

  113.     $g['markAsRead']=array('list','ro','rw','rwv','admin');
    114. 

  114.     self::getGetAdminSecGroups($g);
    115. 

  115.     if(isset($g[$function])) {
    116. 

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

  117.       return $g[$function];
    118. 

  118.     }
    119. 

  119.     return parent::secGroups($function,$group);
    120. 

  120.   }
    121. 

  121. 

  122.   /// Complete le tableau des focntion du module avec les fonction d'administration
    123. 

  123.   function getGetAdminSecGroups(&$g){
    124. 

  124.     $g['adminBrowseFields']=array('admin');
    125. 

  125.     $g['adminPrint']=array('admin');
    126. 

  126.     $g['adminClear']=array('admin');
    127. 

  127.     $g['adminDuplicate']=array('admin');
    128. 

  128.     $g['adminProcDuplicate']=array('admin');
    129. 

  129.     $g['adminChk']=array('admin');
    130. 

  130.     $g['adminEditSourceProperties']=array('admin');
    131. 

  131.     $g['adminProcEditSourceProperties']=array('admin');
    132. 

  132.     $g['adminNewField']=array('admin');
    133. 

  133.     $g['adminProcNewField']=array('admin');
    134. 

  134.     $g['adminEditField']=array('admin');
    135. 

  135.     $g['adminProcEditField']=array('admin');
    136. 

  136.     $g['adminProcEditFields']=array('admin');
    137. 

  137.     $g['adminDelField']=array('admin');
    138. 

  138.     $g['adminBrowseStrings']=array('admin');
    139. 

  139.     $g['adminNewString']=array('admin');
    140. 

  140.     $g['adminProcNewString']=array('admin');
    141. 

  141.     $g['adminEditString']=array('admin');
    142. 

  142.     $g['adminProcEditString']=array('admin');
    143. 

  143.     $g['adminDelString']=array('admin');
    144. 

  144.     $g['adminSortStrings']=array('admin');
    145. 

  145.     $g['adminClearStrings']=array('admin');
    146. 

  146.     $g['adminPreImportFieldsSec']=array('admin');
    147. 

  147.     $g['adminImportFieldsSec']=array('admin');
    148. 

  148.     $g['adminResetChrono']=array('admin');
    149. 

  149.   }
    150. 

  150. 

  151.   /* Webservice du module */
    152. 

  152.   /// Sous fonction chargée d'ajouter les types necessaires
    153. 

  153.   function _SOAPWSDLTypes(&$wsdl){
    154. 

  154.     $fields=array(array('minOccurs'=>1,'maxOccurs'=>1,'name'=>'oid','type'=>'xsd:string'));
    155. 

  155.     foreach($this->xset->desc as $n=>&$f){
    156. 

  156.       $type=$f->getSoapType();
    157. 

  157.       $fields[]=array('minOccurs'=>0,'maxOccurs'=>1,'name'=>$n,'type'=>$type['name']);
    158. 

  158.       if(!empty($type['descr'])) $this->_SOAPAddTypes($wsdl,$type['descr']);
    159. 

  159.     }
    160. 

  160.     $this->_SOAPAddTypes($wsdl,array('browseParam'=>array(array('name'=>'filter','minOccurs'=>0,'maxOccurs'=>1,'type'=>'xsd:string'),
    161. 

  161. 							  array('name'=>'fields','minOccurs'=>0,'maxOccurs'=>1,'type'=>'xsd:string')),
    162. 

  162.                                      'displayParam'=>array(array('name'=>'oid','minOccurs'=>1,'maxOccurs'=>1,'type'=>'xsd:string')),
    163. 

  163. 				     'displayResult'=>$fields,
    164. 

  164. 				     'browseResult'=>array(array('name'=>'line','minOccurs'=>0,'maxOccurs'=>'unbounded','type'=>'tns:displayResult'))));
    165. 

  165.     return;
    166. 

  166.   }
    167. 

  167.   /// Sous fonction chargée d'ajouter les messages necessaires
    168. 

  168.   function _SOAPWSDLMessages(&$wsdl){
    169. 

  169.     $wsdl->addMessage('browseIn',array('context'=>'tns:contextParam','param'=>'tns:browseParam'));
    170. 

  170.     $wsdl->addMessage('browseOut',array('return'=>'tns:browseResult'));
    171. 

  171.     $wsdl->addMessage('displayIn',array('context'=>'tns:contextParam','param'=>'tns:displayParam'));
    172. 

  172.     $wsdl->addMessage('displayOut',array('return'=>'tns:displayResult'));
    173. 

  173.     return;
    174. 

  174.   }
    175. 

  175.   /// Sous fonction chargée d'ajouter les ports necessaires
    176. 

  176.   function _SOAPWSDLPortOps(&$wsdl,&$pt){
    177. 

  177.     $wsdl->addPortOperation($pt,'browse','tns:browseIn','tns:browseOut');
    178. 

  178.     $wsdl->addPortOperation($pt,'display','tns:displayIn','tns:displayOut');
    179. 

  179.     return;
    180. 

  180.   }
    181. 

  181.   /// Sous fonction chargée d'ajouter les operations necessaires
    182. 

  182.   function _SOAPWSDLBindingOps(&$wsdl,&$b){
    183. 

  183.     $bo=$wsdl->addBindingOperation($b,'browse',array('use'=>'literal'),array('use'=>'literal'));
    184. 

  184.     $o=$wsdl->addSoapOperation($bo,'');
    185. 

  185.     $o->setAttribute('style','rpc');
    186. 

  186.     $bo=$wsdl->addBindingOperation($b,'display',array('use'=>'literal'),array('use'=>'literal'));
    187. 

  187.     $o=$wsdl->addSoapOperation($bo,'');
    188. 

  188.     $o->setAttribute('style','rpc');
    189. 

  189.     return;
    190. 

  190.   }
    191. 

  191.   /// Sous fonction declarant les fonctions du module
    192. 

  192.   function _SOAPRequestFunctions(&$server) {
    193. 

  193.     function browse($context,$params){
    194. 

  194.       global $soapmod;
    195. 

  195.       $LANG_DATA = XShell::getLangData();
    196. 

  196.       XLogs::debug("SOAPRequest function browse LANG:$LANG_DATA filter:".$params->filter." fields:".$params->fields);
    197. 

  197.       $soapmod->SOAPContext($context,'browse');
    198. 

  198.       $ar=array('tplentry'=>TZR_RETURN_DATA,'pagesize'=>999999);
    199. 

  199.       if(!empty($params->fields)){
    200. 

  200. 	if($params->fields=='all' || $params->fields=='*') $ar['selectedfields']='all';
    201. 

  201. 	else $ar['selectedfields']=explode(',',$params->fields);
    202. 

  202.       }
    203. 

  203.       if(!empty($params->filter)){
    204. 

  204. 	$translatable = $soapmod->xset->getTranslatable();
    205. 

  205. 

  206. 	if(!$translatable) $LANG_DATA=TZR_DEFAULT_LANG;
    207. 

  207. 	$ar['select']='select * from '.$soapmod->table.' where LANG="'.$LANG_DATA.'" AND ('.str_ireplace(' select ','',$params->filter).')';
    208. 

  208.       }
    209. 

  209.       $ar['nocount'] = 1;
    210. 

  210.       foreach($ar['selectedfields'] as $fieldname){
    211. 

  211. 	$ar['options'][$fieldname]['nofollowlinks']=1;
    212. 

  212.       }
    213. 

  213.       $br=$soapmod->browse($ar);
    214. 

  214.       $lines=array();
    215. 

  215.       foreach($br['lines_oid'] as $i=>$oid){
    216. 

  216. 	$line=array('oid'=>$oid);
    217. 

  217. 	foreach($br['header_fields'] as $j=>&$f){
    218. 

  218. 	  $line[$f->field]=$br['lines_o'.$f->field][$i]->getSoapValue();
    219. 

  219. 	}
    220. 

  220. 	$lines[]=$line;
    221. 

  221.       }
    222. 

  222.       return array('line'=>$lines);
    223. 

  223.     }
    224. 

  224.     function display($context,$params){
    225. 

  225.       global $soapmod;
    226. 

  226.       XLogs::debug("SOAPRequest function display oid:".$params->oid);
    227. 

  227.       $soapmod->SOAPContext($context,'display',$params->oid);
    228. 

  228.       $ar=array('tplentry'=>TZR_RETURN_DATA,'oid'=>$params->oid);
    229. 

  229.       $br=$soapmod->display($ar);
    230. 

  230.       $ret=array('oid'=>$br['oid']);
    231. 

  231.       foreach($br['fields_object'] as $j=>&$f){
    232. 

  232. 	$ret[$f->field]=$br['o'.$f->field]->getSoapValue();
    233. 

  233.       }
    234. 

  234.       return $ret;
    235. 

  235.     }
    236. 

  236.     $server->addFunction(array('browse','display'));
    237. 

  237.   }
    238. 

  238. 

  239.   /// Rend la liste des fonctions utilisables dans le gestionnaire de rubriques en mode fonction (tableau de paires fonction=>label)
    240. 

  240.   function getUIFunctionList() {
    241. 

  241.     return array('display'=>XLabels::getSysLabel('xmodtable','uidisplay','text'),
    242. 

  242. 		 'procQuery'=>XLabels::getSysLabel('xmodtable','uiquery','text'),
    243. 

  243. 		 'insert'=>XLabels::getSysLabel('xmodtable','uiinsert','text'));
    244. 

  244.   }
    245. 

  245. 

  246.   /// Suppression du module
    247. 

  247.   function delete($ar=NULL) {
    248. 

  248.     return parent::delete($ar);
    249. 

  249.   }
    250. 

  250. 

  251.   /// Initialisation des propriétés
    252. 

  252.   public function initOptions() {
    253. 

  253.     parent::initOptions();
    254. 

  254.     $genlabel=XLabels::getSysLabel('xmodule.general');
    255. 

  255.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable','multipleedit'),'multipleedit','boolean',NULL,NULL,$genlabel);
    256. 

  256.     $slabel=XLabels::getSysLabel('general','security','text');
    257. 

  257.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable','owner_sec'),'owner_sec','boolean',NULL,NULL,$slabel);
    258. 

  258.     $alabel = XLabels::getSysLabel('xmodtable.modulename');
    259. 

  259.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable','table'),'table','table',array('validate'=>true),NULL,$alabel);
    260. 

  260.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable','filter'),'filter','text',NULL,NULL,$alabel);
    261. 

  261.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable.order'),'order','text',NULL,NULL,$alabel);
    262. 

  262.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable.quickquery'),'quickquery','boolean',NULL,NULL,$alabel);
    263. 

  263.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable.stored_query'),'stored_query','boolean',NULL,NULL,$alabel);
    264. 

  264.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable.pagesize'),'pagesize','text',NULL,NULL,$alabel);
    265. 

  265.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable.templates'),'templates','template',array('moid'=>$this->_moid, 'cond'=>"(gtype like '%')"),
    266. 

  266. 			    NULL,$alabel);
    267. 

  267.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable.btemplates'),'btemplates','template',array('moid'=>$this->_moid, 'cond'=>"(gtype like '%')"),
    268. 

  268. 			    NULL,$alabel);
    269. 

  269.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable.captcha'),'captcha','boolean',NULL,NULL,$alabel);
    270. 

  270.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable.savenext'),'savenext','list',
    271. 

  271. 			    array('values'=>array('standard','display','edit'),
    272. 

  272. 				  'labels'=>array(XLabels::getSysLabel('xmodtable.savenext_std'),
    273. 

  273. 						  XLabels::getSysLabel('xmodtable.savenext_display'),
    274. 

  274. 						  XLabels::getSysLabel('xmodtable.savenext_edit'))),
    275. 

  275. 			    NULL, $alabel);
    276. 

  276.     $this->_options->setOpt(XLabels::getSysLabel('general.systemproperties'),'showsystprop','list',
    277. 

  277. 			    array('values'=>array('show','hide'),
    278. 

  278. 				  'labels'=>array(XLabels::getSysLabel('general.yes'),
    279. 

  279. 						  XLabels::getSysLabel('general.no'))),
    280. 

  280. 			    NULL,$alabel);
    281. 

  281.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable.persistentquery'),'persistentquery','boolean',NULL,NULL,$alabel);
    282. 

  282.     $slabel=XLabels::getSysLabel('xmodule.ssmod');
    283. 

  283.     $tlabel=XLabels::getSysLabel('general','title','text');
    284. 

  284.     $flabel=XLabels::getSysLabel('general','field','text');
    285. 

  285.     $ilabel=XLabels::getSysLabel('xmodtable','activate_additem');
    286. 

  286.     $dlabel=XLabels::getSysLabel('xmodtable','dependentfiles');
    287. 

  287.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable','submodmax'),'submodmax','text',NULL,NULL,$slabel);
    288. 

  288.     $this->_options->setOpt(XLabels::getSysLabel('xmodtable','submodsearch'),'submodsearch','boolean',NULL,NULL,$slabel);
    289. 

  289.     if(!empty(XModule::$_mcache[$this->_moid]['MPARAM']['submodmax']))
    290. 

  290.       $this->_options->set($this,'submodmax',XModule::$_mcache[$this->_moid]['MPARAM']['submodmax']);
    291. 

  291.     for($i=1;$i<=$this->submodmax;$i++) {
    292. 

  292.       $this->_options->setOpt($tlabel.' '.$i,'ssmodtitle'.$i,'text',NULL,'',$slabel);
    293. 

  293.       $this->_options->setOpt($flabel.' '.$i,'ssmodfield'.$i,'text',NULL,'',$slabel);
    294. 

  294.       $this->_options->setOpt($slabel.' '.$i,'ssmod'.$i,'module',array('validate'=>true),'', $slabel);
    295. 

  295.       $this->_options->setOpt($ilabel.' '.$i,'ssmodactivate_additem'.$i,'boolean',NULL,true,$slabel);
    296. 

  296.       $this->_options->setOpt($dlabel.' '.$i,'ssmoddependent'.$i,'boolean',NULL,false,$slabel);
    297. 

  297.     }
    298. 

  298.     $tlabel=XLabels::getSysLabel('xmodule.tracking');
    299. 

  299.     $this->_options->setOpt(XLabels::getSysLabel('xfielddef','trackchanges'),'trackchanges','boolean',NULL,NULL,$tlabel);
    300. 

  300.     $this->_options->setOpt(XLabels::getSysLabel('xfielddef','trackaccess'),'trackaccess','boolean',NULL,NULL,$tlabel);
    301. 

  301.     $this->_options->setOpt(XLabels::getSysLabel('xfielddef','archive'),'archive','boolean',NULL,NULL,$tlabel);
    302. 

  302.   }
    303. 

  303. 

  304.   /// Cette fonction est appliquee pour afficher l'ensemble des methodes de ce module
    305. 

  305.   protected function _actionlist(&$my) {
    306. 

  306.     parent::_actionlist($my);
    307. 

  307.     $myclass=get_class($this);
    308. 

  308.     $moid=$this->_moid;
    309. 

  309.     $myoid=@$_REQUEST['oid'];
    310. 

  310.     $user=&XUser::get_user();
    311. 

  311.     $f=XShell::_function();
    312. 

  312.     $uniqid='v'.XShell::uniqid();
    313. 

  313.     $submodcontext=NULL;
    314. 

  314. 

  315.     // Parcourir
    316. 

  316.     if($this->secure('','browse')){
    317. 

  317.       // recupération du contexte sous module
    318. 

  318.       $submodcontext = $this->subModuleContext(array(), true);
    319. 

  319.       // en sous fiche, le browse est un retour à la fiche parent
    320. 

  320.       if($this->dependant_module && $submodcontext) { 
    321. 

  321.         $o1=new XModuleAction($this,'browse',XLabels::getSysLabel('general','browse','text'),
    322. 

  322.                                 '&moid='.$this->dependant_module.'&_function=display&template=xmodtable/view.html&tplentry=br&oid='.
    323. 

  323.                                 $submodcontext['_parentoids'][0].$submodcontext['urlparms'],'display');
    324. 

  324.       } else {
    325. 

  325. 	$o1=new XModuleAction($this,'browse',XLabels::getSysLabel('general','browse','text'),
    326. 

  326. 			      '&moid='.$moid.'&_function=browse&template=xmodtable/browse.html&tplentry=br','display');
    327. 

  327.       }
    328. 

  328.       $o1->containable=true;
    329. 

  329.       $o1->setToolbar('general','browse');
    330. 

  330.       $my['browse']=$o1;
    331. 

  331.     }
    332. 

  332. 

  333.     // Recherche
    334. 

  334.     if((!$this->dependant_module || !$submodcontext) && $this->secure('','query')) {
    335. 

  335.       $o1=new XModuleAction($this,'query',XLabels::getSysLabel('general','query','text'),
    336. 

  336. 			    '&moid='.$moid.'&_function=query&template=xmodtable/query2.html&tplentry=br&querymode=query2','display');
    337. 

  337.       $o1->containable=true;
    338. 

  338.       $o1->setToolbar('general','query');
    339. 

  339.       $my['query']=$o1;
    340. 

  340.     }
    341. 

  341. 

  342.     // Recherche en cours
    343. 

  343.     if($this->isThereAQueryActive()) {
    344. 

  344.       $o1=new XModuleAction($this,'procQuery',XLabels::getSysLabel('general','currentquery','text'),
    345. 

  345. 			    '&moid='.$moid.'&_function=procQuery&template=xmodtable/browse.html&tplentry=br','display');
    346. 

  346.       $o1->setToolbar('general','currentquery');
    347. 

  347.       $my['procquery']=$o1;
    348. 

  348.     }
    349. 

  349. 

  350.     // Insert
    351. 

  351.     $lang_data=XShell::getLangData();
    352. 

  352.     $foo=NULL;
    353. 

  353.     if($this->xset->getTranslatable()==3) $sec=$this->secure($myoid,'insert',$foo,$lang_data);
    354. 

  354.     else $sec=$this->secure($myoid,'insert');
    355. 

  355.     if($sec && (!$this->dependant_module || !$submodcontext)) {
    356. 

  356.       $o1=new XModuleAction($this,'insert',XLabels::getSysLabel('general','new','text'),
    357. 

  357. 			    '&moid='.$moid.'&_function=insert&template=xmodtable/new.html&tplentry=br','edit');
    358. 

  358.       $o1->setToolbar('general','new');
    359. 

  359.       $o1->order=1;
    360. 

  360.       $my['insert']=$o1;
    361. 

  361.     }
    362. 

  362. 

  363.     // Actions de navigation de fiche en fiche : nous ne sommes pas en sous module
    364. 

  364.     if(!empty($this->navActions) && !$submodcontext){
    365. 

  365.       foreach($this->navActions as $ak=>$o){
    366. 

  366. 	$my[$ak] = $o;
    367. 

  367.       }
    368. 

  368.     }
    369. 

  369. 

  370.     // Avertir
    371. 

  371.     $oid=@$_REQUEST['oid'];
    372. 

  372.     if ($this->secure('', 'sendACopyTo')){
    373. 

  373.       if(!empty($oid)) {
    374. 

  374. 	$o1=new XModuleAction($this,'sendACopy',XLabels::getSysLabel('xmodule','sendacopyto','text'),
    375. 

  375. 			      '&moid='.$moid.'&tplentry=br&oid='.$oid.'&_function=sendACopyTo&template=xmodule/sendacopyto.html&tplentry=br');
    376. 

  376.       }else{
    377. 

  377. 	$o1=new XModuleAction($this,'sendACopy',XLabels::getSysLabel('xmodule','sendacopyto','text'),
    378. 

  378. 			      'javascript:'.$uniqid.'.applyfunction("sendACopyTo","",{template:"xmodule/sendacopyto.html"},true,true);');
    379. 

  379.       }
    380. 

  380.       $o1->menuable=true;
    381. 

  381.       $o1->group='more';
    382. 

  382.       $my['sendacopy']=$o1;
    383. 

  383.     }
    384. 

  384. 

  385.     // Impression
    386. 

  386.     if(in_array(XShell::_function(),array('display','edit'))) $printfct='printDisplay';
    387. 

  387.     else $printfct='printBrowse';
    388. 

  388.     if(XShell::_function()!='insert' && $this->secure($myoid,$printfct)){
    389. 

  389.       $o1=new XModuleAction($this,'print',XLabels::getSysLabel('general','print','text'),
    390. 

  390. 			    'javascript:'.$uniqid.'.printselected();','display');
    391. 

  391.       $o1->setToolbar('general','print');
    392. 

  392.       $my['print']=$o1;
    393. 

  393.     }
    394. 

  394. 

  395.     // Export
    396. 

  396.     if(in_array(XShell::_function(),array('display','edit'))) $expfct='exportDisplay';
    397. 

  397.     else $expfct='export';
    398. 

  398.     if(XShell::_function()!='insert' && $this->secure($myoid,$expfct)){
    399. 

  399.       $o1=new XModuleAction($this,'export',XLabels::getSysLabel('general','export','text'),'javascript:'.$uniqid.'.exportselected();',
    400. 

  400. 			    'edit');
    401. 

  401.       $o1->menuable=true;
    402. 

  402.       $my['sexport']=$o1;
    403. 

  403.     }
    404. 

  404. 

  405.     //Import
    406. 

  406.     if($this->secure('','manage')){
    407. 

  407.       $o1=new XModuleAction($this,'manage',XLabels::getSysLabel('general','import','text'),
    408. 

  408. 			    $GLOBALS['TZR_SESSION_MANAGER']::complete_self().'&moid='.$this->_moid.'&function=manage&template=xmodule/manage.html','edit');
    409. 

  409.       $o1->menuable=true;
    410. 

  410.       $my['import']=$o1;
    411. 

  411.     }
    412. 

  412. 

  413.     // Voir les documents non lus
    414. 

  414.     if($this->trackaccess && $this->secure('','getUnread')){
    415. 

  415.       $o1=new XModuleAction($this,'lastdoc',XLabels::getSysLabel('xmodule','unread','text'),
    416. 

  416. 			    '&moid='.$this->_moid.'&_function=getUnread&tplentry=br&template=xmodtable/getUnread.html','more');
    417. 

  417.       $o1->menuable=true;
    418. 

  418.       $my['unread']=$o1;
    419. 

  419.     }
    420. 

  420. 

  421.     // Abonnements
    422. 

  422.     $modsubmoid=XModule::getMoid(XMODSUB_TOID);
    423. 

  423.     if(!empty($modsubmoid)){
    424. 

  424.       $o1=new XModuleAction($this, 'subscribe', XLabels::getSysLabel('xmodsub','subadd','text'),
    425. 

  425. 			    '&amoid='.$this->_moid.'&moid='.$modsubmoid.
    426. 

  426. 			    '&_function=preSubscribe&tplentry=br&template=xmodsub/sub.html&aoid='.$myoid);
    427. 

  427.       $o1->menuable=true;
    428. 

  428.       $o1->group='more';
    429. 

  429.       $my['subscribe']=$o1;
    430. 

  430.     }
    431. 

  431. 

  432.     // Regles workflow
    433. 

  433.     if($this->stored_query){
    434. 

  434.       $modrulemoid=XModule::getMoid(XMODRULE_TOID);
    435. 

  435.       if(!empty($modrulemoid)){
    436. 

  436. 	$o1=new XModuleAction($this, 'rule', XLabels::getSysLabel('xmodrule','addrule','text'),
    437. 

  437. 			      '&amoid='.$this->_moid.'&moid='.$modrulemoid.
    438. 

  438. 			      '&_function=insertRule&tplentry=br&template=xmodrule/newRule.html&atemplate=xmodtable/editSelection.html');
    439. 

  439. 	$o1->menuable=true;
    440. 

  440. 	$o1->group='more';
    441. 

  441. 	$my['rule']=$o1;
    442. 

  442.       }
    443. 

  443.     }
    444. 

  444. 

  445.     // Mode conception et administration
    446. 

  446.     if($this->secure('','adminBrowseFields')){
    447. 

  447.       $o1=new XModuleAction($this, 'administration', XLabels::getSysLabel('general', 'administration', 'text'),
    448. 

  448. 			    '&moid='.$this->_moid.'&function=adminBrowseFields&template=xmodule/admin/browseFields.html','admin');
    449. 

  449.       $o1->setToolBar('general', 'administration');
    450. 

  450.       $my['administration']=$o1;
    451. 

  451.     }
    452. 

  452. 

  453.     // Chemin
    454. 

  454.     if($this->interactive) {
    455. 

  455.       if($this->dependant_module && $submodcontext) {
    456. 

  456. 	$mod1=XModule::objectFactory($this->dependant_module);
    457. 

  457. 	$o1=new XModuleAction($this,'browse',$mod1->modulename,
    458. 

  458. 			      '&moid='.$this->dependant_module.'&_function=browse&template=xmodtable/browse.html&tplentry=br');
    459. 

  459. 	$my['stack'][]=$o1;
    460. 

  460. 	$d1=&$mod1->xset->rDisplayText($submodcontext['_parentoids'][0], array());
    461. 

  461. 	$o1=new XModuleAction($this,'d1',$d1['link'],
    462. 

  462. 			      '&moid='.$this->dependant_module.'&_function=display&template=xmodtable/view.html&tplentry=br&oid='.
    463. 

  463. 			      $submodcontext['_parentoids'][0]);
    464. 

  464. 	$my['stack'][]=$o1;
    465. 

  465.       } else {
    466. 

  466. 	$o1=new XModuleAction($this,'browse',$this->modulename,
    467. 

  467. 			      '&moid='.$moid.'&_function=browse&template=xmodtable/browse.html&tplentry=br','display');
    468. 

  468. 	$my['stack'][]=$o1;
    469. 

  469. 	$f=XShell::_function();
    470. 

  470. 	if(strpos($f,'admin')===0){
    471. 

  471. 	  $o1=new XModuleAction($this,'adminBrowseFields',XLabels::getSysLabel('xmodule','browsefields','text').' ('.$this->xset->getTable().')',
    472. 

  472. 				'&moid='.$moid.'&_function=adminBrowseFields&template=xmodule/admin/browseFields.html','display');
    473. 

  473. 	  $my['stack'][]=$o1;
    474. 

  474. 	}
    475. 

  475.       }
    476. 

  476. 

  477.       if(!empty($oid) && !is_array($oid)) {
    478. 

  478. 	$br=&XShell::from_screen('br');
    479. 

  479. 	$br=&$this->xset->rDisplayText($oid, array());
    480. 

  480. 	if($submodcontext) {
    481. 

  481. 	  $o1=new XModuleAction($this,'browse',$br['link'],
    482. 

  482. 				'&moid='.$moid.$submodcontext['urlparms'].
    483. 

  483. 				'&_function=display&template=xmodtable/view.html&tplentry=br&oid='.$oid,'display');
    484. 

  484. 	} else {
    485. 

  485. 	  $o1=new XModuleAction($this,'browse',$br['link'],
    486. 

  486. 				'&moid='.$moid.'&_function=display&template=xmodtable/view.html&tplentry=br&oid='.$oid,'display');
    487. 

  487. 	}
    488. 

  488. 	$my['stack'][]=$o1;
    489. 

  489.       }
    490. 

  490.     }
    491. 

  491.   }
    492. 

  492. 

  493.   /// Action principale du menu
    494. 

  494.   public function getMainAction(){
    495. 

  495.     return $GLOBALS['TZR_SESSION_MANAGER']::complete_self().'moid='.$this->_moid.'&function=browse&tplentry=br&template=xmodtable/browse.html&_persistent=1';
    496. 

  496.   }
    497. 

  497. 

  498.   /**
    499. 

  499.    * Contruit la liste des actions relatives aux sous-modules
    500. 

  500.    * @param &$my array() Liste de XModuleAction
    501. 

  501.    */
    502. 

  502.   function getSSMAl(&$my){
    503. 

  503.     $uniqid='v'.XShell::uniqid();
    504. 

  504.     $myoid=@$_REQUEST['oid'];
    505. 

  505.     $ssmmenu=array();
    506. 

  506.     for($i=1;$i<=$this->submodmax;$i++) {
    507. 

  507.       $f='ssmod'.$i;
    508. 

  508.       $ff='ssmodfield'.$i;
    509. 

  509.       $fa='ssmodactivate_additem'.$i;
    510. 

  510.       if(!$this->$fa || !$this->$f) continue;
    511. 

  511.       if(empty($this->$ff)){
    512. 

  512. 	$smod=XModule::objectFactory($this->$f);
    513. 

  513. 	$links=$smod->xset->getXLinkDefs(NULL,$this->table);
    514. 

  514. 	if(!empty($links)) list($foo,$linkfield)=each($links);
    515. 

  515.       } else {
    516. 

  516. 	$linkfield = $this->$ff;
    517. 

  517.       }
    518. 

  518.       $ssm=XModule::objectFactory($this->$f);
    519. 

  519.       if(!$ssm->secure('','insert')) continue;
    520. 

  520.       $submodcontext=$this->subModuleContext($ar); // ???? sert pas
    521. 

  521.       $o1=new XModuleAction($this,$f,$ssm->modulename,
    522. 

  522. 			    'javascript:'.$uniqid.'.addTabs("'.$this->$f.'","'.$GLOBALS['TZR_SESSION_MANAGER']::complete_self().'&moid='.$this->$f.'&function=insert&template=xmodtable/new.html&tplentry=br&_linkedfields[]='.$linkfield.
    523. 

  523. 			    '&_parentoids[]='.$myoid.'&_parentoid='.$myoid.'&_linkedfield='.$linkfield.'&_raw=1&_ajax=1&skip=1'.			
    524. 

  524. 			    '&tabsmode=1","'.XLabels::getSysLabel('general','add','text').' : '.addslashes($ssm->modulename).'");');
    525. 

  525.       $o1->menuable=true;
    526. 

  526.       $ssmmenu[]=$o1;
    527. 

  527.     }
    528. 

  528.     if(count($ssmmenu)>1){
    529. 

  529.       $o1=new XModuleAction($this,'alladd',XLabels::getSysLabel('general','add','text'),'#');
    530. 

  530.       $o1->menuable=true;
    531. 

  531.       $o1->newgroup='ssm';
    532. 

  532.       $my['ssm']=$o1;
    533. 

  533.       foreach($ssmmenu as &$o1){
    534. 

  534. 	$o1->group='ssm';
    535. 

  535. 	$my[$o1->xfunction]=$o1;
    536. 

  536.       }
    537. 

  537.     }else{
    538. 

  538.       foreach($ssmmenu as &$o1){
    539. 

  539. 	$o1->name=XLabels::getSysLabel('general','add','text').' : '.$o1->name;
    540. 

  540. 	$my[$o1->xfunction]=$o1;
    541. 

  541.       }
    542. 

  542.     }
    543. 

  543.   }
    544. 

  544. 

  545.   /**
    546. 

  546.    * Construit la liste des actions à rendre disponible lors de l'affichage d'une fiche (display)
    547. 

  547.    * @param &$my array() Liste de XModuleAction
    548. 

  548.    */
    549. 

  549.   function al_display(&$my){
    550. 

  550.     $uniqid='v'.XShell::uniqid();
    551. 

  551.     $moid=$this->_moid;
    552. 

  552.     $myoid=@$_REQUEST['oid'];
    553. 

  553.     $sec=$this->secure($myoid,'edit');
    554. 

  554.     if($sec) {
    555. 

  555.       // recuperation contexte sous module
    556. 

  556.       $submodcontext=$this->subModuleContext();
    557. 

  557.       $o1=new XModuleAction($this,'edit',XLabels::getSysLabel('general','edit','text'),
    558. 

  558. 			    '&function=edit&moid='.$moid.'&template=xmodtable/edit.html&tplentry=br&oid='.$myoid.$submodcontext['urlparms'],'edit');
    559. 

  559.       $o1->order=2;
    560. 

  560.       $o1->setToolbar('general','edit');
    561. 

  561.       $my['edit']=$o1;
    562. 

  562.     }
    563. 

  563.     $sec=$this->secure($myoid,'del');
    564. 

  564.     if($sec){
    565. 

  565.       $o1=new XModuleAction($this,'del',XLabels::getSysLabel('general','delete','text'),'javascript:'.$uniqid.'.deleterecord();','edit');
    566. 

  566.       $o1->order=3;
    567. 

  567.       $o1->setToolbar('general','delete');
    568. 

  568.       $my['del']=$o1;
    569. 

  569.     }
    570. 

  570.     $this->getSSMAl($my);
    571. 

  571.   }
    572. 

  572. 

  573.   /**
    574. 

  574.    * Construit la liste des actions à rendre disponible lors de la préparation à l'édition d'une fiche (edit)
    575. 

  575.    * @param &$my array() Liste de XModuleAction
    576. 

  576.    */
    577. 

  577.   function al_edit(&$my){
    578. 

  578.     $uniqid='v'.XShell::uniqid();
    579. 

  579.     $myoid=@$_REQUEST['oid'];
    580. 

  580.     $o1=new XModuleAction($this,'save',XLabels::getSysLabel('general','save','text'),'javascript:'.$uniqid.'.saverecord();','edit');
    581. 

  581.     $o1->order=1;
    582. 

  582.     $o1->setToolbar('general','save');
    583. 

  583.     $my['save']=$o1;
    584. 

  584.     // recuperation contexte sous module
    585. 

  585.     $submodcontext=$this->subModuleContext();
    586. 

  586.     $o1=new XModuleAction($this,'display',XLabels::getSysLabel('general','display','text'),
    587. 

  587. 			  '&function=display&moid='.$this->_moid.'&template=xmodtable/view.html&tplentry=br&oid='.$myoid.$submodcontext['urlparms'],
    588. 

  588. 			  'edit');
    589. 

  589.     $o1->order=2;
    590. 

  590.     $o1->setToolbar('general','display');
    591. 

  591.     $my['display']=$o1;
    592. 

  592.     $sec=$this->secure($myoid,'del');
    593. 

  593.     if($sec){
    594. 

  594.       $o1=new XModuleAction($this,'del',XLabels::getSysLabel('general','delete','text'),'javascript:'.$uniqid.'.deleterecord();','edit');
    595. 

  595.       $o1->order=3;
    596. 

  596.       $o1->setToolbar('general','delete');
    597. 

  597.       $my['del']=$o1;
    598. 

  598.     }
    599. 

  599.     $this->getSSMAl($my);
    600. 

  600.   }
    601. 

  601. 

  602.   /**
    603. 

  603.    * Construit la liste des actions à rendre disponible lors de l'édition d'une fiche (procEdit)
    604. 

  604.    * @param &$my array() Liste de XModuleAction
    605. 

  605.    */
    606. 

  606.   function al_procEdit(&$my){
    607. 

  607.     $this->al_edit($my);
    608. 

  608.   }
    609. 

  609. 

  610.   /**
    611. 

  611.    * Construit la liste des actions à rendre disponible lors de la duplication d'une fiche (procEditDup)
    612. 

  612.    * @param &$my array() Liste de XModuleAction
    613. 

  613.    */
    614. 

  614.   function al_procEditDup(&$my){
    615. 

  615.     $this->al_insert($my);
    616. 

  616.   }
    617. 

  617. 

  618.   /**
    619. 

  619.    * Construit la liste des actions à rendre disponible lors de la préparation à l'insertion d'une fiche (insert)
    620. 

  620.    * @param &$my array() Liste de XModuleAction
    621. 

  621.    */
    622. 

  622.   function al_insert(&$my){
    623. 

  623.     $uniqid='v'.XShell::uniqid();
    624. 

  624.     $o1=new XModuleAction($this,'save',XLabels::getSysLabel('general','save','text'),'javascript:'.$uniqid.'.saverecord();','edit');
    625. 

  625.     $o1->order=1;
    626. 

  626.     $o1->setToolbar('general','save');
    627. 

  627.     $my['save']=$o1;
    628. 

  628.   }
    629. 

  629. 

  630.   /**
    631. 

  631.    * Construit la liste des actions à rendre disponible lors de l'insertion d'une fiche (procInsert)
    632. 

  632.    * @param &$my array() Liste de XModuleAction
    633. 

  633.    */
    634. 

  634.   function al_procInsert(&$my){
    635. 

  635.     $this->al_insert($my);
    636. 

  636.   }
    637. 

  637. 

  638.   /**
    639. 

  639.    * Construit la liste des actions à rendre disponible lors du listing des fiches du module (browse)
    640. 

  640.    * @param &$my array() Liste de XModuleAction
    641. 

  641.    */
    642. 

  642.   function al_browse(&$my){
    643. 

  643.     $uniqid='v'.XShell::uniqid();
    644. 

  644.     $moid=$this->_moid;
    645. 

  645.     $myoid=@$_REQUEST['oid'];
    646. 

  646.     if($this->secure($myoid,'del')){
    647. 

  647.       $o1=new XModuleAction($this,'del',XLabels::getSysLabel('general','delete','text'),'javascript:'.$uniqid.'.deleteselected();','edit');
    648. 

  648.       $o1->setToolbar('general','delete');
    649. 

  649.       $o1->order=3;
    650. 

  650.       $my['del']=$o1;
    651. 

  651.     }
    652. 

  652. 

  653.     if($this->objectSecurityEnabled() && $this->secure($myoid,'secEditSimple')){
    654. 

  654.       $o1=new XModuleAction($this,'seceditsimple',XLabels::getSysLabel('general','security','text'),
    655. 

  655. 			    'javascript:TZR.editSec("'.$GLOBALS['TZR_SESSION_MANAGER']::complete_self(true).'","'.$this->_moid.'","",'.$uniqid.');','edit');
    656. 

  656.       $o1->setToolbar('general','security');
    657. 

  657.       $o1->order=4;
    658. 

  658.       $my['secEditSimple']=$o1;
    659. 

  659.     }
    660. 

  660. 

  661.     if(isset($this->xset->desc['PUBLISH'])){
    662. 

  662.       if($this->secure($myoid,'publish')){
    663. 

  663. 	$o1=new XModuleAction($this,'approve',XLabels::getSysLabel('general','approve','text'),
    664. 

  664. 			      'javascript:'.$uniqid.".applyfunction('publish','',{value:1});",'edit');
    665. 

  665. 	$o1->menuable=true;
    666. 

  666. 	$my['approve']=$o1;
    667. 

  667. 	$o1=new XModuleAction($this,'unapprove',XLabels::getSysLabel('general','unapprove','text'),
    668. 

  668. 			      'javascript:'.$uniqid.".applyfunction('publish','',{value:2});",'edit');
    669. 

  669. 	$o1->menuable=true;
    670. 

  670. 	$my['unapprove']=$o1;
    671. 

  671.       }
    672. 

  672.     }
    673. 

  673. 

  674.     // Affichage (changement taille page, ajout de champ...)
    675. 

  675.     $o1=new XModuleAction($this,'fieldgrp',XLabels::getSysLabel('xmodtable','field_label','text'),'#','display');
    676. 

  676.     $o1->menuable=true;
    677. 

  677.     $o1->newgroup='fieldgrp';
    678. 

  678.     $my['fieldgrp']=$o1;
    679. 

  679.     foreach($this->xset->orddesc as $i=>$fn){
    680. 

  680.       $f=$this->xset->getField($fn);
    681. 

  681.       $o1=new XModuleAction($this,'field'.$fn,$f->label,'javascript:'.$uniqid.'.add_field(\''.$fn.'\');'.$uniqid.'.go_browse(\'\',0);','fieldgrp');
    682. 

  682.       $o1->menuable=true;
    683. 

  683.       $my['field'.$fn]=$o1;
    684. 

  684.     }
    685. 

  685.     $o1=new XModuleAction($this,'pgmore',XLabels::getSysLabel('xmodtable','page_size','text').' * 2',
    686. 

  686. 			  'javascript:'.$uniqid.'.go_browse("start","*2");','display');
    687. 

  687.     $o1->menuable=true;
    688. 

  688.     $my['pgmore']=$o1;
    689. 

  689.     $o1=new XModuleAction($this,'pgless',XLabels::getSysLabel('xmodtable','page_size','text').' / 2',
    690. 

  690. 			  'javascript:'.$uniqid.'.go_browse("start","/2");','display');
    691. 

  691.     $o1->menuable=true;
    692. 

  692.     $my['pgless']=$o1;
    693. 

  693. 

  694.     if($this->multipleedit && $this->secure('','editSelection')){
    695. 

  695.       $o1=new XModuleAction($this,'editselection',XLabels::getSysLabel('xmodmedia','editselection','text'),
    696. 

  696. 			    'javascript:'.$uniqid.'.applyfunction("editSelection","",{template:"xmodtable/editSelection.html"},true,true);','edit');
    697. 

  697.       $o1->order=2;
    698. 

  698.       $o1->setToolbar('general','edit');
    699. 

  699.       $my['editselection']=$o1;
    700. 

  700.     }
    701. 

  701. 

  702.     // Edition/suppression sur le resultat d'une recherche
    703. 

  703.     if($this->isThereAQueryActive()){
    704. 

  704.       if($this->secure('','editAll')){
    705. 

  705. 	$o1=new XModuleAction($this,'editall',XLabels::getSysLabel('general','editall','text'),
    706. 

  706. 			      'javascript:'.$uniqid.'.applyfunction("editAll","",{template:"xmodmedia/editSelection.html"},false,true);','edit');
    707. 

  707. 	$o1->order=2;
    708. 

  708. 	$o1->menuable=true;
    709. 

  709. 	$my['editall']=$o1;
    710. 

  710.       }
    711. 

  711.       if($this->secure('','delAll')){
    712. 

  712. 	$o1=new XModuleAction($this,'delall',XLabels::getSysLabel('general','delall','text'),
    713. 

  713. 			      'javascript:'.$uniqid.'.applyfunction("delAll","'.XLabels::getSysLabel('general','confirm_delete_object','text').'","");','edit');
    714. 

  714. 	$o1->order=3;
    715. 

  715. 	$o1->menuable=true;
    716. 

  716. 	$my['delall']=$o1;
    717. 

  717.       }
    718. 

  718.     }
    719. 

  719.   }
    720. 

  720. 

  721.   /**
    722. 

  722.    * Construit la liste des actions à rendre disponible lors d'une recherche sur les fiches du module (procQuery)
    723. 

  723.    * @param &$my array() Liste de XModuleAction
    724. 

  724.    */
    725. 

  725.   function al_procQuery(&$my){
    726. 

  726.     $this->al_browse($my);
    727. 

  727.   }
    728. 

  728. 

  729.   /// Fonctions sur gestion des champs
    730. 

  730.   function al_adminBrowseFields(&$my){
    731. 

  731.     $uniqid='v'.XShell::uniqid();
    732. 

  732.     $o1=new XModuleAction($this,'importfieldssec',XLabels::getSysLabel('xmodule','importfieldssec','text'),
    733. 

  733. 			  '&moid='.$this->_moid.'&_function=adminPreImportFieldsSec&template=xmodule/admin/preimportfieldssec.html&tplentry=br','more');
    734. 

  734.     $o1->menuable=true;
    735. 

  735.     $my['importfieldssec']=$o1;
    736. 

  736.     $o1=new XModuleAction($this,'newfield',XLabels::getSysLabel('xdatasource','new_field','text'),
    737. 

  737. 			  '&moid='.$this->_moid.'&function=adminNewField&template=xmodule/admin/newField.html');
    738. 

  738.     $o1->menuable=true;
    739. 

  739.     $my['newfield']=$o1;
    740. 

  740.     $o1=new XModuleAction($this,'emptydata',XLabels::getSysLabel('xdatasource','empty_data','text'),
    741. 

  741. 			  'javascript:'.$uniqid.'.emptybase();','more');
    742. 

  742.     $o1->menuable=true;
    743. 

  743.     $my['emptydata']=$o1;
    744. 

  744.     $o1=new XModuleAction($this,'clonebase',XLabels::getSysLabel('general','clone','text'),
    745. 

  745. 			  '&moid='.$this->_moid.'&function=adminDuplicate&template=xmodule/admin/duplicate.html&tplentry=br','more');
    746. 

  746.     $o1->menuable=true;
    747. 

  747.     $my['clonebase']=$o1;
    748. 

  748.     $o1=new XModuleAction($this,'checkbase',XLabels::getSysLabel('general','check','text'),
    749. 

  749. 			  '&moid='.$this->_moid.'&function=adminChk&skip=1&_next='.rawurlencode($GLOBALS['XSHELL']->get_back_url(0)),'more');
    750. 

  750.     $o1->menuable=true;
    751. 

  751.     $my['checkbase']=$o1;
    752. 

  752.     $o1=new XModuleAction($this,'checkrbase',XLabels::getSysLabel('general','check_and_repair','text'),
    753. 

  753. 			  '&moid='.$this->_moid.'&function=adminChk&skip=1&repair=1&_next='.rawurlencode($GLOBALS['XSHELL']->get_back_url(0)),'more');
    754. 

  754.     $o1->menuable=true;
    755. 

  755.     $my['checkrbase']=$o1;
    756. 

  756.     $o1=new XModuleAction($this,'propbase',XLabels::getSysLabel('general','properties','text'),
    757. 

  757. 			  '&moid='.$this->_moid.'&function=adminEditSourceProperties&template=xmodule/admin/editSource.html','more');
    758. 

  758.     $o1->menuable=true;
    759. 

  759.     $my['propbase']=$o1;
    760. 

  760.     $o1=new XModuleAction($this,'printbase',XLabels::getSysLabel('general','print','text'),
    761. 

  761. 			  'javascript:'.$uniqid.'.printselected();');
    762. 

  762.     $o1->menuable=true;
    763. 

  763.     $my['printbase']=$o1;
    764. 

  764.   }
    765. 

  765. 

  766.   /// Fonctions sur gestion des champs
    767. 

  767.   function al_adminBrowseStrings(&$my){
    768. 

  768.     $uniqid='v'.XShell::uniqid();
    769. 

  769.     $o1=new XModuleAction($this,'alphasort',XLabels::getSysLabel('general','alpha_sort','text'),
    770. 

  770. 			  '&moid='.$this->_moid.'&function=adminSortStrings&skip=1&field='.$_REQUEST['field'].'&_next='.rawurlencode($GLOBALS['XSHELL']->get_back_url(0)));
    771. 

  771.     $o1->menuable=true;
    772. 

  772.     $my['alphasort']=$o1;
    773. 

  773.     $o1=new XModuleAction($this,'deletebase',XLabels::getSysLabel('general','delete_all','text'),
    774. 

  774. 			  'javascript:'.$uniqid.'.deleteall();');
    775. 

  775.     $o1->menuable=true;
    776. 

  776.     $my['deleteall']=$o1;
    777. 

  777.     $o1=new XModuleAction($this,'newstring',XLabels::getSysLabel('general','new','text'),
    778. 

  778. 			  '&moid='.$this->_moid.'&function=adminNewString&template=xmodule/admin/newString.html&field='.$_REQUEST['field']);
    779. 

  779.     $o1->menuable=true;
    780. 

  780.     $my['newstring']=$o1;
    781. 

  781.   }
    782. 

  782. 

  783.   /// Fonctions sur gestion des champs
    784. 

  784.   function al_adminEditField(&$my){
    785. 

  785.     $uniqid='v'.XShell::uniqid();
    786. 

  786.     $br=&XShell::from_screen('');
    787. 

  787.     $o1=new XModuleAction($this,'resetchrono','Reset',
    788. 

  788. 			  '&moid='.$this->_moid.'&_function=adminResetChrono&field='.$br['field'].'&boid='.$br['boid'].'&skip=1&_next='.
    789. 

  789. 			  rawurlencode($GLOBALS['XSHELL']->get_back_url(0)),'more');
    790. 

  790.     $o1->menuable=true;
    791. 

  791.     $my['resetchrono']=$o1;
    792. 

  792.   }
    793. 

  793. 

  794.   function nav($ar=NULL){
    795. 

  795.     parent::nav($ar);
    796. 

  796.     if(substr(XShell::_function(),0,5)=='admin') {
    797. 

  797.       $this->pushNav(XLabels::getSysLabel('general','administration','text'),
    798. 

  798. 		     '&function=adminBrowseFields&moid='.$this->_moid.'&template=xmodule/admin/browseFields.html&boid='.$this->boid);
    799. 

  799.     }
    800. 

  800.   }
    801. 

  801. 

  802. 

  803.   function isDependant() {
    804. 

  804.     return XDbIni::get('dependant:'.$this->_moid,'val');
    805. 

  805.   }
    806. 

  806. 

  807.   /// Preparartion des donnees pour ecran de parametrage d'impression
    808. 

  808.   public function prePrintBrowse($ar) {
    809. 

  809.     $p=new XParam($ar,array());
    810. 

  810.     $order=$p->get('order');
    811. 

  811.     $tplentry=$p->get('tplentry');
    812. 

  812.     if(empty($order)) $order=$this->order;
    813. 

  813.     $ar['order']=$order;
    814. 

  814.     $ar['table']=$this->table;
    815. 

  815.     // Recherche des templates d'impression
    816. 

  816.     if(empty($this->_templates)) $this->_templates=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS=TEMPLATES');
    817. 

  817.     if(!empty($this->_templates)) {
    818. 

  818.       $q1=$this->_templates->select_query(array('cond'=>array('modid'=>array('=',$this->_moid),
    819. 

  819. 							      'gtype'=>array('=','xmodtable_browse_print'))));
    820. 

  820.       $r=&$this->_templates->browse(array('select'=>$q1,'pagesize'=>100,'tplentry'=>TZR_RETURN_DATA));
    821. 

  821.       XShell::toScreen1($tplentry.'t',$r);
    822. 

  822.     }
    823. 

  823.     // recherche des donnees
    824. 

  824.     $ar['_filter']=$this->getFilter(true,$ar);
    825. 

  825.     $ar['tplentry']=TZR_RETURN_DATA;
    826. 

  826.     $ar['fieldssec']=$this->getFieldsSec($ar);
    827. 

  827.     $ar['selectedfields']='all';
    828. 

  828.     $ar['pagesize']=1;
    829. 

  829.     $ar['ssmoid']='all';
    830. 

  830.     for($i=1;$i<=$this->submodmax;$i++) {
    831. 

  831.       $f='ssmod'.$i;
    832. 

  832.       $ar['options'][$this->$f]['selectedfields']='all';
    833. 

  833.     }
    834. 

  834. 

  835.     // cas module ayant lui meme en sous modules
    836. 

  836.     $mycurrentquery = NULL;
    837. 

  837.     if($this->isThereAQueryActive())
    838. 

  838.       $mycurrentquery = $this->_getSession('query');
    839. 

  839. 

  840.     $r=&$this->xset->browse($ar);
    841. 

  841.     $this->setSubModules($ar,$r);
    842. 

  842. 

  843.     if ($mycurrentquery != NULL)
    844. 

  844.        $this->_setSession('query', $mycurrentquery);
    845. 

  845. 

  846.     // calcul du nombre d'enregistrements impactes (passage d'oid, browseSelection ou browse/query classique)
    847. 

  847.     $r['_selected']=$p->get('_selected');
    848. 

  848.     if(is_array($r['_selected'])) {
    849. 

  849.       $r['record_count']=count($r['_selected']);
    850. 

  850.     }elseif($p->get('fromfunction')=='browseSelection') {
    851. 

  851.       $selection=getSessionVar('selection');
    852. 

  852.       $r['_selected']=$selection[$this->_moid];
    853. 

  853.       $r['record_count']=count($r['_selected']);
    854. 

  854.     }else{
    855. 

  855.       $context=$this->getContextQuery($ar,false);
    856. 

  856.       $ar['select']=$context['query'];
    857. 

  857.       $q=$this->xset->getSelectQuery($ar);
    858. 

  858.       $r['record_count']=countSelectQuery($q[1],true);
    859. 

  859.       $r['queryfields']=$context['all']['queryfields'];
    860. 

  860.     }
    861. 

  861.     return XShell::toScreen1($tplentry,$r);
    862. 

  862.   }
    863. 

  863. 

  864.   /// Retourne la requete permattant de recuperer tous les objets suivant le contexte (selection, recherche en cours...)
    865. 

  865.   function getContextQuery($ar,$queryonly=true){
    866. 

  866.     $p=new XParam($ar,array());
    867. 

  867.     $oidsel=$p->get('_selected');
    868. 

  868.     $noreg=$p->get('noreg');
    869. 

  869.     $from=$p->get('fromfunction');
    870. 

  870.     if(is_array($oidsel)) {
    871. 

  871.       $oid=array_keys($oidsel);
    872. 

  872.       $q=$this->xset->select_query(array('cond'=>array('KOID'=>array('=',$oid))));
    873. 

  873.     }elseif($this->isThereAQueryActive() && ($from=='procQuery')) {
    874. 

  874.       $_storedquery=$this->_getSession('query');
    875. 

  875.       $ar1=array_merge($_storedquery,$ar);
    876. 

  876.       if($queryonly){
    877. 

  877. 	$ar1['getselectonly']=true;
    878. 

  878. 	$q=$this->xset->procQuery($ar1);
    879. 

  879.       }else{
    880. 

  880. 	$ar1['getselectonly']=false;
    881. 

  881. 	$ar1['pagesize']=1;
    882. 

  882. 	$r=$this->xset->procQuery($ar1);
    883. 

  883. 	$q=$r['select'];
    884. 

  884. 	$params=array('queryobject'=>$r['queryobject']);
    885. 

  885.       }
    886. 

  886.       if(!$noreg) $q=preg_replace('@select (.*) from (.*)$@i','select '.$this->table.'.* from $2',$q);
    887. 

  887.     }else{
    888. 

  888.       $q=$this->xset->select_query(array("cond"=>array()));
    889. 

  889.     }
    890. 

  890.     if($queryonly) return $q;
    891. 

  891.     else return array('query'=>$q,'all'=>$r);
    892. 

  892.   }
    893. 

  893. 

  894.   /// Impression sur un browse
    895. 

  895.   public function printBrowse($ar) {
    896. 

  896.     $p=new XParam($ar,array());
    897. 

  897.     $title=$p->get('title');
    898. 

  898.     $email=$p->get('dest');
    899. 

  899.     $target=$p->get('_target');
    900. 

  900.     $linkedfield=$p->get('_linkedfield');
    901. 

  901.     $fmt=$p->get('fmt');
    902. 

  902.     $context=$this->getContextQuery($ar,false);
    903. 

  903.     $q=$context['query'];
    904. 

  904.     $ar['selected']='0';
    905. 

  905.     $ar['pagesize']='100000';
    906. 

  906.     $ar['select']=$q;
    907. 

  907.     $ar['_format']='text/html';
    908. 

  908.     $ar['tplentry']=TZR_RETURN_DATA;
    909. 

  909.     $tpldata['param']=array('title'=>$title,'queryfields'=>$context['all']['queryfields']);
    910. 

  910.     $oldinteractive=$this->interactive;
    911. 

  911.     $this->interactive=false;
    912. 

  912.     if(!empty($target) && $target!=$this->_moid){
    913. 

  913.       $mod=XModule::objectFactory($target);
    914. 

  914.       if($mod->secure('','export')){
    915. 

  915. 	$ar2=$ar;
    916. 

  916. 	$ar['selectedfields']=array('xx');
    917. 

  917. 	$ar['order']=$this->order;
    918. 

  918. 	$b=$this->browse($ar);
    919. 

  919. 	$q='select * from '.$mod->table.' where '.$linkedfield.' in ("'.implode('","',$b['lines_oid']).'")';
    920. 

  920. 	$ar2['select']=$q;
    921. 

  921. 	$ar2['tplentry']=$tplentry;
    922. 

  922. 	if($fmt=='pdf')	$ar2['_format']='application/prince';
    923. 

  923. 	$res=$mod->browse($ar2);
    924. 

  924.       }
    925. 

  925.     }else{
    926. 

  926.       if($fmt=='pdf') $ar['_format']='application/prince';
    927. 

  927.       $res=$this->browse($ar);
    928. 

  928.       $mod=&$this;
    929. 

  929.     }
    930. 

  930.     $this->interactive=$oldinteractive;
    931. 

  931.     if($fmt=='pdf') {
    932. 

  932.       // Impression PDF par defaut
    933. 

  933.       if(!empty($this->_templates) && !empty($this->btemplates)) {
    934. 

  934.         $r=&$this->_templates->display(array('oid'=>$this->btemplates,'_options'=>array('error'=>'return'),'tplentry'=>TZR_RETURN_DATA));
    935. 

  935.         if(!empty($r['oprintp']->filename)) $filename=$r['oprintp']->filename;
    936. 

  936.       }
    937. 

  937.       $this->_printBrowsePDF($ar,$filename);
    938. 

  938.     }elseif(Kernel::isAKoid($fmt)) {
    939. 

  939.       // Impression via un template d'impressions
    940. 

  940.       $t=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS='.$fmt);
    941. 

  941.       $dispfmt=$t->rDisplay($fmt);
    942. 

  942.       $displayformats=explode(',',$dispfmt['odfmt']->raw);
    943. 

  943.       if(in_array('text/html',$displayformats) || empty($dispfmt['odfmt']->raw)) $this->_printBrowseHTML($ar,$dispfmt['oprint']->filename);
    944. 

  944.       elseif(in_array('application/prince',$displayformats)) $this->_printBrowsePDF($ar,$dispfmt['oprint']->filename);
    945. 

  945.     }else{
    946. 

  946.       // Impression HTML par defaut
    947. 

  947.       $template=$p->get('template');
    948. 

  948.       $this->_printBrowseHTML($ar,$template);
    949. 

  949.     }
    950. 

  950.   }
    951. 

  951.   /// Sous fonction d'impression au format HTML
    952. 

  952.   function _printBrowseHTML($ar=NULL,$filename=NULL){
    953. 

  953.     $p=new XParam($ar,NULL);
    954. 

  954.     $email=$p->get('dest');
    955. 

  955.     if(empty($filename)) $filename='xmodtable/print.html';
    956. 

  956.     $content=$this->_printGetContent($ar,$filename,'browse');
    957. 

  957.     if(!empty($email)) $this->sendMail2User('print','',$email,NULL,false,NULL,'report.html',$content);
    958. 

  958.     echo $content;
    959. 

  959.     exit(0);
    960. 

  960.   }
    961. 

  961.   /// Sous fonction d'impression au format PDF
    962. 

  962.   function _printBrowsePDF($ar=NULL,$filename=NULL){
    963. 

  963.     $p=new XParam($ar,array('pdfname'=>'browse.pdf'));
    964. 

  964.     $email=$p->get('dest');
    965. 

  965.     if(empty($filename)) $filename='xmodtable/print.xml';
    966. 

  966.     $ar['_format']='application/prince';
    967. 

  967.     $content=$this->_printGetContent($ar,$filename,'browse');
    968. 

  968.     $tmpname=princeTidyXML2PDF(NULL,$content);
    969. 

  969.     if(!empty($email) && !empty($tmpname)) {
    970. 

  970.       $content=file_get_contents($tmpname);
    971. 

  971.       $this->sendMail2User('print','',$email,NULL,false,NULL,'browse.pdf',$content,'application/pdf');
    972. 

  972.     }
    973. 

  973.     $pdfname=$p->get('pdfname');
    974. 

  974.     header('Content-type: application/pdf');
    975. 

  975.     header('Content-disposition: attachment; filename='.$pdfname);
    976. 

  976.     $size=filesize($tmpname);
    977. 

  977.     header('Accept-Ranges: bytes');
    978. 

  978.     header('Content-Length: '.$size);
    979. 

  979.     readfile($tmpname);
    980. 

  980.     unlink($tmpname);
    981. 

  981.     exit(0);
    982. 

  982.   }
    983. 

  983.   /// Impression d'une fiche
    984. 

  984.   public function printDisplay($ar) {
    985. 

  985.     $p=new XParam($ar,array('pdfname'=>'view.pdf'));
    986. 

  986.     $tplentry=$p->get('tplentry');
    987. 

  987.     $ar['tplentry']=TZR_RETURN_DATA;
    988. 

  988.     $ar['ssmoid']='all';
    989. 

  989.     $fmt=$p->get('fmt');
    990. 

  990.     if($fmt=='pdf') {
    991. 

  991.       // Impression PDF par defaut
    992. 

  992.       if(!empty($this->_templates) && !empty($this->templates)) {
    993. 

  993. 	$r=&$this->_templates->display(array('oid'=>$this->templates,'_options'=>array('error'=>'return'),'tplentry'=>TZR_RETURN_DATA));
    994. 

  994. 	if(!empty($r['oprintp']->filename)) $filename=$r['oprintp']->filename;
    995. 

  995.       }
    996. 

  996.       $this->_printDisplayPDF($ar,$filename);
    997. 

  997.     }elseif(Kernel::isAKoid($fmt)) {
    998. 

  998.       // Impression via un template d'impressions
    999. 

  999.       $t=XDataSource::objectFactoryHelper8('BCLASS=XDSTable&SPECS='.$fmt);
    1000. 

  1000.       $dispfmt=$t->display(array('oid'=>$fmt,'tplentry'=>TZR_RETURN_DATA));
    1001. 

  1001.       $displayformats=explode(',',$dispfmt['odfmt']->raw);
    1002. 

  1002.       if(in_array('text/html',$displayformats) || empty($dispfmt['odfmt']->raw)) $this->_printDisplayHTML($ar,$dispfmt['oprint']->filename);
    1003. 

  1003.       elseif(in_array('application/prince',$displayformats)) $this->_printDisplayPDF($ar,$dispfmt['oprint']->filename);
    1004. 

  1004.     }else{
    1005. 

  1005.       // Impression HTML par defaut
    1006. 

  1006.       $template=$p->get('template');
    1007. 

  1007.       $this->_printDisplayHTML($ar,$template);
    1008. 

  1008.     }
    1009. 

  1009.   }
    1010. 

  1010.   /// Sous fonction d'impression au format HTML
    1011. 

  1011.   function _printDisplayHTML($ar=NULL,$filename=NULL){
    1012. 

  1012.     $p=new XParam($ar,NULL);
    1013. 

  1013.     $email=$p->get('dest');
    1014. 

  1014.     if(empty($filename)) $filename='xmodtable/printdisplay.html';
    1015. 

  1015.     $content=$this->_printGetContent($ar,$filename,'display');
    1016. 

  1016.     if(!empty($email)) $this->sendMail2User('print','',$email,NULL,false,NULL,'report.html',$content);
    1017. 

  1017.     echo $content;
    1018. 

  1018.     exit(0);
    1019. 

  1019.   }
    1020. 

  1020.   /// Sous fonction d'impression au format PDF
    1021. 

  1021.   function _printDisplayPDF($ar=NULL,$filename=NULL){
    1022. 

  1022.     $p=new XParam($ar,array('pdfname'=>'view.pdf'));
    1023. 

  1023.     $email=$p->get('dest');
    1024. 

  1024.     if(empty($filename)) $filename='xmodtable/print-view.xml';
    1025. 

  1025.     $ar['_format']='application/prince';
    1026. 

  1026.     $content=$this->_printGetContent($ar,$filename,'display');
    1027. 

  1027.     $tmpname=princeTidyXML2PDF(NULL,$content);
    1028. 

  1028.     if(!empty($email) && !empty($tmpname)) {
    1029. 

  1029.       $content=file_get_contents($tmpname);
    1030. 

  1030.       $this->sendMail2User('print','',$email,NULL,false,NULL,'view.pdf',$content,'application/pdf');
    1031. 

  1031.     }
    1032. 

  1032.     $pdfname=$p->get('pdfname');
    1033. 

  1033.     header('Content-type: application/pdf');
    1034. 

  1034.     header('Content-disposition: attachment; filename='.$pdfname);
    1035. 

  1035.     $size=filesize($tmpname);
    1036. 

  1036.     header('Accept-Ranges: bytes');
    1037. 

  1037.     header('Content-Length: '.$size);
    1038. 

  1038.     readfile($tmpname);
    1039. 

  1039.     unlink($tmpname);
    1040. 

  1040.     exit(0);
    1041. 

  1041.   }
    1042. 

  1042.   /// Recupere le contenu pour une impression
    1043. 

  1043.   function &_printGetContent($ar,$filename,$f,$tpldata=array()){
    1044. 

  1044.     $p=new XParam($ar,NULL);
    1045. 

  1045.     $title=$p->get('title');
    1046. 

  1046.     $res=&$this->$f($ar);
    1047. 

  1047.     $xt=new XTemplate('file:'.$filename);
    1048. 

  1048.     $labels=&$GLOBALS['XSHELL']->labels->get_labels(array('selectors'=>array('global'),'local'=>true));
    1049. 

  1049.     $xt->set_glob(array('labels'=>&$labels));
    1050. 

  1050.     $r3=array();
    1051. 

  1051.     $tpldata['param']=array('title'=>$title);
    1052. 

  1052.     $tpldata['br']=$res;
    1053. 

  1053.     $tpldata['imod']=&XShell::from_screen('imod');
    1054. 

  1054.     $content=$xt->parse($tpldata,$r3,NULL);
    1055. 

  1055.     return $content;
    1056. 

  1056.   }
    1057. 

  1057. 

  1058.   /// Exporte une fiche
    1059. 

  1059.   public function exportDisplay($ar=NULL){
    1060. 

  1060.     $p= new XParam($ar,array());
    1061. 

  1061.     $fmt=$p->get('fmt');
    1062. 

  1062.     $ar['norow']=1;
    1063. 

  1063.     $ar['nodef']=1;
    1064. 

  1064.     $ar['ssmoid']='all';
    1065. 

  1065.     $ar['_options']=array('genpublishtag'=>false);
    1066. 

  1066.     if($fmt=='xl' || $fmt=='xl07') $ar['_format']='application/excel';
    1067. 

  1067.     $this->display($ar);
    1068. 

  1068.     if($fmt=='xl' || $fmt=='xl07')  $this->_exportXLSDisplay($ar);
    1069. 

  1069.     if($fmt=='html')  $this->printDisplay($ar);
    1070. 

  1070.     if($fmt=='csv')  $this->_exportCSVDisplay($ar);
    1071. 

  1071.   }
    1072. 

  1072. 

  1073.   /// Exporte une fiche au format excel
    1074. 

  1074.   public function _exportXLSDisplay($ar){
    1075. 

  1075.     require_once('add-ons/PHPExcel/PHPExcel.php');
    1076. 

  1076. 

  1077.     $p=new XParam($ar,NULL);
    1078. 

  1078.     $fmt=$p->get('fmt');
    1079. 

  1079.     $br=&XShell::from_screen('br');
    1080. 

  1080.     $ss=new PHPExcel();
    1081. 

  1081.     $ss->setActiveSheetIndex(0);
    1082. 

  1082.     $ws=$ss->getActiveSheet();
    1083. 

  1083.     $ws->setTitle('Main');
    1084. 

  1084.     $ws->SetCellValue('A1','OID');
    1085. 

  1085.     $ws->SetCellValue('B1',$br['oid']);
    1086. 

  1086.     $row=2;
    1087. 

  1087.     foreach($br['fields_object'] as $j => &$f) {
    1088. 

  1088.       if(!$f->sys){
    1089. 

  1089. 	$l=$f->fielddef->label;
    1090. 

  1090. 	$c=$f->field;
    1091. 

  1091. 	convert_charset($l,TZR_INTERNAL_CHARSET,'UTF-8');
    1092. 

  1092. 	$ws->setCellValueByColumnAndRow(0,$row,$l);
    1093. 

  1093. 	$f1=&$this->xset->getField($c);
    1094. 

  1094. 	$f1->writeXLS($ws,$row++,1,$br['o'.$c],0,$ss);
    1095. 

  1095.       }
    1096. 

  1096.     }
    1097. 

  1097.     $ws->getStyle('A1:A'.($row-1))->getFont()->setBold(true);
    1098. 

  1098. 

  1099.     foreach($br['__ssmod'] as $i=>&$ssr){
    1100. 

  1100.       $ssmod=XModule::objectFactory($br['__ssprops'][$i]['_moid']);
    1101. 

  1101.       $l=$br['__ssprops'][$i]['modulename'];
    1102. 

  1102.       convert_charset($l,TZR_INTERNAL_CHARSET,'UTF-8');
    1103. 

  1103.       $ss->createSheet($i+1);
    1104. 

  1104.       $ss->setActiveSheetIndex($i+1);
    1105. 

  1105.       $ws=$ss->getActiveSheet();
    1106. 

  1106.       $ws->setTitle($l);
    1107. 

  1107.       foreach($ssr['header_fields'] as $j => &$f) {
    1108. 

  1108. 	$l=$ssr['header_fields'][$j]->label;
    1109. 

  1109. 	convert_charset($l,TZR_INTERNAL_CHARSET,'UTF-8');
    1110. 

  1110. 	$ws->setCellValueByColumnAndRow($j,1,$l);
    1111. 

  1111.       }
    1112. 

  1112.       foreach($ssr['lines_oid'] as $j=>$oid){
    1113. 

  1113. 	foreach($ssr['header_fields'] as $k=>&$f) {
    1114. 

  1114. 	  $f->writeXLS($ws,$j+2,$k,$ssr['lines_o'.$f->field][$j],0,$ss);
    1115. 

  1115. 	}
    1116. 

  1116.       }
    1117. 

  1117.       $ws->getStyle('A1:'.PHPExcel_Cell::stringFromColumnIndex($k).'1')->getFont()->setBold(true);
    1118. 

  1118.     }
    1119. 

  1119.     $ss->setActiveSheetIndex(0);
    1120. 

  1120.     sendPHPExcelFile($ss,$fmt,'export');
    1121. 

  1121.   }
    1122. 

  1122.   /// Exporte une fiche et ses sous fiches au format csv (si sous fiches, un fichier csv par sous modules, le tout dans un zip)
    1123. 

  1123.   public function _exportCSVDisplay($ar=NULL){
    1124. 

  1124.     $p= new XParam($ar,array('fname'=>'Export'));
    1125. 

  1125.     $fsep=$p->get('csvfsep');
    1126. 

  1126.     $textsep=stripslashes($p->get('csvtextsep'));
    1127. 

  1127.     $charset=stripslashes($p->get('csvcharset'));
    1128. 

  1128.     $fname=$p->get('fname');
    1129. 

  1129.     $br=&XShell::from_screen('br');
    1130. 

  1130. 

  1131.     $csv=$headers=$row=array();
    1132. 

  1132.     foreach($br['fields_object'] as $j => &$f) {
    1133. 

  1133.       if(!$f->sys){
    1134. 

  1134. 	$f1=&$this->xset->getField($f->field);
    1135. 

  1135. 	$headers[]=$textsep.$f->fielddef->label.$textsep;
    1136. 

  1136. 	$row[]=$f1->writeCSV($br['o'.$f->field],$textsep);
    1137. 

  1137.       }
    1138. 

  1138.     }
    1139. 

  1139.     $csv[]=implode($fsep,$headers);
    1140. 

  1140.     $csv[]=implode($fsep,$row);
    1141. 

  1141.     $csv=implode("\r\n",$csv);
    1142. 

  1142.     convert_charset($csv,TZR_INTERNAL_CHARSET,$charset);
    1143. 

  1143.     if(empty($br['__ssmod'])){
    1144. 

  1144.       ob_clean();
    1145. 

  1145.       header('Content-Type: text/csv; charset='.$charset);
    1146. 

  1146.       header('Content-Transfer-Encoding:'.$charset);
    1147. 

  1147.       header('Content-disposition: attachment; filename='.str_replace(' ','_',removeaccents($fname)).'.csv');
    1148. 

  1148.       header('Content-Length: '.strlen($csv));
    1149. 

  1149.       echo $csv;
    1150. 

  1150.       exit(0);
    1151. 

  1151.     }else{
    1152. 

  1152.       $dir=TZR_TMP_DIR.'exportdisp'.uniqid();
    1153. 

  1153.       @mkdir($dir);
    1154. 

  1154.       file_put_contents($dir.'/Main.csv',$csv);
    1155. 

  1155.       foreach($br['__ssmod'] as $i=>&$ssr){
    1156. 

  1156. 	$csv=$headers=$row=array();
    1157. 

  1157. 	$ssmod=XModule::objectFactory($br['__ssprops'][$i]['_moid']);
    1158. 

  1158. 	$l=$br['__ssprops'][$i]['modulename'];
    1159. 

  1159. 	$fields=array();
    1160. 

  1160. 	foreach($ssr['header_fields'] as $j=>&$f) {
    1161. 

  1161. 	  $headers[]=$textsep…
    1162.

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