1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
<psp:fieldspace name="sample">
<psp:import vars="@animals,%pf_box"/>
my %families;
for my $animal (@animals) {
$families{$animal->{family}}++;
}
$pf_box{families} = [ sort keys %families ];
$pf_box{families_h} = {};
map { $pf_box{families_h}->{$_} = $_ } @{$pf_box{families}};
<psp:define name="sample_text"/>
<psp:group name="animals" obj="$animal" numvar="$i" numdisplay="10">
$animal = $animals[$i-1];
<psp:define name="family" type="select" value="$animal->{family}">
$field->reset_possible($pf_box{families_h},$pf_box{families});
</psp:define>
<psp:define name="common" value="$animal->{common}" blankok="0"/>
<psp:define name="species" value="$animal->{species}" blankok="0"/>
</psp:group>
</psp:fieldspace>
|
