<?php
session_start();

// 1. Verificación de sesión y rol
if (!isset($_SESSION['Inicio']) || $_SESSION['Inicio'] !== "Ok" || !isset($_SESSION['Rol'])) {
    header("Location: ../login.php?m=5"); 
    exit;
}

// 2. Determinar la URL del menú
$urlMenuCorrespondiente = "";
switch ($_SESSION['Rol']) {
    case "Administrativo":
        $urlMenuCorrespondiente = "../MenuAdministrativo.php";
        break;
    case "Titular":
        $urlMenuCorrespondiente = "../MenuTitular.php";
        break;
    case "Pasante":
        $urlMenuCorrespondiente = "../MenuPasante.php"; 
        break;
    default:
        header("Location: ../login.php?m=6"); 
        exit;
}

// --- Variables de filtros ---
$Nombre = "";
$FechaDesde = "";
$FechaHasta = "";

$datosParaTabla = [];
$errorMessage = "";
$infoMessage = "";

// --- Captura de filtros (POST) ---
if ($_SERVER["REQUEST_METHOD"] == "POST") {
    if (isset($_POST['Nombre'])) $Nombre = strtoupper(trim($_POST['Nombre']));
    if (isset($_POST['FechaDesde'])) $FechaDesde = trim($_POST['FechaDesde']);
    if (isset($_POST['FechaHasta'])) $FechaHasta = trim($_POST['FechaHasta']);
}

// --- Conexión y Consulta ---
include("../Php/ConexionInb.php");
$errorMessage = "";


// --- LÓGICA REFACTORIZADA ---
// 1. Preparar parámetros base
$columnas = "p.*, b.*"; // p=paciente, b=celf9_21
$whereClauses = array();
$params_values = array();
$types = "";
$sqlOrder = " ORDER BY p.apellido_paterno_paciente, p.apellido_materno_paciente, p.nombre_paciente, b.fecha_evaluacion DESC";

// 2. Construir filtros dinámicos (Usamos alias 'b' para la prueba)
if (!empty($Nombre)) {
    $whereClauses[] = "(UPPER(p.nombre_paciente) LIKE ? OR UPPER(p.apellido_paterno_paciente) LIKE ? OR UPPER(p.apellido_materno_paciente) LIKE ?)";
    $searchTerm = "%" . $Nombre . "%";
    $params_values = array_merge($params_values, array($searchTerm, $searchTerm, $searchTerm));
    $types .= "sss";
}
if (!empty($FechaDesde)) {
    $whereClauses[] = "b.fecha_evaluacion >= ?";
    $params_values[] = $FechaDesde;
    $types .= "s";
}
if (!empty($FechaHasta)) {
    $whereClauses[] = "b.fecha_evaluacion <= ?";
    $params_values[] = $FechaHasta;
    $types .= "s";
}

$sqlWhere = !empty($whereClauses) ? " WHERE " . implode(" AND ", $whereClauses) : "";

// 3. Llamar a la función centralizada
$datosParaTabla = consultarPacientes('celf9_21', $columnas, $sqlWhere, $params_values, $types, $sqlOrder, $errorMessage);

// 4. Calcular información de resultados para el HTML
if ($datosParaTabla !== false) {
    $TotalFilas = count($datosParaTabla);
    $filtrosAplicados = !empty($Nombre) || !empty($FechaDesde) || !empty($FechaHasta);
    if ($TotalFilas > 0) {
        $infoMessage = $filtrosAplicados ? "Se encontraron $TotalFilas registros con los filtros." : "Mostrando todos los $TotalFilas registros.";
    } else {
        $infoMessage = "No se encontraron registros.";
    }
}

// Función auxiliar para traducir el código de terapia

?>

