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

Edit template for controller - Refine params copy and bring DB opens up to spec with UTF8

Browse Source
This commit is contained in:
Brian Read
2025-10-06 10:57:00 +01:00
parent 29f8de63fd
commit ecb846fc6c
119 changed files with 10059 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Templates/controller.pm.tem
View File

@@ -39,16 +39,16 @@ use Data::Dumper;
use esmith::util;
use esmith::util::network;
use esmith::ConfigDB::UTF8;
use esmith::AccountsDB;
use esmith::NetworksDB::UTF8;
use esmith::HostsDB;
use esmith::AccountsDB::UTF8;
use esmith::NetworksDB;
use esmith::HostsDB::UTF8;
use esmith::DomainsDB::UTF8;
our $cdb;
our $adb;
our $ndb;
our $hdb;
our $ddb;
my $cdb;
my $adb;
my $ndb;
my $hdb;
my $ddb;
our %${prefix}_data;
@@ -133,15 +133,15 @@ sub do_update {
my $title = $c->l('${prefix}_${MenuDescription}');
# Accessing all POST/GET parameters
my $params = $c->req->params->to_hash;
my $params = ${ $c->req->params->to_hash };
# Get number of POST parameters
#my $num_params = keys scaler %$params;
my $num_params = keys scaler %$params;
#Params are available in the hash "params" - copy to the prefix_data hash
#while (my ($key, $value) = each %{$c->req->params->to_hash}) {
# $$${prefix}_data{$key} = $value;
#}
while (my ($key, $value) = each %{$c->req->params->to_hash}) {
$$${prefix}_data{$key} = $value;
}
# the value of trt will tell you which panel has returned
my $trt = $c->param('trt') || '${firstPanel}'; #hidden control on every form.