while (my ($chart_id, $spec) = each %{ $entries }) {
$spec = { taxkey => 0, tax_id => $default_tax_id, amount => $spec } unless ref $spec;
$chart_link = SL::DB::Manager::Chart->find_by(id => $chart_id)->{'link'};
while (my ($chart_id, $spec) = each %{ $entries }) {
$spec = { taxkey => 0, tax_id => $default_tax_id, amount => $spec } unless ref $spec;
$chart_link = SL::DB::Manager::Chart->find_by(id => $chart_id)->{'link'};