\n\n"; } else { if ($pin && !$tipo_id) { $query_tipo_id = pg_exec($conn, "SELECT tipo_id FROM principal WHERE pin=$pin"); $get_tipo_id = pg_fetch_row($query_tipo_id, 0); $tipo_id = $get_tipo_id[0]; } if (!$tipo_fr) { $query_tipo_fr = pg_exec($conn, "SELECT tipo_$lang FROM lista_tipo WHERE tipo_id=$tipo_id"); $get_tipo_fr = pg_fetch_row($query_tipo_fr, 0); $tipo_fr = $get_tipo_fr[0]; } function table_cell($campo, $tr_open = "si", $tr_close = "si", $td_close = "si") { if ($td_close == "si") { echo "\n"; } if ($tr_close == "si") { echo "\n\n"; } if ($tr_open == "si") { echo "
\n\n";
$fecha_parts = explode("-", $fecha);
if (count($fecha_parts) != 3 || $fecha_parts[0] > 12 || $fecha_parts[1] > 31) {
echo $error;
$fecha = $hoy;
}
return $$fecha;
}
if ($submit) {
if (!$pin) {
// assign new pin
$query = pg_exec($conn, "SELECT max(pin) FROM principal");
$max = pg_fetch_row($query, 0);
$pin = $max[0] + 1;
$agregado = "si";
} else {
// delete prev data
$borra1 = pg_exec($conn, "DELETE FROM principal WHERE pin=$pin");
$borra3 = pg_exec($conn, "DELETE FROM join_palabra_clave WHERE pin=$pin");
$borra4 = pg_exec($conn, "DELETE FROM join_lengua WHERE pin=$pin");
}
// insert data into dbase
// parse datos de formato texto
$titulo_fr = htmlentities($titulo_fr);
$descripcion_fr = htmlentities($descripcion_fr);
$url = htmlentities($url);
$titulo_fr = str_replace("'", "\'", $titulo_fr);
$descripcion_fr = str_replace("'", "\'", $descripcion_fr);
$url = str_replace("'", "\'", $url);
// agregar datos generales
validate_fecha($fecha_publicacion);
pg_exec($conn, "INSERT INTO principal VALUES ('$pin', '$tipo_id', '$tematica_id', '$relevancia_id', '$region_id', '$categoria_id', '$naturaleza_id', '$evaluacion_descripcion', '$evaluacion_evaluacion', '$evaluacion_diseno', '$evaluacion_organisacion', '$evaluacion_meta', '$titulo_es', '$titulo_fr', '$titulo_en', '$titulo_pt', '$descripcion_es', '$descripcion_fr', '$descripcion_en', '$descripcion_pt', '$url', '$fecha_introduccion', '$fecha_modificacion', '$fecha_publicacion', '$fecha_modificacion', '$usuario_id', 'si')");
if ($palabra_clave_id) {
for ($i = 0 ; $i < count($palabra_clave_id) ; $i++) {
$este_id = $palabra_clave_id[$i];
pg_exec($conn, "INSERT INTO join_palabra_clave VALUES ($pin, $este_id)");
}
}
if ($lengua_id) {
for ($i = 0 ; $i < count($lengua_id) ; $i++) {
$este_id = $lengua_id[$i];
pg_exec($conn, "INSERT INTO join_lengua VALUES ($pin, $este_id)");
}
}
// determine el usuario
$query_user = pg_exec($conn, "SELECT direccion_electronica FROM lista_usuario WHERE usuario_id=$usuario_id");
if (pg_numrows($query_user) != 0) {
$get_user = pg_fetch_row($query_user, 0);
$usuario = $get_user[0];
}
if ($nuevo_palabra_clave) {
$query = pg_exec($conn, "SELECT max(palabra_clave_id) FROM lista_palabra_clave");
$max = pg_fetch_row($query, 0);
$nuevo_id = $max[0] + 1;
$message = "\nAdministradores:\n\nUna nueva palabra clave se ha agregado al Metasitio MISTICA.\n\n";
$message .= "nueva palabra: $nuevo_palabra_clave\n";
$message .= "nueva palabra id: $nuevo_id\n";
$message .= "usuario: $usuario\n\n";
$message .= "Favor averiguar esta palabra en la página siguiente: \n";
$message .= $baseurl."lista_cambiar.php3?tabla=palabra_clave&titulo=Palabras+claves\n\n";
$message .= "Gracias,\nMISTICA Admin";
mail($adminmail, "Nueva palabra clave", $message, "From: $adminmail\nReply-To: $adminmail");
$nuevo_palabra_clave = htmlentities($nuevo_palabra_clave);
$nuevo_palabra_clave = str_replace("'", "\'", $nuevo_palabra_clave);
pg_exec($conn, "INSERT INTO lista_palabra_clave VALUES ($nuevo_id, '$nuevo_palabra_clave')");
pg_exec($conn, "INSERT INTO join_palabra_clave VALUES ($pin, $nuevo_id)");
$nuevo_palabra_clave = "";
}
echo "MERCI. \n\n";
echo "Vous avez inscrit une référence du type $tipo_fr \n";
echo "Modifier cette référence \n\n";
echo "Notez: Un courrier a été envoyé à $adminmail avec la confirmation de cette référence. \n\n";
// envia el correo
if ($agregado) {
$subject = "Nouvelle référence: $tipo_fr";
$message = "\nAdministrateurs:\n\nUne nouvelle référence a été ajoutée au Métasite CARIBTIC.\n\n";
} else {
$subject = "Référence modifiée: $tipo_fr";
$message = "\nAdministrateurs:\n\nUne référence a été modifiée dans le Métasite CARIBTIC.\n\n";
}
$message .= "PIN: $pin\n";
$message .= "Utilisateur: $usuario\n";
$message .= "Titre/nom: $titulo_fr\n";
$message .= "Type de référence: $tipo_fr\n";
$message .= "Description: $descripcion_fr\n\n";
$message .= "Veuillez vérifier la référence à la page suivante: \n";
$message .= $siteurl."referencia.php3?pin=$pin\n\n";
$message .= "Merci,\nCARIBTIC Admin";
mail($adminmail, $subject, $message, "From: $adminmail\nReply-To: $adminmail");
} else {
if ($pin) {
$etapa = "3";
$state = "MODIFIER";
$instrucciones = "Modifiez les informations suivantes et cliquez \"ENREGISTRER\".";
// coloca datos generales
$query = "SELECT * FROM principal WHERE pin=$pin";
$exec = pg_exec($conn, $query);
if (pg_numrows($exec) > 0) {
$get = pg_fetch_row($exec, 0);
$pin = $get[0];
$tipo_id = $get[1];
$tematica_id = $get[2];
$relevancia_id = $get[3];
$region_id = $get[4];
$categoria_id = $get[5];
$naturaleza_id = $get[6];
$evaluacion_descripcion = $get[7];
$evaluacion_evaluacion = $get[8];
$evaluacion_diseno = $get[9];
$evaluacion_organisacion = $get[10];
$evaluacion_meta = $get[11];
$titulo_es = $get[12];
$titulo_fr = $get[13];
$titulo_en = $get[14];
$titulo_pt = $get[15];
$descripcion_es = $get[16];
$descripcion_fr = $get[17];
$descripcion_en = $get[18];
$descripcion_pt = $get[19];
$url = $get[20];
$fecha_introduccion = $get[21];
$fecha_modificacion = $get[22];
$fecha_publicacion = $get[23];
$fecha_evaluacion = $get[24];
$usuario_id = $get[25];
$revisada = $get[26];
}
// coloca palabras claves
//$query_pc = pg_exec($conn, "SELECT * FROM join_palabra_clave WHERE pin=$pin");
if ($query_pc) {
if (pg_numrows($query_pc) > 0) {
for ($row = 0 ; $row < pg_numrows($query_pc) ; $row++) {
$get = pg_fetch_row($query_pc, $row);
if ($row == 0) {
$temp = $get[1];
} else {
$temp .= ", ".$get[1];
}
}
$palabra_clave_id = explode(", ", $temp);
}
}
// coloca idiomas
$query = pg_exec($conn, "SELECT * FROM join_lengua WHERE pin=$pin");
if (pg_numrows($query) > 0) {
for ($row = 0 ; $row < pg_numrows($query) ; $row++) {
$get = pg_fetch_row($query, $row);
if ($row == 0) {
$temp = $get[1];
} else {
$temp .= ", ".$get[1];
}
}
$lengua_id = explode(", ", $temp);
}
$titulo_fr = str_replace("\'", "'", $titulo_fr);
$descripcion_fr = str_replace("\'", "'", $descripcion_fr);
$url = str_replace("\'", "'", $url);
} else {
$etapa = 2;
$state = "UNE NOUVELLE REFERENCE";
$instrucciones = "Merci de remplir le formulaire suivant et de cliquer ensuite sur \"ENREGISTRER\". Seules la date est obligatoire ; les autres champs peuvent rester vides.";
}
// show form either blank or not
echo "$state \n\n";
include("incluir_form_post_useradmin.txt");
}
}
?>
\n";
echo "Les informations de la référence numéro $pin ont été ajoutées avec succès.
\n";
echo "Titre/nom: $titulo_fr
\n";
echo "Voir cette référence dans le Métasite
\n";
echo "$instrucciones