Currencies:
| Currency |
Cid |
% while (my $currency = $iter->next) {
% $row++;
% $shadetable = ($row % 3 == 0 ? q{id="shadetable"} : "");
>
| $currency->currency |
$currency->cid |
% }
<%once>
use Currency;
my $iter = Currency->retrieve_all;
<%init>
my $row=0;
my $shadetable;