"a","Congrès"=>"h","Mémoire"=>"r",
"Thèse"=>"o","Rapport"=>"q","Texte officiel"=>"t",
"Périodique"=>"p","Article"=>"s","Document multimédia"=>"m");
}
$fields=explode("\t",$notice);
for ($i=0; $i".$notice;
} elseif (array_key_exists("REV", $ntable) && ($ntable["REV"] == "") && ($ntable["TYPE"] != "Rapport")) {
$data="";
$error="Titre de revue vide
".$notice;
} elseif (!$ntable["TYPE"]) {
$data="";
$error="Aucun type de document
".$notice;
} else {
$error="";
$data="\n";
//Entête
$data.=" n\n";
if ($ty[$ntable["TYPE"]]) $dt=$ty[$ntable["TYPE"]]; else $dt="a";
switch ($dt) {
case "p":
$bl = "s";
$hl = "1";
break;
case "s":
case "t":
$bl = "a";
$hl = "2";
break;
default :
if(($dt == "q") && ($ntable["REV"])) {
$bl = "a";
$hl = "2";
} else {
$bl = "m";
$hl = "*";
}
}
$data.=" ".$dt."\n";
$data.="".$bl."\n";
$data.="".$hl."\n1\ni\n";
// //Support du document
// if ($ntable["SUPPORT"]) {
//
// }
//Traitement des titres
if ($ntable["TIT"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["TIT"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//Titre de revue (périodique)
if($ntable["REV"]){
if ($ntable["TYPE"] == "Périodique") {
$code = '200';
$ss_code = 'a';
} else {
$code = '461';
$ss_code = 't';
}
$data .= " \n";
$data .= " ".htmlspecialchars($ntable["REV"],ENT_QUOTES,$charset)."\n";
//Volume ou tome
if ($ntable["VOL"] && ($code == "461")) {
$data.=" ".htmlspecialchars($ntable["VOL"],ENT_QUOTES,$charset)."\n";
}
$data.=" \n";
}
//Date de publication du texte
if ($ntable["DATEPUB"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["DATEPUB"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//Traitement des Auteurs
if ($ntable["AUT"] && ($ntable["AUT"] != "[s.n.]")) {
if (!$authors_function) {
$authors_function=array("Collab."=>"Collaborateur","Coord."=>"Coordinateur","Dir."=>"Directeur de publication","Ed."=>"Editeur scientifique",
"Ill."=>"Illustrateur","Préf."=>"Préfacier","Trad."=>"Traducteur","Postf."=>"Postfacier");
}
$auteurs=explode("/",$ntable["AUT"]);
for ($i=0; $i\n";
else $data.=" \n";
$data.=" ".htmlspecialchars($entree,ENT_QUOTES,$charset)."\n";
// if ($rejete) {
// $data.=" ".htmlspecialchars($rejete,ENT_QUOTES,$charset)."\n";
// }
$as=array_search($fonction,$tab_functions->table);
if (($as!==false)&&($as!==null)) $fonction=$as; else $fonction="070";
$data.=" ".$fonction."\n";
$data.=" \n";
}
}
}
//Numéro - infos bulletin
if (($ntable["NUM"]) && ($ntable["NUM"] != "[s.n.]")) {
//infos bulletin
$data .= "";
$data.=" ".htmlspecialchars($ntable["NUM"],ENT_QUOTES,$charset)."";
$data.="\n";
}
//Date de vie et de mort du périodique
if (($ntable["VIEPERIO"]) && ($ntable["VIEPERIO"] != "[s.d.]")) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["VIEPERIO"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
// //Etat des collections des centres
// if ($ntable["ETATCOL"]) {
//
// }
//Congrès
if (($ntable["CONGRTIT"]) || ($ntable["CONGRNUM"]) || ($ntable["CONGRLIE"]) || ($ntable["CONGRDAT"])) {
$data.=" \n";
//Intitulé du congrès
if ($ntable["CONGRTIT"]) {
$data.=" ".htmlspecialchars($ntable["CONGRTIT"],ENT_QUOTES,$charset)."\n";
}
//Numéro du congrès
if ($ntable["CONGRNUM"]) {
$data.=" ".htmlspecialchars($ntable["CONGRNUM"],ENT_QUOTES,$charset)."\n";
}
//Lieu du congrès
if ($ntable["CONGRLIE"]) {
$data.=" ".htmlspecialchars($ntable["CONGRLIE"],ENT_QUOTES,$charset)."\n";
}
//Date du congrès
if ($ntable["CONGRDAT"]) {
$data.=" ".htmlspecialchars($ntable["CONGRDAT"],ENT_QUOTES,$charset)."\n";
}
$data.=" \n";
}
//Editeurs
if (($ntable["EDIT"]) && ($ntable["EDIT"] != "[s.n.]")) {
$editeurs = explode("/", $ntable["EDIT"]);
$data.=" \n";
for ($i=0; $i".htmlspecialchars($editeurs[$i],ENT_QUOTES,$charset)."\n";
}
if (($ntable["LIEU"]) && ($ntable["LIEU"] != "[s.l.]")) {
$lieux = explode("/", $ntable["LIEU"]);
for ($i=0; $i".htmlspecialchars($lieux[$i],ENT_QUOTES,$charset)."\n";
}
}
if ($ntable["DATE"]) {
$data.=" ".htmlspecialchars($ntable["DATE"],ENT_QUOTES,$charset)."\n";
}
$data.=" \n";
} elseif ($ntable["DATE"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["DATE"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//Réédition
if ($ntable["REED"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["REED"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//Collection
if ($ntable["COL"]) {
$pos_deb_subtitle=strpos($ntable["COL"],":");
$pos_deb_num_col=strpos($ntable["COL"],";");
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["COL"],ENT_QUOTES,$charset)."\n";
if ($pos_deb_num_col) {
$data.=" ".htmlspecialchars(substr($ntable["COL"],$pos_deb_num_col+1),ENT_QUOTES,$charset)."\n";
}
$data.=" \n";
}
//Nombre de pages
if (($ntable["PAGE"]) && ($ntable["PAGE"] != "[s.p.]")) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["PAGE"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//PDPF
if ($ntable["PDPF"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["PDPF"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//Traitement des Mots-clés
if ($ntable["MOTCLE"]) {
$motcles = explode("/",$ntable["MOTCLE"]);
for ($i=0; $i\n";
$data.=" ".htmlspecialchars($motcles[$i],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
}
//Résumé
if ($ntable["RESU"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["RESU"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//Lien
if ($ntable["LIEN"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["LIEN"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//Notes
if ($ntable["NOTES"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["NOTES"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//ISBNISSN
if (($ntable["ISBNISSN"]) && ($ntable["ISBNISSN"] != "0000-0000")) {
$isbnissn = explode("/",$ntable["ISBNISSN"]);
$data.=" \n";
$data.=" ".htmlspecialchars($isbnissn[0],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//Champs spéciaux
//Candidat-descripteur
if ($ntable["CANDES"]) {
$candes = explode("/", $ntable["CANDES"]);
for ($i=0; $i < count($candes); $i++) {
$data.=" \n";
$data.=" ".htmlspecialchars($candes[$i],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
}
//Thème
if ($ntable["THEME"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["THEME"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//Nom Propre
if ($ntable["NOMP"]) {
$nomp = explode("/", $ntable["NOMP"]);
for ($i=0; $i < count($nomp); $i++) {
$data.=" \n";
$data.=" ".htmlspecialchars($nomp[$i],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
}
//Producteur de la fiche
if ($ntable["PRODFICH"]) {
$prodfich = explode("/", $ntable["PRODFICH"]);
for ($i=0; $i < count($prodfich); $i++) {
$data.=" \n";
$data.=" ".htmlspecialchars($prodfich[$i],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
}
//DIPSPE
if ($ntable["DIPSPE"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["DIPSPE"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//Annexe
if ($ntable["ANNEXE"]) {
$annexe = explode(" ; ", $ntable["ANNEXE"]);
for ($i=0; $i < count($annexe); $i++) {
$data.=" \n";
$data.=" ".htmlspecialchars($annexe[$i],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
}
//Lien annexe
if ($ntable["LIENANNE"]) {
$lienanne = explode(" ; ", $ntable["LIENANNE"]);
for ($i=0; $i < count($lienanne); $i++) {
$data.=" \n";
$data.=" ".htmlspecialchars($lienanne[$i],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
}
//Localisation
if ($ntable["LOC"]) {
$loc = explode("/", $ntable["LOC"]);
for ($i=0; $i < count($loc); $i++) {
$data.=" \n";
$data.=" ".htmlspecialchars($loc[$i],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
}
//Nature du texte
if ($ntable["NATTEXT"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["NATTEXT"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//Date du texte
if ($ntable["DATETEXT"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["DATETEXT"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
//Numéro du texte officiel
if ($ntable["NUMTEXOF"]) {
$data.=" \n";
$data.=" ".htmlspecialchars($ntable["NUMTEXOF"],ENT_QUOTES,$charset)."\n";
$data.=" \n";
}
// //Date de saisie
// if ($ntable["DATESAIS"]) {
// $data.=" \n";
// $data.=" ".htmlspecialchars($ntable["DATESAIS"],ENT_QUOTES,$charset)."\n";
// $data.=" \n";
// }
// //Date de fin de validité
// if ($ntable["DATEVALI"]) {
// $data.=" \n";
// $data.=" ".htmlspecialchars($ntable["DATEVALI"],ENT_QUOTES,$charset)."\n";
// $data.=" \n";
// }
$data.="\n";
}
if (!$error) $r['VALID'] = true; else $r['VALID']=false;
$r['ERROR'] = $error;
$r['DATA'] = $data;
return $r;
}
?>