<?
# poll-interface.inc - Poll interface functions
# Derechos Reservados (c) 2001-2002 Sandino Araico Sánchez
# Derechos Reservados (c) 2001-2002 Presidencia de la República
# Copyright (c) 2001-2002 Sandino Araico Sánchez All rights reserved

/*
 * --COMIENZA LICENCIA EN ESPAÑOL MEXICANO-------------------------------------
 * Por éste medio se otroga permiso, libre de cargo, a cualquier persona que
 * obtenga una copia de este software y archivos de documentación asociados
 * (el "Software"), a utilizar el Software sin restricción, incluyendo sin 
 * limitación los derechos de usar, copiar, modificar, unir, publicar, 
 * distribuir y/o vender copias de el Software, y permitir lo mismo a personas 
 * a quienes les sea entregado el software, siempre y cuando los avisos de 
 * Derechos reservados y Copyright que aparecen arriba y éste permiso (en 
 * español y en inglés) aparezcan en todas las copias de el Software y que 
 * tanto los avisos de Derechos reservados y Copyright que aparecen arriba como
 * éste permiso (en español y en inglés) aparezcan en la documentación de
 * soporte.
 *
 * ESTE SOFTWARE SE PROVEE "TAL CUAL", SIN NINGUNA GARANTÍA DE NINGÚN TIPO,
 * EXPRESA O IMPLÍCITA, INCLUYENDO PERO NO LIMITÁNDOSE A LAS GARANTÍAS DE
 * MERCANTIBILIDAD, ADECUACIÓN PARA UN PROPÓSITO EN PARTICULAR Y NO 
 * INFRACCIÓN DE LOS DERECHOS DE TERCERAS PARTES. EN NINGÚN MOMENTO EL O LOS 
 * TITULARES DE LOS DERECHOS DE AUTOR Y COPYRIGHT INCLUIDOS EN ESTE AVISO SERÁN
 * RESPONSABLES POR CUALQUIER RECLAMACIÓN O POR CUALQUIER DAÑO ESPECIAL,
 * INDIRECTO O CONSECUENTE, O CUALQUIER DAÑO QUE RESULTE DE LA PÉRDIDA DE USO,
 * DATOS O GANANCIAS, YA SEA EN UNA ACCIÓN DE CONTRATO, NEGLIGENCIA U OTRA 
 * ACCIÓN TORTUORIA, RESULTANTE DE O EN CONEXIÓN CON EL USO O DESEMPEÑO DE
 * ESTE SOFTWARE.
 *
 * Excepto que se incluya en éste aviso, no se debe usar el nombre de ningún 
 * titular de Derechos de autor o Copyright en publicidad o de otra manera 
 * psra promover la venta, uso u otros tratos en este Software sin previa 
 * autorización por escrito del titular de Derechos de autor o Copyright.
 * --TERMINA LICENCIA----------------------------------------------------------
 *
 * --BEGIN LICENSE IN US ENGLISH-----------------------------------------------
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the
 * "Software"), to deal in the Software without restriction, including
 * without limitation the rights to use, copy, modify, merge, publish,
 * distribute, and/or sell copies of the Software, and to permit persons
 * to whom the Software is furnished to do so, provided that the above
 * copyright and "Derechos reservados" notices and this permission notice  
 * (in spanish and english) appear in all copies of the Software and that both 
 * the above copyright and "Derechos reservados" notices and this permission 
 * notice (in spanish and english) appear in supporting documentation.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT
 * OF THIRD PARTY RIGHTS. IN NO EVENT SHALL THE COPYRIGHT AND "DERECHOS DE 
 * AUTOR" HOLDER OR HOLDERS INCLUDED IN THIS NOTICE BE LIABLE FOR ANY CLAIM, OR 
 * ANY SPECIAL INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER 
 * RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF 
 * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN 
 * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 * 
 * Except as contained in this notice, the name of a copyright or "Derechos de
 * autor" holder shall not be used in advertising or otherwise to promote the
 * sale, use or other dealings in this Software without prior written 
 * authorization of the copyright or "Derechos de autor" holder.
 * --END LICENSE---------------------------------------------------------------
 */
 
