[SPIP] +2.1.12
[velocampus/web/www.git] / www / prive / formulaires / editer_site_fonctions.php
diff --git a/www/prive/formulaires/editer_site_fonctions.php b/www/prive/formulaires/editer_site_fonctions.php
new file mode 100644 (file)
index 0000000..a796df2
--- /dev/null
@@ -0,0 +1,33 @@
+<?php
+
+/***************************************************************************\
+ *  SPIP, Systeme de publication pour l'internet                           *
+ *                                                                         *
+ *  Copyright (c) 2001-2011                                                *
+ *  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 saisie_url_syndic($url_syndic,$name='url_syndic',$id='url_syndic'){
+       $res = "";
+       if (strlen($url_syndic) < 8) $url_syndic = "http://";
+
+       // cas d'une liste de flux detectee par feedfinder : menu
+       if (preg_match(',^select: (.+),', $url_syndic, $regs)) {
+               $feeds = explode(' ',$regs[1]);
+               $res .= "<select name='$name' id='$id'>\n";
+               foreach ($feeds as $feed) {
+                       $res .= '<option value="'.entites_html($feed).'">'.$feed."</option>\n";
+               }
+               $res .= "</select>\n";
+       } else {
+               $res .= "<input type='text' class='text' name='$name' id='$id' value=\"$url_syndic\" size='40' />\n";
+       }
+       return $res;
+}
+
+?>