require_once 'YATTA/Archivo.php';
//}}}
-//TODO Definir la cuota en algun lado (Kb)
-$cuota = 2048;
-
//Actuar segun la accion, etc {{{
$accion = @$_REQUEST['accion'];
$id = @$_REQUEST['_id'];
$ARCHIVO->usuario = $_SESSION['usuario'];
$res = $ARCHIVO->buscar($DB);
if (PEAR::isError($res)) {
- die('Error: ' . $res->getMessage() . "\n");
+ trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
}
$ARCHIVO->cargar($res);
switch ($accion) {
header("Pragma: no-cache");
header("Expires: 0");
header("Content-Type: application");
- header("Content-Length: ".filesize($ARCHIVO->path.$ARCHIVO->archivo));
- readfile ($ARCHIVO->path.$ARCHIVO->archivo);
+ header("Content-Length: ".filesize($ARCHIVO->archivo));
+ readfile ($ARCHIVO->archivo);
exit;
break;
case 'borrar':
- $ARCHIVO->borrar($DB);
- //TODO Capturar el posible error
+ $res = $ARCHIVO->borrar($DB);
+ if (PEAR::isError($res)) {
+ trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
+ }
header ('Location:archivos');
+ exit;
break;
}
}
$res = $ARCHIVO->buscar($DB);
if (PEAR::isError($res)) {
- die('Error: ' . $res->getMessage() . "\n");
+ trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
}
-$TABLADB = new MECON_HTML_TablaDB ('Archivos');
+$TABLADB = new MECON_HTML_TablaDB ('Archivos', 'width="760"');
$TABLADB->addRow(array(
'Lista de Archivos Disponibles'
), 'cabecera colspan="5" align="left"');
}
//}}}
-//@TODO Hacer un addRowsData que agregue el tamanio del archivo (posiblemente
-//con una funcion callback)
-
$TABLADB->addRowsData(
new MECON_HTML_Link('archivos',
new MECON_HTML_Image('/MECON/images/general_download.gif',
}
//}}}
-
-//$TABLADB->addRowsIcon('borrar', array ('id'), new MECON_HTML_Link ('archivos', '', array
-// ('accion' => 'borrar')));
-
$pager = $TABLADB->addPager($res, null,
new MECON_HTML_Link
('archivos', null
);
$TABLADB->addRows($pager, array ('nombre_sistema', 'descripcion'));
-$TABLADB->addRow(array('*Recuerde que los archivos se borran a los 7 dias
- de antiguedad'),
+$TABLADB->addRow(array('*Recuerde que los archivos se borran a los '
+ . $CONF['tacho']['cantidad_dias'] .
+ ' dias de antiguedad'),
'colspan="5" align="center" class="msg_rojo"');
$TABLADB->updateColAttributes(0,'width="4%"');