Perl checkbox check basado en el valor de la base de datos - html, perl, postgresql, checkbox

Tengo un conjunto de casillas de verificación como estas, pero me preguntaba cómo abordar la verificación por defecto según los valores de la base de datos.

<input type="checkbox" name = "others_post" id = "others_post" value="1"> Other"s Posts <br/>
<input type="checkbox" name = "clients_post" id = "clients_post" value="1"> Cilent"s Post <br/>
<input type="checkbox" name = "assigned_tasks" id = "assigned_tasks" value="1"> Task Assigned

Este script de Perl contiene todos los valores de la base de datos:

my $prefs = USystems::UserPrefs->new($user->userid);

Encontré algo similar en un hilo PHP que es exactamente lo que quiero pero con Perl Casilla de verificación PHP configurada para verificar en función del valor de la base de datos

No soy muy fimiliar con Perl, así que no sé si había una sintaxis como el ejemplo de PHP que puede insertar en las casillas de verificación?

Respuestas

Creo que lo que estás buscando es algo como esto:

<input type="checkbox" name = "others_post" id = "others_post" value="1" <% if ($prefs->{OTHERS_POST} == 1){print "checked"} %>> Other"s Posts <br/>
<input type="checkbox" name = "clients_post" id = "clients_post" value="1" <% if ($prefs->{CLIENTS_POST} == 1){print "checked"} %>> Cilent"s Post <br/>
<input type="checkbox" name = "assigned_tasks" id = "assigned_tasks" value="1" <% if ($prefs->{ASSIGNED_TASKS} == 1){print "checked"} %>> Task Assigned

Suponiendo que tu $prefs tiene almacenada toda la información que necesitabas. Simplemente coloque una instrucción Perl if que verifique si el valor de la base de datos es 1. Si es que print checked que le dará a la casilla de verificación checked atributo y compruébalo.