$change{$type} = $dnum;
$change{"${type}_amount"} = $cgi->param("${type}_amount");
$change{"${type}_percent"} = $cgi->param("${type}_percent");
$change{$type} = $dnum;
$change{"${type}_amount"} = $cgi->param("${type}_amount");
$change{"${type}_percent"} = $cgi->param("${type}_percent");