function show_select_languages()
{
    global $common_tpl_lang_select, $msg, $opac_show_languages, $include_path, $lang;
    $show_languages = substr($opac_show_languages, 0, 1);
    if ($show_languages == 1) {
        $languages = explode(",", substr($opac_show_languages, 2));
        $langues = new XMLlist("{$include_path}/messages/languages.xml");
        $langues->analyser();
        $clang = $langues->table;
        for ($i = 0; $i < sizeof($languages); $i++) {
            $lang_combo[$languages[$i]] = $clang[$languages[$i]];
        }
        $common_tpl_lang_select = str_replace("!!msg_lang_select!!", $msg["common_tpl_lang_select"], $common_tpl_lang_select);
        $combo = "<form method=\"post\" action=\"index.php\" >";
        $combo .= "<select name=\"lang_sel\" onchange=\"this.form.submit();\">";
        while (list($cle, $value) = each($lang_combo)) {
            if (strcmp($cle, $lang) != 0) {
                $combo .= "<option value='{$cle}'>{$value}</option>";
            } else {
                $combo .= "<option value='{$cle}' selected>{$value} </option>";
            }
        }
        $combo .= "</select></form>";
        $common_tpl_lang_select = str_replace("!!lang_select!!", $combo, $common_tpl_lang_select);
        // end combo box
        return $common_tpl_lang_select;
    } else {
        return "";
    }
}

function make_empr_lang_combo($lang = '')
{
    // retourne le combo des langues avec la langue $lang selectionn?e
    // n?cessite l'inclusion de XMLlist.class.php (normalement c'est d?j? le cas partout
    global $include_path;
    global $msg;
    global $charset;
    // langue par defaut
    if (!$lang) {
        $lang = "fr_FR";
    }
    $langues = new XMLlist("{$include_path}/messages/languages.xml");
    $langues->analyser();
    $clang = $langues->table;
    $combo = "<select name='form_empr_lang' id='empr_lang'>";
    while (list($cle, $value) = each($clang)) {
        // arabe seulement si on est en utf-8
        if ($charset != 'utf-8' and $cle != 'ar' or $charset == 'utf-8') {
            if (strcmp($cle, $lang) != 0) {
                $combo .= "<option value='{$cle}'>{$value} ({$cle})</option>";
            } else {
                $combo .= "<option value='{$cle}' selected>{$value} ({$cle})</option>";
            }
        }
    }
    $combo .= "</select>";
    return $combo;
}

 function set_language($lang)
 {
     global $msg;
     global $base_path;
     $messages = new XMLlist($base_path . "/includes/messages/{$lang}.xml", 0);
     $messages->analyser();
     $msg = $messages->table;
 }

 function get_messages($connector_path)
 {
     global $lang;
     if (file_exists($connector_path . "/messages/" . $lang . ".xml")) {
         $file_name = $connector_path . "/messages/" . $lang . ".xml";
     } else {
         if (file_exists($connector_path . "/messages/fr_FR.xml")) {
             $file_name = $connector_path . "/messages/fr_FR.xml";
         }
     }
     if ($file_name) {
         $xmllist = new XMLlist($file_name);
         $xmllist->analyser();
         $this->msg = $xmllist->table;
     }
 }

 function get_messages($lang_path)
 {
     global $lang;
     global $base_path;
     if (file_exists($base_path . $lang_path . "/messages/" . $lang . ".xml")) {
         $file_name = $base_path . $lang_path . "/messages/" . $lang . ".xml";
     } else {
         if (file_exists($base_path . $lang_path . "/messages/fr_FR.xml")) {
             $file_name = $base_path . $lang_path . "/messages/fr_FR.xml";
         }
     }
     if ($file_name) {
         $xmllist = new XMLlist($file_name);
         $xmllist->analyser();
         return $xmllist->table;
     }
 }

