X-Git-Url: https://git.llucax.com/mecon/yatta.git/blobdiff_plain/fe215f7a74d6656c178d78fd5e67d5a03bc957c4..4e97c3d61c15d004111d556c8266e04ee1625148:/lib/YATTA/Archivo.php?ds=inline

diff --git a/lib/YATTA/Archivo.php b/lib/YATTA/Archivo.php
index 0bdcf49..f1d2fcc 100644
--- a/lib/YATTA/Archivo.php
+++ b/lib/YATTA/Archivo.php
@@ -27,6 +27,7 @@ $Id$
 require_once 'MECON/DBO.php';
 require_once 'PEAR.php';
 
+define ('PATH_TACHO', '/var/www/yatta_tacho/');
 
 /**
  * Clase para el manejo de los archivos.
@@ -125,7 +126,7 @@ class YATTA_Archivo extends MECON_DBO {
             $this->nombre_sistema = $res['nombre_sistema'];
             $this->descripcion = $res['descripcion'];
             $this->resultado = $res['resultado'];
-            $this->archivo = $res['archivo'];
+            $this->archivo = PATH_TACHO.$res['archivo'];
             $this->owner = $res['owner'];
             
             return true;
@@ -143,10 +144,14 @@ class YATTA_Archivo extends MECON_DBO {
      */
     function borrar($db = null)
     {
-        print '<PRE>';var_dump($this);print '</PRE>';
-        //@TODO Solo permitir que el owner borre sus archivos.
-        //@TODO Borra el registro de la base.
-        //@TODO Borrar el archivo del tacho.
+        $res = $db->query('DELETE FROM yatta.procesos WHERE id = '. $this->id);
+        if (PEAR::isError($res)) {
+             trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
+        }
+        //Borro el archivo del tacho
+        if (!unlink($this->archivo)) {
+            return new PEAR_Error('No se pudo borrar el archivo del tacho.');
+        }
     }
 
     /**