#!/usr/bin/perl
require "../../../librerias/rutinas.pl";
require "../../../librerias/base_datos.pl";
require "../../../librerias/seguridad.pl";
require "../../../librerias/utilerias.pl";
require "../../libIntranet/objetos.pl";
require "../../libIntranet/intranetTools.pl";
require "armazon.pl";

print "content-type:text/html \n\n";

#VALIDACION DE POST PARA SEGURIDAD Y PARSER DE INFORMACION DE LA FORMA ANTERIOR
&validaPost();
&ParseForma();

#RECUPERACION DE INFORMACION EN VARIABLES ESCALARES DEL ARREGLO VALORES RESULTADO DEL PARSER
$usuario=$valores{'usuario'};
$passwordEncriptado=$valores{'passwordEncriptado'};
$idInstitucion=$valores{'parametro'};

#CONSTANTE DEFINIDA PARA CADA INTRANET, SE DEFINE INTERNAMENTE, NO NECESITA ENVIARSE COMO PARAMETRO, SE DECLARA EN CADA ARCHIVO CGI
$intranet="columna";

#--------------------------------------------------------------
#LECTURA DE PARAMETROS DE ARCHIVO DE CONFIGURACION
($numIntranet,$nombreIntranet,$rutacom,$rutacomcgi,$ruta,$rutacgi)=&fileRead($intranet);
#---------------------------------------------------
$BaseDeDatos="programacion";
&crear_conexion_progaix();
#---------------------------------------------------
#VERIFICANDO USUARIO
($nombreReal,$nombreInstitucion,$privilegio,$baseDeDatos)=&validaUESius($usuario,$passwordEncriptado,$numIntranet,$idInstitucion);
#---------------------------------------------------	
&cerrar_conexion();
#---------------------------------------------------

#DETERMINAR VALORES INTERNOS DE CONSULTA


&encabezado($nombreReal,$nombreInstitucion,$nombreIntranet,"Columnas: Administración de artículos - Alta");
#PARAMETROS MENU
&menu(1,0);
&defineButtonJs();
if (numRespuestas eq '') {
&tituloContenido("Introduzca la información requerida");
} 
else {
&tituloContenido("$titulo<br>$pregunta");
}
print <<pagina
<SCRIPT LANGUAGE=JavaScript>
function envia(tarea)
  {
   if (tarea == 1)
     {
     }
   if (tarea == 2 )
     {
     document.informacion.action="$rutacgi/columnaBajaFrm.pl";
     }
   if (tarea == 3)
     {
     document.informacion.action="$rutacgi/columnaModificacionFrm.pl";
     }
   if (tarea == 4)
     {
     document.informacion.action="$rutacgi/columnaConsultaFrm.pl";
     }

   document.informacion.submit();
}
</SCRIPT>
pagina
;

#-----------------------------
#CONTENIDO DE LA PAGINA
#-----------------------------

$manejador1=&nueva_conexion("sen");

print <<pagina
<tr><td><table border=0>
   <form method=post action=$rutacgi/columnaAltaBd.pl>
   <tr><td><font class=FontSmall>Sección del Portal:</td><td><Select  name=id_seccion size=1>
pagina
;
  # MOSTRAR LAS SECCIONES DEL PORTAL
  $QueryRubros="SELECT idRubro,etiqueta FROM rubros ORDER BY idRubro";
  ($numRubros,$rsRubros)=&ejecuta_SQL($QueryRubros,$manejador1);
  while ($apuntador=$rsRubros->fetchrow_hashref) {
   print "<Option Value=".$apuntador->{'idRubro'}.">".$apuntador->{'etiqueta'}."</Option>\n"; 
  }
  $rsRubros->finish;
  print "</Select>\n";

  # MOSTRAR LOS COLUMNISTAS
  print "<tr><td><font class=FontSmall>Columnista:</td><td><Select  name=id_columnista size=1>\n";
  $QueryColumnistas="SELECT id_columnista,nombre,apaterno FROM columnistas ORDER BY nombre,apaterno";
  ($numColumnistas,$rsColumnistas)=&ejecuta_SQL($QueryColumnistas,$manejador1);
  while ($apuntador=$rsColumnistas->fetchrow_hashref) {
   print "<Option Value=".$apuntador->{'id_columnista'}.">".$apuntador->{'nombre'}." ".$apuntador->{'apaterno'}."</Option>\n"; 
  }
  $rsColumnistas->finish;
  print "</Select>\n";
print <<pagina
   <tr><td><font class=FontSmall>Título del Artículo:</td><td><input type=text name=titulo size=40></td></tr>
   <tr><td valign=top><font class=FontSmall>Contenido:</td><td><textarea name=contenido rows=7 cols=40 nowrap></textarea></td></tr>
   <tr><td><font class=FontSmall>Fecha Publicación:</td><td><input type=text name=fecha size=10 id=publicacion><INPUT TYPE=RESET VALUE=" ... " ONCLICK="return showCalendar('publicacion', 'y-m-d');"></td></tr>
pagina
;
  print "</td></tr>\n";
  print "<tr><td colspan=2><center><input type=submit value=Grabar></td></tr>\n";

  print "<input type=hidden name=usuario value=$usuario>\n";
  print "<input type=hidden name=passwordEncriptado value=$passwordEncriptado>\n";
  print "<input type=hidden name=parametro value=$idInstitucion>\n";
  print "</form></table></td>\n";


&cierrePagina;
manejador1->disconnect;
