package Mlogic; use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); use CGI ':standard'; use Mod::Buttons; use Mod::Libenzdb; use Mod::DBtank; use Data::Dumper; my $q = new CGI; my $db = new Libenzdb; my $dbt = new DBtank; my $but = new Buttons; sub new { my $class = shift; my $self = {}; bless($self,$class); return $self; } #Template sub tpl(){ my $self = shift; my ($node_meta,$users_dms,$mode,$varenv,$users_sharee,$return) = @_; my $lang = "de"; my $debug = 0; $debug = 1; my $dbh = ""; my $session=""; my $session_and=""; if($R::sessionid && length($R::sessionid) > 20 && !$q->cookie(-name=>'domcookie')){ $session = "?sessionid=$R::sessionid"; $session_and = "&sessionid=$R::sessionid"; } my $node = {}; my $rows = 0; my $bgcolor1 = $dbt->{website}->{$varenv->{syshost}}->{bgcolor1} || "yellow";#button background my $hgcolor1 = $dbt->{website}->{$varenv->{syshost}}->{hgcolor1} || "yellow";#hover background my $fgcolor1 = $dbt->{website}->{$varenv->{syshost}}->{fgcolor1} || "black";#font color my $parent_node = $dbt->{website}->{$varenv->{syshost}}->{parent_node} || "app"; ($node,$rows) = $dbt->collect_noderel($dbh,$dbt->{website}->{$varenv->{syshost}}->{parent_id}); if($users_sharee->{c_id} eq $varenv->{superu_id} || $dbt->{copri_conf}->{stage} eq "test"){ my $coo = $q->cookie('domcookie') || $q->param('sessionid') || ""; #my $api_test = "sharee_kn"; #my $api_test = "sharee_fr01"; #my $api_test = "sharee_wue"; my $api_test = "sharee_sx"; print $q->div({-style=>'float:right;text-align:right;height:25px;padding:6px 15px;background-color:white'},$q->a({-style=>"background-color:#ffffff;color:#$bgcolor1;", -href=>"$varenv->{metahost}/src/scripts/tests/index.pl?sessionid=$coo\&api_test=$api_test", -target=>'_blank'}," [ tests --> $api_test ] ")),"\n"; } my $site_padding = "20px 0"; if($dbt->{website}->{$varenv->{syshost}}->{layout} eq "iframe"){ $site_padding = "0"; } if(1==1){ print ""; my $lmenu0 = ""; foreach my $id (sort {$node->{$a}->{n_sort} <=> $node->{$b}->{n_sort}} keys (%$node)){ $node->{$id}->{node_path} = $node->{$id}->{node_name} if(!$node->{$id}->{node_path}); my $mstyle = ""; if($node->{$id}->{main_id} == $node_meta->{main_id} || $node->{$id}->{main_id} == $node_meta->{parent_id}){ $mstyle = "background-color:#$hgcolor1;color:#fffffe;"; } if($node->{$id}->{node_name} eq "Anmelden" && $node_meta->{parent_id} == 200010){ $mstyle = "background-color:#$hgcolor1;color:#fffffe;"; } if($node->{$id}->{node_name} eq "Anmelden" && $users_sharee->{c_id}){ $lmenu0 .= $but->lia_button("/$parent_node/$varenv->{profile}$session","Mein Profil",$node->{$id}->{main_id},"","$mstyle",$users_dms->{u_id}); }else{ $lmenu0 .= $but->lia_button("/$parent_node/$node->{$id}->{node_path}",$node->{$id}->{node_name},$node->{$id}->{main_id},"","$mstyle",$users_dms->{u_id}); } } #bootstrap 5 with standalone site print "