# Changelog: 
# 2001-09-17 Sandino Araico Sánchez <sandino@sandino.net>
#	Pegamento de polls de HOPP para Ascend
# 2001-09-25 Sandino Araico Sánchez <sandino@sandino.net>
#	Desascendificación de la librería
# 2001-10-01 Sandino Araico Sánchez <sandino@sandino.net>
#	Fixed old caché bug
#	Independized votes submision process
#	Results
# 2001-10-03 Sandino Araico Sánchez <sandino@sandino.net>
# 	h_poll_results()
# 2001-11-20 Sandino Araico Sánchez <sandino@sandino.net>
# 	Fixed h_poll_submit_votes(), avoid multiple votes
# 2002-03-27 Sandino Araico Sánchez <sandino@sandino.net>
# 	Renamed poll-glue to poll-interface
	/* 	poll-interface is no longer a glue. It containes the functions to be 
	 *	called from poll applications and poll glues so there's no need to 
	 *	call lower level functions from poll-core.
	 *	Functions' parameters and names in this file should be KISS.
	 */
	 // Perhaps poll-api is a better name, but, who cares?
# 2002-04-01 Sandino Araico Sánchez <sandino@sandino.net>
#	more show/hide criteria	 

if(!defined("__H_POLL_INTERFACE"))
{
define("__H_POLL_INTERFACE",1);
#------------------------------------------------------------------------------
if(!defined('__H_POLL_SHOW_RESULTS'))
	define ('__H_POLL_SHOW_RESULTS',1);
include __HOPP_INCLUDE_PATH."poll/poll-core.inc";
#------------------------------------------------------------------------------
function h_poll($id=0, $template_name="poll")
{
	print h_poll_get_poll($id, $template_name);
}

function h_poll_results($id=0, $template_name="poll")
{
	$id=hopp_db_connected($id);
	print h_poll_get_results($id, $template_name);
}

function h_poll_get_poll($id=0, $template_name="poll")
{
	$id=hopp_db_connected($id);
	global $H_PLL_SUBMIT;
	#s_log("H_PLL_SUBMIT: $H_PLL_SUBMIT");
	if(!empty($H_PLL_SUBMIT))
		h_poll_submit_votes($id);
	$galleta=h_poll_set_cookie($id, __H_POLL_KEY);
	#s_log("galleta: $galleta");
	return h_poll_get_table($id, $galleta, $template_name);
}

function h_poll_submit_votes($id, $galleta='', $KEY=0, $SPAN=0)
{
	if(empty($KEY))
		$KEY=__H_POLL_KEY;
	if(empty($SPAN))	
		$SPAN=__H_POLL_SPAN;
	if(empty($galleta))
		$galleta=h_poll_get_cookie($KEY);

	$span=$KEY+$SPAN;
	$comment=h_poll_get_comment();
	hopp_db_start_transaction($id);
	if(!empty($comment))
		h_poll_put_comment($id, $galleta, $KEY, $comment);
	for($i=$KEY;$i<$span;$i++)
	{
		h_poll_put_votes($id, $galleta, $i);
	}
	hopp_db_end_transaction($id);
}

function h_poll_get_table($id, $galleta, $template_name="poll", $KEY=0, $SPAN=0, $form_submit=0)
{
	if(empty($KEY))
		$KEY=__H_POLL_KEY;
	if(empty($SPAN))
		$SPAN=__H_POLL_SPAN;
	#s_log("cookie: $galleta");
	if(h_poll_used_cookie($id, $galleta))
	{
		#s_log("Used cookie: $galleta");
		if($SPAN>1)
			return h_poll_get_processed_table($id, $galleta, $KEY, $SPAN, $template_name, $form_submit);
		else if (__H_POLL_SHOW_RESULTS)
			return h_poll_get_results($id, $template_name, $KEY, $SPAN, $form_submit);
		else
			return;
	}	
	else
		return h_poll_get_cached_table($id, $galleta, $template_name, $KEY, $SPAN, $form_submit);
}

function h_poll_get_comment_table($id, $replace, $template_name="poll", $KEY=0)
{
	if(!defined('__H_POLL_SHOW_SUBMIT'))	
		define('__H_POLL_SHOW_SUBMIT',1);
	if(empty($KEY))
		$KEY=__H_POLL_KEY;
	global $SERVER_NAME;
	if(empty($KEY))
		$KEY=__H_POLL_KEY;
	$doc_id_string="$SERVER_NAME:$template_name:POLL-COMMENT:$KEY";
	#s_log("doc_id_string: $doc_id_string");
	$doc_include=hopp_get_local_doc_array_from_cache($doc_id_string , __H_POLL_CACHE_TTL);
	if(empty($doc_include))
	{
		if(empty($replace))
		{
			global $SCRIPT_NAME;
			$replace=array(
				'#####SCRIPT_NAME#####' => $SCRIPT_NAME,
				'#####KEY#####' => "comment-$KEY"
			);	
		}
		$doc_include=h_template_get_parsed_file($template_name."-comment", $replace, 1);	
		$doc_put=hopp_put_local_doc_array_into_cache($doc_id_string, $doc_include);
	}
	return $doc_include;
}

function h_poll_get_results($id, $template_name, $KEY=0, $SPAN=0)
{
	global $SERVER_NAME;
	if(empty($KEY))
		$KEY=__H_POLL_KEY;
	if(empty($SPAN))	
		$SPAN=__H_POLL_SPAN;
	$doc_id_string="$SERVER_NAME:$template_name:POLL-RESULT:$KEY:$SPAN";
	##s_log("doc_id_string: $doc_id_string");
	$doc_include=hopp_get_local_doc_array_from_cache($doc_id_string , __H_POLL_RESULTS_CACHE_TTL);
	if(empty($doc_include))
	{
		$doc_include=h_poll_get_processed_results($id, $KEY, $SPAN, $template_name);
		$doc_put=hopp_put_local_doc_array_into_cache($doc_id_string, $doc_include);
	}
	return $doc_include;

}

function h_poll_get_comment_results($id, $replace, $template_name, $KEY)
{
	global $SERVER_NAME;
	if(empty($KEY))
		$KEY=__H_POLL_KEY;
	$doc_id_string="$SERVER_NAME:$template_name:POLL-RESULT-COMMENT:$KEY";
	s_log("doc_id_string: $doc_id_string");
	$doc_include=hopp_get_local_doc_array_from_cache($doc_id_string , __H_POLL_RESULTS_CACHE_TTL);
	if(empty($doc_include))
	{
		if(!is_array($replace))
		{
			global $SCRIPT_NAME;
			$replace=array(
				'#####SCRIPT_NAME#####' => $SCRIPT_NAME,
				'#####KEY#####' => "$KEY"
			);	
		}
		$doc_include=h_template_get_parsed_file($template_name."-comment_result", $replace, 1);	
		$doc_put=hopp_put_local_doc_array_into_cache($doc_id_string, $doc_include);
	}
	return $doc_include;

}

function h_poll_comments($id, $KEY, $template_name="poll")
{
	$sql="select pll_com_txt from h_poll_comment where pll_com_poll = $KEY";
	#s_log("sql: $sql");
	$res_pre=hopp_db_get_multi_row_array_result($id, $sql);
	if(!is_array($res_pre))
		return;
	$list='';
	foreach ($res_pre as $value)
	{
		#s_log ("value:".$value['pll_com_txt']);
		$replace=array('####ITEM#####' => $value['pll_com_txt']);
		$list.=h_template_get_parsed_file($template_name."-list_row", $replace, 1);
	}
	return $list;
}

#------------------------------------------------------------------------------
#------------------------------------------------------------------------------
} //__H_POLL_INTERFACE
?>