From 4c7133fbb8f5557635b6d639b3da76071af6e059 Mon Sep 17 00:00:00 2001
From: Leandro Lucarella <llucax@gmail.com>
Date: Tue, 3 May 2005 00:37:47 +0000
Subject: [PATCH 1/1] =?utf8?q?Se=20agrega=20una=20archivo=20para=20proveer?=
 =?utf8?q?=20la=20funci=C3=B3n=20fputcsv()=20que=20est=C3=A1=20s=C3=B3lo?=
 =?utf8?q?=20en=20versiones=20muy=20nuevas=20de=20php.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 src/lib/file.php | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 src/lib/file.php

diff --git a/src/lib/file.php b/src/lib/file.php
new file mode 100644
index 0000000..63beeb5
--- /dev/null
+++ b/src/lib/file.php
@@ -0,0 +1,33 @@
+<?php
+// vim: set binary noeol et sw=4 sts=4 :
+// Grupo 10
+//
+// Lucarella, Schein, Arena
+//
+// Creado: Leandro Lucarella (lun may  2 20:00:07 ART 2005)
+//
+// $Id$
+
+if (!function_exists('fputcsv')) {
+    // Función basada en http://www.php.net/manual/en/function.fgetcsv.php
+    function fputcsv($fp, $fields, $delim = ',')
+    {
+        $line = '';
+        $i = 1;
+        foreach ($fields as $field) {
+            // Cambia EOL por los de unix
+            $field = str_replace("\r\n", "\n", $field);
+            // Agrega 'quotes' de ser necesario
+            $d = ($delim == '/') ? '|' : '/';
+            if (preg_match("{$d}[{$delim}\"\n\r]{$d}", $field)) {
+                $field = '"' . str_replace('"', '""', $field) . '"';
+            }
+            // Prepara la línea a graba
+            $line .= $field . ((count($fields) > $i++) ? $delim : "\n");
+        }
+        // Devuelve lo mismo que fputs()
+        return fputs($fp, $line);
+    }
+}
+
+?>
\ No newline at end of file
-- 
2.43.0