";
$tpl_beforeupload_notices = "";
// créer statut id=1 : indisponible, en prêt
// créer codestat id=1 : rien, juste pour faire joli
function recup_noticeunimarc_suite($notice) {
// modif en fichier import_func : tous les champs de la zone 995 sont lus
// traitement PLN : sera traité plus loin, pb des exemplaires.
} // fin recup_noticeunimarc_suite = fin récupération des variables propres BDP : rien de plus
function import_new_notice_suite() {
global $dbh ;
global $notice_id ;
global $index_sujets ;
global $pmb_keyword_sep ;
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);
} // fin import_new_notice_suite
// TRAITEMENT DES EXEMPLAIRES ICI
function traite_exemplaires () {
global $msg, $dbh ;
global $nb_expl_ignores ;
global $prix, $notice_id, $info_996, $info_995 ;
// Afin de ne pas remettre en cause le script programmé en 995 :
$info_995 = $info_996 ;
// 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['notice'] = $notice_id ;
$expl['cb'] = $info_995[$nb_expl]['f'];
$expl['cote'] = $info_995[$nb_expl]['k'];
$expl['note'] = $info_995[$nb_expl]['u'];
$expl['prix'] = $price;
$expl['cote_mandatory'] = 0 ;
$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) ;
// propriétaire
$owner=array();
$owner['lender_libelle'] = $info_995[$nb_expl]['a'] ;
if (!$owner['lender_libelle']) $owner['lender_libelle'] = $info_995[$nb_expl]['b'] ;
$expl['expl_owner'] = lender::import($owner);
$book_lender_id = $expl['expl_owner'] ;
// docs_location
$data_doc=array();
$data_doc['location_libelle'] = $info_995[$nb_expl]['v'] ;
$data_doc['locdoc_codage_import'] = $info_995[$nb_expl]['w'] ;
if (!$data_doc['locdoc_codage_import']) $data_doc['locdoc_codage_import'] = $data_doc['location_libelle'] ;
//$data_doc['locdoc_owner'] = $book_lender_id ;
$data_doc['locdoc_owner'] = 0 ;
$expl['location'] = docs_location::import($data_doc);
// docs_section
$data_doc=array();
$data_doc['section_libelle'] = $info_995[$nb_expl]['x'] ;
$data_doc['sdoc_codage_import'] = $info_995[$nb_expl]['y'] ;
if (!$data_doc['sdoc_codage_import']) $data_doc['sdoc_codage_import'] = $data_doc['section_libelle'] ;
//$data_doc['sdoc_owner'] = $book_lender_id ;
$data_doc['sdoc_owner'] = 0;
$expl['section'] = docs_section::import($data_doc);
// typedoc
$data_doc=array();
$data_doc['tdoc_libelle'] = $info_995[$nb_expl]['e'];
$data_doc['tdoc_codage_import'] = $info_995[$nb_expl]['r'] ;
if (!$data_doc['tdoc_codage_import']) $data_doc['tdoc_codage_import'] = $info_995[$nb_expl]['e'] ;
$data_doc['duree_pret'] = 28 ; /* valeur par défaut */
$data_doc['tdoc_owner'] = $book_lender_id ;
$expl['typdoc'] = docs_type::import($data_doc);
// statut doc
$data_doc=array();
$data_doc['statut_libelle'] = $info_995[$nb_expl]['1'];
$data_doc['statusdoc_codage_import'] = $info_995[$nb_expl]['2'] ;
if (!$data_doc['statusdoc_codage_import']) $data_doc['statusdoc_codage_import'] = $info_995[$nb_expl]['1'] ;
$data_doc['pret_flag'] = $info_995[$nb_expl]['3'] ;
$data_doc['statusdoc_owner'] = $book_lender_id ;
$expl['statut'] = docs_statut::import($data_doc);
// codestat
$expl['codestat'] = 1 ;
// quoi_faire
// $que_faire vient du formulaire de chargement, à utiliser en attente de l'info dans la zone 996
global $que_faire ;
if ($que_faire=="") {
if ($info_995[$nb_expl]['0']) $expl['quoi_faire'] = $info_995[$nb_expl]['0'] ;
else $expl['quoi_faire'] = 2 ;
} else {
$expl['quoi_faire'] = $que_faire ;
}
// 0 : supprimer, 1 ou vide : Mettre à jour ou ajouter, 2 : ajouter si possible, sinon rien.
$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);
}