function convert_diacrit($string)
{
    global $tdiac;
    global $charset;
    global $include_path;
    if (!$string) {
        return;
    }
    if (!$tdiac) {
        $tdiac = new XMLlist("{$include_path}/messages/diacritique{$charset}.xml");
        $tdiac->analyser();
    }
    foreach ($tdiac->table as $wreplace => $wdiacritique) {
        if (pmb_preg_match("/{$wdiacritique}/", $string)) {
            $string = pmb_preg_replace("/{$wdiacritique}/", $wreplace, $string);
        }
    }
    return $string;
}

 function process($source_id, $pmb_user_id, $json_input)
 {
     global $charset;
     global $wsdl;
     global $class_path;
     $the_source = $this->connector_object->instantiate_source_class($source_id);
     if (!isset($the_source->config["exported_functions"])) {
         $this->return_error("Source wasn't configured");
     }
     $allowed_methods = array();
     foreach ($the_source->config["exported_functions"] as $aallowed_method) {
         $allowed_methods[] = $aallowed_method['group'] . '_' . $aallowed_method['name'];
     }
     $json_operation = '';
     $request = $json_input;
     if ($request) {
         $json_operation = $request["method"];
     }
     //Instantions la classe qui contient les fonctions
     $ess = new external_services(true);
     if ($json_operation && $ess->operation_need_messages($json_operation)) {
         //Allons chercher les messages
         global $class_path;
         global $include_path;
         global $lang;
         require_once "{$class_path}/XMLlist.class.php";
         $messages = new XMLlist("{$include_path}/messages/{$lang}.xml", 0);
         $messages->analyser();
         global $msg;
         $msg = $messages->table;
     }
     if ($json_operation) {
         $proxy = $ess->get_proxy($pmb_user_id, array($json_operation));
     } else {
         $proxy = $ess->get_proxy($pmb_user_id);
     }
     $proxy->input_charset = 'utf-8';
     jsonRPCServer::handle($proxy, $allowed_methods, $json_input) or print 'No request';
 }

function zattr_form($zbib_id = "", $zattr_libelle = "", $zattr_attr = "")
{
    global $msg;
    global $admin_zattr_form;
    global $include_path;
    global $lang;
    global $charset;
    // loading the localized attributes labels
    $la = new XMLlist($include_path . "/marc_tables/z3950attributes.xml", 0);
    $la->analyser();
    $codici = $la->table;
    if (!$zattr_libelle) {
        $admin_zattr_form = str_replace('!!form_title!!', $msg["zattr_ajouter_attr"], $admin_zattr_form);
        $admin_zattr_form = str_replace('!!bib_id!!', "", $admin_zattr_form);
        // here the combo box must be enabled because the user is adding a new attr.
        $select = "<div class='row'>\n\t\t\t\t<div class='colonne4' align='right'>\n\t\t\t\t\t<label class='etiquette'>{$msg['zattr_libelle']} &nbsp;</label>\n\t\t\t\t</div>\n\t\t\t\t<div class='colonne_suite'> ";
        $select .= "<select name='form_attr_libelle'>\t";
        while (list($codeattr, $libelle) = each($codici)) {
            if ($zattr_libelle == $codeattr) {
                $select .= "<option value='" . htmlentities($codeattr, ENT_QUOTES, $charset) . "' SELECTED>" . htmlentities($msg["z3950_" . $libelle], ENT_QUOTES, $charset) . "</option>";
            } else {
                $select .= "<option value='" . htmlentities($codeattr, ENT_QUOTES, $charset) . "'>" . htmlentities($msg["z3950_" . $libelle], ENT_QUOTES, $charset) . "</option>";
            }
        }
        $select .= "</select></div></div>";
    } else {
        $admin_zattr_form = str_replace('!!form_title!!', $msg["zattr_modifier_attr"] . " : " . $msg["z3950_" . $codici[$zattr_libelle]], $admin_zattr_form);
        $admin_zattr_form = str_replace('!!bib_id!!', $zbib_id, $admin_zattr_form);
        // here the combo box doesn't appear because the user can't change the attr. label
        $select = "<input type=hidden name=form_attr_libelle value='{$zattr_libelle}'>";
    }
    $admin_zattr_form = str_replace('!!code!!', $select, $admin_zattr_form);
    $admin_zattr_form = str_replace('!!attr_bib_id!!', $zbib_id, $admin_zattr_form);
    $admin_zattr_form = str_replace('!!attr_libelle!!', $zattr_libelle, $admin_zattr_form);
    $admin_zattr_form = str_replace('!!attr_attr!!', $zattr_attr, $admin_zattr_form);
    $admin_zattr_form = str_replace('!!local_attr_libelle!!', $msg["z3950_" . $codici[$zattr_libelle]], $admin_zattr_form);
    print confirmation_delete("./admin.php?categ=z3950&sub=zattr&action=del&");
    print $admin_zattr_form;
}

