source: pmb4.2/trunk/fuentes/pmb/admin/import/func_bretagne.inc.php @ 815

Last change on this file since 815 was 815, checked in by jrpelegrina, 4 years ago

Initial release of pmb 4.2

  • Property svn:executable set to *
File size: 20.1 KB
Line 
1<?php
2// +-------------------------------------------------+
3// © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net)
4// +-------------------------------------------------+
5// $Id: func_bretagne.inc.php,v 1.24 2015-04-03 11:16:23 jpermanne Exp $
6
7if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access");
8
9// DEBUT paramétrage propre à la base de données d'importation :
10require_once($class_path."/serials.class.php");
11require_once($class_path."/categories.class.php");
12
13function recup_noticeunimarc_suite($notice) {
14        global $info_464,$index_sujets,$info_610;
15        global $info_900,$info_901,$info_902,$info_903,$info_904,$info_905,$info_906,$info_606_a;
16       
17
18        $info_464="";
19        $info_900="";
20        $info_901="";
21        $info_902="";
22        $info_903="";
23        $info_904="";
24        $info_905="";
25        $info_906="";
26        $info_610=$index_sujets;
27        $index_sujets=array();
28       
29        $record = new iso2709_record($notice, AUTO_UPDATE); 
30        for ($i=0;$i<count($record->inner_directory);$i++) {
31                $cle=$record->inner_directory[$i]['label'];
32                switch($cle) {
33                        case "464":
34                                //C'est un périodique donc un dépouillement ou une notice objet
35                                $info_464=$record->get_subfield($cle,"t","v","p","d","z","e");
36                                break;
37                        default:
38                                break;
39       
40                } /* end of switch */
41       
42        } /* end of for */
43       
44        $info_606_a=$record->get_subfield_array_array("606","a");
45        $info_900=$record->get_subfield_array_array("900","a");
46        $info_901=$record->get_subfield_array_array("901","a");
47        $info_902=$record->get_subfield_array_array("902","a");
48        $info_903=$record->get_subfield("903","a");
49        $info_904=$record->get_subfield("904","a");
50        $info_905=$record->get_subfield("905","a");
51        $info_906=$record->get_subfield_array_array("906","a");
52       
53} // fin recup_noticeunimarc_suite = fin récupération des variables propres à la bretagne
54       
55function import_new_notice_suite() {
56        global $dbh ;
57        global $notice_id ;
58       
59        global $info_464 ;
60        global $info_606_a;
61        global $info_900,$info_901,$info_902,$info_903,$info_904,$info_905,$info_906,$info_610;
62       
63        global $pmb_keyword_sep;
64       
65        global $bulletin_ex;
66       
67        //Cas des périodiques
68        if (is_array($info_464)) {
69                $requete="select * from notices where notice_id=$notice_id";
70                $resultat=pmb_mysql_query($requete);
71                $r=pmb_mysql_fetch_object($resultat);
72                //Notice chapeau existe-t-elle ?
73                        $requete="select notice_id from notices where tit1='".addslashes($info_464[0]['t'])."' and niveau_hierar='1' and niveau_biblio='s'";
74                        $resultat=pmb_mysql_query($requete);
75                        if (@pmb_mysql_num_rows($resultat)) {
76                                //Si oui, récupération id
77                                $chapeau_id=pmb_mysql_result($resultat,0,0);   
78                                //Bulletin existe-t-il ?
79                                $requete="select bulletin_id from bulletins where bulletin_numero='".addslashes($info_464[0]['v'])."' and  mention_date='".addslashes($info_464[0]['d'])."' and bulletin_notice=$chapeau_id";
80                                //$requete="select bulletin_id from bulletins where bulletin_numero='".addslashes($info_464[0]['v'])."' and bulletin_notice=$chapeau_id";       
81                                $resultat=pmb_mysql_query($requete);
82                                if (@pmb_mysql_num_rows($resultat)) {
83                                        //Si oui, récupération id bulletin
84                                        $bulletin_id=pmb_mysql_result($resultat,0,0);   
85                                } else {
86                                        //Si non, création bulltin
87                                        $info=array();
88                                        $bulletin=new bulletinage("",$chapeau_id);
89                                        $info['bul_titre']=addslashes("Bulletin N°".$info_464[0]['v']);
90                                        $info['bul_no']=addslashes($info_464[0]['v']);
91                                        $info['bul_date']=addslashes($info_464[0]['d']);
92                                        if (!$info_464[0]['e']) {
93                                                $date_date=explode("/",$info_464[0]['d']);
94                                                if (count($date_date)) {
95                                                        if (count($date_date)==1) $info['date_date']=$date_date[0]."-01-01";
96                                                        if (count($date_date)==2) $info['date_date']=$date_date[1]."-".$date_date[0]."-01";
97                                                        if (count($date_date)==3) $info['date_date']=$date_date[2]."-".$date_date[1]."-".$date_date[0];
98                                                } else {
99                                                        if ($info_904[0]) {
100                                                                $info['date_date']=$info_904[0];
101                                                        }
102                                                }
103                                        } else {
104                                                $info['date_date']=$info_464[0]['e'];
105                                        }
106                                        $bulletin_id=$bulletin->update($info);
107                                }
108                        } else {
109                                //Si non, création notice chapeau et bulletin
110                                $chapeau=new serial();
111                                $info=array();
112                                $info['tit1']=addslashes($info_464[0]['t']);
113                                $info['niveau_biblio']='s';
114                                $info['niveau_hierar']='1';
115                                $info['typdoc']=$r->typdoc;
116                               
117                                $chapeau->update($info);
118                                $chapeau_id=$chapeau->serial_id;
119                               
120                                $bulletin=new bulletinage("",$chapeau_id);
121                                $info=array();
122                                $info['bul_titre']=addslashes("Bulletin N°".$info_464[0]['v']);
123                                $info['bul_no']=addslashes($info_464[0]['v']);
124                                $info['bul_date']=addslashes($info_464[0]['d']);
125                                if (!$info_464[0]['e']) {
126                                        $date_date=explode("/",$info_464[0]['d']);
127                                        if (count($date_date)) {
128                                                if (count($date_date)==1) $info['date_date']=$date_date[0]."-01-01";
129                                                if (count($date_date)==2) $info['date_date']=$date_date[1]."-".$date_date[0]."-01";
130                                                if (count($date_date)==3) $info['date_date']=$date_date[2]."-".$date_date[1]."-".$date_date[0];
131                                        } else {
132                                                if ($info_904[0]) {
133                                                        $info['date_date']=$info_904[0];
134                                                }
135                                        }
136                                } else {
137                                        $info['date_date']=$info_464[0]['e'];
138                                }
139                                $bulletin_id=$bulletin->update($info);
140                        }
141                        //Notice objet ?
142                        if ($info_464[0]['z']=='objet') {
143                                //Supression de la notice
144                                $requete="delete from notices where notice_id=$notice_id";
145                                pmb_mysql_query($requete);
146                                $bulletin_ex=$bulletin_id;
147                        } else {
148                                $annee=$info_464[0]['d'];
149                                $date_parution=$info['date_date'];
150                                //Récupère la date du bulletin (non disponible autrement si il existe déjà) pour l'article
151                                $select="SELECT date_date FROM bulletins WHERE bulletin_id='".$bulletin_id."'";
152                                $res_date=pmb_mysql_query($select);
153                                if($res_date && pmb_mysql_num_rows($res_date)){
154                                        $date_parution=pmb_mysql_result($res_date,0,0);
155                                        $annee=substr($date_parution,0,4);
156                                }
157                                //Passage de la notice en article
158                                $requete="update notices set niveau_biblio='a', niveau_hierar='2', year='".addslashes($annee)."', npages='".addslashes($info_464[0]['p'])."', date_parution='".addslashes($date_parution)."' where notice_id=$notice_id";
159                                pmb_mysql_query($requete);
160                                $requete="insert into analysis (analysis_bulletin,analysis_notice) values($bulletin_id,$notice_id)";
161                                pmb_mysql_query($requete);
162                                $bulletin_ex=$bulletin_id;
163                        }
164        } else $bulletin_ex=0;
165       
166        //Traitement du thésaurus
167        $unknown_desc=array();
168        $ordre_categ = 0;
169        for ($i=0; $i<count($info_606_a); $i++) {
170                for ($j=0; $j<count($info_606_a[$i]); $j++) {
171                        $descripteur=trim($info_606_a[$i][$j]);
172                        //Recherche du terme
173                        //dans le thesaurus par defaut et dans la langue de l'interface
174                        $libelle = addslashes($descripteur);
175                        $categ_id = categories::searchLibelle($libelle);       
176
177                        if ($categ_id) {
178                                $requete = "INSERT INTO notices_categories (notcateg_notice,num_noeud,ordre_categorie) VALUES($notice_id,$categ_id,$ordre_categ)";
179                                pmb_mysql_query($requete);
180                                $ordre_categ++;
181                        } else {
182                                $unknown_desc[]=$descripteur;
183                        }
184                }
185        }
186       
187        if(count($info_610)){
188                for ($i=0; $i<count($info_610); $i++) {
189                        $tmp=explode($pmb_keyword_sep,$info_610[$i]);
190                        if(count($tmp)){
191                                foreach ( $tmp as $value ) {
192                                if($libelle=addslashes(trim($value))){
193                                        $categ_id = categories::searchLibelle($libelle);       
194                                                if ($categ_id) {
195                                                        $requete = "INSERT INTO notices_categories (notcateg_notice,num_noeud,ordre_categorie) VALUES($notice_id,$categ_id,$ordre_categ)";
196                                                        pmb_mysql_query($requete);
197                                                        $ordre_categ++;
198                                                } else {
199                                                        $unknown_desc[]=trim($value);
200                                                }
201                                }
202                                }
203                        }
204                }
205        }
206       
207        if ($unknown_desc) {
208                $mots_cles=implode($pmb_keyword_sep,$unknown_desc);
209                $requete="update notices set index_l='".addslashes($mots_cles)."', index_matieres=' ".addslashes(strip_empty_words($mots_cles))." ' where notice_id=$notice_id";
210                pmb_mysql_query($requete);
211        }
212       
213        //Thème
214        if (count($info_900)) {
215                $requete="select max(notices_custom_list_value*1) from notices_custom_lists where notices_custom_champ=1";
216                $resultat=pmb_mysql_query($requete);
217                $max=@pmb_mysql_result($resultat,0,0);
218                $n=$max+1;
219                for ($i=0; $i<count($info_900); $i++) {
220                        for ($j=0; $j<count($info_900[$i]); $j++) {
221                                $requete="select notices_custom_list_value from notices_custom_lists where notices_custom_list_lib='".addslashes($info_900[$i][$j])."' and notices_custom_champ=1";
222                                $resultat=pmb_mysql_query($requete);
223                                if (pmb_mysql_num_rows($resultat)) {
224                                        $value=pmb_mysql_result($resultat,0,0);
225                                } else {
226                                        $requete="insert into notices_custom_lists (notices_custom_champ,notices_custom_list_value,notices_custom_list_lib) values(1,$n,'".addslashes($info_900[$i][$j])."')";
227                                        pmb_mysql_query($requete);
228                                        $value=$n;
229                                        $n++;
230                                }
231                                $requete="insert into notices_custom_values (notices_custom_champ,notices_custom_origine,notices_custom_integer) values(1,$notice_id,$value)";
232                                pmb_mysql_query($requete);
233                        }
234                }
235        }
236       
237        //Genres
238        if (count($info_901)) {
239                $requete="select max(notices_custom_list_value*1) from notices_custom_lists where notices_custom_champ=2";
240                $resultat=pmb_mysql_query($requete);
241                $max=@pmb_mysql_result($resultat,0,0);
242                $n=$max+1;
243                for ($i=0; $i<count($info_901); $i++) {
244                        for ($j=0; $j<count($info_901[$i]); $j++) {
245                                $requete="select notices_custom_list_value from notices_custom_lists where notices_custom_list_lib='".addslashes($info_901[$i][$j])."' and notices_custom_champ=2";
246                                $resultat=pmb_mysql_query($requete);
247                                if (pmb_mysql_num_rows($resultat)) {
248                                        $value=pmb_mysql_result($resultat,0,0);
249                                } else {
250                                        $requete="insert into notices_custom_lists (notices_custom_champ,notices_custom_list_value,notices_custom_list_lib) values(2,$n,'".addslashes($info_901[$i][$j])."')";
251                                        pmb_mysql_query($requete);
252                                        $value=$n;
253                                        $n++;
254                                }
255                                $requete="insert into notices_custom_values (notices_custom_champ,notices_custom_origine,notices_custom_integer) values(2,$notice_id,$value)";
256                                pmb_mysql_query($requete);
257                        }
258                }
259        }
260       
261        //Discipline
262        if (count($info_902)) {
263                $requete="select max(notices_custom_list_value*1) from notices_custom_lists where notices_custom_champ=3";
264                $resultat=pmb_mysql_query($requete);
265                $max=@pmb_mysql_result($resultat,0,0);
266                $n=$max+1;
267                for ($i=0; $i<count($info_902); $i++) {
268                        for ($j=0; $j<count($info_902[$i]); $j++) {
269                                $requete="select notices_custom_list_value from notices_custom_lists where notices_custom_list_lib='".addslashes($info_902[$i][$j])."' and notices_custom_champ=3";
270                                $resultat=pmb_mysql_query($requete);
271                                if (pmb_mysql_num_rows($resultat)) {
272                                        $value=pmb_mysql_result($resultat,0,0);
273                                } else {
274                                        $requete="insert into notices_custom_lists (notices_custom_champ,notices_custom_list_value,notices_custom_list_lib) values(3,$n,'".addslashes($info_902[$i][$j])."')";
275                                        pmb_mysql_query($requete);
276                                        $value=$n;
277                                        $n++;
278                                }
279                                $requete="insert into notices_custom_values (notices_custom_champ,notices_custom_origine,notices_custom_integer) values(3,$notice_id,$value)";
280                                pmb_mysql_query($requete);
281                        }
282                }
283        }
284       
285        //Type de nature
286        if ($info_905[0]) {
287                $requete="select max(notices_custom_list_value*1) from notices_custom_lists where notices_custom_champ=6";
288                $resultat=pmb_mysql_query($requete);
289                $max=@pmb_mysql_result($resultat,0,0);
290                $n=$max+1;
291                $requete="select notices_custom_list_value from notices_custom_lists where notices_custom_list_lib='".addslashes($info_905[0])."' and notices_custom_champ=6";
292                $resultat=pmb_mysql_query($requete);
293                if (pmb_mysql_num_rows($resultat)) {
294                        $value=pmb_mysql_result($resultat,0,0);
295                } else {
296                        $requete="insert into notices_custom_lists (notices_custom_champ,notices_custom_list_value,notices_custom_list_lib) values(6,$n,'".addslashes($info_905[0])."')";
297                        pmb_mysql_query($requete);
298                        $value=$n;
299                        $n++;
300                }
301                $requete="insert into notices_custom_values (notices_custom_champ,notices_custom_origine,notices_custom_integer) values(6,$notice_id,$value)";
302                pmb_mysql_query($requete);
303        }
304       
305        //Niveau
306        if (count($info_906)) {
307                for ($i=0; $i<count($info_906); $i++) {
308                        for ($j=0; $j<count($info_906[$i]); $j++) {
309                                $requete="select max(notices_custom_list_value*1) from notices_custom_lists where notices_custom_champ=7";
310                                $resultat=pmb_mysql_query($requete);
311                                $max=@pmb_mysql_result($resultat,0,0);
312                                $n=$max+1;
313                                $requete="select notices_custom_list_value from notices_custom_lists where notices_custom_list_lib='".addslashes($info_906[$i][$j])."' and notices_custom_champ=7";
314                                $resultat=pmb_mysql_query($requete);
315                                if (pmb_mysql_num_rows($resultat)) {
316                                        $value=pmb_mysql_result($resultat,0,0);
317                                } else {
318                                        $requete="insert into notices_custom_lists (notices_custom_champ,notices_custom_list_value,notices_custom_list_lib) values(7,$n,'".addslashes($info_906[$i][$j])."')";
319                                        pmb_mysql_query($requete);
320                                        $value=$n;
321                                        $n++;
322                                }
323                                $requete="insert into notices_custom_values (notices_custom_champ,notices_custom_origine,notices_custom_integer) values(7,$notice_id,$value)";
324                                pmb_mysql_query($requete);
325                        }
326                }
327        }
328       
329        //Année de péremption
330        if ($info_903[0]) {
331                $requete="insert into notices_custom_values (notices_custom_champ,notices_custom_origine,notices_custom_integer) values(4,$notice_id,'".addslashes($info_903[0])."')";
332                pmb_mysql_query($requete);
333        }
334       
335        //Date de saisie
336        if ($info_904[0]) {
337                $requete="insert into notices_custom_values (notices_custom_champ,notices_custom_origine,notices_custom_date) values(5,$notice_id,'".$info_904[0]."')";
338                pmb_mysql_query($requete);
339        }
340       
341} // fin import_new_notice_suite
342                       
343// TRAITEMENT DES EXEMPLAIRES ICI
344function traite_exemplaires () {
345        global $msg, $dbh ;
346       
347        global $prix, $notice_id, $info_995, $typdoc_995, $tdoc_codage, $book_lender_id, 
348                $section_995, $sdoc_codage, $book_statut_id, $locdoc_codage, $codstatdoc_995, $statisdoc_codage,
349                $cote_mandatory,$info_464 ;
350       
351        global $bulletin_ex;
352       
353        // lu en 010$d de la notice
354        $price = $prix[0];
355       
356        // la zone 995 est répétable
357        for ($nb_expl = 0; $nb_expl < sizeof($info_995); $nb_expl++) {
358                /* RAZ expl */
359                $expl = array();
360               
361                /* préparation du tableau à passer à la méthode */
362                $expl['cb']         = $info_995[$nb_expl]['f'];
363                if (($bulletin_ex)&&(is_array($info_464))) {
364                        $expl['bulletin']=$bulletin_ex;
365                        $expl['notice']=0;
366                } else {
367                        $expl['notice']     = $notice_id ;
368                        $expl['bulletin']=0;
369                }
370                // $expl['typdoc']     = $info_995[$nb_expl]['r']; à chercher dans docs_typdoc
371                $data_doc=array();
372                //$data_doc['tdoc_libelle'] = $info_995[$nb_expl]['r']." -Type doc importé (".$book_lender_id.")";
373                //$data_doc['tdoc_libelle'] = $typdoc_995[$info_995[$nb_expl]['r']];
374                //if (!$data_doc['tdoc_libelle']) $data_doc['tdoc_libelle'] = "\$r non conforme -".$info_995[$nb_expl]['r']."-" ;
375                $data_doc['duree_pret'] = 0 ; /* valeur par défaut */
376                $data_doc['tdoc_codage_import'] = $info_995[$nb_expl]['r'] ;
377                $data_doc['tdoc_libelle']=$info_995[$nb_expl]['r'] ;
378                if ($tdoc_codage) $data_doc['tdoc_owner'] = $book_lender_id ;
379                        else $data_doc['tdoc_owner'] = 0 ;
380                $expl['typdoc'] = docs_type::import($data_doc);
381               
382                $expl['cote'] = $info_995[$nb_expl]['k'];
383         
384        if (!trim($expl['cote'])) $expl['cote']="ARCHIVES";
385                       
386                // $expl['section']    = $info_995[$nb_expl]['q']; à chercher dans docs_section
387                $data_doc=array();
388                if (!$info_995[$nb_expl]['t']) 
389                        $info_995[$nb_expl]['t'] = "inconnu";
390                $data_doc['section_libelle'] = $info_995[$nb_expl]['t'] ;
391                $data_doc['sdoc_codage_import'] = $info_995[$nb_expl]['t'] ;
392                if ($sdoc_codage) $data_doc['sdoc_owner'] = $book_lender_id ;
393                        else $data_doc['sdoc_owner'] = 0 ;
394                $expl['section'] = docs_section::import($data_doc);
395               
396                /* $expl['statut']     à chercher dans docs_statut */
397                /* TOUT EST COMMENTE ICI, le statut est maintenant choisi lors de l'import
398                if ($info_995[$nb_expl]['o']=="") $info_995[$nb_expl]['o'] = "e";
399                $data_doc=array();
400                $data_doc['statut_libelle'] = $info_995[$nb_expl]['o']." -Statut importé (".$book_lender_id.")";
401                $data_doc['pret_flag'] = 1 ;
402                $data_doc['statusdoc_codage_import'] = $info_995[$nb_expl]['o'] ;
403                $data_doc['statusdoc_owner'] = $book_lender_id ;
404                $expl['statut'] = docs_statut::import($data_doc);
405                FIN TOUT COMMENTE */
406               
407                $expl['statut'] = $book_statut_id;
408               
409                // $expl['location']   = $info_995[$nb_expl]['']; à fixer par combo_box
410                // figé dans le code ici pour l'instant :
411                //$info_995[$nb_expl]['localisation']="Bib princip"; /* biblio principale */
412                $data_doc=array();
413                $data_doc['location_libelle'] = "inconnu";
414                if ($info_995[$nb_expl]['a']) {
415                        $data_doc['location_libelle'] = $info_995[$nb_expl]['a'];
416                        $data_doc['locdoc_codage_import'] = $info_995[$nb_expl]['a'];
417                } else {
418                        $data_doc['locdoc_codage_import']="cdi";
419                }
420                if ($locdoc_codage) $data_doc['locdoc_owner'] = $book_lender_id ;
421                        else $data_doc['locdoc_owner'] = 0 ;
422                $expl['location'] = docs_location::import($data_doc);
423               
424                // $expl['codestat']   = $info_995[$nb_expl]['q']; 'q' utilisé, éventuellement à fixer par combo_box
425                $data_doc=array();
426                //$data_doc['codestat_libelle'] = $info_995[$nb_expl]['q']." -Pub visé importé (".$book_lender_id.")";
427                if (!$info_995[$nb_expl]['q']) 
428                        $info_995[$nb_expl]['q'] = "inconnu";
429                $data_doc['codestat_libelle'] = $info_995[$nb_expl]['q'] ;
430                $data_doc['statisdoc_codage_import'] = $info_995[$nb_expl]['q'] ;
431                if ($statisdoc_codage) $data_doc['statisdoc_owner'] = $book_lender_id ;
432                        else $data_doc['statisdoc_owner'] = 0 ;
433                $expl['codestat'] = docs_codestat::import($data_doc);
434               
435               
436                // $expl['creation']   = $info_995[$nb_expl]['']; à préciser
437                // $expl['modif']      = $info_995[$nb_expl]['']; à préciser
438                       
439                $expl['note']       = $info_995[$nb_expl]['u'];
440                $expl['prix']       = $price;
441                $expl['expl_owner'] = $book_lender_id ;
442                $expl['cote_mandatory'] = $cote_mandatory ;
443               
444                $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) ;     
445                $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) ;
446               
447                $expl_id = exemplaire::import($expl);
448                if ($expl_id == 0) {
449                        $nb_expl_ignores++;
450                        }
451                       
452                //debug : affichage zone 995
453                /*
454                echo "995\$a =".$info_995[$nb_expl]['a']."<br />";
455                echo "995\$b =".$info_995[$nb_expl]['b']."<br />";
456                echo "995\$c =".$info_995[$nb_expl]['c']."<br />";
457                echo "995\$d =".$info_995[$nb_expl]['d']."<br />";
458                echo "995\$f =".$info_995[$nb_expl]['f']."<br />";
459                echo "995\$k =".$info_995[$nb_expl]['k']."<br />";
460                echo "995\$m =".$info_995[$nb_expl]['m']."<br />";
461                echo "995\$n =".$info_995[$nb_expl]['n']."<br />";
462                echo "995\$o =".$info_995[$nb_expl]['o']."<br />";
463                echo "995\$q =".$info_995[$nb_expl]['q']."<br />";
464                echo "995\$r =".$info_995[$nb_expl]['r']."<br />";
465                echo "995\$u =".$info_995[$nb_expl]['u']."<br /><br />";
466                */
467                } // fin for
468        } // fin traite_exemplaires     TRAITEMENT DES EXEMPLAIRES JUSQU'ICI
469
470// fonction spécifique d'export de la zone 995
471function export_traite_exemplaires ($ex=array()) {
472        global $msg, $dbh ;
473       
474        $subfields["a"] = $ex -> lender_libelle;
475        $subfields["c"] = $ex -> lender_libelle;
476        $subfields["f"] = $ex -> expl_cb;
477        $subfields["k"] = $ex -> expl_cote;
478        $subfields["u"] = $ex -> expl_note;
479
480        if ($ex->statusdoc_codage_import) $subfields["o"] = $ex -> statusdoc_codage_import;
481        if ($ex -> tdoc_codage_import) $subfields["r"] = $ex -> tdoc_codage_import;
482                else $subfields["r"] = "uu";
483        if ($ex -> sdoc_codage_import) $subfields["q"] = $ex -> sdoc_codage_import;
484                else $subfields["q"] = "u";
485       
486        global $export996 ;
487        $export996['f'] = $ex -> expl_cb ;
488        $export996['k'] = $ex -> expl_cote ;
489        $export996['u'] = $ex -> expl_note ;
490
491        $export996['m'] = substr($ex -> expl_date_depot, 0, 4).substr($ex -> expl_date_depot, 5, 2).substr($ex -> expl_date_depot, 8, 2) ;
492        $export996['n'] = substr($ex -> expl_date_retour, 0, 4).substr($ex -> expl_date_retour, 5, 2).substr($ex -> expl_date_retour, 8, 2) ;
493
494        $export996['a'] = $ex -> lender_libelle;
495        $export996['b'] = $ex -> expl_owner;
496
497        $export996['v'] = $ex -> location_libelle;
498        $export996['w'] = $ex -> ldoc_codage_import;
499
500        $export996['x'] = $ex -> section_libelle;
501        $export996['y'] = $ex -> sdoc_codage_import;
502
503        $export996['e'] = $ex -> tdoc_libelle;
504        $export996['r'] = $ex -> tdoc_codage_import;
505
506        $export996['1'] = $ex -> statut_libelle;
507        $export996['2'] = $ex -> statusdoc_codage_import;
508        $export996['3'] = $ex -> pret_flag;
509       
510        global $export_traitement_exemplaires ;
511        $export996['0'] = $export_traitement_exemplaires ;
512       
513        return  $subfields ;
514
515        }       
Note: See TracBrowser for help on using the repository browser.