roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-05-10 05:56:27 +02:00
Code Issues Projects Releases Packages Wiki Activity

search option for debug-log info by rentaljournal

Browse source
This commit is contained in:
ragu 2023-10-26 06:50:16 +02:00
parent 44d47011af
commit 9e1a56aa83
7 changed files with 84 additions and 173 deletions
Download patch file Download diff file Expand all files Collapse all files

32
copri4/shareedms-operator/src/Lib/Mlogic.pm
View file

@ -12,14 +12,12 @@ use Config::General;
use Mod::Buttons;
use Mod::Basework;
use Mod::Libenz;
use Mod::Libenzdb;
use Mod::DBtank;
use POSIX;
use Data::Dumper;
my $bw = new Basework;
my $lb = new Libenz;
my $db = new Libenzdb;
my $dbt = new DBtank;
my $but = new Buttons;
@ -52,10 +50,9 @@ sub tpl(){
}
my $coo = $q->cookie(-name=>'domcookie');
my $debug = "";
my $lang = "de";
my $dbh = "";
my @viewsel = split /\//,$1 if($path =~ /^\/(.*)/);
my $view_root = $viewsel[0] || "";
my $mandant = $db->get_node("$view_root","$lang");
my $parent_id = $node_meta->{parent_id};
my $main_id = $node_meta->{main_id};
@ -86,7 +83,15 @@ sub tpl(){
}elsif($R::go && $R::go eq "forward_list"){
$offset += $limit;
}
my $ctrel = $db->get_ctrel($table,"",$lang,"",$users_dms->{c_id4trans},$users_dms->{tpl_id4trans});
my $pref = {
table => "contenttrans",
fetch => "one",
template_id => $users_dms->{tpl_id4trans},
c_id => $users_dms->{c_id4trans},
};
my $ctrel = $dbt->fetch_record($dbh,$pref);
print $q->div({-id=>'Headerlogin',-style=>"background-color:#f7ae37;"},$q->a({-class=>'elinkbutton1',-title=>"Faktura Terminal öffnen",-href=>"$varenv->{wwwhost}/DMS/Faktura?ct_trans=open\&c_id4trans=$users_dms->{c_id4trans}\&tpl_id4trans=$users_dms->{tpl_id4trans}\&owner=$users_dms->{owner}\&offset=$offset\&limit=$limit\&relids=$R::relids\&no_redirect=1"}," Faktura \#$ctrel->{ct_name} $ctrel->{txt01}", $q->span({-id=>"c_id4trans", -style=>"color:#f7ae37"}, "$users_dms->{c_id4trans}"))) if($ctrel->{ct_name});
}
@ -157,7 +162,7 @@ sub tpl(){
print "<span class='navbar-toggler-icon'></span>\n";
print "</button>\n";
print $q->div({-id=>'Headerlogo'},$q->a({-class=>'navbar-brand',-style=>"color:black;",-href=>"$varenv->{wwwhost}"}, $q->img({ -style=>"height:25px",-src=>"$varenv->{head_logo}"}), "$coprihome" ,$q->div({-style=>'font-size:0.71em;'}, "$title"))),"\n";
my $node = $db->collect_noderel($dbt->{shareedms_conf}->{parent_id},$lang,$users_dms->{u_id});
my ($node,$rows) = $dbt->collect_noderel($dbh,$dbt->{shareedms_conf}->{parent_id},"");
print "<div class='collapse navbar-collapse' id='navbarsDefault'>\n";
print "<ul class='navbar-nav me-auto mb-2 mb-md-0' style='padding:0 20px;text-align:left;'>\n";
@ -192,7 +197,7 @@ sub tpl(){
#1. submenu
my $subs1=0;
my $node1 = $db->collect_noderel($node->{$id}->{main_id},$lang,$users_dms->{u_id});
my ($node1,$rows1) = $dbt->collect_noderel($dbh,$node->{$id}->{main_id},"");
foreach my $id1 (sort {$node1->{$a}->{n_sort} <=> $node1->{$b}->{n_sort}} keys (%$node1)){
$subs1=1 if($node1->{$id1}->{main_id});
}
@ -207,7 +212,7 @@ sub tpl(){
foreach my $id1 (sort {$node1->{$a}->{n_sort} <=> $node1->{$b}->{n_sort}} keys (%$node1)){
#hide Operator- and Kunden-Faktura config or be primary admin
if(($node1->{$id1}->{template_id} !~ /196|201/) || ($users_dms_primary->{u_id} && $users_dms_primary->{int02} >= 1)){
my $node2 = $db->collect_noderel($node1->{$id1}->{main_id},$lang,$users_dms->{u_id});
my ($node2,$rows2) = $dbt->collect_noderel($dbh,$node1->{$id1}->{main_id},"");
$topath = "/$viewsel[0]/$node->{$id}->{node_name}";
$mclass = "";
$mstyle = "";
@ -228,10 +233,13 @@ sub tpl(){
if(ref($node2) eq "HASH"){
my $lmenu2;
foreach my $id2 (sort {$node2->{$a}->{n_sort} <=> $node2->{$b}->{n_sort}} keys (%$node2)){
my $parent_node4rel = $db->get_node4rel($node2->{$id2}->{parent_id},"","","null");
#because of don't view Service Attribut on Einste.
my $noderef = {
main_id => $node2->{$id2}->{parent_id},
content_id => 'null',
fetch => 'one',
};
my $parent_node4rel = $dbt->fetch_rel4tpl4nd($dbh,$noderef);
if($parent_node4rel->{template_id} =~ /205|225|194/){
#if(1==1){
$mclass = "";
$mstyle = "";
if("$node2->{$id2}->{node_name}" eq "$viewsel[3]"){
@ -305,7 +313,7 @@ sub tplselect(){
my $feedb_req = shift || {};
my $sort = "";
my $lang = "de";
my $dbh = "";
my $tpl_name = $node_meta->{tpl_name};
my $tpl_id = $node_meta->{tpl_id};
my $ct_table = $node_meta->{ct_table};