Se cambian die() por trigger_error().

[mecon/yatta.git] / lib / YATTA / Archivo.php

diff --git a/lib/YATTA/Archivo.php b/lib/YATTA/Archivo.php
index 0bdcf4920bbced326c326966f320b171cc83e800..f1d2fcc6c31f25405c827de4df5bb40a116246b6 100644 (file)
--- 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.');
+        }
     }
 
     /**