perlquestion
bar10der
I have an html form which has 60+ fields. To give a brief overview basically I am asking users to provide monthly status of accounts that they manage. I thought it will be good idea to populate form with data from previous month as value for many fields may not change every month. Data is stored in oracle table and I am able to extract data from oracle table. No problem here.[br]
I have my html form and this is how I am loading form after getting data from oracle table (stored in @data)-<br>
<code>
my $template = $self->load_tmpl('acc.html');
$template->param($errs) if ref $errs; ##Validate input
$template->param(
MONTH => $monthName,
YEAR => $whichYear,
ACC => $acName,
LEFT => $lstring,
f0 => $data[0],
f1 => $data[1],
...
...
f..n => $data[..n],
);
return $template->output;
</code>
Above is working fine but in case a new field is added or discarded, I have to change my script and I want to avoid this. HTML form field names are same as in oracle table's column name and I can extract fieldname and corresponding value from the tables and all that I want to know - is there a better way for assigning values to the form fields? Any help will be greatly appreciated.