$IAFORO=array(); global $IAFORO;
include_once('ia_foro.php');
iaforo_prepara("marina");
$d=iaforo_getparams();
if($IAFORO["anterior"])
$IAFORO["archivo"]=$IAFORO["archivo_prefix"].":
".$IAFORO["archivo_name"]." de ".IA_ShowDate($IAFORO["date_in"],"F, Y");
else
$IAFORO["archivo"]=$IAFORO["foro_title"];
?>
Minificción en la Marina de Ficticia
include('ia_forohead.php'); ?>
Marina de Ficticia
Taller de minificciones
if($IAFORO["anterior"])
echo "Astillero de ".$iamesL[substr($IAFORO["c"],4,2)]." de ".substr($IAFORO["c"],0,4)."
";
else {
echo '
';
include("deldia/marina.inc");
echo '
';
//if( $IAFORO["usr"]["id"]==15 || $IAFORO["usr"]["id"]==18) {
$bases=singleton("SELECT * FROM tab_cafe WHERE foro=5 AND datestamp>'2014-04-01' AND tipo='A' ORDER BY datestamp DESC LIMIT 1");
$quien = singleton("SELECT pseudonimo FROM tab_usr WHERE ID=$bases[user_id]");
$fecha = tab_fecha( $bases['datestamp']);
$body = nl2br ( substr($bases['body'],0,768) )." ...";
echo "
$bases[subject]
$quien[pseudonimo]
$fecha
$body
Ver ...
";
//}
?>
Envía tus minificciones, tallerea las minificciones de otros
Bases, resultados y avisos en la Bitácora.
Talleristas, comentaristas y dictaminadores en el Jurado.
Cuentos, y relatos en el Puerto Libre.
}
$phmsgs=phorum_db_get_threaded($IAFORO["offset"],$IAFORO["where"]);
$phsorted=phorum_sort_threads($phmsgs);
?>
if($IAFORO["anterior"])
echo "[ $IAFORO[foro_header] ] ";
else
echo '[ Envíe minificción ] ';
?>
[ Astilleros ]
[ Buscador ]
iaforo_navega(1,1,0,1); ?>
$param="c=$IAFORO[c]&o=$IAFORO[offset]";
foreach($phsorted as $k=>$v) {
$p="$IAFORO[read_page]?i=$v[message_id]&$param";
echo $v["ulend"].$v["ulstart"]."- ".ia_htmlprotect($v["subject"])." ".tab_fecha($v["datestamp"])."
".ia_htmlprotect($v["author"])."\r\n";
if($v["status"]=='Oculta') echo " OCULTADO!";
}
echo str_repeat(" ",$previndent);
?>
|
iaforo_navega(0,1,0,1); ?>
Actual: |
|
Año |
Astillero del mes de: |
$ano=Date("Y");
for($i=$ano;$i>=2001;$i--) {
echo "$i | ";
for($m=1;$m<=12;$m++)
if( ($i<$ano && $i>2001) || ($i==$ano && $m=7) )
echo "$iames[$m] ";
echo " |
";
}
echo "
\r\n
";
?>
global $gInEdit,$doCheck;
if(!$IAFORO["anterior"]) {
$doCheck=0; $gInEdit=1;
$d=clearData();
iaforo_post($d,0," Enviar minificción ","Autor","Título", "Minificción (máximo 1/2 cuartilla)",1600);
}
?>
include('inc_abajo.php'); ?>