require_once "{$include_path}/mysql_connect.inc.php";
$dbh = connection_mysql();
//require_once("$include_path/sessions.inc.php");
require_once "{$include_path}/misc.inc.php";
//require_once("$javascript_path/misc.inc.php");
//require_once("$include_path/user_error.inc.php");
// classe de gestion de l'audit des objets
//require_once("$class_path/audit.class.php");
include "{$include_path}/start.inc.php";
$lang = "fr_FR";
$helpdir = $lang;
// localisation (fichier XML)
$messages = new XMLlist("{$include_path}/messages/{$lang}.xml", 0);
$messages->analyser();
$msg = $messages->table;
$descriptions = new XMLlist("affiche_contenu_params.xml", 0);
$descriptions->analyser();
$desc = $descriptions->table;
require "{$include_path}/templates/common.tpl.php";
require_once $include_path . "/parser.inc.php";
function param_form($id_param = 0, $type_param = "", $sstype_param = "", $valeur_param = "", $comment_param = "")
{
    global $msg;
    global $admin_param_form;
    $title = $msg[1606];
    // modification
    $admin_param_form = str_replace('!!form_title!!', $title, $admin_param_form);
    $admin_param_form = str_replace('!!id_param!!', $id_param, $admin_param_form);
    $admin_param_form = str_replace('!!type_param!!', $type_param, $admin_param_form);
    $admin_param_form = str_replace('!!sstype_param!!', $sstype_param, $admin_param_form);
    $admin_param_form = str_replace('!!valeur_param!!', $valeur_param, $admin_param_form);

function update_authors_num_opsys($aut_, $responsability_type)
{
    global $notice_id;
    global $table_responsability_function;
    global $lang, $include_path;
    global $xml_changement;
    if (!is_array($table_responsability_function)) {
        //$table_responsability_function=unserialize_file("table_responsability_function.tmp");
        $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/function.xml");
        $parser->analyser();
        $table = $parser->table;
        $table_responsability_function = $parser->tablefav;
        if ($table_responsability_function) {
            foreach ($table_responsability_function as $key => $val) {
                $table_responsability_function[$key] = $table[$key];
            }
        }
    }
    //print"<pre>";print_r($aut_);print"</pre>";
    for ($i = 0; $i < count($aut_); $i++) {
        if ($aut_[$i][3] != "") {
            $aut_i_4 = str_replace('&', "", $aut_[$i]['4']);
            $aut_i_p = str_replace('&', "", $aut_[$i]['p']);
            $requete = "select author_id from authors, responsability where author_name='" . addslashes($aut_[$i][a]) . "' and author_rejete='" . addslashes($aut_[$i][b]) . "' \n\t\t\t\tand responsability_notice='{$notice_id}' and responsability_author = author_id";
            $result = pmb_mysql_query($requete);
            if ($row = pmb_mysql_fetch_row($result)) {
                $author_id = $row[0];
                $requete = "update authors set author_comment='" . addslashes($aut_[$i][3]) . "' where author_id='{$author_id}' ";
                pmb_mysql_query($requete);
                if ($aut_i_4 >= 900) {
                    $index = '';
                    if ($table_responsability_function) {
                        foreach ($table_responsability_function as $key => $val) {
                            if ($table_responsability_function[$key] == $aut_i_4) {
                                $index = $key;
                                break;
                            }
                        }
                    }
                    if (!$index) {
                        // creer
                        $index = count($table_responsability_function) + 900;
                        $table_responsability_function[$index] = $aut_i_4;
                        $xml_changement = 1;
                    }
                    $requete = "update responsability SET responsability_fonction='{$index}' where responsability_notice='{$notice_id}'\n\t\t\t\t\tand responsability_author = {$author_id} and responsability_fonction=" . $aut_i_4;
                    $result = pmb_mysql_query($requete);
                }
                if ($aut_i_p != "") {
                    $requete = "delete from responsability where responsability_fonction='' and responsability_author = {$author_id} and responsability_type={$responsability_type} and  responsability_notice='{$notice_id}'";
                    $result = pmb_mysql_query($requete);
                    $index = '';
                    if ($table_responsability_function) {
                        foreach ($table_responsability_function as $key => $val) {
                            if ($table_responsability_function[$key] == $aut_i_p) {
                                $index = $key;
                                break;
                            }
                        }
                    }
                    if (!$index) {
                        // creer
                        $index = count($table_responsability_function) + 900;
                        $table_responsability_function[$index] = $aut_i_p;
                        $xml_changement = 1;
                    }
                    //$requete="update responsability SET responsability_fonction='$index' where responsability_notice='$notice_id' and responsability_author = $author_id";
                    $requete = "insert into responsability SET responsability_fonction='{$index}' , responsability_notice='{$notice_id}' , responsability_author = {$author_id}, responsability_type={$responsability_type}";
                    $result = pmb_mysql_query($requete);
                }
            }
        }
    }
}

 function get_label($type)
 {
     global $lang, $include_path;
     global $dbh;
     global $type_page_opac;
     if (!count($type_page_opac)) {
         if (file_exists($include_path . "/interpreter/statopac/{$lang}.xml")) {
             $liste_libelle = new XMLlist($include_path . "/interpreter/statopac/{$lang}.xml");
         } else {
             $liste_libelle = new XMLlist($include_path . "/interpreter/statopac/fr_FR.xml");
         }
         $liste_libelle->analyser();
         $type_page_opac = $liste_libelle->table;
         $query = "select id_page, page_name from cms_pages";
         $result = pmb_mysql_query($query, $dbh);
         if (pmb_mysql_num_rows($result)) {
             while ($row = pmb_mysql_fetch_object($result)) {
                 $type_page_opac["25" . str_pad($row->id_page, 2, "0", STR_PAD_LEFT)] = $row->page_name;
             }
         }
     }
     return $type_page_opac[$type];
 }

//.........这里部分代码省略.........
     $message_folder = "";
     if ($pmb_notice_img_folder_id) {
         $req = "select repertoire_path from upload_repertoire where repertoire_id ='" . $pmb_notice_img_folder_id . "'";
         $res = pmb_mysql_query($req);
         if (pmb_mysql_num_rows($res)) {
             $rep = pmb_mysql_fetch_object($res);
             if (!is_dir($rep->repertoire_path)) {
                 $notice_img_folder_error = 1;
             }
         } else {
             $notice_img_folder_error = 1;
         }
         if ($notice_img_folder_error) {
             if (SESSrights & ADMINISTRATION_AUTH) {
                 $requete = "select * from parametres where gestion=0 and type_param='pmb' and sstype_param='notice_img_folder_id' ";
                 $res = pmb_mysql_query($requete);
                 $i = 0;
                 if ($param = pmb_mysql_fetch_object($res)) {
                     $message_folder = " <a class='erreur' href='./admin.php?categ=param&action=modif&id_param=" . $param->id_param . "' >" . $msg['notice_img_folder_admin_no_access'] . "</a> ";
                 }
             } else {
                 $message_folder = $msg['notice_img_folder_no_access'];
             }
         }
     }
     $ptab[10] = str_replace('!!message_folder!!', $message_folder, $ptab[10]);
     // langue de la notice
     global $lang, $xmlta_indexation_lang;
     $user_lang = $this->indexation_lang;
     if (!$user_lang) {
         $user_lang = $xmlta_indexation_lang;
     }
     //	if(!$user_lang) $user_lang="fr_FR";
     $langues = new XMLlist("{$include_path}/messages/languages.xml");
     $langues->analyser();
     $clang = $langues->table;
     $combo = "<select name='indexation_lang' id='indexation_lang' class='saisie-20em' >";
     if (!$user_lang) {
         $combo .= "<option value='' selected>--</option>";
     } else {
         $combo .= "<option value='' >--</option>";
     }
     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, $user_lang) != 0) {
                 $combo .= "<option value='{$cle}'>{$value} ({$cle})</option>";
             } else {
                 $combo .= "<option value='{$cle}' selected>{$value} ({$cle})</option>";
             }
         }
     }
     $combo .= "</select>";
     $ptab[10] = str_replace('!!indexation_lang!!', $combo, $ptab[10]);
     $form_notice = str_replace('!!indexation_lang_sel!!', $user_lang, $form_notice);
     global $deflt_integration_notice_statut;
     if ($id_notice) {
         $rqt_statut = "select statut from notices where notice_id='{$id_notice}' ";
         $res_statut = pmb_mysql_query($rqt_statut);
         $stat = pmb_mysql_fetch_object($res_statut);
         $select_statut = gen_liste_multiple("select id_notice_statut, gestion_libelle from notice_statut order by 2", "id_notice_statut", "gestion_libelle", "id_notice_statut", "form_notice_statut", "", $stat->statut, "", "", "", "", 0);
     } else {
         $select_statut = gen_liste_multiple("select id_notice_statut, gestion_libelle from notice_statut order by 2", "id_notice_statut", "gestion_libelle", "id_notice_statut", "form_notice_statut", "", $deflt_integration_notice_statut, "", "", "", "", 0);
     }
     $ptab[10] = str_replace('!!notice_statut!!', $select_statut, $ptab[10]);
     $ptab[10] = str_replace('!!commentaire_gestion!!', htmlentities($this->commentaire_gestion, ENT_QUOTES, $charset), $ptab[10]);

            break;
    }
    $i++;
}
$requete_nom = "SELECT nom, prenom, user_email, userid, username, user_lang  FROM users WHERE username='{$user}' ";
$res_nom = pmb_mysql_query($requete_nom, $dbh);
@($param_nom = pmb_mysql_fetch_object($res_nom));
$lang = $param_nom->user_lang;
$PMBusernom = $param_nom->nom;
$PMBuserprenom = $param_nom->prenom;
$PMBuseremail = $param_nom->user_email;
// pour que l'id user soit dispo partout
define('SESSuserid', $param_nom->userid);
$PMBuserid = $param_nom->userid;
$PMBusername = $param_nom->username;
$messages = new XMLlist("{$include_path}/messages/{$lang}.xml", 0);
$messages->analyser();
$msg = $messages->table;
include_once "{$class_path}/bannette.class.php";
include_once "{$class_path}/equation.class.php";
include_once "{$class_path}/classements.class.php";
require_once "{$class_path}/docs_location.class.php";
include_once "{$class_path}/rss_flux.class.php";
require_once "./dsi/func_abo.inc.php";
require_once "./dsi/func_pro.inc.php";
require_once "./dsi/func_common.inc.php";
require_once "./dsi/func_clas.inc.php";
require_once "./dsi/func_equ.inc.php";
require_once "./dsi/func_diff.inc.php";
require_once "./dsi/func_rss.inc.php";
$action_diff_aff = "<h1>" . $msg[dsi_dif_auto_titre] . "</h1>";

