% my $dbi = $nvar{dbi}; %>
該当するデータが見つかりませんでした。
該当するデータが <% print $var{total} %> 件見つかりました。
<% &print_title('DID', $ordlist, $ordnum, 0, $reverse) %> | <% &print_title('氏名', $ordlist, $ordnum, 1, $reverse) %> | <% &print_title('性別', $ordlist, $ordnum, 2, $reverse) %> | <% &print_title('生年月日', $ordlist, $ordnum, 3, $reverse) %> | |
---|---|---|---|---|
<% print "[$RID]\">[$data->[$DID]]"; if($data->[$STATE] ne $active) { %> ( <% print $state->[ $data->[$STATE] ] %> )<% } print <$data->[$FAMNAME] $data->[$FIRNAME] | $sex | $data->[$BIRTH] | HTML %>