<%perl> # views currency data my $data_structure = $m->comp('/comp/get_currency.mas'); print"

Currencies:

\n"; $row=0; foreach ??? #what type of data structure should I have { $row++; if ($row/3 == int($row/3)){ print "\n"; }else{ print "\n"; } print "\t\n"; print "\t\n"; print "\n"; } print "

Currency	Cid
".# data?."	".# data?."

\n"; ##

##

<%args>
    $cid => 0

<%perl>
    # if a currency to edit was passed to this form then
    # get the data and place in the form.
    # otherwise present a blank form
    my $data_structure = $m->comp('/comp/get_currency',
    cid => $cid);



    Make a new currency entry



    
        
        Currency:
         type=text size=5>
       
    
    



<& /view_currency.html &>

##

##

%perl>
# get data requested and return
my ($statement, $sth, $ref);

$statement = 'SELECT 
cid,
currency
FROM currency ORDER BY currency;';

$sth = $dbh->prepare($statement) or die "Couldn't prepare statement: $dbh->errstr";
$sth->execute or die "Couldn't execute statement: $dbh->errstr";

while ($ref = $sth->fetchrow_hashref){
    # store one or more rows of data in a structure
}

return $data_structure