[SPIP] +spip v3.0.17
[lhc/web/clavette_www.git] / www / plugins-dist / revisions / formulaires / configurer_revisions_objets.php
diff --git a/www/plugins-dist/revisions/formulaires/configurer_revisions_objets.php b/www/plugins-dist/revisions/formulaires/configurer_revisions_objets.php
new file mode 100644 (file)
index 0000000..b449dcc
--- /dev/null
@@ -0,0 +1,50 @@
+<?php
+
+/***************************************************************************\
+ *  SPIP, Systeme de publication pour l'internet                           *
+ *                                                                         *
+ *  Copyright (c) 2001-2014                                                *
+ *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
+ *                                                                         *
+ *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
+ *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
+\***************************************************************************/
+
+if (!defined("_ECRIRE_INC_VERSION")) return;
+
+function formulaires_configurer_revisions_objets_charger_dist(){
+       if (!$objets = unserialize($GLOBALS['meta']['objets_versions']))
+               $objets = array();
+       $valeurs = array(
+               'objets_versions'=>$objets,
+       );
+
+       return $valeurs;
+}
+
+function formulaires_configurer_revisions_objets_traiter_dist(){
+
+       include_spip('inc/meta');
+       $tables = serialize(_request('objets_versions'));
+       ecrire_meta('objets_versions',$tables);
+
+       return array('message_ok'=>_T('config_info_enregistree'));
+}
+
+function test_objet_versionable($desc){
+       if (!$desc['editable']
+               OR !isset($desc['champs_versionnes'])
+               OR !count($desc['champs_versionnes'])
+       )
+               return '';
+
+       // regarder si il y a un vrai champ versionne, pas seulement une jointure
+       foreach ($desc['champs_versionnes'] as $c){
+               if (strncmp($c,'jointure_',9)!=0)
+                       return ' ';
+       }
+
+
+       return '';
+}
+?>
\ No newline at end of file