smeserver/smeserver-manager
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Thu Jun 12 2025 Brian Read <brianr@koozali.org> 11.0.0-90.sme

Browse Source 
- Error on empty extra chars for success message [SME: 13041]
- Needed extra open for network-db after add
This commit is contained in:
Brian Read 2025-06-12 19:15:22 +01:00
parent 1a8f935431
commit dcc098b206
4 changed files with 48 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
root/usr/share/smanager/lib/SrvMngr/Controller/Localnetworks.pm
View File

@ -67,6 +67,7 @@ sub do_display {
#Add a network - called after new network details filled in #Add a network - called after new network details filled in
my %ret = add_network($c); my %ret = add_network($c);
$network_db = esmith::NetworksDB::UTF8->open();
#Return to list page if success #Return to list page if success
if ((index($ret{ret}, "SUCCESS") != -1)) { if ((index($ret{ret}, "SUCCESS") != -1)) {

45
root/usr/share/smanager/themes/default/templates/partials/_ln_add.html.ep
View File

@ -1,32 +1,29 @@
<div id='ln_add'> <div id='ln_add'>
% my $retref= $c->stash("ret"); % my $retref= $c->stash("ret");
% my %ret; % my %ret = $retref ? %$retref : (ret => "");
% unless (length($retref)) {%ret = (ret=>"");} % my @vars = split(/,/, $ret{vars} // '');
% else {%ret = %$retref;} % my ($var1, $var2, $var3, $var4, $var5, $var6, $var7) = @vars;
% my @vars = split(",",$ret{vars}); % if ($c->app->config->{debug}) {
% my $var1 = @vars[0]; <p>
% my $var2 = @vars[1]; %= dumper { ret_data => \%ret }
% my $var3 = @vars[2]; </p>
% my $var4 = @vars[3]; % }
% my $var5 = @vars[4];
% my $var6 = @vars[5];
<br> % if ($ret{ret} eq "") {
%if ($ret{'ret'} eq "") { %=l "ln_FIRSTPAGE_DESC"
% } elsif (index($ret{ret},"SUCCESS") != -1) {
%} elsif (index($ret{ret},"SUCCESS") != -1) { <br>
<div class='success'> <div class='success'>
<!--<h2> Operation Status Report</h2>--> %= $c->render_to_string(inline => l($ret{ret}, @vars[0..6]))
%= $c->render_to_string(inline => l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6)); </div>
</div> % } else {
%} else { <br>
<div class='sme-error'> <div class='sme-error'>
<!--<h2> Operation Status Report - Error</h2>--> %= $c->render_to_string(inline => l($ret{ret}, @vars[0..6]))
%= $c->render_to_string(inline => l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6)); </div>
</div> % }
%}
<br /> <br />
% my $btn = l('ADD'); % my $btn = l('ADD');
% my $network_db = esmith::NetworksDB::UTF8->open() || die "Couldn't open NetworksDB db"; % my $network_db = esmith::NetworksDB::UTF8->open() || die "Couldn't open NetworksDB db";

49
root/usr/share/smanager/themes/default/templates/partials/_ln_list.html.ep
View File

@ -3,41 +3,30 @@
%= form_for '/localnetworksa' => (method => 'POST') => begin %= form_for '/localnetworksa' => (method => 'POST') => begin
% my $retref= $c->stash("ret"); % my $retref= $c->stash("ret");
% my %ret; % my %ret = $retref ? %$retref : (ret => "");
% unless (length($retref)) {%ret = (ret=>"");} % my @vars = split(/,/, $ret{vars} // '');
% else {%ret = %$retref;} % my ($var1, $var2, $var3, $var4, $var5, $var6, $var7) = @vars;
% if (config->{debug} == 1) { % if ($c->app->config->{debug}) {
<p> <p>
%= dumper "Ret:".$ret{ret}; %= dumper { ret_data => \%ret }
</p> </p>
%} % }
% my @vars = split(",",$ret{vars}); % if ($ret{ret} eq "") {
% my $var1 = @vars[0];
% my $var2 = @vars[1];
% my $var3 = @vars[2];
% my $var4 = @vars[3];
% my $var5 = @vars[4];
% my $var6 = @vars[5];
% my $var7 = @vars[6];
%if ($ret{ret} eq "") {
%=l "ln_FIRSTPAGE_DESC" %=l "ln_FIRSTPAGE_DESC"
%} elsif (index($ret{ret},"SUCCESS") != -1) { % } elsif (index($ret{ret},"SUCCESS") != -1) {
<br> <br>
<div class='success'> <div class='success'>
<!--<h2> Operation Status Report</h2>--> %= $c->render_to_string(inline => l($ret{ret}, @vars[0..6]))
%= $c->render_to_string(inline => l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6,$var7)); </div>
</div> % } else {
%} else { <br>
<br> <div class='sme-error'>
<div class='sme-error'> %= $c->render_to_string(inline => l($ret{ret}, @vars[0..6]))
<!--<h2> Operation Status Report - Error</h2>--> </div>
%= $c->render_to_string(inline => l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6,$var7)); % }
</div>
%}
<p> <p>
<br> <br>

6
smeserver-manager.spec
View File

@ -2,7 +2,7 @@ Summary: Sme server navigation module : manager 2
%define name smeserver-manager %define name smeserver-manager
Name: %{name} Name: %{name}
%define version 11.0.0 %define version 11.0.0
%define release 89 %define release 90
Version: %{version} Version: %{version}
Release: %{release}%{?dist} Release: %{release}%{?dist}
License: GPL License: GPL
@ -144,6 +144,10 @@ true
%defattr(-,root,root) %defattr(-,root,root)
%changelog %changelog
* Thu Jun 12 2025 Brian Read <brianr@koozali.org> 11.0.0-90.sme
- Error on empty extra chars for success message [SME: 13041]
- Needed extra open for network-db after add
* Thu Jun 12 2025 Brian Read <brianr@koozali.org> 11.0.0-89.sme * Thu Jun 12 2025 Brian Read <brianr@koozali.org> 11.0.0-89.sme
- rework navigation weights to avoid duplicates [SME: 12996] - rework navigation weights to avoid duplicates [SME: 12996]