Perl复选框基于数据库值检查

时间:2014-07-01 15:00:52

标签: html perl postgresql checkbox

我有一组像这样的复选框,但是想知道如何根据数据库中的值默认检查它们。

<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

此Perl脚本包含所有数据库值:

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

我在PHP线程上发现了类似的东西,这正是我想要的,但是使用Perl PHP checkbox set to check based on database value

我对Perl不是很熟悉,所以我不知道是否有类似PHP示例的语法可以插入复选框?

1 个答案:

答案 0 :(得分:1)

我认为你所寻找的是这样的:

<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

假设您的$prefs包含您需要的所有信息。只需输入一个Perl if语句来检查数据库值是否为1.如果它不是print checked,它会给复选框checked属性并检查它。