<?php
function get_theme() {

  $theme="default" ;

  $select = array('titre');
  $from = array('spip_mots');
  $where = array("type=\"theme\"");
  $r = spip_abstract_fetch(spip_abstract_select($select,$from,$where));
  if ($r) {
    include_spip("inc/charsets");
    include_spip("inc/filtres");
    $theme = translitteration(preg_replace('/["\'.\s]/','_',extraire_multi($r['titre'])));
  }
  return $theme;
}
function balise_DOSSIER_THEME($p) {

  $code = get_theme();
  $code = addslashes("theme/$code");
  $p->code = "sinon(find_in_path('$code'),find_in_path('theme/default'))" ;
  $p->interdire_scripts = false;
  return $p;
}
?>