\n| \n";
font('+2');
echo "$titulo \n";
echo " | \n";
echo "\n\n";
echo "\n\n| \n";
font('-1');
if ($url != "http://") {
echo "$url";
}
echo " | \n\n";
font('-2');
echo "$tipo\n | \n \n \n";
echo " | \n
\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 = "$text";
}
return $$label;
}
function field($label, $field) {
if (strlen($field) > 0 && $field != "0") {
if ($label) {
echo "\n| \n";
font('-2');
echo "$label:\n | \n";
} else {
echo " |
\n| \n";
}
font('-1');
echo "$field | \n
\n\n";
}
}
function title($label) {
echo "\n\n";
font('+1');
echo "$label\n
\n | \n
\n\n";
}
function field_half($label, $end='si') {
if ($end == "si") {
echo "\n\n\n";
}
echo "\n| \n";
font('-2');
echo "$label:\n | \n";
font('-1');
}
function multi($field, $label) {
GLOBAL $lang, $pin, $conn, $PHP_SELF;
if ($field == "palabra_clave") {
$query = "SELECT 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 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) {
field_half($label);
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 "$get_pc[0]";
} 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 "$get_pc[0]";
}
}
if ($p < pg_numrows($exec) - 1) {
echo ", ";
}
}
}
}
$break = " |
|
\n\n";
$break_hr = "
|
\n\n";
// matrix color
if (!$pin) {
$error = "Vous avez oublié le PIN de la référence. Retourner à la page principale.";
} else {
$query = "SELECT p.pin, p.titulo_$lang, lc.tipo_$lang, p.tipo_id, lt.tematica_$lang, p.tematica_id,";
$query .= " lr.relevancia_$lang,";
$query .= " la.categoria_$lang, p.categoria_id,";
$query .= " ln.naturaleza_$lang, p.naturaleza_id,";
$query .= " p.descripcion_$lang, p.region_id, lp.region_$lang,";
$query .= " p.url, p.fecha_introduccion, p.fecha_modificacion, p.fecha_publicacion, p.fecha_evaluacion,";
$query .= " p.evaluacion_descripcion, p.evaluacion_evaluacion, p.evaluacion_diseno, p.evaluacion_meta,";
$query .= " p.evaluacion_organisacion";
$query .= " FROM principal p, lista_tematica lt,";
$query .= " lista_relevancia lr, lista_tipo lc,";
$query .= " lista_categoria la, lista_naturaleza ln,";
$query .= " lista_region lp";
$query .= " WHERE p.revisada != 'no' AND lt.tematica_id=p.tematica_id";
$query .= " AND lc.tipo_id=p.tipo_id";
$query .= " AND lr.relevancia_id=p.relevancia_id";
$query .= " AND la.categoria_id=p.categoria_id AND ln.naturaleza_id=p.naturaleza_id";
$query .= " AND lp.region_id=p.region_id";
$query .= " AND p.pin=$pin";
$exec = pg_exec($conn, $query);
if (pg_numrows($exec) == 0) {
$error = "Il n'y a pas de référence avec ce PIN.";
}
}
if ($error) {
echo "$error";
echo "METASITE CARIBTIC\n";
echo "
\n";
} else {
// start table
echo "\n\n";
// get general data
$get = pg_fetch_row($exec, 0);
$pin = $get[0];
$titulo = $get[1];
$tipo = $get[2];
$tipo_id = $get[3];
$tematica = $get[4];
$tematica_id = $get[5];
$relevancia = $get[6];
$categoria = $get[7];
$categoria_id = $get[8];
$naturaleza = $get[9];
$naturaleza_id = $get[10];
$descripcion = $get[11];
$region_id = $get[12];
$region = $get[13];
$url = $get[14];
$fecha_introduccion = $get[15];
$fecha_modificacion = $get[16];
$fecha_publicacion = $get[17];
$fecha_evaluacion = $get[18];
$evaluacion_descripcion = $get[19];
$evaluacion_evaluacion = $get[20];
$evaluacion_diseno = $get[21];
$evaluacion_meta = $get[22];
$evaluacion_organisacion = $get[23];
$descripcion = ucfirst($descripcion);
$url = str_replace("\"", "", $url);
// show head
head();
echo $break;
field("", $descripcion);
echo $break;
// show body
//field_half("Langue(s)");
multi("lengua", "Langue(s)");
echo "\n\n\n";
field("Date de mise en ligne
(MM-JJ-AAAA)", $fecha_publicacion);
// show categorizacion
echo $break;
title("Catégorisation");
//field_half("Mots clefs", "no");
multi("palabra_clave", "Mots clefs");
field_half("Theème");
echo "$tematica \n";
field_half("Nature");
echo "$naturaleza \n";
field_half("Région/pays");
echo "$region\n";
field_half("Editeur");
echo "$categoria \n";
echo "\n\n\n";
field("Degré de pertinence", $relevancia);
// show evaluacion
echo $break;
if ($evaluacion_descripcion != "0" || $evaluacion_evaluacion != "0" || $evaluacion_diseno != "0" || $evaluacion_organisacion != "0" || $evaluacion_meta != "0") {
$title = "Evaluation de type Argus (échelle 1-5)";
title($title);
field("Date d'évaluation", $fecha_evaluacion);
field("Niveau de description", $evaluacion_descripcion);
field("Valeur de la ressource", $evaluacion_evaluacion);
field("Nivel de design", $evaluacion_diseno);
field("Nivel d'organisation", $evaluacion_organisacion);
field("Information méta", $evaluacion_meta);
}
// show make and modify dates
echo $break;
echo $break_hr;
field("Date d'entrée dans le métasite", $fecha_introduccion);
field("Dernière modification", $fecha_modificacion);
// end table
echo "
\n\n";
font('-2');
echo "\n";
echo "Erreurs ou corrections? Avisez-nous à ";
echo "$adminmail\n";
echo "\n";
}
?>