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

Correct access to sharted data in perform and valid routines

Browse Source
This commit is contained in:
Brian Read 2025-04-24 15:56:56 +01:00
parent 6e45347ba3
commit 8b54f7f61c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Templates/custom.pm.tem
View File

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