<?php trim("header.txt"); 

function head() {
	GLOBAL $titulo, $url, $relevancia, $tipo_es, $main_color;
	echo "<tr>\n<td valign=top colspan=2>\n";
	font('+2');
	echo "<b>$titulo</b> \n";
	echo "</td>\n</tr>";
	echo "<tr>\n<td colspan=2>\n";
	
	echo "<table border=0 bgcolor=\"$main_color\" cellpadding=2 cellspacing=0 width=100%>\n<tr>\n<td>\n";
	font('-1');
	if ($url != "http://") {
		echo "<a href=\"$url\">$url</a>";
	}
	echo "</td>\n<td align=right>\n";
	font('-2');
	echo "<b>$tipo_es</b>\n</td>\n</tr>\n</table>\n";
	
	echo "</td>\n</tr>\n\n";
}

function check_vacia($id, $text, &$label) {
	GLOBAL $conn, $PHP_SELF, $$label;
	$query = pg_exec($conn, "SELECT vacia FROM principal WHERE pin='$id' AND vacia='si'");
	if (pg_numrows($query) != 0) {
		$$label = $text;
	} else {
		$$label = "<a href=\"".$PHP_SELF."?pin=$id\">$text</a>";
	}
	return $$label;	
}

function field($label, $field) {
	if (strlen($field) > 0) {
		if ($label) {
			echo "<tr>\n<td width=175>\n";
			font('-2');
			echo "<b>$label:</b>\n</td>\n<td>";
		} else {
			echo "<tr>\n<td colspan=2>\n";
		}
		font('-1');
		echo "$field </td>\n</tr>\n\n";
	}
}

function title($label) {
	echo "<tr>\n<td colspan=2>\n";
	font('+1');
	echo "<b>$label</b>\n<hr>\n</td>\n</tr>\n\n";	
}

function field_half($label, $end='si') {
	if ($end == "si") {
		echo "</td>\n</tr>\n\n";
	}
	echo "<tr>\n<td>\n";
	font('-2');
	echo "<b>$label:</b>\n</td>\n<td>";
	font('-1');
}

function multi($field) {
	GLOBAL $lang, $pin, $conn, $PHP_SELF;
	if ($field == "palabra_clave") {
		$query = "SELECT distinct l.palabra_clave_$lang, j.palabra_clave_id FROM ";
		$query .= "lista_palabra_clave l, join_palabra_clave j WHERE ";
		$query .= "l.palabra_clave_id=j.palabra_clave_id AND j.pin='$pin'";
	}
	if ($field == "lengua") {
		$query = "SELECT l.lengua_$lang FROM lista_lengua l, join_lengua j WHERE l.lengua_id=j.lengua_id AND j.pin='$pin'";
	}
	if ($field == "colaborador_institucion") {
		$query = "SELECT p.titulo_$lang, j.colaborador_institucion_pin FROM principal p, join_colaboradores j";
		$query .= " WHERE j.proyecto_pin=$pin AND p.pin=j.colaborador_institucion_pin";
	}
	if ($field == "financiador_institucion") {
		$query = "SELECT p.titulo_$lang, j.financiador_institucion_pin FROM principal p, join_financiadores j";
		$query .= " WHERE j.proyecto_pin=$pin AND p.pin=j.financiador_institucion_pin";
	}
	$exec = pg_exec($conn, $query);
	if (pg_numrows($exec) != 0) {
		for ($p = 0 ; $p < pg_numrows($exec) ; $p++) {
			$get_pc = pg_fetch_row($exec, $p);
			if ($field == "lengua") {
				echo $get_pc[0];
			} else if ($field == "palabra_clave") {
				echo "<a href=\"indice.php3?palabra_clave_id=$get_pc[1]\">$get_pc[0]</a>";
			} else {
				$query = pg_exec($conn, "SELECT vacia FROM principal WHERE pin='$get_pc[1]' AND vacia='si'");
				if (pg_numrows($query) != 0) {
					echo $get_pc[0];
				} else {
					echo "<a href=\"".$PHP_SELF."?pin=$get_pc[1]\">$get_pc[0]</a>";
				}
			}
			if ($p < pg_numrows($exec) - 1) {
				echo ", ";
			}
		}
	}
	
}

$break = "<tr><td colspan=2>&nbsp;<br></td></tr>\n\n";
$break_hr = "<tr><td colspan=2><hr></td></tr>\n\n";

	
// matrix color


