source: pmb4.1/trunk/fuentes/pmb/admin/convert/imports/epires2uni/input_epires.inc.php @ 478

Last change on this file since 478 was 478, checked in by mabarracus, 4 years ago

copy trusty code 4.1

  • Property svn:executable set to *
File size: 1.9 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_epires.inc.php,v 1.6 2008-09-13 07:55:52 touraine37 Exp $
6
7function _get_n_notices_($fi,$file_in,$input_params,$origine) {
8        global $base_path;
9        //mysql_query("delete from import_marc");
10       
11        $first=true;
12        $stop=false;
13        $content="";
14        $index=array();
15        $n=1;
16        //Lecture du fichier d'entrée
17        while (!$stop) {
18               
19                //Recherche de +++
20                $pos_deb=strpos($content,"+++");
21                while (($pos_deb===false)&&(!feof($fi))) {
22                        $content.=fread($fi,4096);
23                        $content=str_replace("!\r\n ","",$content);
24                        $content=str_replace("!\r ","",$content);
25                        $content=str_replace("!\n ","",$content);
26                        $pos_deb=strpos($content,"+++");
27                }
28               
29                //Début accroché
30                if ($pos_deb!==false) {
31                        //Notice = début jusqu'au +++
32                        $notice=substr($content,0,$pos_deb);
33                        $content=substr($content,$pos_deb+3);
34                } else {
35                        //Pas de notice suivante, c'est la fin du fichier
36                        $notice=$content;
37                        $stop=true;
38                }
39               
40                //Si c'est la première notice, c'est la ligne d'intitulés !!
41                if ($first) {
42                        $cols=explode(";;",$notice);
43                        $infos["COLS"]=$cols;
44                        $filename=explode("/",$file_in);
45                        $filename=explode(".",$filename[count($filename)-1]);
46                        //Supression du numéro origine
47                        $filename=str_replace($origine,"",$filename);
48                        $infos["FILENAME"]=$filename[0];
49                        $fcols=fopen("$base_path/temp/".$origine."_cols.txt","w+");
50                        if ($fcols) {
51                                fwrite($fcols,serialize($infos));
52                                fclose($fcols);
53                        }
54                        $notice="";
55                        $first=false;
56                } 
57                if ($notice) {
58                        $requete="INSERT INTO import_marc (no_notice, notice, origine) VALUES ($n,'".addslashes($notice)."','$origine')";
59                        mysql_query($requete);
60                        $n++;
61                        $t=array();
62                        $t["POS"]=$n;
63                        $t["LENGHT"]=1;
64                        $index[]=$t;
65                }
66        }
67        return $index;
68}
69
70
71?>
Note: See TracBrowser for help on using the repository browser.