function convert_webepires($notice, $s, $islast, $isfirst, $param_path)
{
global $cols, $charset;
global $intitules;
global $base_path, $origine;
global $tab_functions;
if (!$tab_functions) {
$tab_functions = new marc_list('function');
}
if (!$cols) {
//On lit les intitulés dans le fichier temporaire
$fcols = fopen("{$base_path}/temp/" . $origine . "_cols.txt", "r");
if ($fcols) {
$cols = fread($fcols, filesize("{$base_path}/temp/" . $origine . "_cols.txt"));
fclose($fcols);
$cols = unserialize($cols);
}
}
$fields = explode(";;", $notice);
for ($i = 0; $i < count($fields); $i++) {
$ntable[$cols[$i]] = $fields[$i];
}
if (!$ntable["NOM"] || !$ntable["SITE"]) {
$data = "";
$error = "Titre vide<br />" . $notice;
} else {
$error = "";
$data = "<notice>\n";
//Entête
if ($s["LOCALBASE"][0]["value"] == DATA_BASE) {
$rs = "c";
} else {
$rs = "n";
}
$data .= " <rs>" . $rs . "</rs>\n";
$dt = "w";
$bl = "s";
$data .= " <dt>" . $dt . "</dt>\n";
$data .= "<bl>" . $bl . "</bl>\n";
$data .= "<hl>*</hl>\n<el>1</el>\n<ru>i</ru>\n";
//Numéro d'enregistrement
//$data.=" <f c='001' ind=' '>".$ntable["REF"]."</f>\n";
//Titre
$data .= " <f c='200' ind=' '>\n";
$data .= " <s c='a'>" . htmlspecialchars($ntable["NOM"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
//Site web
$data .= " <f c='856'>\n";
$data .= " <s c='u'>" . htmlspecialchars($ntable["SITE"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
//Adresse mail : note générale
if ($ntable["MEL"]) {
$data .= " <f c='300'>\n";
$data .= " <s c='a'>" . htmlspecialchars($ntable["MEL"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
//LI : Note de contenu
if ($ntable["LI"]) {
$data .= " <f c='327'>\n";
$data .= " <s c='a'>" . htmlspecialchars($ntable["LI"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
//COMMENT : Résumé
if ($ntable["COMMENT"]) {
$data .= " <f c='330'>\n";
$data .= " <s c='a'>" . htmlspecialchars($ntable["COMMENT"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
//DOC : Indexation Web
if ($ntable["DOC"]) {
$data .= make_index($ntable["DOC"], "DOC");
}
//Indexations
if ($ntable["DE"]) {
$data .= make_index($ntable["DE"], "DE");
}
if ($ntable["DO"]) {
$data .= " <f c='676'>\n";
$data .= " <s c='a'>" . htmlspecialchars($ntable["DO"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
//Champs spéciaux
if (trim($ntable["OP"])) {
$data .= " <f c='900'>\n";
$data .= " <s c='a'>" . htmlspecialchars($ntable["OP"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
} else {
$data .= " <f c='900'>\n";
$data .= " <s c='a'>" . htmlspecialchars("PRISME", ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
$data .= " <f c='902'>\n";
$data .= " <s c='a'>" . htmlspecialchars(date("Y") . "-" . date("m") . "-" . date("d"), ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
$data .= "</notice>\n";
}
if (!$error) {
$r['VALID'] = true;
} else {
$r['VALID'] = false;
}
$r['ERROR'] = $error;
$r['DATA'] = $data;
return $r;
}
function convert_epires($notice, $s, $islast, $isfirst, $param_path)
{
global $cols;
global $ty;
global $intitules;
global $base_path, $origine;
global $tab_functions;
global $lot;
global $charset;
if (!$tab_functions) {
$tab_functions = new marc_list('function');
}
if (!$cols) {
//On lit les intitulés dans le fichier temporaire
$fcols = fopen("{$base_path}/temp/" . $origine . "_cols.txt", "r");
if ($fcols) {
$infos = fread($fcols, filesize("{$base_path}/temp/" . $origine . "_cols.txt"));
fclose($fcols);
$infos = unserialize($infos);
$cols = $infos["COLS"];
$lot = $infos["FILENAME"];
}
}
if (!$ty) {
$ty = array("REVUE" => "v", "LIVRE" => "a", "MEMOIRE" => "b", "DOCUMENT AUDIOVISUEL" => "g", "CDROM" => "m", "CD-ROM" => "m", "DOCUMENT EN LIGNE" => "l");
}
if (!$mois) {
$mois = array(0 => "", 1 => "janvier", 2 => "fevrier", 3 => "mars", 4 => "avril", 5 => "mai", 6 => "juin", 7 => "juillet", 8 => "aout", 9 => "septembre", 10 => "octobre", 11 => "novembre", 12 => "decembre");
$mois_enrichis = array(0 => "", 1 => "janvier", 2 => "février", 3 => "mars", 4 => "avril", 5 => "mai", 6 => "juin", 7 => "juillet", 8 => "aout", 9 => "septembre", 10 => "octobre", 11 => "novembre", 12 => "décembre");
}
//if (!$cols) {
// for ($i=0; $i<count($s["FIELDS"][0]["FIELD"]); $i++) {
// $cols[$s["FIELDS"][0]["FIELD"][$i]["ID"]]=$s["FIELDS"][0]["FIELD"][$i]["value"];
// }
//}
$notice = strtr($notice, array("\r" => "", "\n" => ""));
$fields = explode(";;", $notice);
for ($i = 0; $i < count($fields); $i++) {
$ntable[$cols[$i]] = $fields[$i];
}
if (!$ntable["TI"]) {
$data = "";
$error = "Titre vide<br />" . $notice;
} else {
$error = "";
$data = "<notice>\n";
//si c'est des slashes on les remplaces par des tirets
$ntable["DP"] = str_replace("/", "-", $ntable["DP"]);
//Séparation du type de document
$typdoc = explode(",", $ntable["TY"]);
$is_revue = false;
if (count($typdoc) > 2) {
$n_max = 2;
} else {
$n_max = count($typdoc);
}
for ($i = 0; $i < $n_max; $i++) {
if ($typdoc[$i] == "REVUE") {
$is_revue = true;
} else {
$ntable["TY"] = $typdoc[$i];
}
}
//Entête
$data .= " <rs>n</rs>\n";
if ($ty[$ntable["TY"]]) {
$dt = $ty[$ntable["TY"]];
} else {
$dt = "a";
}
$bl = "m";
$data .= " <dt>" . $dt . "</dt>\n";
$data .= "<bl>" . $bl . "</bl>\n";
$data .= "<hl>*</hl>\n<el>1</el>\n<ru>i</ru>\n";
//Numéro d'enregistrement
$data .= " <f c='001' ind=' '>" . $ntable["REF"] . "</f>\n";
//Titre
$titres = explode(":", $ntable["TI"]);
$data .= " <f c='200' ind=' '>\n";
//Titre principal
$data .= " <s c='a'>" . htmlspecialchars(trim($titres[0]), ENT_QUOTES, $charset) . "</s>\n";
//Titre parallèle
if ($ntable["COL"]) {
$data .= " <s c='d'>" . htmlspecialchars(trim($ntable["COL"]), ENT_QUOTES, $charset) . "</s>\n";
} else {
if ($ntable["ND"]) {
$diplome = explode(":", $ntable["ND"]);
if ($diplome[0]) {
$data .= " <s c='d'>" . htmlspecialchars(trim($diplome[0]), ENT_QUOTES, $charset) . "</s>\n";
}
}
}
//Titre complémentaire
if ($titres[1]) {
$data .= " <s c='e'>" . htmlspecialchars(trim($titres[1]), ENT_QUOTES, $charset) . "</s>\n";
}
$data .= " </f>\n";
//Traitement des Auteurs principaux
if ($ntable["AU"]) {
$auteurs = explode(",", $ntable["AU"]);
$is_auteur_principal = false;
if (count($auteurs) > 1) {
$f_a = "701";
} else {
$f_a = "700";
$is_auteur_principal = true;
}
$data_auteurs = "";
for ($i = 0; $i < count($auteurs); $i++) {
preg_match_all("/([^\\(]*)(\\((.*)\\))*( (.*))?/", trim($auteurs[$i]), $matches);
$entree = $matches[1][0];
$rejete = $matches[3][0];
$fonction = $matches[5][0];
if ($entree) {
$data_auteurs .= " <f c='" . $f_a . "' ind=' '>\n";
$data_auteurs .= " <s c='a'>" . htmlspecialchars(trim($entree), ENT_QUOTES, $charset) . "</s>\n";
if ($rejete) {
$data_auteurs .= " <s c='b'>" . htmlspecialchars(trim($rejete), ENT_QUOTES, $charset) . "</s>\n";
}
$as = array_search($fonction, $tab_functions->table);
if ($as !== false && $as !== null) {
$fonction = $as;
} else {
$fonction = "070";
}
$data_auteurs .= " <s c='4'>" . $fonction . "</s>\n";
$data_auteurs .= " </f>\n";
}
}
if ($data_auteurs) {
/*$data.=" <f c='".$f_a."' ind=' '>\n";*/
$data .= $data_auteurs;
/*$data.=" </f>\n";*/
}
}
//Traitement des auteurs secondaires
if ($ntable["AS"]) {
$auteurs = explode(",", $ntable["AS"]);
$f_a = "702";
$data_auteurs = "";
for ($i = 0; $i < count($auteurs); $i++) {
preg_match_all("/([^\\(]*)(\\((.*)\\))*( (.*))?/", trim($auteurs[$i]), $matches);
$entree = $matches[1][0];
$rejete = $matches[3][0];
$fonction = $matches[5][0];
if ($entree) {
$data_auteurs .= " <f c='" . $f_a . "' ind=' '>\n";
$data_auteurs .= " <s c='a'>" . htmlspecialchars(trim($entree), ENT_QUOTES, $charset) . "</s>\n";
if ($rejete) {
$data_auteurs .= " <s c='b'>" . htmlspecialchars(trim($rejete), ENT_QUOTES, $charset) . "</s>\n";
}
//Recherche de la fonction
$as = array_search($fonction, $tab_functions->table);
if ($as !== false && $as !== null) {
$fonction = $as;
} else {
$fonction = "070";
}
$data_auteurs .= " <s c='4'>" . $fonction . "</s>\n";
$data_auteurs .= " </f>\n";
}
}
if ($data_auteurs) {
/*$data.=" <f c='".$f_a."' ind=' '>\n";*/
$data .= $data_auteurs;
/*$data.=" </f>\n";*/
}
}
//Traitement des Auteurs collectif
if ($ntable["AUCO"]) {
$auteurs = explode(",", $ntable["AUCO"]);
if ($is_auteur_principal) {
$f_a = "710";
} else {
$f_a = "711";
}
$data_auteurs = "";
for ($i = 0; $i < count($auteurs); $i++) {
preg_match_all("/([^\\(]*)(\\((.*)\\))*( (.*))?/", trim($auteurs[$i]), $matches);
$entree = $matches[1][0];
$rejete = $matches[3][0];
$fonction = $matches[5][0];
if ($entree) {
if ($f_a == "710" && $i > 0) {
$f_a = "711";
}
$data_auteurs .= " <f c='" . $f_a . "' ind=' '>\n";
$data_auteurs .= " <s c='a'>" . htmlspecialchars(trim($entree), ENT_QUOTES, $charset) . "</s>\n";
if ($rejete) {
$data_auteurs .= " <s c='b'>" . htmlspecialchars(trim($rejete), ENT_QUOTES, $charset) . "</s>\n";
}
$as = array_search($fonction, $tab_functions->table);
if ($as !== false && $as !== null) {
$fonction = $as;
} else {
$fonction = "070";
}
$data_auteurs .= " <s c='4'>" . $fonction . "</s>\n";
$data_auteurs .= " </f>\n";
}
}
if ($data_auteurs) {
/*$data.=" <f c='".$f_a."' ind=' '>\n";*/
$data .= $data_auteurs;
/*$data.=" </f>\n";*/
}
}
//Editeurs / collection
if ($ntable["ED"]) {
$editeur = explode(":", $ntable["ED"]);
$lieu = $editeur[0];
$nom = $editeur[1];
preg_match_all("/([^\\(]*)(\\((.*)\\))*?/", trim($editeur[2]), $matches);
$annee = $matches[1][0];
$collection = $matches[3][2];
} else {
if ($diplome[2]) {
$lieu = $diplome[1];
$nom = $diplome[2];
$annee = $diplome[3];
}
}
$data_editeur = "";
if ($nom) {
$data_editeur .= " <s c='c'>" . htmlspecialchars(trim($nom), ENT_QUOTES, $charset) . "</s>\n";
if ($lieu) {
$data_editeur .= " <s c='a'>" . htmlspecialchars(trim($lieu), ENT_QUOTES, $charset) . "</s>\n";
}
if ($annee) {
$ann = $annee;
} else {
$ann = $ntable["DP"];
}
$data_editeur .= " <s c='d'>" . htmlspecialchars(trim($ann), ENT_QUOTES, $charset) . "</s>\n";
}
$editeur_present = false;
if ($data_editeur) {
$data .= " <f c='210' ind=' '>\n";
$data .= $data_editeur;
$data .= " </f>\n";
$editeur_present = true;
}
//Date de publication
$dp = false;
if ($ntable["DP"]) {
if (!$editeur_present) {
$data .= " <f c='210' ind=' '>\n";
$data .= " <s c='d'>" . htmlspecialchars($ntable["DP"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
$dp = true;
}
}
//Distributeur
if ($ntable["DIST"]) {
if (!$dp && !$editeur_present) {
$data .= " <f c='210' ind=' '>\n";
$data .= " <s c='a'> </s>\n";
$data .= " </f>\n";
}
$distributeur = explode(":", $ntable["DIST"]);
if ($distributeur[1]) {
$nom = $distributeur[1];
$lieu = $distributeur[0];
} else {
$nom = $ntable["DIST"];
$lieu = "";
}
$data_editeur = " <s c='c'>" . htmlspecialchars(trim($nom), ENT_QUOTES, $charset) . "</s>\n";
if ($lieu) {
$data_editeur .= " <s c='a'>" . htmlspecialchars(trim($lieu), ENT_QUOTES, $charset) . "</s>\n";
}
$data .= " <f c='210'>\n";
$data .= $data_editeur;
$data .= " </f>\n";
}
if ($collection) {
$data .= " <f c='225' ind=' '>\n";
$data .= " <s c='a'>" . htmlspecialchars(trim($collection), ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
//Source
if ($ntable["SO"] && !$is_revue) {
$data .= " <f c='300' ind=' '>\n";
$data .= " <s c='a'>" . htmlspecialchars(trim($ntable["SO"]), ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>";
}
//Notes
if ($ntable["NO"] && !$is_revue) {
$data .= " <f c='327' ind=' '>\n";
$data .= " <s c='a'>" . htmlspecialchars(trim($ntable["NO"]), ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
//Résumé
if ($ntable["RESU"]) {
$data .= " <f c='330' ind=' '>\n";
$data .= " <s c='a'>" . htmlspecialchars(trim($ntable["RESU"]), ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
//Périodiques
if ($ntable["TP"]) {
$data .= " <f c='464' ind=' '>\n";
$data .= " <s c='t'>" . htmlspecialchars($ntable["TP"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " <s c='u'>" . htmlspecialchars($ntable["TN"], ENT_QUOTES, $charset) . "</s>\n";
$so = explode(",", $ntable["SO"]);
$data .= " <s c='d'>" . htmlspecialchars($so[count($so) - 1], ENT_QUOTES, $charset) . "</s>\n";
unset($so[count($so) - 1]);
$data .= " <s c='v'>" . htmlspecialchars(implode(",", $so), ENT_QUOTES, $charset) . "</s>\n";
$data .= " <s c='p'>" . htmlspecialchars($ntable["NO"], ENT_QUOTES, $charset) . "</s>\n";
if ($ntable["DATRI"]) {
$data .= " <s c='e'>" . htmlspecialchars($ntable["DATRI"], ENT_QUOTES, $charset) . "</s>\n";
} else {
if ($ntable["DP"]) {
if (strlen($ntable["DP"]) <= 4) {
//Recherche du mois éventuel
$m = 0;
for ($i = 1; $i < 13; $i++) {
$pm = strpos(strtolower($date_so), $mois[$i]);
if ($pm === false) {
$pm = strpos(strtolower($date_so), $mois_enrichis[$i]);
}
if ($pm !== false) {
break;
}
}
if ($i < 13) {
$m = $i;
} else {
$m = 1;
}
$data .= " <s c='e'>" . htmlspecialchars($ntable["DP"] . "-" . $m . "-01", ENT_QUOTES, $charset) . "</s>\n";
} else {
$data .= " <s c='e'>" . htmlspecialchars($ntable["DP"], ENT_QUOTES, $charset) . "</s>\n";
}
}
}
$data .= " </f>";
}
//Indexations
if ($ntable["GO"] || $ntable["HI"] || $ntable["DENP"] || $ntable["DE"] || $ntable["CD"]) {
$data .= make_index($ntable["GO"], "GO");
$data .= make_index($ntable["HI"], "HI");
$data .= make_index($ntable["DENP"], "DENP");
$data .= make_index($ntable["DE"], "DE");
$data .= make_index($ntable["CD"], "CD");
}
//URL
if ($ntable["URL"]) {
$data .= " <f c='856' ind=' '>\n";
$data .= " <s c='u'>" . htmlspecialchars($ntable["URL"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
//ISBN
if ($ntable["ISBN"]) {
$data .= " <f c='010' ind=' '>\n";
$data .= " <s c='a'>" . htmlspecialchars(trim($ntable["ISBN"]), ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
//Champs spéciaux
$data .= " <f c='900'>\n";
$data .= " <s c='a'>" . htmlspecialchars(trim($ntable["OP"]), ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
$data .= " <f c='901'>\n";
$data .= " <s c='a'>" . htmlspecialchars(trim($ntable["GEN"]), ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
$data .= " <f c='902'>\n";
$data .= " <s c='a'>" . htmlspecialchars($ntable["DS"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
$data .= " <f c='903'>\n";
$data .= " <s c='a'>" . htmlspecialchars($lot, ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
$data .= "</notice>\n";
}
if (!$error) {
$r['VALID'] = true;
} else {
$r['VALID'] = false;
}
$r['ERROR'] = $error;
$r['DATA'] = $data;
return $r;
}
function convert_epires($notice, $s, $islast, $isfirst, $param_path)
{
global $cols;
global $ty;
global $intitules;
global $base_path, $origine;
global $tab_functions;
global $charset;
if (!$tab_functions) {
$tab_functions = new marc_list('function');
}
if (!$cols) {
//On lit les intitulés dans le fichier temporaire
$fcols = fopen("{$base_path}/temp/" . $origine . "_cols.txt", "r");
if ($fcols) {
$cols = fread($fcols, filesize("{$base_path}/temp/" . $origine . "_cols.txt"));
fclose($fcols);
$cols = unserialize($cols);
}
}
if (!$ty) {
$ty = array("REVUE" => "a", "LIVRE" => "a", "MEMOIRE" => "b", "DOCUMENT AUDIOVISUEL" => "g", "CDROM" => "m", "DOCUMENT EN LIGNE" => "l");
}
//if (!$cols) {
// for ($i=0; $i<count($s["FIELDS"][0]["FIELD"]); $i++) {
// $cols[$s["FIELDS"][0]["FIELD"][$i]["ID"]]=$s["FIELDS"][0]["FIELD"][$i]["value"];
// }
//}
$fields = explode(";;", $notice);
for ($i = 0; $i < count($fields); $i++) {
$ntable[$cols[$i]] = $fields[$i];
}
if (!$ntable["TI"]) {
$data = "";
$error = "Titre vide<br />" . $notice;
} else {
$error = "";
$data = "<notice>\n";
//Entête
$data .= " <rs>n</rs>\n";
if ($ty[$ntable["TY"]]) {
$dt = $ty[$ntable["TY"]];
} else {
$dt = "a";
}
$bl = "m";
$data .= " <dt>" . $dt . "</dt>\n";
$data .= "<bl>" . $bl . "</bl>\n";
$data .= "<hl>*</hl>\n<el>1</el>\n<ru>i</ru>\n";
//Numéro d'enregistrement
$data .= " <f c='001' ind=' '>" . $ntable["REF"] . "</f>\n";
//Titre
$titres = explode(":", $ntable["TI"]);
$data .= " <f c='200' ind=' '>\n";
//Titre principal
$data .= " <s c='a'>" . htmlspecialchars($titres[0], ENT_QUOTES, $charset) . "</s>\n";
//Titre parallèle
if ($ntable["COL"]) {
$data .= " <s c='d'>" . htmlspecialchars($ntable["COL"], ENT_QUOTES, $charset) . "</s>\n";
} else {
if ($ntable["ND"]) {
$diplome = explode(":", $ntable["ND"]);
if ($diplome[0]) {
$data .= " <s c='d'>" . htmlspecialchars($diplome[0], ENT_QUOTES, $charset) . "</s>\n";
}
}
}
//Titre complémentaire
if ($titres[1]) {
$data .= " <s c='e'>" . htmlspecialchars($titres[1], ENT_QUOTES, $charset) . "</s>\n";
}
$data .= " </f>\n";
//Traitement des Auteurs principaux
if ($ntable["AU"]) {
$auteurs = explode(",", $ntable["AU"]);
if (count($auteurs) > 1) {
$f_a = "701";
} else {
$f_a = "700";
}
$data_auteurs = "";
for ($i = 0; $i < count($auteurs); $i++) {
preg_match_all("/([^\\(]*)(\\((.*)\\))*( (.*))?/", trim($auteurs[$i]), $matches);
$entree = $matches[1][0];
$rejete = $matches[3][0];
$fonction = $matches[5][0];
if ($entree) {
$data_auteurs .= " <s c='a'>" . htmlspecialchars($entree, ENT_QUOTES, $charset) . "</s>\n";
if ($rejete) {
$data_auteurs .= " <s c='b'>" . htmlspecialchars($rejete, ENT_QUOTES, $charset) . "</s>\n";
}
$as = array_search($fonction, $tab_functions->table);
if ($as !== false && $as !== null) {
$fonction = $as;
} else {
$fonction = "070";
}
$data_auteurs .= " <s c='4'>" . $fonction . "</s>\n";
}
}
if ($data_auteurs) {
$data .= " <f c='" . $f_a . "' ind=' '>\n";
$data .= $data_auteurs;
$data .= " </f>\n";
}
}
//Traitement des auteurs secondaires
if ($ntable["AS"]) {
$auteurs = explode(",", $ntable["AS"]);
$f_a = "702";
$data_auteurs = "";
for ($i = 0; $i < count($auteurs); $i++) {
preg_match_all("/([^\\(]*)(\\((.*)\\))*( (.*))?/", trim($auteurs[$i]), $matches);
$entree = $matches[1][0];
$rejete = $matches[3][0];
$fonction = $matches[5][0];
if ($entree) {
$data_auteurs .= " <s c='a'>" . htmlspecialchars($entree, ENT_QUOTES, $charset) . "</s>\n";
if ($rejete) {
$data_auteurs .= " <s c='b'>" . htmlspecialchars($rejete, ENT_QUOTES, $charset) . "</s>\n";
}
//Recherche de la fonction
$as = array_search($fonction, $tab_functions->table);
if ($as !== false && $as !== null) {
$fonction = $as;
} else {
$fonction = "070";
}
$data_auteurs .= " <s c='4'>" . $fonction . "</s>\n";
}
}
if ($data_auteurs) {
$data .= " <f c='" . $f_a . "' ind=' '>\n";
$data .= $data_auteurs;
$data .= " </f>\n";
}
}
//Traitement des Auteurs collectif
if ($ntable["AUCO"]) {
$auteurs = explode(",", $ntable["AUCO"]);
$f_a = "702";
$data_auteurs = "";
for ($i = 0; $i < count($auteurs); $i++) {
preg_match_all("/([^\\(]*)(\\((.*)\\))*( (.*))?/", trim($auteurs[$i]), $matches);
$entree = $matches[1][0];
$rejete = $matches[3][0];
$fonction = $matches[5][0];
if ($entree) {
$data_auteurs .= " <s c='a'>" . htmlspecialchars($entree, ENT_QUOTES, $charset) . "</s>\n";
if ($rejete) {
$data_auteurs .= " <s c='b'>" . htmlspecialchars($rejete, ENT_QUOTES, $charset) . "</s>\n";
}
$as = array_search($fonction, $tab_functions->table);
if ($as !== false && $as !== null) {
$fonction = $as;
} else {
$fonction = "070";
}
$data_auteurs .= " <s c='4'>" . $fonction . "</s>\n";
}
}
if ($data_auteurs) {
$data .= " <f c='" . $f_a . "' ind=' '>\n";
$data .= $data_auteurs;
$data .= " </f>\n";
}
}
//Editeurs / collection
if ($ntable["ED"]) {
$editeur = explode(":", $ntable["ED"]);
$lieu = $editeur[0];
$nom = $editeur[1];
preg_match_all("/([^\\(]*)(\\((.*)\\))*?/", trim($editeur[2]), $matches);
$annee = $matches[1][0];
$collection = $matches[3][2];
$collection = str_replace("COLL.", "", $collection);
} else {
if ($diplome[2]) {
$lieu = $diplome[1];
$nom = $diplome[2];
$annee = $diplome[3];
}
}
$data_editeur = "";
if ($nom) {
$data_editeur .= " <s c='c'>" . htmlspecialchars($nom, ENT_QUOTES, $charset) . "</s>\n";
if ($lieu) {
$data_editeur .= " <s c='a'>" . htmlspecialchars($lieu, ENT_QUOTES, $charset) . "</s>\n";
}
if ($annee) {
$ann = $annee;
} else {
$ann = $ntable["DP"];
}
$data_editeur .= " <s c='d'>" . htmlspecialchars($ann, ENT_QUOTES, $charset) . "</s>\n";
}
$editeur_present = false;
if ($data_editeur) {
$data .= " <f c='210' ind=' '>\n";
$data .= $data_editeur;
$data .= " </f>\n";
$editeur_present = true;
}
//Date de publication
$dp = false;
if ($ntable["DP"]) {
if (!$editeur_present) {
$data .= " <f c='210' ind=' '>\n";
$data .= " <s c='d'>" . htmlspecialchars($ntable["DP"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
$dp = true;
}
}
//Distributeur
if ($ntable["DIST"]) {
if (!$dp && !$editeur_present) {
$data .= " <f='210' ind=' '>\n";
$data .= " <s c='a'> </s>\n";
$data .= " </f>\n";
}
$distributeur = explode(":", $ntable["DIST"]);
if ($distributeur[1]) {
$nom = $dsitributeur[1];
$lieu = $distributeur[0];
} else {
$nom = $ntable["DIST"];
$lieu = "";
}
$data_editeur = " <s c='c'>" . htmlspecialchars($nom, ENT_QUOTES, $charset) . "</s>\n";
if ($lieu) {
$data_editeur .= " <s c='a'>" . htmlspecialchars($lieu, ENT_QUOTES, $charset) . "</s>\n";
}
$data .= " <f c='210'>\n";
$data .= $data_editeur;
$data .= " </f>\n";
}
if ($collection) {
$data .= " <f c='225' ind=' '>\n";
$data .= " <s c='a'>" . htmlspecialchars($collection, ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
//Notes
if ($ntable["NO"] && $ntable["TY"] != "REVUE") {
$data .= " <f c='327' ind=' '>\n";
$data .= " <s c='a'>" . htmlspecialchars($ntable["NO"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
//Résumé
if ($ntable["RESU"]) {
$data .= " <f c='330' ind=' '>\n";
$data .= " <s c='a'>" . htmlspecialchars($ntable["RESU"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
}
//Périodiques
if ($ntable["TP"]) {
$data .= " <f c='464' ind=' '>\n";
$data .= " <s c='t'>" . htmlspecialchars($ntable["TP"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " <s c='u'>" . htmlspecialchars($ntable["TN"], ENT_QUOTES, $charset) . "</s>\n";
$so = explode(",", $ntable["SO"]);
$data .= " <s c='d'>" . htmlspecialchars($so[count($so) - 1], ENT_QUOTES, $charset) . "</s>\n";
unset($so[count($so) - 1]);
$data .= " <s c='v'>" . htmlspecialchars(implode(",", $so), ENT_QUOTES, $charset) . "</s>\n";
$data .= " <s c='p'>" . htmlspecialchars($ntable["NO"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>";
}
//Indexations
if ($ntable["GO"] || $ntable["HI"] || $ntable["DENP"] || $ntable["DE"] || $ntable["CD"]) {
$data .= make_index($ntable["GO"], "Géo");
$data .= make_index($ntable["HI"], "Hist");
$data .= make_index($ntable["DENP"], "DENP");
$data .= make_index($ntable["DE"], "Mots clés");
$data .= make_index($ntable["CD"], "CD");
}
//Champs spéciaux
$data .= " <f c='900'>\n";
$data .= " <s c='a'>" . htmlspecialchars($ntable["OP"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
$data .= " <f c='901'>\n";
$data .= " <s c='a'>" . htmlspecialchars($ntable["GEN"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
$data .= " <f c='902'>\n";
$data .= " <s c='a'>" . htmlspecialchars($ntable["DS"], ENT_QUOTES, $charset) . "</s>\n";
$data .= " </f>\n";
$data .= "</notice>\n";
}
if (!$error) {
$r['VALID'] = true;
} else {
$r['VALID'] = false;
}
$r['ERROR'] = $error;
$r['DATA'] = $data;
return $r;
}