<!DOCTYPE html>
<html lang="es">
<head>
    <meta charset="UTF-8">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <link rel="stylesheet" href="../Css/EstilosConsultas.css">
    <title>Consulta CELF 9-21</title>
    <style>
        .sticky-col { position: -webkit-sticky; position: sticky; left: 0; background-color: #fff; z-index: 1; border-right: 2px solid #ddd; }
        .tabla-container table thead th.sticky-col { z-index: 2; }
        
        /* Estilos filtros */
        .form-filters { display: flex; flex-wrap: wrap; gap: 15px; margin-bottom: 20px; padding: 20px; background-color: #f9f9f9; border-radius: 8px; border: 1px solid #ddd; align-items: flex-end; }
        .form-filters .input-box { margin-bottom: 0; flex: 1 1 250px; }
        .form-filters label { display: block; margin-bottom: 5px; font-weight: bold; color: #555; }
        .form-filters input[type="text"], .form-filters input[type="date"] { width: 100%; padding: 10px; border: 1px solid #ccc; border-radius: 4px; box-sizing: border-box; }
        .form-actions { display: flex; justify-content: center; gap: 20px; margin-top: 10px; width: 100%; align-items: center; }
        .form-actions .btn, .form-actions .btn2, .form-actions .btn-outline { width: auto; line-height: 48px; margin-top: 0; box-sizing: border-box; }
        .info-message { text-align: center; padding: 10px; background: #e9f5fd; color: #3c70a0; border-radius: 5px; margin-bottom: 15px;}
        .error-message { text-align: center; padding: 10px; background: #fde9e9; color: #a03c3c; border-radius: 5px; margin-bottom: 15px;}
        .col-text-limited { max-width: 200px; white-space: nowrap; overflow: hidden; text-overflow: ellipsis; }
        .col-text-limited:hover { white-space: normal; overflow: visible; position: relative; z-index: 10; background: #fff; box-shadow: 0 0 5px #ccc; }
    </style>
</head>
<body>
    <div class="container">
        <h1 class="tittle">Registros Evaluación CELF 9-21</h1>

        <form method="post" action="<?php echo htmlspecialchars($_SERVER["PHP_SELF"]); ?>" class="form-filters">
            <div class="input-box">
                <label for="Nombre">Nombre o Apellido:</label>
                <input type="text" placeholder="Escriba aquí..." name="Nombre" id="Nombre" value="<?php echo htmlspecialchars($Nombre); ?>">
            </div>
            <div class="input-box">
                <label for="FechaDesde">Fecha Evaluación Desde:</label>
                <input type="date" name="FechaDesde" id="FechaDesde" value="<?php echo htmlspecialchars($FechaDesde); ?>">
            </div>
            <div class="input-box">
                <label for="FechaHasta">Fecha Evaluación Hasta:</label>
                <input type="date" name="FechaHasta" id="FechaHasta" value="<?php echo htmlspecialchars($FechaHasta); ?>">
            </div>

            <div class="form-actions">
                <input type="submit" value="Buscar" class="btn">
                <a href="RCELF9-21.php" class="btn2">Limpiar</a>
                <a href="<?php echo htmlspecialchars($urlMenuCorrespondiente); ?>" class="btn2">Salir</a>
                <?php if ($TotalFilas > 0): ?>
                    <button type="button" id="btnExportarExcel" class="btn btn-outline">Exportar</button>
                <?php endif; ?>
            </div>
        </form>

        <?php if (!empty($errorMessage)): ?>
            <div class="error-message"><?php echo $errorMessage; ?></div>
        <?php endif; ?>
        <?php if (!empty($infoMessage) && empty($errorMessage)): ?>
            <div class="info-message"><?php echo $infoMessage; ?></div>
        <?php endif; ?>
        
        <?php if (isset($_GET['m'])) : ?>
            <div class="flash-data" data-flashdata="<?= htmlspecialchars($_GET['m']); ?>"></div>
        <?php endif; ?>

        <?php if (empty($errorMessage) && $TotalFilas > 0): ?>
            <div class="tabla-container">
                <table id="tablaResultados">
                    <thead>
                        <!-- Fila 1: Grupos -->
                        <tr>
                            <th rowspan="2" class="sticky-col">Acción</th>
                            <th colspan="5">Datos del Paciente</th>
                            <th colspan="3">Info Evaluación</th>

                            <!-- SUB-TESTS -->
                            <th colspan="4">Sub-test: Conceptos y Sig. Direcciones</th>
                            <th colspan="4">Sub-test: Recordar Oraciones</th>
                            <th colspan="4">Sub-test: Formulación de Oraciones</th>
                            
                            <th colspan="4">Sub-test: Clases Palabras (Receptivo)</th>
                            <th colspan="4">Sub-test: Clases Palabras (Expresivo)</th>
                            <th colspan="4">Sub-test: Clases Palabras (Total)</th>
                            
                            <th colspan="4">Sub-test: Definición de Palabras</th>
                            <th colspan="4">Sub-test: Vocabulario Expresivo</th>
                            <th colspan="4">Sub-test: Entendiendo Párrafos</th>
                            
                            <th colspan="4">Sub-test: Rep. Números (Directa)</th>
                            <th colspan="4">Sub-test: Rep. Números (Inversa)</th>
                            <th colspan="4">Sub-test: Rep. Números (Total)</th>
                            
                            <th colspan="4">Sub-test: Secuencias Familiares</th>

                            <!-- INDICES -->
                            <th colspan="18">Índices Principales y Complementarios</th>

                            <!-- CLINICOS -->
                            <th colspan="3">Datos Clínicos y Observaciones</th>
                        </tr>

                        <!-- Fila 2: Columnas Específicas -->
                        <tr>
                            <!-- Paciente -->
                            <th>Código</th><th>Nombre</th><th>A. Paterno</th><th>A. Materno</th><th>F. Nacim.</th>
                            
                            <!-- Info -->
                            <th>Fecha</th><th>Edad</th><th>Rango Edad</th>

                            <!-- Subtests (Repetitivos) -->
                            <!-- Conceptos -->
                            <th>Bruto</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>
                            <!-- Recordar Oraciones -->
                            <th>Bruto</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>
                            <!-- Formulación -->
                            <th>Bruto</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>
                            <!-- Clases (Rec) -->
                            <th>Bruto</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>
                            <!-- Clases (Exp) -->
                            <th>Bruto</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>
                            <!-- Clases (Tot) -->
                            <th>Suma Esc.</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>
                            <!-- Definición -->
                            <th>Bruto</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>
                            <!-- Vocabulario -->
                            <th>Bruto</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>
                            <!-- Párrafos -->
                            <th>Bruto</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>
                            <!-- Rep Num Forw -->
                            <th>Bruto</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>
                            <!-- Rep Num Back -->
                            <th>Bruto</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>
                            <!-- Rep Num Tot -->
                            <th>Bruto</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>
                            <!-- Secuencias -->
                            <th>Bruto</th><th>Escalar</th><th>Percentil</th><th class="col-text-limited">Interp.</th>

                            <!-- Indices (6 indices * 3 cols) -->
                            <th>L. Total (Est)</th><th>(%)</th><th class="col-text-limited">(Int)</th>
                            <th>L. Recep (Est)</th><th>(%)</th><th class="col-text-limited">(Int)</th>
                            <th>L. Expre (Est)</th><th>(%)</th><th class="col-text-limited">(Int)</th>
                            <th>Contenido (Est)</th><th>(%)</th><th class="col-text-limited">(Int)</th>
                            <th>M. Lenguaje (Est)</th><th>(%)</th><th class="col-text-limited">(Int)</th>
                            <th>M. Trabajo (Est)</th><th>(%)</th><th class="col-text-limited">(Int)</th>

                            <!-- Clinicos -->
                            <th class="col-text-limited">¿Terapia?</th><th class="col-text-limited">Obs. Clínica</th><th class="col-text-limited">Otra Obs.</th>
                        </tr>
                    </thead>
                    <tbody>
                        <?php foreach ($datosParaTabla as $Fila): ?>
                        <tr>
                            <!-- Acción -->
                            <td class='sticky-col'>
                                <a href='UICELF9-21.php?id=<?php echo htmlspecialchars($Fila['id']); ?>' class='btn-outline btn-small mod-btn'>Modificar</a>
                            </td>

                            <!-- Paciente -->
                            <td><?php echo htmlspecialchars($Fila['codigo_paciente']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['nombre_paciente']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['apellido_paterno_paciente']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['apellido_materno_paciente']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['fecha_nacimiento_paciente']); ?></td>

                            <!-- Info -->
                            <td><?php echo htmlspecialchars($Fila['fecha_evaluacion']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['edad']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['rango_edad']); ?></td>

                            <!-- SUBTESTS -->
                            <!-- Conceptos -->
                            <td><?php echo htmlspecialchars($Fila['sub_concep_sig_dir_bruto']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_concep_sig_dir_escal']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_concep_sig_dir_perce']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_concep_sig_dir_interpre']); ?></td>

                            <!-- Recordar Oraciones (3 cols) -->
                            <td><?php echo htmlspecialchars($Fila['sub_record_oraci_brut']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_record_oraci_escal']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_record_oraci_percen']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_record_oraci_interpr']); ?></td>

                            <!-- Formulación Oraciones -->
                            <td><?php echo htmlspecialchars($Fila['sub_formul_oraci_brut']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_formul_oraci_esc']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_formul_oraci_perc']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_formul_oraci_interpr']); ?></td>

                            <!-- Clases Palabras Recep -->
                            <td><?php echo htmlspecialchars($Fila['sub_clases_palab_recep_bru']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_clases_palab_recep_esc']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_clases_palab_recep_percen']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_clases_palab_recep_interp']); ?></td>

                            <!-- Clases Palabras Expres -->
                            <td><?php echo htmlspecialchars($Fila['sub_clas_pala_expre_brut']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_clas_pala_expre_esc']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_clas_pala_expre_percen']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_clas_pala_expre_interpr']); ?></td>

                            <!-- Clases Palabras Total -->
                            <td><?php echo htmlspecialchars($Fila['sub_clas_palab_suma_escalares']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_clas_pala_tot_esc']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_clas_pala_tot_perce']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_clas_pala_tot_inter']); ?></td>

                            <!-- Definición -->
                            <td><?php echo htmlspecialchars($Fila['sub_defin_pala_brut']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_defin_pala_esc']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_defin_pala_perc']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_defin_pala_inter']); ?></td>

                            <!-- Vocabulario Expresivo -->
                            <td><?php echo htmlspecialchars($Fila['sub_vocab_expr_bruto']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_voc_expr_esc']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_voc_expr_perc']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_voc_expr_inter']); ?></td>

                            <!-- Párrafos -->
                            <td><?php echo htmlspecialchars($Fila['sub_enten_parra_bru']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_enten_parra_esc']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_enten_parra_perc']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_enten_parra_inter']); ?></td>

                            <!-- Rep Num Forw -->
                            <td><?php echo htmlspecialchars($Fila['sub_rep_num_forw1o2_bru']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_rep_num_forw1o2_esc']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_rep_num_forw1o2_perce']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_rep_num_forw1o2_inter']); ?></td>

                            <!-- Rep Num Back -->
                            <td><?php echo htmlspecialchars($Fila['sub_rep_num_backw1o2_bru']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_rep_num_backw1o2_esc']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_rep_num_backw1o2_perc']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_rep_num_backw1o2_inter']); ?></td>

                            <!-- Rep Num Tot -->
                            <td><?php echo htmlspecialchars($Fila['sub_rep_num1o2_tot_bru']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_rep_num1o2_tot_esc']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_rep_num1o2_tot_perce']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_rep_num1o2_tot_inter']); ?></td>

                            <!-- Secuencias -->
                            <td><?php echo htmlspecialchars($Fila['sub_sec_famil1o2_bru']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_sec_famil1o2_esc']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['sub_sec_famil1o2_perc']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['sub_sec_famil1o2_inter']); ?></td>

                            <!-- INDICES -->
                            <td><?php echo htmlspecialchars($Fila['celf921_leng_tot_stand']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['celf921_leng_tot_percen']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['celf921_leng_tot_interp']); ?></td>

                            <td><?php echo htmlspecialchars($Fila['celf921_leng_recep_stand']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['celf921_leng_recep_perce']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['celf921_leng_recep_inter']); ?></td>

                            <td><?php echo htmlspecialchars($Fila['celf921_leng_expre_stand']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['celf921_leng_expre_perc']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['celf921_leng_expre_interpre']); ?></td>

                            <td><?php echo htmlspecialchars($Fila['celf921_conte_stand']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['celf921_conte_perc']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['celf921_conte_interp']); ?></td>

                            <td><?php echo htmlspecialchars($Fila['celf921_mem_leng_stand']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['celf921_mem_leng_percent']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['celf921_mem_leng_inter']); ?></td>

                            <td><?php echo htmlspecialchars($Fila['celf921_mem_trab_stand']); ?></td>
                            <td><?php echo htmlspecialchars($Fila['celf921_mem_trab_percen']); ?></td>
                            <td class="col-text-limited"><?php echo htmlspecialchars($Fila['celf921_mem_trab_interp']); ?></td>

                            <!-- CLINICOS -->
                            <!-- Traducción del número a texto -->
                            <td class="col-text-limited"><?php echo nl2br(htmlspecialchars($Fila['dat_clin_ref_ater'])); ?></td>
                            <td class="col-text-limited"><?php echo nl2br(htmlspecialchars($Fila['dat_clin_observ_clin'])); ?></td>
                            <td class="col-text-limited"><?php echo nl2br(htmlspecialchars($Fila['dat_clin_otra_observ'])); ?></td>
                        </tr>
                        <?php endforeach; ?>
                    </tbody>
                </table>
            </div>
        <?php endif; ?>
    </div>

    <script src="//cdn.jsdelivr.net/npm/sweetalert2@11"></script>
    <script src="../Jquery/jquery-3.6.0.min.js"></script>
    <script>
        $(document).ready(function() {
            // Confirmación antes de ir a modificar
            $('.mod-btn').on('click', function(e) {
                e.preventDefault();
                const href = $(this).attr('href');
                Swal.fire({
                    title: '¿Desea modificar este registro?',
                    text: "Accederá al formulario de edición CELF 9-21.",
                    icon: 'question',
                    showCancelButton: true,
                    confirmButtonColor: '#3085d6',
                    cancelButtonColor: '#d33',
                    confirmButtonText: 'Sí, modificar',
                    cancelButtonText: 'Cancelar'
                }).then((result) => {
                    if (result.isConfirmed) {
                        document.location.href = href;
                    }
                });
            });

            // Mensajes Flash
            const flashdata = $('.flash-data').data('flashdata');
            if (flashdata) {
                let text = (flashdata === 'update_success') ? 'Registro actualizado correctamente.' : 'Operación realizada.';
                Swal.fire({ title: 'Éxito', text: text, icon: 'success' });
            }

            // Exportar a Excel (CSV)
            $('#btnExportarExcel').on('click', function() {
                const tabla = document.getElementById('tablaResultados');
                if (!tabla) return;
                
                // Clonar tabla para limpiar clases sticky antes de exportar
                const tablaClone = tabla.cloneNode(true);
                tablaClone.querySelectorAll('.sticky-col').forEach(el => el.remove()); // Opcional: remover columna de acción del excel
                
                let csvContent = "data:text/csv;charset=utf-8,\uFEFF";
                const rows = tablaClone.querySelectorAll("tr");
                
                rows.forEach(row => {
                    const cols = row.querySelectorAll("td, th");
                    const rowData = [];
                    cols.forEach(col => {
                        // Limpiar saltos de línea y escapar comillas
                        let data = col.innerText.replace(/(\r\n|\n|\r)/gm, " ").replace(/"/g, '""');
                        rowData.push('"' + data + '"');
                    });
                    csvContent += rowData.join(",") + "\r\n";
                });

                const encodedUri = encodeURI(csvContent);
                const link = document.createElement("a");
                link.setAttribute("href", encodedUri);
                link.setAttribute("download", "CELF9-21_Reporte.csv");
                document.body.appendChild(link);
                link.click();
                document.body.removeChild(link);
            });
        });
    </script>
</body>
</html>