カラム名一覧取得

DOD perl

ObjectDriverを使って、対象のカラム一覧を取る方法なんだけど、Iterator,ResultSetから取る方法が見当たらなかったので、しかたなく、BaseObject側から取る。

流れ

  1. firstで１列目のレコードとる。
  2. coloumn_namesで一覧をとる
  3. prevで元にもどす。
  4. ループまわしてとる。

とやるしか、思いつかない。

list.coumn_names 的なことができないものなのだろうか。そうすれば、手順が減るのに。help!

<table border="1">
<tr>
    [% FOREACH column_name IN list.first.column_names %]
        <th>[%  label.${column_name} || '&nbsp;' %]</th>
    [% END %]
    [% GET list.prev %]  
</tr>
[% WHILE( item = list.next ) %]
<tr>
    [% FOREACH column_name IN item.column_names %]
        [% IF fields.${column_name}.type == 'lookup' %]
            <td>[% lookup.${column_name}.label.${item.column( column_name )} %]</td>
        [% ELSE %]
            <td>[% item.column( column_name ) %]</td>
        [% END %]
    [% END %]
</tr>
[% END %]
</table>