')) $param_user .= "
";
$html.="
table[$$field];
$html.="
";
break;
case "value_deflt_lang" :
$llist=new marc_list('lang');
$l=$llist->table[$$field];
$html.="
";
break;
case "value_deflt_relation" :
case "value_deflt_relation_serial" :
case "value_deflt_relation_bulletin" :
case "value_deflt_relation_analysis" :
$html.="
$msg[$field] :
\n
";
$liste_type_relation_down=new marc_list("relationtypedown");
$liste_type_relation_up=new marc_list("relationtypeup");
$liste_type_relation_both=array();
foreach($liste_type_relation_up->table as $key_up=>$val_up){
foreach($liste_type_relation_down->table as $key_down=>$val_down){
if($val_up==$val_down){
$liste_type_relation_both[$key_down]=$val_down;
unset($liste_type_relation_down->table[$key_down]);
unset($liste_type_relation_up->table[$key_up]);
}
}
}
$html.="
";
foreach($liste_type_relation_up->table as $key=>$val){
if($key.'-up'==$$field){
$html.=''.$val.' ';
}else{
$html.=''.$val.' ';
}
}
$html.="
";
foreach($liste_type_relation_down->table as $key=>$val){
if($key.'-down'==$$field){
$html.=''.$val.' ';
}else{
$html.=''.$val.' ';
}
}
$html.="
";
foreach($liste_type_relation_both as $key=>$val){
if($key.'-down'==$$field){
$html.=''.$val.' ';
}else{
$html.=''.$val.' ';
}
}
$html.="
";
$html.="
";
break;
default :
$html.="
";
break;
}
break ;
case "deflt2" :
if ($field=="deflt2docs_location") {
// localisation des lecteurs
$deflt_table = substr($field,6);
$requete="select * from ".$deflt_table." order by 2";
$resultat_liste=pmb_mysql_query($requete,$dbh);
$nb_liste=pmb_mysql_num_rows($resultat_liste);
if ($nb_liste==0) {
$html.="" ;
} else {
$html.="
".
$msg[$field]." :
\n";
$html.= "
";
$j=0;
while ($j<$nb_liste) {
$liste_values = pmb_mysql_fetch_row( $resultat_liste );
$html.="\n" ;
$j++;
}
$html.="
!!param_allloc!!
\n" ;
}
} else {
$deflt_table = substr($field,6);
$requete="select * from ".$deflt_table." order by 2 ";
$resultat_liste=pmb_mysql_query($requete,$dbh);
$nb_liste=pmb_mysql_num_rows($resultat_liste);
if ($nb_liste==0) {
$html.="" ;
} else {
$html.="
".
$msg[$field]." :
\n";
$html.= "
";
$j=0;
while ($j<$nb_liste) {
$liste_values = pmb_mysql_fetch_row( $resultat_liste );
$html.="\n" ;
$j++;
}
$html.="
\n" ;
}
}
break;
case "xmlta_" :
switch($field) {
case "xmlta_indexation_lang" :
$langues = new XMLlist("$include_path/messages/languages.xml");
$langues->analyser();
$clang = $langues->table;
$combo = "
";
if(!$$field) $combo .= "-- ";
else $combo .= "-- ";
while(list($cle, $value) = each($clang)) {
// arabe seulement si on est en utf-8
if (($charset != 'utf-8' and $user_lang != 'ar') or ($charset == 'utf-8')) {
if(strcmp($cle, $$field) != 0) $combo .= "$value ($cle) ";
else $combo .= "$value ($cle) ";
}
}
$combo .= " ";
$html.="
".
$msg[$field]." :
\n";
$html.= "
$combo
\n" ;
break;
case "xmlta_doctype_serial" :
$html.="
".
$msg[$field]." :
\n";
$html.= "
";
$select_doc = new marc_select("doctype", "form_".$field, $$field, "");
$html.= $select_doc->display ;
$html.="
\n" ;
break;
case "xmlta_doctype_bulletin" :
case "xmlta_doctype_analysis" :
$html.="
".
$msg[$field]." :
\n";
$html.= "
";
$select_doc = new marc_select("doctype", "form_".$field, $$field, "","0",$msg[$field."_parent"]);
$html.= $select_doc->display ;
$html.="
\n" ;
break;
default :
$deflt_table = substr($field,6);
$html.="
".
$msg[$field]." :
\n";
$html.= "
";
$select_doc = new marc_select("$deflt_table", "form_".$field, $$field, "");
$html.= $select_doc->display ;
$html.="
\n" ;
break;
}
case "deflt3" :
$q='';
$t=array();
switch($field) {
case "deflt3bibli":
$q="select 0,'".addslashes($msg['deflt3none'])."' union ";
$q.="select id_entite, raison_sociale from entites where type_entite='1' order by 2 ";
break;
case "deflt3exercice":
$q="select 0,'".addslashes($msg['deflt3none'])."' union ";
$q.="select id_exercice, libelle from exercices order by 2 ";
break;
case "deflt3rubrique":
$q="select 0,'".addslashes($msg['deflt3none'])."' union ";
$q.="select id_rubrique, concat(budgets.libelle,':', rubriques.libelle) from rubriques join budgets on num_budget=id_budget order by 2 ";
break;
case "deflt3dev_statut":
$t=actes::getStatelist(TYP_ACT_DEV);
break;
case "deflt3cde_statut":
$t=actes::getStatelist(TYP_ACT_CDE);
break;
case "deflt3liv_statut":
$t=actes::getStatelist(TYP_ACT_LIV);
break;
case "deflt3fac_statut":
$t=actes::getStatelist(TYP_ACT_FAC);
break;
case "deflt3sug_statut":
$m=new suggestions_map();
$t=$m->getStateList();
break;
case 'deflt3lgstatcde':
case 'deflt3lgstatdev':
$q=lgstat::getList('QUERY');
break;
case 'deflt3receptsugstat':
$m=new suggestions_map();
$t=$m->getStateList('ORDERED',TRUE);
break;
}
if($q) {
$r=pmb_mysql_query($q, $dbh);
$nb=pmb_mysql_num_rows($r);
while($row=pmb_mysql_fetch_row($r)) {
$t[$row[0]]=$row[1];
}
}
if (count($t)) {
$html.="
".$msg[$field]." :
\n";
$html.= "
";
foreach($t as $k=>$v) {
$html.="\n" ;
}
$html.="
\n";
}
break;
case "speci_" :
$speci_func = substr($field, 6);
eval('$speci_user.= get_'.$speci_func.'($id, $$field, $i, \'userform\');');
break;
case "explr_" :
$$field=$$field;
break;
default :
break ;
}
switch($field){
case "deflt2docs_location" :
$html = str_replace("!!param_allloc!!", self::get_user_param_form("param_allloc"), $html);
break;
}
return $html;
}
private function load_template($template=""){
global $include_path;
global $lang;
if(!$template) $template = $this->template;
if(!$template) $template = "template";
$filepath = $include_path."/dashboard/".$this->module."/".$template;
if(file_exists($filepath."_subst.xml")){
$filepath.="_subst.xml";
}else{
$filepath.=".xml";
}
if(!file_exists($filepath)){
return false;
}else{
@ini_set("zend.ze1_compatibility_mode", "0");
$xml = new DOMDocument();
$xml->load($filepath);
//langue de référence
$default_lang = "";
$xml_template = $xml->getElementsByTagName("template")->item(0);
if($xml_template->hasAttributes()){
$attributes = $xml_template->attributes;
for($i=0 ; $i<$attributes->length ; $i++){
if($attributes->item($i)->nodeName == "default_lang"){
//dom retourne de l'utf-8 à tous les coups...
$default_lang = $this->charset_normalize($attributes->item($i)->nodeValue,"utf-8");
break;
}
}
}
//on cherche le template qui va bien...
$html_templates = $xml_template->getElementsByTagName("content");
$template = array();
for($i=0 ; $i<$html_templates->length ; $i++){
if($i == 0 || $html_templates->length == 1){
$template = $this->charset_normalize($html_templates->item($i)->nodeValue,"utf-8");
}
$attributes = $html_templates->item($i)->attributes;
for($j=0 ; $j<$attributes->length ; $j++){
if($attributes->item($j)->nodeName == "lang"){
$current_lang = $this->charset_normalize($attributes->item($j)->nodeValue,"utf-8");
if($current_lang == $lang){
$template = $this->charset_normalize($html_templates->item($i)->nodeValue,"utf-8");
break(2);
}
}
if($attributes->item($j)->nodeName == "default_lang"){
$current_lang = $this->charset_normalize($attributes->item($j)->nodeValue,"utf-8");
if($current_lang == $lang){
$template = $this->charset_normalize($html_templates->item($i)->nodeValue,"utf-8");
break;
}
}
}
}
@ini_set("zend.ze1_compatibility_mode", "1");
}
return $template;
}
protected static function charset_normalize($elem,$input_charset){
global $charset;
if(is_array($elem)){
foreach ($elem as $key =>$value){
$elem[$key] = self::charset_normalize($value,$input_charset);
}
}else{
//PMB dans un autre charset, on converti la chaine...
$elem = self::clean_cp1252($elem, $input_charset);
if($charset != $input_charset){
$elem = iconv($input_charset,$charset,$elem);
}
}
return $elem;
}
protected static function clean_cp1252($str,$charset){
switch($charset){
case "utf-8" :
$cp1252_map = array(
"\x80" => "EUR", /* EURO SIGN */
"\x82" => "\xab", /* SINGLE LOW-9 QUOTATION MARK */
"\x83" => "\x66", /* LATIN SMALL LETTER F WITH HOOK */
"\x84" => "\xab", /* DOUBLE LOW-9 QUOTATION MARK */
"\x85" => "...", /* HORIZONTAL ELLIPSIS */
"\x86" => "?", /* DAGGER */
"\x87" => "?", /* DOUBLE DAGGER */
"\x88" => "?", /* MODIFIER LETTER CIRCUMFLEX ACCENT */
"\x89" => "?", /* PER MILLE SIGN */
"\x8a" => "S", /* LATIN CAPITAL LETTER S WITH CARON */
"\x8b" => "\x3c", /* SINGLE LEFT-POINTING ANGLE QUOTATION */
"\x8c" => "OE", /* LATIN CAPITAL LIGATURE OE */
"\x8e" => "Z", /* LATIN CAPITAL LETTER Z WITH CARON */
"\xe2\x80\x98" => "\x27", /* LEFT SINGLE QUOTATION MARK */
"\xe2\x80\x99" => "\x27", /* RIGHT SINGLE QUOTATION MARK */
"\x93" => "\x22", /* LEFT DOUBLE QUOTATION MARK */
"\x94" => "\x22", /* RIGHT DOUBLE QUOTATION MARK */
"\x95" => "\b7", /* BULLET */
"\x96" => "\x20", /* EN DASH */
"\x97" => "\x20\x20", /* EM DASH */
"\x98" => "\x7e", /* SMALL TILDE */
"\x99" => "?", /* TRADE MARK SIGN */
"\x9a" => "S", /* LATIN SMALL LETTER S WITH CARON */
"\x9b" => "\x3e;", /* SINGLE RIGHT-POINTING ANGLE QUOTATION*/
"\x9c" => "oe", /* LATIN SMALL LIGATURE OE */
"\x9e" => "Z", /* LATIN SMALL LETTER Z WITH CARON */
"\x9f" => "Y" /* LATIN CAPITAL LETTER Y WITH DIAERESIS*/
);
break;
case "iso8859-1" :
$cp1252_map = array(
"\x80" => "EUR", /* EURO SIGN */
"\x82" => "\xab", /* SINGLE LOW-9 QUOTATION MARK */
"\x83" => "\x66", /* LATIN SMALL LETTER F WITH HOOK */
"\x84" => "\xab", /* DOUBLE LOW-9 QUOTATION MARK */
"\x85" => "...", /* HORIZONTAL ELLIPSIS */
"\x86" => "?", /* DAGGER */
"\x87" => "?", /* DOUBLE DAGGER */
"\x88" => "?", /* MODIFIER LETTER CIRCUMFLEX ACCENT */
"\x89" => "?", /* PER MILLE SIGN */
"\x8a" => "S", /* LATIN CAPITAL LETTER S WITH CARON */
"\x8b" => "\x3c", /* SINGLE LEFT-POINTING ANGLE QUOTATION */
"\x8c" => "OE", /* LATIN CAPITAL LIGATURE OE */
"\x8e" => "Z", /* LATIN CAPITAL LETTER Z WITH CARON */
"\x91" => "\x27", /* LEFT SINGLE QUOTATION MARK */
"\x92" => "\x27", /* RIGHT SINGLE QUOTATION MARK */
"\x93" => "\x22", /* LEFT DOUBLE QUOTATION MARK */
"\x94" => "\x22", /* RIGHT DOUBLE QUOTATION MARK */
"\x95" => "\b7", /* BULLET */
"\x96" => "\x20", /* EN DASH */
"\x97" => "\x20\x20", /* EM DASH */
"\x98" => "\x7e", /* SMALL TILDE */
"\x99" => "?", /* TRADE MARK SIGN */
"\x9a" => "S", /* LATIN SMALL LETTER S WITH CARON */
"\x9b" => "\x3e;", /* SINGLE RIGHT-POINTING ANGLE QUOTATION*/
"\x9c" => "oe", /* LATIN SMALL LIGATURE OE */
"\x9e" => "Z", /* LATIN SMALL LETTER Z WITH CARON */
"\x9f" => "Y" /* LATIN CAPITAL LETTER Y WITH DIAERESIS*/
);
break;
}
return strtr($str, $cp1252_map);
}
}