source: pmb4.2/trunk/fuentes/pmb/admin/convert/imports/endnote2unimarc/input_endnote.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: 1.2 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: input_endnote.inc.php,v 1.4 2015-04-03 11:16:28 jpermanne Exp $
6
7function _get_n_notices_($fi,$file_in,$input_params,$origine) {
8        global $base_path;
9       
10        $first=true;
11        $stop=false;
12        $content="";
13        $index=array();
14        $n=1;
15        //Lecture du fichier d'entrée
16        while (!$stop) {
17               
18                //Recherche de %0
19                if ($content) $pos_deb=strpos($content,"%0",1);
20                while ((!$pos_deb)&&(!feof($fi))) {
21                        $content.=fread($fi,4096);
22                        $pos_deb=strpos($content,"%0",1);
23                }
24               
25                //Début accroché
26                if ($pos_deb) {
27                        //Notice = début jusqu'au %0
28                        $notice=substr($content,0,$pos_deb);
29                        $content=substr($content,$pos_deb);
30                } else {
31                        //Pas de notice suivante, c'est la fin du fichier
32                        $notice=$content;
33                        $stop=true;
34                }
35               
36                if (trim($notice)) {
37                        $requete="INSERT INTO import_marc (no_notice, notice, origine) VALUES ($n,'".addslashes($notice)."','$origine')";
38                        pmb_mysql_query($requete);
39                        $n++;
40                        $t=array();
41                        $t["POS"]=$n;
42                        $t["LENGHT"]=1;
43                        $index[]=$t;
44                }
45        }
46        return $index;
47}
48?>
Note: See TracBrowser for help on using the repository browser.