package Currency; use base 'Class::DBI::mysql'; __PACKAGE__->set_db('Main', 'dbi:mysql:dbname', 'user', 'password'); __PACKAGE__->set_up_table("currency"); 1; ####

Currencies:

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

Make a new currency entry

Currency:
<& /view_currency.html &> <%args> $cid => 0 <%init> my $currency_val = ""; if($cid ) { $currency_val = Currency->retrieve($cid)->currency; }