Correct init of hash in selected function
This commit is contained in:
		@@ -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;
 | 
			
		||||
	}
 | 
			
		||||
</tal:block>
 | 
			
		||||
@@ -131,4 +132,4 @@ sub create_link{
 | 
			
		||||
	my $link = "$route?trt=$panel&Selected=$index";
 | 
			
		||||
	return $link;
 | 
			
		||||
}
 | 
			
		||||
1;
 | 
			
		||||
1;
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user