brianr/SM2Gen
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correct init of hash in selected function

Browse Source
This commit is contained in:
Brian Read 2025-06-13 16:14:32 +01:00
parent 2d30d8b124
commit 40e83a4bee
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Templates/custom.pm.tem
View File

@ -74,7 +74,7 @@ sub actual_${tablecontrol[0]} {
sub get_${tablecontrol[0]} { sub get_${tablecontrol[0]} {
# Return an array of hashes of the contents for each row and column for ${tablecontrol[0]} # Return an array of hashes of the contents for each row and column for ${tablecontrol[0]}
my $c = shift; my $c = shift;
my @source_records = $c->actual_${tablecontrol[0]}(); my @source_records = $c->actual_${tablecontrol[0]}();
my @transformed_records; my @transformed_records;
my %Field_Mapping = ${tablecontrol[0]}_FIELD_MAPPING(); my %Field_Mapping = ${tablecontrol[0]}_FIELD_MAPPING();
@ -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>
@ -131,4 +132,4 @@ sub create_link{
my $link = "$route?trt=$panel&Selected=$index"; my $link = "$route?trt=$panel&Selected=$index";
return $link; return $link;
} }
1; 1;