Se le agrego a ProcesoDB la posibilidad de borrar procesos.

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

diff --git a/lib/YATTA/Archivo.php b/lib/YATTA/Archivo.php
index 0bdcf4920bbced326c326966f320b171cc83e800..a7d33c4a5ce7c91f53d0f2a71a22fad985dba48b 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.');
+        }
     }
 
     /**
@@ -182,6 +187,9 @@ class YATTA_Archivo extends MECON_DBO {
             $where[] = ' (p.owner LIKE '. $db->quote("$this->usuario") .' OR '.
                     'p.destinos LIKE '. $db->quote("%$this->usuario%") .')';
         }
+        if (!is_null($this->archivo)) {
+            $where[] = 'p.archivo LIKE '. $db->quote("$this->archivo");
+        }
         if ($where) {
             $where = 'WHERE p.status = 2 AND p.resultado is not null '.
                 'AND p.id_sistema = s.id_sistema AND ('. join ("$operador