header('Expires: ' . gmdate('D, d M Y H:i:s') . ' GMT');
header('Content-Disposition: inline; filename="toto.csv"');
//header('Cache-Control: must-revalidate, post-check=0, pre-check=0');
header('Pragma: public');
include '../../../classes/XMLlist.class.php';
// on définit les langues existantes
$languages = new XMLlist("languages_csv.xml", 0);
$languages->analyser();
$avail_lang = $languages->table;
$nb_lang = 0;
$messages_list = array();
while (list($cle, $valeur) = each($avail_lang)) {
    // Dans un tableau des codages, la valeur de codage est stockée
    $codage[$nb_lang] = $valeur;
    $lang_name[$nb_lang] = $cle;
    $obj_lang = new XMLlist("../{$cle}.xml", 0);
    $obj_lang->analyser();
    $lang = $obj_lang->table;
    while (list($key, $val) = each($lang)) {
        $messages_list[$key][$nb_lang] = $val;
    }
    $nb_lang++;
}
while (list($cle, $valeur) = each($messages_list)) {
    echo $cle . ";";
    // La première langue est supposée en utf-8 alors que la suivante est en iso
    //$valeur[0]=utf8_encode($valeur[0]);
    for ($i = 0; $i < $nb_lang; $i++) {
        // Si le codage de la langue n'est pas en utf-8 alors on encode
        if ($codage[$i] != "utf-8") {
            $valeur[$i] = utf8_encode($valeur[$i]);

 function marc_list($type)
 {
     global $lang;
     global $charset;
     global $include_path;
     switch ($type) {
         case 'country':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/country.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'icondoc':
             $parser = new XMLlist("{$include_path}/marc_tables/icondoc.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'icondoc_big':
             $parser = new XMLlist("{$include_path}/marc_tables/icondoc_big.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'lang':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/lang.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'doctype':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/doctype.xml", 0);
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'recordtype':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/recordtype.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'function':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/function.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'literal_function':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/literal_function.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'section_995':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/section_995.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'typdoc_995':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/typdoc_995.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'codstatdoc_995':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/codstat_995.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'diacritique':
             // Armelle : a priori plus utile
             $parser = new XMLlist("{$include_path}/marc_tables/diacritique.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'nivbiblio':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/nivbiblio.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'relationtypeup':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/relationtypeup.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'relationtypedown':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/relationtypedown.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case "etat_demandes":
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/etat_demandes.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case "type_actions":
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/type_actions_demandes.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'relationtype_aut':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/relationtype_aut.xml");
             $parser->analyser();
             $this->table = $parser->table;
             break;
         case 'relationtype_autup':
             $parser = new XMLlist("{$include_path}/marc_tables/{$lang}/relationtype_autup.xml");
             $parser->analyser();
//.........这里部分代码省略.........

 function get_messages()
 {
     global $lang;
     global $base_path;
     $path = $this->path;
     if (file_exists($base_path . "/admin/connecteurs/out/{$path}/messages/" . $lang . ".xml")) {
         $file_name = $base_path . "/admin/connecteurs/out/{$path}/messages/" . $lang . ".xml";
     } else {
         if (file_exists($base_path . "/admin/connecteurs/out/{$path}/messages/fr_FR.xml")) {
             $file_name = $base_path . "/admin/connecteurs/out/{$path}/messages/fr_FR.xml";
         }
     }
     if ($file_name) {
         $xmllist = new XMLlist($file_name);
         $xmllist->analyser();
         $this->msg = $xmllist->table;
     }
 }

//.........这里部分代码省略.........
    $flag & ADMINISTRATION_AUTH ? $admin_flg_form = "checked " : ($admin_flg_form = "");
    $flag & CIRCULATION_AUTH ? $circ_flg_form = "checked " : ($circ_flg_form = "");
    $flag & CATALOGAGE_AUTH ? $catal_flg_form = "checked " : ($catal_flg_form = "");
    $flag & AUTORITES_AUTH ? $auth_flg_form = "checked " : ($auth_flg_form = "");
    $flag & EDIT_AUTH ? $edit_flg_form = "checked " : ($edit_flg_form = "");
    $flag & EDIT_FORCING_AUTH ? $edit_forcing_flg_form = "checked " : ($edit_forcing_flg_form = "");
    $flag & SAUV_AUTH ? $sauv_flg_form = "checked " : ($sauv_flg_form = "");
    $flag & DSI_AUTH ? $dsi_flg_form = "checked " : ($dsi_flg_form = "");
    $flag & PREF_AUTH ? $pref_flg_form = "checked " : ($pref_flg_form = "");
    $flag & ACQUISITION_AUTH ? $acquisition_flg_form = "checked " : ($acquisition_flg_form = "");
    $flag & RESTRICTCIRC_AUTH ? $restrictcirc_flg_form = "checked " : ($restrictcirc_flg_form = "");
    $flag & THESAURUS_AUTH ? $thesaurus_flg_form = "checked " : ($thesaurus_flg_form = "");
    $flag & TRANSFERTS_AUTH ? $transferts_flg_form = "checked " : ($transferts_flg_form = "");
    $flag & EXTENSIONS_AUTH ? $extensions_flg_form = "checked " : ($extensions_flg_form = "");
    $flag & DEMANDES_AUTH ? $demandes_flg_form = "checked " : ($extensions_flg_form = "");
    $flag & CMS_AUTH ? $cms_flg_form = "checked " : ($cms_flg_form = "");
    $flag & FICHES_AUTH ? $fiches_flg_form = "checked " : ($fiches_flg_form = "");
    $admin_user_form = str_replace('!!admin_flg!!', $admin_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!catal_flg!!', $catal_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!circ_flg!!', $circ_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!auth_flg!!', $auth_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!edit_flg!!', $edit_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!edit_forcing_flg!!', $edit_forcing_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!sauv_flg!!', $sauv_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!dsi_flg!!', $dsi_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!pref_flg!!', $pref_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!acquisition_flg!!', $acquisition_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!restrictcirc_flg!!', $restrictcirc_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!thesaurus_flg!!', $thesaurus_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!transferts_flg!!', $transferts_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!extensions_flg!!', $extensions_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!demandes_flg!!', $demandes_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!cms_flg!!', $cms_flg_form, $admin_user_form);
    $admin_user_form = str_replace('!!fiches_flg!!', $fiches_flg_form, $admin_user_form);
    if ($form_user_alert_resamail == 1) {
        $alert_resa_mail = " checked";
    } else {
        $alert_resa_mail = "";
    }
    $admin_user_form = str_replace('!!alter_resa_mail!!', $alert_resa_mail, $admin_user_form);
    if ($demandes_active) {
        if ($form_user_alert_demandesmail == 1) {
            $alert_demandes_mail = " checked";
        } else {
            $alert_demandes_mail = "";
        }
        $admin_user_form = str_replace('!!alert_demandes_mail!!', $alert_demandes_mail, $admin_user_form);
    }
    if ($opac_websubscribe_show) {
        if ($form_user_alert_subscribemail == 1) {
            $alert_subscribe_mail = " checked";
        } else {
            $alert_subscribe_mail = "";
        }
        $admin_user_form = str_replace('!!alert_subscribe_mail!!', $alert_subscribe_mail, $admin_user_form);
    }
    if ($acquisition_active) {
        if ($form_user_alert_suggmail == 1) {
            $alert_sugg_mail = " checked";
        } else {
            $alert_sugg_mail = "";
        }
        $admin_user_form = str_replace('!!alert_sugg_mail!!', $alert_sugg_mail, $admin_user_form);
    }
    $admin_user_form = str_replace('!!user_email!!', $form_user_email, $admin_user_form);
    if (!$id) {
        $form_type = '1';
    } else {
        $form_type = '0';
    }
    // récupération des codes langues
    $la = new XMLlist("{$include_path}/messages/languages.xml", 0);
    $la->analyser();
    $languages = $la->table;
    // constitution du sélecteur
    $selector = "<select name='user_lang'>\t";
    while (list($codelang, $libelle) = each($languages)) {
        // arabe seulement si on est en utf-8
        if ($charset != 'utf-8' and $codelang != 'ar' or $charset == 'utf-8') {
            if ($lang == $codelang) {
                $selector .= "<option value='" . htmlentities($codelang, ENT_QUOTES, $charset) . "' SELECTED>" . htmlentities($libelle, ENT_QUOTES, $charset) . "</option>";
            } else {
                $selector .= "<option value='" . htmlentities($codelang, ENT_QUOTES, $charset) . "'>" . htmlentities($libelle, ENT_QUOTES, $charset) . "</option>";
            }
        }
    }
    $selector .= '</select>';
    $admin_user_form = str_replace('!!select_lang!!', $selector, $admin_user_form);
    $admin_user_form = str_replace('!!form_type!!', $form_type, $admin_user_form);
    $admin_user_form = str_replace('!!form_param_default!!', $form_param_default, $admin_user_form);
    //groupes
    if ($usr_grp !== FALSE) {
        $q = "select * from users_groups order by grp_name ";
        $sel_group = gen_liste($q, 'grp_id', 'grp_name', 'sel_group', '', $usr_grp, '0', $msg[128], '0', $msg[128]);
        $sel_group = "<label class='etiquette'>" . htmlentities($msg['admin_usr_grp_aff'], ENT_QUOTES, $charset) . '</label><br />' . $sel_group;
        $admin_user_form = str_replace('<!-- sel_group -->', $sel_group, $admin_user_form);
    }
    print confirmation_delete("./admin.php?categ=users&sub=users&action=del&id=");
    print $admin_user_form;
}

/**
 * Retourne le type d'url externe cliquée
 */
function aff_url_externe_type($param, $parser)
{
    global $lang, $include_path;
    global $liste_libelle_types;
    if (!count($liste_libelle_types)) {
        if (file_exists($include_path . "/interpreter/statopac/{$lang}.xml")) {
            $liste_libelle = new XMLlist($include_path . "/interpreter/statopac/{$lang}.xml");
        } else {
            $liste_libelle = new XMLlist($include_path . "/interpreter/statopac/fr_FR.xml");
        }
        $liste_libelle->analyser();
        $liste_libelle_types = $liste_libelle->table;
    }
    $tab = get_var_get($param, $parser);
    if (!isset($tab['type_url'])) {
        $tab = get_var_post($param, $parser);
        if (!isset($tab['type_url'])) {
            return '';
        }
    }
    return $liste_libelle_types[$tab['type_url']];
}

function get_functions_authors()
{
    global $include_path;
    global $lang;
    if (file_exists($include_path . "/marc_tables/" . $lang . "/function.xml")) {
        $file_name = $include_path . "/marc_tables/" . $lang . "/function.xml";
    } else {
        if (file_exists($include_path . "/marc_tables/fr_FR/function.xml")) {
            $file_name = $include_path . "/marc_tables/fr_FR/function.xml";
        }
    }
    if ($file_name) {
        $xmllist = new XMLlist($file_name);
        $xmllist->analyser();
        $codes_auteurs = $xmllist->table;
        return $codes_auteurs;
    } else {
        return array();
    }
}

 function checkTasks()
 {
     global $dbh, $base_path, $include_path, $class