- trigger_error('Not implemented!', E_USER_WARNING);
- //@TODO Solo permitir que el owner borre sus archivos.
- //@TODO Borra el registro de la base.
- //@TODO Borrar el archivo del tacho.
+ //Borro el archivo del tacho
+ if (!unlink(PATH_TACHO.basename($this->archivo))) {
+ return new PEAR_Error('No se pudo 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);
+ }