get_subfield("207","a");
// echo "
Lu notice :"; print_r($info_207) ;echo "
";
} // fin recup_noticeunimarc_suite = fin récupération des variables propres Tence
function import_new_notice_suite() {
global $dbh ;
global $notice_id ;
global $bibliographic_level_origine;
global $hierarchic_level_origine;
global $index_sujets ;
global $pmb_keyword_sep ;
global $issn_011 ;
global $tit_200a ; // pour reconstruire et chercher la notice chapeau du pério
$tit[0]['a'] = implode (" ; ",$tit_200a);
if (is_array($index_sujets)) $mots_cles = implode (" $pmb_keyword_sep ",$index_sujets);
else $mots_cles = $index_sujets;
$mots_cles .= import_records::get_mots_cles();
$mots_cles ? $index_matieres = strip_empty_words($mots_cles) : $index_matieres = '';
$rqt_maj = "update notices set index_l='".addslashes($mots_cles)."', index_matieres=' ".addslashes($index_matieres)." ' where notice_id='$notice_id' " ;
$res_ajout = pmb_mysql_query($rqt_maj, $dbh);
global $bulletin_ex, $info_207 ;
//Cas des périodiques
if ($bibliographic_level_origine=='s') {
// c'est une notice de pério, elle a été insérée en monographie
//Notice chapeau existe-t-elle déjà ?
$requete="select notice_id from notices where tit1='".addslashes(clean_string($tit[0]['a']))."' and niveau_hierar='1' and niveau_biblio='s'";
$resultat=pmb_mysql_query($requete);
if (@pmb_mysql_num_rows($resultat)) {
//Si oui, récupération id et destruction de la dite notice
$chapeau_id=pmb_mysql_result($resultat,0,0);
$requete="delete from notices where notice_id='$notice_id' ";
$resultat=pmb_mysql_query($requete);
$requete="delete from responsability where responsability_notice='$notice_id' ";
$resultat=pmb_mysql_query($requete);
$notice_id = $chapeau_id ;
//Bulletin existe-t-il ?
if ($info_207[0]) $num_bull = $info_207[0] ;
else $num_bull = $tit[0]['a'] ;
$requete="select bulletin_id from bulletins where bulletin_numero='".addslashes($num_bull)."' and bulletin_notice=$chapeau_id";
$resultat=pmb_mysql_query($requete);
if (@pmb_mysql_num_rows($resultat)) {
//Si oui, récupération id bulletin
$bulletin_ex=pmb_mysql_result($resultat,0,0);
} else {
//Si non, création bulltin
$info=array();
$bulletin=new bulletinage("",$chapeau_id);
$info['bul_titre']=addslashes("Bulletin N° ".$num_bull);
$info['bul_no']=addslashes($num_bull);
$info['bul_date']=addslashes($num_bull);
$bulletin_ex=$bulletin->update($info);
}
} else {
//Si non, update notice chapeau et création bulletin
$requete="update notices set niveau_biblio='s', niveau_hierar='1' where notice_id='$notice_id' ";
$resultat=pmb_mysql_query($requete);
$info=array();
$bulletin=new bulletinage("",$notice_id);
$info['bul_titre']=addslashes("Bulletin N° ".$num_bull);
$info['bul_no']=addslashes($num_bull);
$info['bul_date']=addslashes($num_bull);
$bulletin_ex=$bulletin->update($info);
}
} else $bulletin_ex=0;
} // 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 ;
global $bulletin_ex;
// 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'];
// si bulletin alors :
if ($bulletin_ex) {
$expl['bulletin']=$bulletin_ex;
$expl['notice']=0;
} else {
$expl['notice'] = $notice_id ;
$expl['bulletin']=0;
}
// $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
// fonction spécifique d'export de la zone 995
function export_traite_exemplaires ($ex=array()) {
return import_expl::export_traite_exemplaires($ex);
}