minor fixes and iframe css

This commit is contained in:
Rainer Gümpelein 2022-04-02 20:28:45 +02:00
parent 381943be42
commit fd29218991
9 changed files with 155 additions and 70 deletions

View file

@ -56,11 +56,11 @@ sub tpl(){
my $main_id = $node_meta->{main_id};
my $title = "";
$title .= $dbt->{primary}->{$varenv->{dbname}}->{pprefix} if($dbt->{primary}->{$varenv->{dbname}}->{pprefix});
$title .= $dbt->{operator}->{$varenv->{dbname}}->{project} if($dbt->{operator}->{$varenv->{dbname}}->{project});
$title .= $dbt->{primary}->{$varenv->{dbname}}->{title} if($dbt->{primary}->{$varenv->{dbname}}->{title});
$title .= $dbt->{operator}->{$varenv->{dbname}}->{title} if($dbt->{operator}->{$varenv->{dbname}}->{title});
$title .= " " . $dbt->{operator}->{$varenv->{dbname}}->{oprefix} if($dbt->{operator}->{$varenv->{dbname}}->{oprefix});
$title .= $dbt->{website}->{$varenv->{syshost}}->{project} if($dbt->{website}->{$varenv->{syshost}}->{project});
$title .= " DEVEL $varenv->{dbname}" if($dbt->{copri_conf}->{stage} eq "test");
$title .= $dbt->{website}->{$varenv->{syshost}}->{title} if($dbt->{website}->{$varenv->{syshost}}->{title});
$title .= " (DEVEL $varenv->{dbname})" if($dbt->{copri_conf}->{stage} eq "test");
###User Panel
@ -251,11 +251,17 @@ sub tpl(){
#node_name=DMS
if($varenv->{dbname} eq "sharee_primary" && $main_id == "100002"){
my $big2menu="";
while (my ($key, $value) = each %{ $dbt->{operator} }) {
if($value->{operatorApp}){
$big2menu .= $but->lia_button("$value->{operatorDMS}","$key","","","","");
}
#while (my ($key, $value) = each %{ $dbt->{operator} }) {
foreach my $key (sort keys (%{ $dbt->{operator} })) {
$big2menu .= $but->lia_button("$dbt->{operator}->{$key}->{operatorDMS}","$key","","","","");
}
foreach my $key (sort keys (%{ $dbt->{website} })) {
$big2menu .= $but->lia_button("$dbt->{website}->{$key}->{operatorWeb}","$key","","","","");
}
#foreach my $key (sort keys (%{ $dbt->{operator} })) {
# $big2menu .= $but->lia_button("$dbt->{operator}->{$key}->{operatorApp}","$key","","","","");
#}
print $q->div({-style=>'width:100%;margin:0;padding-top:90px;color:white;'}, "sharee.bike Operatoren"),"\n";
print $q->div({-style=>'width:100%;margin:0;'}, $q->ul({-id=>'BigNavi'},$big2menu)),"\n";
}