hotfix : resurrect legacy string function used in skins

library/fonctions/string.php

@@ -18,10 +18,34 @@
  * along with BOKEH; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301  USA
  */
-//////////////////////////////////////////////////////////////////////////////////////
-//                  FONCTIONS CHAINES DE CARACTERES
-//
-/////////////////////////////////////////////////////////////////////////////////////
+
+/**
+ * ne pas supprimer à moins de faire le tour de toutes les skins
+ */
+function getVar($cle) {
+  return Class_AdminVar::get($clef);
+}
+
+
+/**
+ * ne pas supprimer à moins de faire le tour de toutes les skins
+ */
+function getVarListeCosmogramme($clef) {
+  $sql = Zend_Registry::get('sql');
+  $data = $sql->fetchOne("Select liste from variables where clef='$clef'");
+  $v = split(chr(13).chr(10),$data);
+  for($i=0; $i<count($v); $i++) {
+    $elem = split(":",$v[$i]);
+    if(!trim($elem[1]))
+      continue;
+
+    $item["code"]=$elem[0];
+    $item["libelle"]=$elem[1];
+    $liste[]=$item;
+  }
+
+  return $liste;
+}
 
 
 //----------------------------------------------------------------------------------