idchamp;
$rqt="select idchamp from notices_custom where name='type_opsys'";
$res = pmb_mysql_query($rqt, $dbh);
if ($res && ($r = pmb_mysql_fetch_object($res))) $id_notices_custom_type_opsys= $r->idchamp;
}
import_records::insert_value_custom_field($id_notices_custom_opsys, $notice_id, $num_opsys);
import_records::insert_value_custom_field($id_notices_custom_opsys, $notice_id, $type_opsys);
$requete="select * from notices where notice_id=$notice_id";
$resultat=pmb_mysql_query($requete);
$r=pmb_mysql_fetch_object($resultat);
// Traiter les dépouillement du champ 464
if ($flag_depouillements_464) {
if(is_array($info_464)) {
switch ($type_opsys) {
case 'UMO:1': // Documents imprimés Unimarc moyen
$niveau_biblio='m';
$niveau_hierar= '0';
break;
case 'UMO:2': // Documents sonores Unimarc moyen
$niveau_biblio='m';
$niveau_hierar= '0';
break;
case 'UMO:13': // bulletin
$niveau_biblio='a';
$niveau_hierar= '2';
break;
case 'UMO:4': // Documents audiovisuel Unimarc moyen
$niveau_biblio='m';
$niveau_hierar= '0';
break;
case 'UMO:8': // Logiciels - CDrom
$niveau_biblio='m';
$niveau_hierar= '0';
break;
default:
$niveau_biblio='m';
$niveau_hierar= '0';
break;
}
//print "";print_r ($info_464);print "
";
for ($i=0; $i";print_r ($_3_464);print "";
for ($j=0; $j";
}
}
if($a_464[$j] != '...') {
$requete="insert into notices set typdoc='$r->typdoc', tit1 ='".addslashes($a_464[$j])."',tit2 ='".addslashes($e_464[$j])."', niveau_biblio='$niveau_biblio',niveau_hierar='$niveau_hierar' ";
//if ($type_opsys="UMO:2") print $requete ."
";
pmb_mysql_query($requete);
$depouille_id=pmb_mysql_insert_id();
if ($depouille_id) {
//link notice
notice_relations::insert($depouille_id, $notice_id, 'a');
if( $author_id ) {
$requete="insert into responsability SET responsability_fonction='070' , responsability_notice='$depouille_id' , responsability_author = $author_id, responsability_type=0";
//print $requete."
";
$result=pmb_mysql_query($requete);
}
}
}
}
}
}
}
// $info_461_3,$info_461_t : dépendance d'une notice chapeau
for ($_3=0; $_3";
$resultat=pmb_mysql_query($requete);
//Notice chapeau existe-t-elle ?
if (@pmb_mysql_num_rows($resultat)) {
//Si oui, récupération id
$chapeau_id=pmb_mysql_result($resultat,0,0);
} else {
$niveau_biblio='m';
$niveau_hierar='1';
// Création de la notice temporaire chapeau
$requete="insert into notices set typdoc='$r->typdoc', tit1 ='".addslashes($info_461_t[$a])."' , niveau_biblio='$niveau_biblio',niveau_hierar='$niveau_hierar' ";
//print "$requete
";
pmb_mysql_query($requete);
$chapeau_id=pmb_mysql_insert_id();
$requete="insert into notices_custom_values (notices_custom_champ,notices_custom_origine,notices_custom_small_text) values($id_notices_custom_opsys,$chapeau_id,'".addslashes($info_461_3[$_3])."')";
//print "$requete
";
pmb_mysql_query($requete);
}
if ($chapeau_id) {
//link notice
notice_relations::insert($notice_id, $chapeau_id, 'a');
}
}
break;
case 'UMO:13': // bulletin de périodique
$requete="select notices_custom_origine from notices_custom_values where notices_custom_small_text='".$info_461_3[$_3]."'";
//print "$requete
";
$resultat=pmb_mysql_query($requete);
//Notice chapeau existe-t-elle ?
if (@pmb_mysql_num_rows($resultat)) {
//Si oui, récupération id
$chapeau_id=pmb_mysql_result($resultat,0,0);
} else {
$niveau_biblio='s';
$niveau_hierar='1';
// Création de la notice temporaire chapeau
$requete="insert into notices set typdoc='$r->typdoc', tit1 ='".addslashes($info_461_t[$a])."' , niveau_biblio='$niveau_biblio',niveau_hierar='$niveau_hierar' ";
//print "$requete
";
pmb_mysql_query($requete);
$chapeau_id=pmb_mysql_insert_id();
$requete="insert into notices_custom_values (notices_custom_champ,notices_custom_origine,notices_custom_small_text) values($id_notices_custom_opsys,$chapeau_id,'".addslashes($info_461_3[$_3])."')";
//print "$requete
";
pmb_mysql_query($requete);
}
if ($chapeau_id) {
//link notice
notice_relations::insert($notice_id, $chapeau_id, 'b', 1, 'up', false);
// création bulletin
$info=array();
$bulletin=new bulletinage("",$chapeau_id);
$info['bul_titre']=addslashes($info_200_a[0]);
$info['bul_no']=addslashes($info_200_e[0]);
$info['bul_date']=addslashes($info_200_e[1]);
$info['date_date']=gen_date($info_200_e[1],$info_210_d[0]);
$bulletin->bull_num_notice=$notice_id;
$bulletin_id=$bulletin->update($info,true);
}
break;
default:
break;
}
}
// $info_462_3,$info_462_t : Dépouillement, article
for ($_3=0; $_3";
$resultat=pmb_mysql_query($requete);
//Notice chapeau existe-t-elle ?
if (@pmb_mysql_num_rows($resultat)) {
//Si oui, récupération id
$chapeau_id=pmb_mysql_result($resultat,0,0);
} else {
$niveau_biblio='m';
$niveau_hierar='0';
// Création de la notice temporaire chapeau
$requete="insert into notices set typdoc='$r->typdoc', tit1 ='".addslashes($info_462_t[$a])."' , niveau_biblio='$niveau_biblio',niveau_hierar='$niveau_hierar' ";
//print "$requete
";
pmb_mysql_query($requete);
$chapeau_id=pmb_mysql_insert_id();
$requete="insert into notices_custom_values (notices_custom_champ,notices_custom_origine,notices_custom_small_text) values($id_notices_custom_opsys,$chapeau_id,'".addslashes($info_462_3[$_3])."')";
//print "$requete
";
pmb_mysql_query($requete);
}
if ($chapeau_id) {
//link notice
notice_relations::insert($notice_id, $chapeau_id, 'a');
}
break;
case 'UMO:13': // bulletin de périodique => création des articles
$requete="select notices_custom_origine from notices_custom_values where notices_custom_small_text='".$info_462_3[$_3]."'";
//print "$requete
";
$resultat=pmb_mysql_query($requete);
//Notice article existe-t-elle ?
if (@pmb_mysql_num_rows($resultat)) {
//Si oui, récupération id
$article_id=pmb_mysql_result($resultat,0,0);
} else {
$niveau_biblio='a';
$niveau_hierar='2';
// Création de la notice temporaire de l'article
$requete="insert into notices set typdoc='$r->typdoc', tit1 ='".addslashes($info_462_t[$a])."' , niveau_biblio='$niveau_biblio',niveau_hierar='$niveau_hierar' ";
//print "$requete
";
pmb_mysql_query($requete);
$article_id=pmb_mysql_insert_id();
$requete="insert into notices_custom_values (notices_custom_champ,notices_custom_origine,notices_custom_small_text) values($id_notices_custom_opsys,$article_id,'".addslashes($info_462_3[$_3])."')";
//print "$requete
";
pmb_mysql_query($requete);
}
if ($article_id) {
//lien article de bulletin créé dans table analitique
$requete="insert into analysis set analysis_bulletin='$bulletin_id', analysis_notice ='$article_id' ";
//print "$requete
";
pmb_mysql_query($requete);
}
break;
default:
break;
}
}
} // fin import_new_notice_suite
function gen_date($bul_date,$ed_date) {
$d_field=explode(' ',trim($bul_date));
$nb=count($d_field);
$mysql_date='';
if($nb==0) {
if(is_numeric ($ed_date)) {
$year=$ed_date;
$month='01';
$day='01';
$mysql_date = $year.'-'.$month.'-'.$day;
} else {
$rqt= "SELECT curdate()";
if($result=pmb_mysql_query($rqt))
if($row = pmb_mysql_fetch_row($result)) $mysql_date = $row[0];
}
return $mysql_date;
}
if($nb>0) {
$year=$d_field[count($d_field)-1];
}
if($nb>1) {
$str_month=strtolower($d_field[count($d_field)-2]);
switch($str_month) {
case "janvier":$month='01';break;
case "février":case "fevrier":$month='02';break;
case "mars":$month='03';break;
case "avril":$month='04';break;
case "mai":$month='05';break;
case "juin":$month='06';break;
case "juillet":$month='07';break;
case "aout":case "août":$month='08';break;
case "septembre":$month='09';break;
case "octobre":$month='10';break;
case "novembre":$month='11';break;
case "décembre":case "decembre":$month='12';break;
default:
$month='01';
break;
}
}
if($nb>2) {
$day=$d_field[count($d_field)-3];
} else $day='01';
$date = $year.'-'.$month.'-'.$day;
$rqt= "SELECT DATE_ADD('" .$date. "', INTERVAL 0 YEAR)";
if($result=pmb_mysql_query($rqt))
if($row = pmb_mysql_fetch_row($result)) $mysql_date= $row[0];
if(!$mysql_date) {
$rqt= "SELECT curdate()";
if($result=pmb_mysql_query($rqt))
if($row = pmb_mysql_fetch_row($result)) $mysql_date = $row[0];
}
return $mysql_date;
}
// TRAITEMENT DES EXEMPLAIRES ICI
function traite_exemplaires () {
global $msg, $dbh ;
global $nb_expl_ignores ;
global $prix, $notice_id, $info_996, $info_995, $info_001,$info_345_d ;
global $bulletin_id;
global $id_expl_fournisseur_opsys,$id_expl_inventaire_opsys;
// 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];
// prix dvd et video
if($info_345_d[0]) {
$price=$info_345_d[0];
}
// la zone 995 est répétable
for ($nb_expl = 0; $nb_expl < count($info_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'].$info_995[$nb_expl]['5'];
$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'] ;
if (!$owner['lender_libelle']) $owner['lender_libelle'] = 'defaut' ;
$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'];
if(!$data_doc['tdoc_libelle']) $data_doc['tdoc_libelle']= $info_995[$nb_expl]['r'];
$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'] = 10 ;
$data_codestat['codestat_libelle'] = $info_995[$nb_expl]['x'] ;
$expl['codestat'] = docs_codestat::import($data_codestat);
// 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.
//print "";print_r($info_995);print_r($expl);print "
";
$expl_id = exemplaire::import($expl);
if ($expl_id == 0) {
$nb_expl_ignores++;
}
list($num_opsys,$type_opsys)= explode(" ",$info_001[0]);
if(($type_opsys=='UMO:13') ){
$requete="update exemplaires set expl_notice='0', expl_bulletin='$bulletin_id' where expl_id='$expl_id' ";
//print "$requete
";
pmb_mysql_query($requete);
}
if(!$id_expl_fournisseur_opsys) {
$rqt="select idchamp from expl_custom where name='fournisseur'";
$res = pmb_mysql_query($rqt, $dbh);
if ($res && ($r = pmb_mysql_fetch_object($res))) $id_expl_fournisseur_opsys= $r->idchamp;
$rqt="select idchamp from expl_custom where name='inventaire'";
$res = pmb_mysql_query($rqt, $dbh);
if ($res && ($r = pmb_mysql_fetch_object($res))) $id_expl_inventaire_opsys= $r->idchamp;
}
//inventaire en champ perso
if($field=$info_995[$nb_expl]['6']) {
$requete="insert into expl_custom_values (expl_custom_champ,expl_custom_origine,expl_custom_small_text) values($id_expl_inventaire_opsys,$expl_id,'".addslashes($field)."')";
pmb_mysql_query($requete);
}
//Fournisseur en champ perso
if($field=$info_995[$nb_expl]['7']) {
$requete="insert into expl_custom_values (expl_custom_champ,expl_custom_origine,expl_custom_small_text) values($id_expl_fournisseur_opsys,$expl_id,'".addslashes($field)."')";
pmb_mysql_query($requete);
}
//Date de création
if($field=$info_995[$nb_expl]['8']) {
$requete="update exemplaires set create_date='$field 12:00:00' where expl_id='$expl_id' ";
//print $requete;
pmb_mysql_query($requete);
}
} // 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);
}