inner_directory);$i++) {
$cle=$record->inner_directory[$i]['label'];
switch($cle) {
case "949": // infos bibliotheque 27 septembre
$info_949=$record->get_subfield($cle,"a","c","d");
break;
default:
break;
} /* end of switch */
} /* end of for */
} // 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_949 ;
global $id949_a, $id949_c, $id949_d;
global $info_606_a, $info_606_j, $info_606_x, $info_606_y, $info_606_z ;
global $id_rech_theme;
$id_rech_theme = 0;
// echo "";
// print_r ($info_949);
// echo "
";
// 949$a est stocké dans un champ personnalisé texte
// ce champ personnalisé a l'id $id949_a
// TRAITEMENT :
// Rechercher si l'enregistrement existe déjà dans notices_custom_values = SELECT 1 FROM notices_custom_values WHERE notices_custom_champ=$id949_a AND notices_custom_origine=$notice_id
// Créer si besoin
import_records::insert_value_custom_field($id949_a, $notice_id, $info_949[0]['a']);
// 949$c est stocké dans un champ personnalisé texte
// ce champ personnalisé a l'id $id949_c
// TRAITEMENT :
// Rechercher si l'enregistrement existe déjà dans notices_custom_values = SELECT 1 FROM notices_custom_values WHERE notices_custom_champ=$id949_c AND notices_custom_origine=$notice_id
// Créer si besoin
$rqt = "SELECT count(1) FROM notices_custom_values WHERE notices_custom_champ='".$id949_c."' AND notices_custom_origine='".$notice_id."' " ;
if (!pmb_mysql_result(pmb_mysql_query($rqt, $dbh),0,0)) {
$rqt_ajout = "INSERT INTO notices_custom_values (notices_custom_champ, notices_custom_origine, notices_custom_small_text, notices_custom_integer) VALUES ('".$id949_c."', '".$notice_id."', '".$info_949[0]['c']."', ".$info_949[0]['c'].")" ;
$res_ajout = pmb_mysql_query($rqt_ajout, $dbh) ;
}
// 949$d est stocké dans un champ personnalisé texte
// ce champ personnalisé a l'id $id949_d
// TRAITEMENT :
// Rechercher si l'enregistrement existe déjà dans notices_custom_values = SELECT 1 FROM notices_custom_values WHERE notices_custom_champ=$id949_d AND notices_custom_origine=$notice_id
// Créer si besoin
import_records::insert_value_custom_field($id949_d, $notice_id, $info_949[0]['d']);
// 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
// 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 =
// SELECT categ_id FROM categories WHERE categ_parent='".$id_rech_theme."' AND categ_libelle='".addslashes($libelle_final)."' "
// 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 =
// SELECT categ_id FROM categories WHERE categ_parent='".$categ_parent."' AND categ_libelle='".addslashes($info_606_x[$a][$x])."' "
// Créer si besoin et récupérer l'id $categid_parent
//
$nb_infos_606_a = count($info_606_a);
for ($a = 0; $a < $nb_infos_606_a; $a++) {
$nb_infos_606_j = count($info_606_j[$a]);
for ($j = 0; $j < $nb_infos_606_j; $j++) {
if (empty($libelle_j)) {
$libelle_j .= $info_606_j[$a][$j];
} else {
$libelle_j .= " ** ".$info_606_j[$a][$j];
}
}
if (empty($libelle_j)) {
$libelle_final = $info_606_a[$a][0];
} else {
$libelle_final = $info_606_a[$a][0]." ** $libelle_j";
}
if (empty($libelle_final)) {
break;
}
$rqt_a = "SELECT categ_id FROM categories WHERE categ_parent='$id_rech_theme' AND categ_libelle='".addslashes($libelle_final)."' ";
$res_a = pmb_mysql_query($rqt_a);
if (pmb_mysql_num_rows($res_a)) {
$categid_a = pmb_mysql_result($res_a, 0, 0);
} else {
$rqt_ajout = "insert into categories set categ_parent='$id_rech_theme', categ_libelle='".addslashes($libelle_final)."', index_categorie=' ".strip_empty_words($libelle_final)." ' ";
$res_ajout = pmb_mysql_query($rqt_ajout);
$categid_a = pmb_mysql_insert_id() ;
}
// récup des sous-categ en cascade sous $a
$categ_parent = $categid_a;
$nb_infos_606_x = count($info_606_x[$a]);
for ($x = 0; $x < $nb_infos_606_x; $x++) {
$rqt_x = "SELECT categ_id FROM categories WHERE categ_parent='$categ_parent' AND categ_libelle='".addslashes($info_606_x[$a][$x])."' ";
$res_x = pmb_mysql_query($rqt_x);
if (pmb_mysql_num_rows($res_x)) {
$categ_parent = pmb_mysql_result($res_x, 0, 0);
} else {
$rqt_ajout = "insert into categories set categ_parent='$categ_parent', categ_libelle='".addslashes($info_606_x[$a][$x])."', index_categorie=' ".strip_empty_words($info_606_x[$a][$x])." ' ";
$res_ajout = pmb_mysql_query($rqt_ajout);
$categ_parent = pmb_mysql_insert_id();
}
} // fin récup des $x en cascade sous l'id de la catégorie 606$a
if ($categ_parent != $id_rech_theme) {
// insertion dans la table notices_categories
$rqt_ajout = "insert into notices_categories set notcateg_notice='$notice_id', notcateg_categorie='$categ_parent' ";
$res_ajout = @pmb_mysql_query($rqt_ajout);
}
}
} // fin import_new_notice_suite
// 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];
$nb_infos_995 = count($info_995);
// la zone 995 est répétable
for ($nb_expl = 0; $nb_expl < $nb_infos_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_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