Correct init of hash in selected function

This commit is contained in:
Brian Read 2025-06-13 16:14:32 +01:00
parent 2d30d8b124
commit 40e83a4bee

View File

@ -103,7 +103,8 @@ sub get_${tablecontrol[0]} {
my $c = shift; my $c = shift;
my $selected = shift; #Parameter is name of selected row. my $selected = shift; #Parameter is name of selected row.
my $is_new_record = shift; #Indicates new record required (defaults) my $is_new_record = shift; #Indicates new record required (defaults)
my %ret = {}; my %ret = ();
#gather the values here
return %ret; return %ret;
} }
</tal:block> </tal:block>