add 'my' to newly moved Db opening code!
This commit is contained in:
parent
47514f6f28
commit
2b6e43b810
@ -139,8 +139,8 @@ sub do_update {
|
||||
# the value of trt will tell you which panel has returned
|
||||
my $trt = $c->param('trt') || '${firstPanel}'; #hidden control on every form.
|
||||
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;
|
||||
<tal:block tal:repeat="panel panels">
|
||||
if ($trt eq '${panel}'){
|
||||
@ -149,11 +149,11 @@ sub do_update {
|
||||
$thispanel = '${panel}';
|
||||
}
|
||||
</tal:block>
|
||||
|
||||
if ($ret ne "ok"){
|
||||
$c->do_display($thispanel);
|
||||
} else {
|
||||
#Do whatever is needed, including writing values to the DB
|
||||
|
||||
<tal:block tal:repeat="panel panels">
|
||||
if ($trt eq '${panel}'){
|
||||
#do whatever is required ...
|
||||
@ -162,8 +162,8 @@ sub do_update {
|
||||
# return to the panel with error message
|
||||
$c->stash(error => $c->l($ret));
|
||||
$c->stash(
|
||||
title => $title,
|
||||
modul => $modul,
|
||||
title => $title,
|
||||
modul => $modul,
|
||||
${prefix}_data => \%${prefix}_data
|
||||
);
|
||||
$c->render(template => "${lcPackageName}");
|
||||
@ -181,7 +181,6 @@ sub do_update {
|
||||
$$${prefix}_data{'trt'} = '${NextPanel | "none"}';
|
||||
}
|
||||
$c->do_display($$${prefix}_data{'trt'});
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -1,4 +1,5 @@
|
||||
<root>
|
||||
<!-- Todo - add password visibility to password type -->
|
||||
<Select><![CDATA[
|
||||
<p><span class=label>
|
||||
%=l('${prefix}_${Label}')
|
||||
|
@ -26,7 +26,7 @@
|
||||
</p>
|
||||
|
||||
%} elsif ($c->stash('success')) {
|
||||
<div class='sme-border'>
|
||||
<div class='success '>
|
||||
<h2><%=$c->l('Status Report') %></h2><p>
|
||||
%= $c->l($c->stash('success'));
|
||||
</p>
|
||||
|
Loading…
Reference in New Issue
Block a user