add 'my' to newly moved Db opening code!

This commit is contained in:
Brian Read 2024-11-29 15:19:48 +00:00
parent 47514f6f28
commit 2b6e43b810
3 changed files with 6 additions and 6 deletions

View File

@ -139,8 +139,8 @@ sub do_update {
# the value of trt will tell you which panel has returned # the value of trt will tell you which panel has returned
my $trt = $c->param('trt') || '${firstPanel}'; #hidden control on every form. my $trt = $c->param('trt') || '${firstPanel}'; #hidden control on every form.
my $ret = 'ok'; my $ret = 'ok';
#Validate the parameters in a custom sub one for each panel (although only one of these will be executed)
#Validate the parameters in a custom sub one for each panel (although only one of these will be executed)
my $thispanel; my $thispanel;
<tal:block tal:repeat="panel panels"> <tal:block tal:repeat="panel panels">
if ($trt eq '${panel}'){ if ($trt eq '${panel}'){
@ -149,11 +149,11 @@ sub do_update {
$thispanel = '${panel}'; $thispanel = '${panel}';
} }
</tal:block> </tal:block>
if ($ret ne "ok"){ if ($ret ne "ok"){
$c->do_display($thispanel); $c->do_display($thispanel);
} else { } else {
#Do whatever is needed, including writing values to the DB #Do whatever is needed, including writing values to the DB
<tal:block tal:repeat="panel panels"> <tal:block tal:repeat="panel panels">
if ($trt eq '${panel}'){ if ($trt eq '${panel}'){
#do whatever is required ... #do whatever is required ...
@ -162,8 +162,8 @@ sub do_update {
# return to the panel with error message # return to the panel with error message
$c->stash(error => $c->l($ret)); $c->stash(error => $c->l($ret));
$c->stash( $c->stash(
title => $title, title => $title,
modul => $modul, modul => $modul,
${prefix}_data => \%${prefix}_data ${prefix}_data => \%${prefix}_data
); );
$c->render(template => "${lcPackageName}"); $c->render(template => "${lcPackageName}");
@ -181,7 +181,6 @@ sub do_update {
$$${prefix}_data{'trt'} = '${NextPanel | "none"}'; $$${prefix}_data{'trt'} = '${NextPanel | "none"}';
} }
$c->do_display($$${prefix}_data{'trt'}); $c->do_display($$${prefix}_data{'trt'});
} }
} }

View File

@ -1,4 +1,5 @@
<root> <root>
<!-- Todo - add password visibility to password type -->
<Select><![CDATA[ <Select><![CDATA[
<p><span class=label> <p><span class=label>
%=l('${prefix}_${Label}') %=l('${prefix}_${Label}')

View File

@ -26,7 +26,7 @@
</p> </p>
%} elsif ($c->stash('success')) { %} elsif ($c->stash('success')) {
<div class='sme-border'> <div class='success '>
<h2><%=$c->l('Status Report') %></h2><p> <h2><%=$c->l('Status Report') %></h2><p>
%= $c->l($c->stash('success')); %= $c->l($c->stash('success'));
</p> </p>