From 8b54f7f61c0ad4093f5f6660cf4dbb30fa288841 Mon Sep 17 00:00:00 2001
From: Brian Read <brianr@bjsystems.co.uk>
Date: Thu, 24 Apr 2025 15:56:56 +0100
Subject: [PATCH] Correct access to sharted data in perform and valid routines

---
 Templates/custom.pm.tem | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Templates/custom.pm.tem b/Templates/custom.pm.tem
index 0c765a6..498ec18 100644
--- a/Templates/custom.pm.tem
+++ b/Templates/custom.pm.tem
@@ -28,7 +28,7 @@ use constant TRUE  => 1;
 <tal:block tal:repeat="panel panels">
 	sub validate_${panel} {
 		my $c = shift;
-		my $prefix_data = shift; #Data hash as parameter
+		my ${prefix}_data = shift; #Data hash as parameter
 		# Validation for each field 
 		my $ret = "";
 		<tal:block tal:repeat="field fields[panel]">
@@ -111,7 +111,7 @@ sub get_${tablecontrol[0]} {
 <tal:block tal:repeat="panel panels">
 	sub perform_${panel} {
 		my $c = shift;
-		my $prefix_data = shift; #Data hash as parameter
+		my ${prefix}_data = shift; #Data hash as parameter
 		my $ret = "";
 		my $db = $cdb; #maybe one of the others
 		my $dbkey = 'ChangeThis';