if (!$pin) {
	$error = "Se le olvid&oacute; el pin de la referencia.  Favor volver a la p&aacutegina principal.";
} else {
	$query = "SELECT p.pin, p.titulo_$lang, p.descripcion_$lang, p.tipo_id, lt.tipo_$lang, p.url";
	$query .= ", ltp.tematica_principal_$lang, ltt.tematica_transversal_$lang, lr.relevancia_$lang, lg.region_$lang";
	$query .= ", p.fecha_introduccion, p.fecha_modificacion, p.tematica_principal_id, p.tematica_transversal_id";
	$query .= ", p.region_id";
	$query .= " FROM principal p, lista_tipo lt, lista_tematica_principal ltp, lista_tematica_transversal ltt";
	$query .= ", lista_relevancia lr, lista_region lg";
	$query .= " WHERE pin='$pin' AND lt.tipo_id=p.tipo_id AND lr.relevancia_id=p.relevancia_id";
	$query .= " AND lg.region_id=p.region_id AND ltp.tematica_principal_id=p.tematica_principal_id";
	$query .= " AND ltt.tematica_transversal_id=p.tematica_transversal_id";
	$exec = pg_exec($conn, $query);
	if (pg_numrows($exec) == 0) {
		$error = "No existe una referencia con aqu&eacute;l PIN.";
	}
}

