package Currency;
use base 'Class::DBI::mysql';
__PACKAGE__->set_db('Main', 'dbi:mysql:dbname', 'user', 'password');
__PACKAGE__->set_up_table("currency");
1;
####
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;
%once>
<%init>
my $row=0;
my $shadetable;
%init>
##
##
Make a new currency entry
<& /view_currency.html &>
<%args>
$cid => 0
%args>
<%init>
my $currency_val = "";
if($cid ) {
$currency_val = Currency->retrieve($cid)->currency;
}
%init>