+// FIXME - Poner esto en algun lugar mejor.
+function listaImagenes($dir = '.', $prepend = '', $append = '')
+{
+ $lista = array('' => '--');
+ $d = dir($dir);
+ while (($file = $d->read()) !== false) {
+ if (preg_match("/$prepend(.*)$append/", $file, $m)) {
+ $nombre = ucwords(join(' ', preg_split('/_/', $m[1])));
+ $lista[$file] = $nombre;
+ }
+ }
+ return $lista;
+}
+
+// FIXME - Poner esto en algun lugar mejor.
+function arbol2array(&$db, $tabla, $actual, $id, $nombre, $padre, $order = '', $indent = ' ')
+{
+ // Para llevar el nivel de indentación
+ static $nivel = 0;
+ $nivel++;
+ $sql = "SELECT $id, $nombre
+ FROM $tabla";
+ if (!is_null($padre)) {
+ $sql .= " WHERE $padre = ".$db->quote($actual);
+ }
+ if ($order) {
+ $sql .= " ORDER BY $nombre $order";
+ }
+ $array = $db->getAssoc($sql);
+ if (DB::isError($array)) {
+ return $array;
+ }
+ $ret = array();
+ foreach ($array as $key => $val) {
+ $ret[$key] = str_repeat($indent, $nivel) . $val;
+ $ret += arbol2array($db, $tabla, $key, $id, $nombre, $padre, $order, $indent);
+ }
+ $nivel--;
+ return $ret;
+}
+
+?>
\ No newline at end of file