if ($error) {
	echo "<center><b>$error</b><p>";
	echo "<a href=\"$siteurl\">METASITIO MISTICA</a>\n";
	echo "</center>\n";
} else {
	// start table
		echo "<table border=0 cellpadding=2 cellspacing=0 width=100%>\n\n";
		
	// get general data
		$get = pg_fetch_row($exec, 0);
		$pin = $get[0];
		$titulo = $get[1];
		$descripcion = $get[2];
		$tipo_id = $get[3];
		$tipo_es = $get[4];
		$url = $get[5];
		$tematica_principal = $get[6];
		$tematica_transversal = $get[7];
		$relevancia = $get[8];
		$region = $get[9];
		$fecha_introduccion = $get[10];
		$fecha_modificacion = $get[11];
		$tematica_principal_id = $get[12];
		$tematica_transversal_id = $get[13];
		$region_id = $get[14];
		
		$descripcion = ucfirst($descripcion);
		$url = str_replace("\"", "", $url);

	// show head
		head();
		echo $break;	
		field("", $descripcion);
		echo $break;
	
	// get data dependent upon tipo_id
		if ($tipo_id == 1) {
			$query1 = "SELECT pb.autor_principal_persona_pin, p.titulo_$lang, li.institucion_tipo_$lang";
			$query1 .= ", pb.editor_$lang, pb.fecha_publicacion, pb.evaluacion_fecha";
			$query1 .= ", len.evaluacion_nota_$lang, lee.evaluacion_enfoque_$lang";
			$query1 .= " FROM principal_bibliografia pb, principal p, lista_institucion_tipo li";
			$query1 .= ", lista_evaluacion_nota len, lista_evaluacion_enfoque lee";
			$query1 .= " WHERE p.pin=pb.autor_principal_persona_pin AND pb.pin='$pin'";
			$query1 .= " AND li.institucion_tipo_id=pb.institucion_tipo_id";
			$query1 .= " AND len.evaluacion_nota_id=pb.evaluacion_nota_id AND lee.evaluacion_enfoque_id=pb.evaluacion_enfoque_id";
			
			$exec1 = pg_exec($conn, $query1);
			if (pg_numrows($exec1) != 0) {
				$get1 = pg_fetch_row($exec1, 0);
				$autor_principal = $get1[1];
				$autor_principal_id = $get1[0];
				$institucion_tipo = $get1[2];
				$editor = $get1[3];
				$fecha_publicacion = $get1[4];
				$evaluacion_fecha = $get1[5];
				$evaluacion_nota = $get1[6];
				$evaluacion_enfoque = $get1[7];

				$var = "autor_principal";
				check_vacia($autor_principal_id, $autor_principal, $var);
				field("Autor principal", $autor_principal);
				field("Tipo de instituci&oacute;n del autor", $institucion_tipo);
				field("Editor", $editor);
				field("Fecha de publicaci&oacute;n", $fecha_publicacion);
		
			}
		
		} else if ($tipo_id == 2) {
		
			$query1 = "SELECT pm.autor_principal_persona_pin, p.titulo_$lang, li.institucion_tipo_$lang";
			$query1 .= ", pm.editor_$lang, pm.fecha_publicacion, pm.evaluacion_descripcion";
			$query1 .= ", pm.evaluacion_evaluacion, pm.evaluacion_diseno, pm.evaluacion_organisacion";
			$query1 .= ", pm.evaluacion_meta";
			$query1 .= " FROM principal_meta pm, principal p, lista_institucion_tipo li";
			$query1 .= " WHERE p.pin=pm.autor_principal_persona_pin AND pm.pin='$pin'";
			$query1 .= " AND li.institucion_tipo_id=pm.institucion_tipo_id";

			$exec1 = pg_exec($conn, $query1);
			if (pg_numrows($exec1) != 0) {
				$get1 = pg_fetch_row($exec1, 0);
				$autor_principal = $get1[1];
				$autor_principal_id = $get1[0];
				$institucion_tipo = $get1[2];
				$editor = $get1[3];
				$fecha_publicacion = $get1[4];
				$evaluacion_descripcion = $get1[5];
				$evaluacion_evaluacion = $get1[6];
				$evaluacion_diseno = $get1[7];
				$evaluacion_organisacion = $get1[8];
				$evaluacion_meta = $get1[9];

				$var = "autor_principal";
				check_vacia($autor_principal_id, $autor_principal, $var);
				field("Autor principal", $autor_principal);
				field("Tipo de instituci&oacute;n del autor", $institucion_tipo);
				field("Editor", $editor);
				field("Fecha de publicaci&oacute;n", $fecha_publicacion);
			} else {
				$query2 = "SELECT pm.evaluacion_descripcion";
				$query2 .= ", pm.evaluacion_evaluacion, pm.evaluacion_diseno, pm.evaluacion_organisacion";
				$query2 .= ", pm.evaluacion_meta";
				$query2 .= " FROM principal_meta pm WHERE pm.pin='$pin'";
				$exec2 = pg_exec($conn, $query2);
				if (pg_numrows($exec2) != 0) {
					$get2 = pg_fetch_row($exec2, 0);
					$evaluacion_descripcion = $get2[0];
					$evaluacion_evaluacion = $get2[1];
					$evaluacion_diseno = $get2[2];
					$evaluacion_organisacion = $get2[3];
					$evaluacion_meta = $get2[4];
				}
			}
			
		} else if ($tipo_id == 3) {
		
			$query1 = "SELECT pp.apellido, pp.nombre, pp.direccion_electronica, pp.direccion_lugar";
			$query1 .= ", pp.trabajo_institucion_pin, pp.miembro_mistica, p.titulo_$lang";
			$query1 .= " FROM principal_persona pp, principal p";
			$query1 .= " WHERE pp.trabajo_institucion_pin=p.pin AND pp.pin=$pin";
			
			$query2 = "SELECT pp.apellido, pp.nombre, pp.direccion_electronica, pp.direccion_lugar";
			$query2 .= ", pp.miembro_mistica";
			$query2 .= " FROM principal_persona pp";
			$query2 .= " WHERE pp.pin=$pin";

			$exec1 = pg_exec($conn, $query1);
			if (pg_numrows($exec1) == 0) {
				$exec2 = pg_exec($conn, $query2);
				if (pg_numrows($exec2) != 0) {
					$get1 = pg_fetch_row($exec2, 0);
					$apellido = $get1[0];
					$nombre = $get1[1];
					$direccion_electronica = $get1[2];
					$direccion_lugar = $get1[3];
					$trabajo_institucion_pin = "";
					$miembro_mistica = $get1[4];
					$trabajo_institucion = "";
			}
			} else {
				$get1 = pg_fetch_row($exec1, 0);
				$apellido = $get1[0];
				$nombre = $get1[1];
				$direccion_electronica = $get1[2];
				$direccion_lugar = $get1[3];
				$trabajo_institucion_pin = $get1[4];
				$miembro_mistica = $get1[5];
				$trabajo_institucion = $get1[6];
			}
			if ($get1) {
				
				$fullname = "$nombre $apellido";
				$email = "<a href=\"mailto:$direccion_electronica\">$direccion_electronica</a>";
				$var = "trabajo";
				check_vacia($trabajo_institucion_pin, $trabajo_institucion, $var);
				if ($miembro_mistica == "1") {
					$mistica = "s&iacute;";
				} else {
					$mistica = "no";
				}
				
				field("Nombre", $fullname);
				field("Direcci&oacute;n electr&oacute;nica", $email);
				field("Direcci&oacute;n f&iacute;sica", $direccion_lugar);
				field("Instituci&oacute;n de trabajo", $trabajo);
				field("Miembro de MISTICA", $mistica);
				
			}
			
		
		} else if ($tipo_id == 4) {
		
			$query1 = "SELECT pi.director_persona_pin, p.titulo_$lang, pi.direccion_electronica";
			$query1 .= ", pi.direccion_lugar, li.institucion_tipo_$lang";
			$query1 .= " FROM principal_institucion pi, principal p, lista_institucion_tipo li";
			$query1 .= " WHERE p.pin=pi.director_persona_pin AND li.institucion_tipo_id=pi.institucion_tipo_id AND pi.pin=$pin";
			
			$exec1 = pg_exec($conn, $query1);
			if (pg_numrows($exec1) != 0) {
				$get1 = pg_fetch_row($exec1, 0);
				$director_persona_pin = $get1[0];
				$director_persona = $get1[1];
				$direccion_electronica = $get1[2];
				$direccion_lugar = $get1[3];
				$institucion_tipo = $get1[4];

				//$director = "<a href=\"".$PHP_SELF."?pin=$director_persona_pin\">$director_persona</a>";				
				$email = "<a href=\"mailto:$direccion_electronica\">$direccion_electronica</a>";
				$var = "director";
				check_vacia($director_persona_pin, $director_persona, $var);
			
				field("Nombre directivo", $director);
				field("Direcci&oacute;n electr&oacute;nica", $email);
				field("Direcci&oacute;n f&iacute;sica", $direccion_lugar);
				field("Tipo de instituci&oacute;n", $institucion_tipo);
				
				
			}
			
		} else if ($tipo_id == 5) {
		
			$query1 = "SELECT pp.coordenador_institucion_pin, p.titulo_$lang, le.enfoque_$lang";
			$query1 .= ", pp.fecha_inicio, pp.fecha_fin";
			$query1 .= " FROM principal_proyectos pp, principal p, lista_enfoque le";
			$query1 .= " WHERE pp.coordenador_institucion_pin=p.pin AND le.enfoque_id=pp.enfoque_id AND pp.pin=$pin";
			
			$query2 = "SELECT le.enfoque_$lang";
			$query2 .= ", pp.fecha_inicio, pp.fecha_fin";
			$query2 .= " FROM principal_proyectos pp, lista_enfoque le";
			$query2 .= " WHERE le.enfoque_id=pp.enfoque_id AND pp.pin=$pin";

			//$exec1 = pg_exec($conn, $query1);
			$exec1 = pg_exec($conn, $query1);
			if (pg_numrows($exec1) == 0) {
				$exec2 = pg_exec($conn, $query2);
				if (pg_numrows($exec2) != 0) {
					$get1 = pg_fetch_row($exec2, 0);
					$coordenador_institucion_pin = "";
					$coordenador_institucion = "";
					$enfoque = $get1[0];
					$inicio = $get1[1];
					$fin = $get1[2];
			}
			} else {
				$get1 = pg_fetch_row($exec1, 0);
				$coordenador_institucion_pin = $get1[0];
				$coordenador_institucion = $get1[1];
				$enfoque = $get1[2];
				$inicio = $get1[3];
				$fin = $get1[4];
			}
			if ($get1) {
				
				   $get1 = pg_fetch_row($exec1, 0);
				$coordenador_institucion_pin = $get1[1];
				$coordenador_institucion = $get1[2];
				$enfoque = $get1[3];
				$inicio = $get1[4];
				$fin = $get1[5];
				$var = "coordenador";
				check_vacia($coordenador_institucion_pin, $coordenador_institucion, $var);
				//$coordenador = "<a href=\"".$PHP_SELF."?pin=$coordenador_institucion_pin\">$coordenador_institucion</a>";				
				
				field("Instituci&oacute;n coordenadora", $coordenador);
				field_half("Instituciones colaboradoras");
				multi("colaborador_institucion");
				echo "</td>\n</tr>\n\n";
				field_half("Instituciones financiadoras");
				multi("financiador_institucion");
				echo "</td>\n</tr>\n\n";
				field("Enfoque principal", $enfoque);
				field("Fecha del inicio", $inicio);
				field("Fecha prevista del fin", $fin);
			}
			
		} else if ($tipo_id == 6) {
		
			$query1 = "SELECT pe.responsable_persona_pin, p.titulo_$lang, li.institucion_tipo_$lang";
			$query1 .= ", pe.fecha_publicacion, pe.url_productos";
			$query1 .= " FROM principal_eventos pe, principal p, lista_institucion_tipo li";
			$query1 .= " WHERE pe.responsable_persona_pin=p.pin AND pe.pin=$pin AND li.institucion_tipo_id=pe.institucion_tipo_id";
			
			$query2 = "SELECT pe.patrocinador_persona_pin, p.titulo_$lang";
			$query2 .= " FROM principal_eventos pe, principal p";
			$query2 .= " WHERE pe.patrocinador_persona_pin=p.pin AND pe.pin=$pin";
			
			$query3 = "SELECT pe.patrocinador_institucion_pin, p.titulo_$lang";
			$query3 .= " FROM principal_eventos pe, principal p";
			$query3 .= " WHERE pe.patrocinador_institucion_pin=p.pin AND pe.pin=$pin";
			
			$exec1 = pg_exec($conn, $query1);
			$exec2 = pg_exec($conn, $query2);
			$exec3 = pg_exec($conn, $query3);

			if (pg_numrows($exec1) != 0) {
				$get1 = pg_fetch_row($exec1, 0);
				$responsable_persona_pin = $get1[0];
				$responsable_persona = $get1[1];
				$institucion_tipo = $get1[2];
				$fecha_publicacion = $get1[3];
				$url_productos = $get1[4];
				
				$url_productos = str_replace("\"", "", $url_productos);

				
				$var = "responsable";
				check_vacia($responsable_persona_pin, $responsable_persona, $var);
				$url_productos = "<a href=\"$url_productos\">$url_productos</a>";
			}
			if (pg_numrows($exec2) != 0) {
				$get2 = pg_fetch_row($exec2, 0);
				$patrocinador_persona_pin = $get2[0];
				$patrocinador_persona = $get2[1];
				$var = "patrocinador_p";
				check_vacia($patrocinador_persona_pin, $patrocinador_persona, $var);
				
			}
			if (pg_numrows($exec3) != 0) {
				$get3 = pg_fetch_row($exec3, 0);
				$patrocinador_institucion_pin = $get3[0];
				$patrocinador_institucion = $get3[1];
				$var = "patrocinador_i";
				check_vacia($patrocinador_institucion_pin, $patrocinador_institucion, $var);
			}		
				field("Responsable principal", $responsable);
				field("Tipo de instituci&oacute;n", $institucion_tipo);
				field("Patrocinadores principales (personas)", $patrocinador_p);
				field("Patrocinadores principales (instituci&oacute;n)", $patrocinador_i);
				field("Fecha de publicaci&oacute;n", $fecha_publicacion);
				field("URL de los productos", $url_productos);
			
		}

	// show body
		field_half("Idioma(s)");
		multi("lengua");
		echo "</td>\n</tr>\n\n";

	
	// show categorizacion
	
		
		echo $break;
		title("Categorizaci&oacute;n");
		
		field_half("Palabras claves", "no");
		multi("palabra_clave");
		
		field_half("Tem&aacute;tica");
		echo "<a href=\"indice.php3?tematica_principal_id=$tematica_principal_id\">$tematica_principal</a> \n";
		echo ">> \n";
		echo "<a href=\"indice.php3?tematica_transversal_id=$tematica_transversal_id\">$tematica_transversal</a> \n";
				
		field_half("Regi&oacute;n de relevancia");
		echo "<a href=\"indice.php3?region_id=$region_id\">$region</a>\n";
		echo "</td>\n</tr>\n\n";
		
		field("Relevancia al tema", $relevancia);
		
	
	// show evaluacion
	
		if ($tipo_id == 1) {
			echo $break;
			title("Evaluaci&oacute;n");
			field("Fecha de evaluaci&oacute;n", $evaluacion_fecha);
			field("Nota", $evaluacion_nota);
			field("Enfoque", $evaluacion_enfoque);
		}
		if ($tipo_id == 2) {
			echo $break;
			$title = "Evaluaci&oacute;n de tipo <a href=\"http://www.clearinghouse.net/ratings.html\">Argus</a>";
			title($title);
			field("Nivel de descripci&oacute;n", $evaluacion_descripcion);
			field("Nivel de evaluaci&oacute;n", $evaluacion_evaluacion);
			field("Dise&ntilde;o", $evaluacion_diseno);
			field("Organisaci&oacute;n", $evaluacion_organisacion);
			field("Meta-informaci&oacute;n", $evaluacion_meta);
		}
	
	// show make and modify dates
	
		
		echo $break;
		echo $break_hr;
		field("Fecha de introducci&oacute;n", $fecha_introduccion);
		field("Fecha de modificaci&oacute;n", $fecha_modificacion);
	
	// end table
		echo "</table>\n\n";

}
?>
	

<?php include("footer.txt"); ?>