#!/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="comunicacion";

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

#DETERMINAR VALORES INTERNOS DE CONSULTA


&encabezado($nombreReal,$nombreInstitucion,$nombreIntranet,"Comunicación: Modifica Documentos ");
#PARAMETROS MENU
&menu(3,0);
&defineButtonJs();
&tituloContenido("Instrucciones: ");
($servidor,$resto)=split('intranet/',$ruta);
$servidor=$servidor . $baseDeDatos . "/intranet/comunicacion/imagenes/archivoFotografico/";
print <<pagina
<SCRIPT LANGUAJE=JavaScript>
function envia(tarea)
  {
   if (tarea == 1)
     {document.informacion.action="$rutacgi/archivoAltaFrm.pl";
      //alert (document.informacion.action);
      document.informacion.submit()
     }
   if (tarea == 2 )
     {document.informacion.action="$rutacgi/archivoEliminaFrm.pl";
     document.informacion.submit()
     }
   if (tarea == 3)
     {document.informacion.action="$rutacgi/archivoModificaFrm.pl";
     document.informacion.submit()
     }
   if (tarea == 4)
     {
     document.informacion.action="$rutacgi/archivoVisualizaFrm.pl";
     document.informacion.submit()
     }

   //document.informacion.submit();
  }


//function validar(forma)
//{
//forma.submit();
//}

function invierte(forma)
{ if (forma.home.value=="n")
  {
    document.luz.src="$ruta/imagenes/indio_on.gif";
    forma.home.value="s";
  }
 else
  {
   document.luz.src="$ruta/imagenes/indio_off.gif";
    forma.home.value="n";
  }

}


imagen=new Image();

function selecciona_foto(imgName)
{ if (imgName == '0.gif'){
  imagen.src=("$ruta/imagenes/" + imgName);}
  else
    {
     imagen.src=("$servidor" + imgName);
    }
  document.objetivo.src=imagen.src;

}


function blancos(texto)
{ cadena=texto;
  no_blanco=0;
  for (i=0; i<cadena.length; i++)
  { if (cadena.substring(i,i+1)!=" ")
    { no_blanco=1;
      break;
    }
  }
}       

function envia_datos(forma)
{if (forma.titulo.value=='')
  { alert("Es necesario escribir un titulo para el documento");
   forma.titulo.focus();
  }
 else
 if (forma.sintesis.value=='')
  { alert("Es necesario escribir una síntesis para el documento");
    forma.sintesis.focus();
  }
 else
  if (forma.contenido.value=='')
   { alert("Es necesario escribir el contenido del documento");
     forma.contenido.focus();
   }
 else
  { forma.submit();
  }
}

</SCRIPT>


<br>&nbsp;&nbsp;
<FORM  NAME="forma" METHOD="post"  ACTION=$rutacgi/archivoModificaDoctoBd.pl>

<!-- ##################################################################################################### -->
pagina
;

#RECUPERA DATOS DE LA BUSQUEDA
#$parametros=$ENV{'QUERY_STRING'};
#($fecha, $hora) = split(/_/,$parametros);
($fecha,$hora)=split("#",$valores{'param'});
#$fecha=$valores{'fechat'};
#$hora=$valores{'horat'};
print "<font face=arial,helvetica size=2 COLOR=000000><B>Fecha:   $fecha \n";
print "hora:   $hora </B></FONT>\n";

#QUERY OBTIENE ETIQUETAS DE LA BASE DE DATOS EN ORDEN POR PRIORIDAD
$manejador1=&nueva_conexion($baseDeDatos);

$Consulta="select * from noticias where fecha='$fecha' and hora='$hora'";
  ($elementos,$rs)=&ejecuta_SQL($Consulta,$manejador1);
  #($encontrados,$sth_1)=&do_SQL;
while ($apuntador=$rs->fetchrow_hashref)

