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

More fixes to lexical scan

Browse Source
This commit is contained in:
Brian Read
2024-05-06 10:05:43 +01:00
parent 228a42ed60
commit a5f8e153a2
12 changed files with 152 additions and 105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Templates/custom.pm.tem
View File

@@ -23,8 +23,9 @@ our $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
# Validation routines - parameters for each panel
<tal:block tal:repeat="panel panels">
sub validate_${panel} {
$prefix_data = shift; #Data hash as parameter
$ret = 'ok';
my $c = shift;
my $prefix_data = shift; #Data hash as parameter
my $ret = 'ok';
return $ret;
}
</tal:block>
@@ -33,16 +34,18 @@ our $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
<tal:block tal:repeat="tablecontrol tablecontrols">
sub get_${tablecontrol} {
my $c = shift;
@ret = {}
my @ret = {};
return \@ret
}
</tal:block>
# Return hash with values from row in which link clicked on table
<tal:block tal:repeat="panel panels">
sub validate_get_selected_${panel} {
$selected = shift; #Parameter is name of selected row.
%ret = {};
sub get_selected_${panel} {
my $c = shift;
my $selected = shift; #Parameter is name of selected row.
my $is_new_record = shift; #Indicates new record required (defaults)
my %ret = {};
return $ret;
}
</tal:block>
@@ -50,8 +53,9 @@ our $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
#after sucessful modify or create or whatever and submit then perfom (if the params validate)
<tal:block tal:repeat="panel panels">
sub perform_${panel} {
$prefix_data = shift; #Data hash as parameter
$ret = 'ok';
my $c = shift;
my $prefix_data = shift; #Data hash as parameter
my $ret = 'ok';
return $ret;
}
</tal:block>