diff --git a/Templates/custom.pm.tem b/Templates/custom.pm.tem index daa602e..ba67522 100644 --- a/Templates/custom.pm.tem +++ b/Templates/custom.pm.tem @@ -74,7 +74,7 @@ sub actual_${tablecontrol[0]} { sub get_${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 @transformed_records; my %Field_Mapping = ${tablecontrol[0]}_FIELD_MAPPING(); @@ -103,7 +103,8 @@ sub get_${tablecontrol[0]} { my $c = shift; my $selected = shift; #Parameter is name of selected row. my $is_new_record = shift; #Indicates new record required (defaults) - my %ret = {}; + my %ret = (); + #gather the values here return %ret; } @@ -131,4 +132,4 @@ sub create_link{ my $link = "$route?trt=$panel&Selected=$index"; return $link; } -1; \ No newline at end of file +1;