|
Last change
on this file since 815 was
815,
checked in by jrpelegrina, 5 years ago
|
|
Initial release of pmb 4.2
|
-
Property svn:executable set to
*
|
|
File size:
803 bytes
|
| 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_delphe.inc.php,v 1.2 2015-04-03 11:16:29 jpermanne Exp $ |
|---|
| 6 | |
|---|
| 7 | function _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 | $i=0; |
|---|
| 16 | //Lecture du fichier d'entrée |
|---|
| 17 | while (!feof($fi)) { |
|---|
| 18 | $notice=fgets($fi,4096); |
|---|
| 19 | if ($i>0 && $notice) { |
|---|
| 20 | $requete="INSERT INTO import_marc (no_notice, notice, origine) VALUES ($n,'".addslashes($notice)."','$origine')"; |
|---|
| 21 | pmb_mysql_query($requete); |
|---|
| 22 | $n++; |
|---|
| 23 | $t=array(); |
|---|
| 24 | $t["POS"]=$n; |
|---|
| 25 | $t["LENGHT"]=1; |
|---|
| 26 | $index[]=$t; |
|---|
| 27 | } |
|---|
| 28 | $i++; |
|---|
| 29 | } |
|---|
| 30 | return $index; |
|---|
| 31 | } |
|---|
| 32 | ?> |
|---|
Note: See
TracBrowser
for help on using the repository browser.
