num_noeud_racine;
// les précisions géographiques sous le terme "Recherche géographique"
// $id_rech_geo = 2 ;
// les précisions de période sous le terme "Recherche chronologique"
// $id_rech_chrono = 3 ;
// FIN paramétrage
function recup_noticeunimarc_suite($notice) {
} // fin recup_noticeunimarc_suite = fin récupération des variables propres au CNL
function import_new_notice_suite() {
global $dbh ;
global $notice_id ;
global $info_606_a, $info_606_j, $info_606_x, $info_606_y, $info_606_z ;
global $id_rech_theme ;
global $thesaurus_defaut;
global $thes;
/*
echo "";
print_r ($info_949);
print_r ($info_997);
echo "
";
*/
// les champs $606 sont stockés dans les catégories
// $a >> en sous catégories de $id_rech_theme
// $j en complément de $a
// $x en sous catégories de $a
// $y >> en sous catégories de $id_rech_geo
// $z >> en sous catégories de $id_rech_chrono
// TRAITEMENT :
// pour $a=0 à size_of $info_606_a
// pour $j=0 à size_of $info_606_j[$a]
// concaténer $libelle_j .= $info_606_j[$a][$j]
// $libelle_final = $info_606_a[0]." ** ".$libelle_j
// Rechercher si l'enregistrement existe déjà dans categories =
// $categid = categories::searchLibelle(addslashes($libelle_final), $thesaurus_defaut, 'fr_FR', $id_rech_theme)
// Créer si besoin et récupérer l'id $categid_a
// $categid_parent = $categid_a
// pour $x=0 à size_of $info_606_x[$a]
// Rechercher si l'enregistrement existe déjà dans categories =
// $categid = categories::searchLibelle(addslashes($info_606_x[$a][$x]), $thesaurus_defaut, 'fr_FR', $categ_parent)
// Créer si besoin et récupérer l'id $categid_parent
//
// $categid_parent = $id_rech_geo
// pour $y=0 à size_of $info_606_y[$a]
// Rechercher si l'enregistrement existe déjà dans categories =
// $categid = categories::searchLibelle(addslashes($info_606_y[$a][$y]), $thesaurus_defaut, 'fr_FR', $categ_parent)
// Créer si besoin et récupérer l'id $categid_parent
//
// $categid_parent = $id_rech_chrono
// pour $y=0 à size_of $info_606_z[$a]
// Rechercher si l'enregistrement existe déjà dans categories =
// $categid = categories::searchLibelle(addslashes($info_606_z[$a][$y]]), $thesaurus_defaut, 'fr_FR', $categ_parent)
// Créer si besoin et récupérer l'id $categid_parent
//
$libelle_j="";
for ($a=0; $anum_thesaurus = $thes->id_thesaurus;
$n->num_parent = $num_parent;
$n->save();
$c = new categories($n->id_noeud, 'fr_FR');
$c->libelle_categorie = $libelle;
$c->index_categorie = $index;
$c->save();
return $n->id_noeud;
}
// TRAITEMENT DES EXEMPLAIRES ICI
function traite_exemplaires () {
global $msg, $dbh ;
global $prix, $notice_id, $info_995, $typdoc_995, $tdoc_codage, $book_lender_id,
$section_995, $sdoc_codage, $book_statut_id, $locdoc_codage, $codstatdoc_995, $statisdoc_codage,
$cote_mandatory, $book_location_id ;
// lu en 010$d de la notice
$price = $prix[0];
// la zone 995 est répétable
for ($nb_expl = 0; $nb_expl < sizeof ($info_995); $nb_expl++) {
/* RAZ expl */
$expl = array();
/* préparation du tableau à passer à la méthode */
$expl['cb'] = $info_995[$nb_expl]['f'];
$expl['notice'] = $notice_id ;
// $expl['typdoc'] = $info_995[$nb_expl]['r']; à chercher dans docs_typdoc
$data_doc=array();
//$data_doc['tdoc_libelle'] = $info_995[$nb_expl]['r']." -Type doc importé (".$book_lender_id.")";
$data_doc['tdoc_libelle'] = $typdoc_995[$info_995[$nb_expl]['r']];
if (!$data_doc['tdoc_libelle']) $data_doc['tdoc_libelle'] = "\$r non conforme -".$info_995[$nb_expl]['r']."-" ;
$data_doc['duree_pret'] = 0 ; /* valeur par défaut */
$data_doc['tdoc_codage_import'] = $info_995[$nb_expl]['r'] ;
if ($tdoc_codage) $data_doc['tdoc_owner'] = $book_lender_id ;
else $data_doc['tdoc_owner'] = 0 ;
$expl['typdoc'] = docs_type::import($data_doc);
$expl['cote'] = $info_995[$nb_expl]['k'];
// $expl['section'] = $info_995[$nb_expl]['q']; à chercher dans docs_section
$data_doc=array();
if (!$info_995[$nb_expl]['q'])
$info_995[$nb_expl]['q'] = "u";
$data_doc['section_libelle'] = $section_995[$info_995[$nb_expl]['q']];
$data_doc['sdoc_codage_import'] = $info_995[$nb_expl]['q'] ;
if ($sdoc_codage) $data_doc['sdoc_owner'] = $book_lender_id ;
else $data_doc['sdoc_owner'] = 0 ;
$expl['section'] = docs_section::import($data_doc);
/* $expl['statut'] à chercher dans docs_statut */
/* TOUT EST COMMENTE ICI, le statut est maintenant choisi lors de l'import
if ($info_995[$nb_expl]['o']=="") $info_995[$nb_expl]['o'] = "e";
$data_doc=array();
$data_doc['statut_libelle'] = $info_995[$nb_expl]['o']." -Statut importé (".$book_lender_id.")";
$data_doc['pret_flag'] = 1 ;
$data_doc['statusdoc_codage_import'] = $info_995[$nb_expl]['o'] ;
$data_doc['statusdoc_owner'] = $book_lender_id ;
$expl['statut'] = docs_statut::import($data_doc);
FIN TOUT COMMENTE */
$expl['statut'] = $book_statut_id;
$expl['location'] = $book_location_id;
// $expl['codestat'] = $info_995[$nb_expl]['q']; 'q' utilisé, éventuellement à fixer par combo_box
$data_doc=array();
//$data_doc['codestat_libelle'] = $info_995[$nb_expl]['q']." -Pub visé importé (".$book_lender_id.")";
$data_doc['codestat_libelle'] = $codstatdoc_995[$info_995[$nb_expl]['q']];
$data_doc['statisdoc_codage_import'] = $info_995[$nb_expl]['q'] ;
if ($statisdoc_codage) $data_doc['statisdoc_owner'] = $book_lender_id ;
else $data_doc['statisdoc_owner'] = 0 ;
$expl['codestat'] = docs_codestat::import($data_doc);
// $expl['creation'] = $info_995[$nb_expl]['']; à préciser
// $expl['modif'] = $info_995[$nb_expl]['']; à préciser
$expl['note'] = $info_995[$nb_expl]['u'];
$expl['prix'] = $price;
$expl['expl_owner'] = $book_lender_id ;
$expl['cote_mandatory'] = $cote_mandatory ;
$expl['date_depot'] = substr($info_995[$nb_expl]['m'],0,4)."-".substr($info_995[$nb_expl]['m'],4,2)."-".substr($info_995[$nb_expl]['m'],6,2) ;
$expl['date_retour'] = substr($info_995[$nb_expl]['n'],0,4)."-".substr($info_995[$nb_expl]['n'],4,2)."-".substr($info_995[$nb_expl]['n'],6,2) ;
$expl_id = exemplaire::import($expl);
if ($expl_id == 0) {
$nb_expl_ignores++;
}
//debug : affichage zone 995
/*
echo "995\$a =".$info_995[$nb_expl]['a']."
";
echo "995\$b =".$info_995[$nb_expl]['b']."
";
echo "995\$c =".$info_995[$nb_expl]['c']."
";
echo "995\$d =".$info_995[$nb_expl]['d']."
";
echo "995\$f =".$info_995[$nb_expl]['f']."
";
echo "995\$k =".$info_995[$nb_expl]['k']."
";
echo "995\$m =".$info_995[$nb_expl]['m']."
";
echo "995\$n =".$info_995[$nb_expl]['n']."
";
echo "995\$o =".$info_995[$nb_expl]['o']."
";
echo "995\$q =".$info_995[$nb_expl]['q']."
";
echo "995\$r =".$info_995[$nb_expl]['r']."
";
echo "995\$u =".$info_995[$nb_expl]['u']."
";
*/
} // fin for
} // fin traite_exemplaires TRAITEMENT DES EXEMPLAIRES JUSQU'ICI
// fonction spécifique d'export de la zone 995
function export_traite_exemplaires ($ex=array()) {
global $msg, $dbh ;
$subfields["a"] = $ex -> lender_libelle;
$subfields["c"] = $ex -> lender_libelle;
$subfields["f"] = $ex -> expl_cb;
$subfields["k"] = $ex -> expl_cote;
$subfields["u"] = $ex -> expl_note;
if ($ex->statusdoc_codage_import) $subfields["o"] = $ex -> statusdoc_codage_import;
if ($ex -> tdoc_codage_import) $subfields["r"] = $ex -> tdoc_codage_import;
else $subfields["r"] = "uu";
if ($ex -> sdoc_codage_import) $subfields["q"] = $ex -> sdoc_codage_import;
else $subfields["q"] = "u";
global $export996 ;
$export996['f'] = $ex -> expl_cb ;
$export996['k'] = $ex -> expl_cote ;
$export996['u'] = $ex -> expl_note ;
$export996['m'] = substr($ex -> expl_date_depot, 0, 4).substr($ex -> expl_date_depot, 5, 2).substr($ex -> expl_date_depot, 8, 2) ;
$export996['n'] = substr($ex -> expl_date_retour, 0, 4).substr($ex -> expl_date_retour, 5, 2).substr($ex -> expl_date_retour, 8, 2) ;
$export996['a'] = $ex -> lender_libelle;
$export996['b'] = $ex -> expl_owner;
$export996['v'] = $ex -> location_libelle;
$export996['w'] = $ex -> ldoc_codage_import;
$export996['x'] = $ex -> section_libelle;
$export996['y'] = $ex -> sdoc_codage_import;
$export996['e'] = $ex -> tdoc_libelle;
$export996['r'] = $ex -> tdoc_codage_import;
$export996['1'] = $ex -> statut_libelle;
$export996['2'] = $ex -> statusdoc_codage_import;
$export996['3'] = $ex -> pret_flag;
global $export_traitement_exemplaires ;
$export996['0'] = $export_traitement_exemplaires ;
return $subfields ;
}