{print " <center><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 COLS=2 WIDTH=658> \n";
 print "    <TR>\n";
 print "     <TD WIDTH=278 VALIGN=TOP><!--FONT FACE=ARIAL,HELVETICA SIZE=2><B>Liga en home:&nbsp;</B></FONT-->\n";
 
 $imagen=$apuntador->{'imagen'};
 $sintesis=$apuntador->{'sintesis'};
 $contenido=$apuntador->{'contenido'};
 $alineacion=$apuntador->{'alineacion'};
 if ($apuntador->{'idPrioridadInterna'} ne '')
   {$imagenhome='indio_on.gif';}
 else 
   {$imagenhome='indio_off.gif';}

print "      <!--IMG SRC=\"$ruta/imagenes/$imagenhome\" ALIGN =MIDDLE NAME=luz BORDER=0-->\n"; 
print "      <P><B>Tipo de documento\n</B><BR>\n"; 
print "      <select name=\"idTipoDocto\">\n";   
for ($i=1;$i<=10;$i++)
  {$Consulta="select etiqueta from rubros where idRubro='$i' order by etiqueta";
     ($elementos,$rs2)=&ejecuta_SQL($Consulta,$manejador1);
     #($encontrados,$sth_2)=&do_SQL;
    while ($apuntador2=$rs2->fetchrow_hashref)
   {if ($apuntador->{'idRubro'} == $i )
     {print "       <option value=\"$i\" selected >$apuntador2->{'etiqueta'}\n";
     }
   else 
     {print "       <option value=\"$i\" >$apuntador2->{'etiqueta'}\n"; 
     }
   }
  }

print "      </select>\n";
print "      <P><B>Titulo del documento<BR></B>\n";
print "      <INPUT NAME=\"titulo\" SIZE=\"25\" VALUE=\"$apuntador->{'titulo'}\"><BR>\n";
print "      <P><B>Fecha del documento</B><BR>";

($anio,$mes,$dia)=split(/-/,$fecha);
print "      <select option name=\"dia\">\n";
%dias=('1','01','2','02','3','03','4','04','5','05','6','06','7','07','8','08','9','09');
for ($i=1;$i<=31;$i++)
  {if ($dia == $i )
     {if ($i<10)
        {print "       <option value=\"$i\" selected >$dias{$i}\n";}
      else {print "       <option value=\"$i\" selected >$i\n";}
     }
   else
     {if ($i<10)
        {print "       <option value=\"$i\">$dias{$i}\n";}
      else {print "       <option value=\"$i\">$i\n";}
     }
  } 
print "      </select>/\n"; 
print "      <SELECT OPTION NAME=\"mes\">\n";
%meses=('1','Ene.','2','Feb.','3','Mar.','4','Abr.','5','May.','6','Jun.','7','Jul.','8','Ago.','9','Sep.','10','Oct.','11','Nov.','12','Dic.');
for ($i=1;$i<=12;$i++)
  {if ($mes == $i )
     {print "       <option value=\"$i\" selected >$meses{$i}\n";}
   else
     {print "       <option value=\"$i\" >$meses{$i}\n";}     
  }
print "      </select>/\n";
print "      <SELECT OPTION NAME=\"anio\">\n";
for ($i=1999;$i<=2005;$i++)
  {if ($anio == $i )
     {print "       <option value=\"$i\" selected >$i\n";}
   else
     {print "       <option value=\"$i\" >$i\n";}
  } 
print "      </select><BR>&nbsp;<BR>&nbsp;\n";
print "      <P><B>Imagen del documento</B><BR>\n";
print "      <SELECT OPTION NAME=\"imagen\" onChange=\"selecciona_foto(this.options[this.selectedIndex].value)\">\n";
$hay_ono=0;

$Consulta="select titulo,nombre from imagen where home='s' and activo<>'n'";
 ($elementos,$rs1)=&ejecuta_SQL($Consulta,$manejador1); 
 # ($encontrados,$sth_1)=&do_SQL;
while ($apuntador = $rs1->fetchrow_hashref) 
  {if ($imagen eq $apuntador->{'nombre'})
     {print "       <option value=\"$apuntador->{'nombre'}\" selected>$apuntador->{'titulo'}\n";
     $hay_ono=1;
     }#END IF
   else{ print "       <option value=\"$apuntador->{'nombre'}\">$apuntador->{'titulo'}\n";
     }#END ELSE
  }
if ($hay_ono == 0){print "<option value=\"0.gif\" selected>Ninguna";}
 else{print "<option value=\"0.gif\">Ninguna\n";}
print "      </select>\n"; 
print "      <!--<p>  <img src=\"$ruta/imagenes/arch_fotografico/$imagen\" name=\"objetivo\">-->\n";
print "      <BR>&nbsp;\n";
print "      <BR><B>Alineaci&oacute;n de la imagen.</B>\n";

if ($alineacion eq 'I')
  {$ai='CHECKED';}
else {$ad='CHECKED';}

print "      <BR><input type=\"radio\" name=\"alineacion\" value=\"I\" $ai> <B>Izquierda</B>\n"; 
print "      <BR><input type=\"radio\" name=\"alineacion\" value=\"D\" $ad> <B>Derecha</B><br>&nbsp\n"; 
print "     </TD>\n"; 
print "     <TD WIDTH=\"328\" valign=top>\n";
print "      <B>Escriba una s&iacute;ntesis para el documento: </B>\n";
print "      <BR><center><textarea name=\"sintesis\" rows=3 cols=35>$sintesis</textarea></center> \n"; 
print "      <p><b>Contenido del documento :</b>\n";
print "      <BR><center><textarea name=\"contenido\" rows=7 cols=35>$contenido</textarea></center> <BR>&nbsp;\n";
print "      <P> &nbsp;&nbsp;&nbsp;\n";
}
$rs->finish;
$manejador1->disconnect;
#&cerrar_conexion();
print <<pagina
      <img src="$servidor/$imagen" width=145 height=132  name=objetivo">
pagina
;
print "     </TD>\n"; 
print "    </TR>\n"; 
print "   </TABLE></center>\n";
print " <center><table border=0>\n";
print "    <tr>\n";
print <<pagina
<td><BR>&nbsp;
<input type=hidden name=hora value=$hora>
<input type=hidden name=fechaold value=$fecha>

<INPUT TYPE=HIDDEN NAME=usuario  VALUE=$usuario>
<INPUT TYPE=HIDDEN NAME=passwordEncriptado VALUE=$passwordEncriptado>
<INPUT TYPE=HIDDEN NAME=parametro VALUE="$idInstitucion">
<input type=button value="Modificar" onClick="envia_datos(forma)">&nbsp;&nbsp;&nbsp;

<!-- input type="button" value="Buscar Documentos" class=BotonBlanco onClick="enviar_datos(formita)">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -->
</td>
</tr></table>
</CENTER>
</FORM>

<!-- #####################################################################################################  -->
pagina
;
&cierrePagina;