mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-05-13 12:56:36 +02:00
181 lines
7.3 KiB
Perl
Executable file
181 lines
7.3 KiB
Perl
Executable file
package NodeEdit;
|
|
#
|
|
# SPDX-License-Identifier: AGPL-3.0-or-later
|
|
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
|
|
#
|
|
#
|
|
use strict;
|
|
use warnings;
|
|
use CGI::Carp qw(fatalsToBrowser);
|
|
use CGI ':standard';
|
|
use Lib::Config;
|
|
use Mod::Buttons;
|
|
use Mod::Libenz;
|
|
use Mod::Basework;
|
|
use Mod::DBtank;
|
|
use Data::Dumper;
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
my $self = {};
|
|
bless($self,$class);
|
|
return $self;
|
|
}
|
|
|
|
#Template
|
|
sub admin_tpl(){
|
|
my $node_meta = shift;
|
|
my $users_dms = shift;
|
|
my $superu_id = shift || "";
|
|
|
|
my $q = new CGI;
|
|
my @keywords = $q->param;
|
|
my $cf = new Config;
|
|
my $lb = new Libenz;
|
|
my $bw = new Basework;
|
|
my $dbt = new DBtank;
|
|
my $but = new Buttons;
|
|
my %varenv = $cf->envonline();
|
|
my $script = $q->script_name();
|
|
my $path = $q->path_info();
|
|
$path = "$script" . "$path";
|
|
my $lang = "de";
|
|
|
|
my $coo = $q->cookie(-name=>'domcookie');
|
|
my %ib = $but->ibuttons();
|
|
my $dbh = "";
|
|
|
|
my $u_name = $node_meta->{nowner};
|
|
$u_name = $dbt->sys_username($dbh,$node_meta->{nowner});
|
|
|
|
my $change = $lb->time4de($node_meta->{nchange},"1") if($node_meta->{nchange});
|
|
my $subid = $1 if($node_meta->{main_id} =~ /^(\d)/);
|
|
|
|
#Node templates
|
|
my $tpl_id = 97;
|
|
my $tpl_lists4selection = "";
|
|
|
|
if($node_meta->{ct_table} eq "content"){
|
|
$tpl_id = 100;
|
|
if($node_meta->{template_id} eq "205"){
|
|
$tpl_lists4selection = 205;
|
|
}elsif($node_meta->{template_id} eq "225"){
|
|
$tpl_lists4selection = 225;
|
|
}elsif($node_meta->{template_id} eq "210"){
|
|
$tpl_lists4selection = 210;
|
|
}else{
|
|
$tpl_lists4selection = "224,226,227,228,229";
|
|
}
|
|
}elsif($node_meta->{ct_table} eq "contenttrans"){
|
|
$tpl_id = "101";
|
|
$tpl_lists4selection = "218";
|
|
}elsif($node_meta->{ct_table} eq "contenttranspos"){
|
|
$tpl_id = "101";
|
|
$tpl_lists4selection = "221,222";
|
|
}elsif($node_meta->{ct_table} eq "contentadr" || $node_meta->{ct_table} eq "contentadrpos"){
|
|
$tpl_id = "101";
|
|
$tpl_lists4selection = "401,402,403";
|
|
}
|
|
|
|
my $tpl = $dbt->get_tpl($dbh,$tpl_id);
|
|
my @tpl_order = ("");
|
|
@tpl_order = split /,/,$tpl->{tpl_order};
|
|
|
|
|
|
my @_templates;
|
|
my $tpl_all = $dbt->collect_tpl($tpl_lists4selection);
|
|
foreach my $id (sort {$tpl_all->{$a}->{tpl_name} cmp $tpl_all->{$b}->{tpl_name}} keys (%$tpl_all)){
|
|
push (@_templates, "$id:$tpl_all->{$id}->{tpl_name}") if($tpl_all->{$id}->{tpl_name} !~ /dummy/);
|
|
}
|
|
|
|
#content container
|
|
print "<div id='Container_cms'>$superu_id";
|
|
|
|
print $q->hidden(-name=>'last_node_name', -value=>"$node_meta->{node_name}");
|
|
print $q->hidden(-name=>'owner', -value=>"$users_dms->{u_id}");
|
|
print $q->hidden(-name=>'parent_id', -value=>"$node_meta->{parent_id}");
|
|
print $q->hidden(-name=>'main_id', -value=>"$node_meta->{main_id}");
|
|
#print $q->hidden(-name=>'template_id', -value=>"$node_meta->{template_id}");
|
|
|
|
print $q->start_table({-style=>'margin-top:6px;', -border=>'0', -width=>'100%', -align=>'left', -cellpadding=>'3', -cellspacing=>'3'});
|
|
print $q->Tr();
|
|
if($users_dms->{u_id}){
|
|
print "<td style='background:#a7a18f;margin:1px 0;padding:2px;' colspan='2' nowrap>\n";
|
|
print $but->singlesubmit7("rel_edit","save_relation","$ib{save_relation}","","");
|
|
print $q->span({-style=>'margin:0 0.2em;'}," ");
|
|
print $but->singlesubmit7("rel_edit","delete_relation","$ib{delete_relation}","","");
|
|
print $q->span({-style=>'margin:0 0.2em;'}," ");
|
|
print $but->singlesubmit7("rel_edit","new_relation","$ib{new_relation}","","");
|
|
print $q->span({ -style=>'margin:4px 0 0 4px;'},$but->checkbox("1","new_submenu","$R::new_submenu"),"Submenu") if($subid < 3 && $node_meta->{template_id} !~ /205/);#no submenue if bikes);
|
|
print $q->span({-style=>'margin-left:10em; font-size:0.91em;'}, "$u_name / $change") if($u_name);
|
|
print "</td>\n";
|
|
|
|
print $q->Tr();
|
|
print $q->td({-colspan=>'2',-style=>'padding:5px;font-style:italic;'},"Path: $path");
|
|
foreach (@tpl_order){
|
|
my ($key,$des,$isize) = split /=/,$_;
|
|
$des .= " ($key)" if($users_dms->{u_id} eq $varenv{superu_id});
|
|
#print "$key, $des, $isize|";
|
|
$isize = "20" if(!$isize);
|
|
|
|
if($key =~ /node_public|footer/){
|
|
print $q->Tr();
|
|
print $q->td({-class=>'left_italic_cms'},"$des"),"\n";
|
|
print $q->td({-class=>'content1_cms'},$but->checkbox("1","$key","$node_meta->{$key}")),"\n";
|
|
}elsif($key =~ /tpl_name/){
|
|
print $q->Tr();
|
|
print $q->td({-class=>'left_italic_cms'},"$des"),"\n";
|
|
print $q->td({-class=>'content1_cms'},$but->selector("template_id","200px",$node_meta->{template_id},@_templates)),"\n";
|
|
}elsif($key =~ /node_name/){
|
|
print $q->Tr();
|
|
print $q->td({-class=>'left_italic_cms'},"$des");
|
|
print $q->td({-class=>'content1_cms'},$q->textfield(-class=>'etxt',-name=>"$key",-default=>"$node_meta->{$key}",-override=>'1',-size=>"$isize",-maxlength=>120)),"\n";
|
|
}elsif($key =~ /n_sort/){
|
|
print $q->Tr();
|
|
print $q->td({-class=>'left_italic_cms'},"$des");
|
|
print $q->td({-class=>'content1_cms'},$q->textfield(-class=>'etxt',-name=>"$key",-default=>"$node_meta->{$key}",-override=>'1',-size=>"$isize",-maxlength=>120)),"\n";
|
|
}elsif($node_meta->{template_id} eq "205"){
|
|
if($key eq "type_id" && $isize eq "select"){
|
|
my @s_valxx = ();
|
|
my $s_hash = {};
|
|
$s_hash = $dbt->{copri_conf}->{type_id};
|
|
print $q->Tr();
|
|
print $q->td({-class=>'left_italic_cms',-colspan=>'1'},"$des");
|
|
foreach my $s_key (sort keys (%{ $s_hash })) {
|
|
push @s_valxx, "$s_key:$s_hash->{$s_key}";
|
|
}
|
|
print $q->td({-class=>'content1_cms'},$but->selector_class("$key","","",$node_meta->{$key},@s_valxx)),"\n";
|
|
}elsif($key =~ /energy_id|battery_/ && $isize eq "checkbox"){
|
|
print $q->Tr();
|
|
print $q->td({-class=>'left_italic_cms'},"$des"),"\n";
|
|
print $q->td({-class=>'content1_cms', -colspan=>'1'}, $but->checkbox("1","$key","$node_meta->{$key}")),"\n";
|
|
print $q->hidden(-name=>"$key",-override=>1,-value=>"null");
|
|
}elsif($key eq "archive" && $isize eq "checkbox"){
|
|
print $q->Tr();
|
|
print $q->td({-class=>'left_italic_cms'},"$des"),"\n";
|
|
print $q->td({-class=>'content1_cms', -colspan=>'1'}, $but->checkbox("1","$key","$node_meta->{$key}")),"\n";
|
|
print $q->hidden(-name=>"$key",-override=>1,-value=>"null");
|
|
}elsif($key =~ /fleed_/){
|
|
print $q->Tr();
|
|
print $q->td({-class=>'left_italic_cms'},"$des"),"\n";
|
|
if($isize eq "area"){
|
|
print $q->td({-class=>'content1_cms', -colspan=>'3'},$q->textarea(-class=>"etxt", -style=>'border: 1px solid silver;', -name=>"$key", -override=>'1',-default=>"$node_meta->{$key}",-rows=>"2",-cols=>25)),"\n";
|
|
}else{
|
|
print $q->td({-class=>'content1_cms'},$q->textfield(-class=>'etxt',-name=>"$key",-default=>"$node_meta->{$key}",-override=>'1',-size=>"$isize",-maxlength=>120)),"\n";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}else{
|
|
print $q->div({-style=>'text-align:left;margin:0.5em;padding:1em;background-color:white;'},"Keine Zugriffsrechte");
|
|
}
|
|
|
|
print $q->end_table;
|
|
|
|
my $debug = "";
|
|
$debug = "(ct_table: $node_meta->{ct_table} | main_id: $node_meta->{main_id} | tpl_id: $node_meta->{template_id} | type_id: $node_meta->{type_id} | energy_id: $node_meta->{energy_id}" if($users_dms->{u_id} == $dbt->{copri_conf}->{superu_id});
|
|
print $q->div({-style=>'position:absolute;bottom:2%;right:2%;z-index:10;font-size:13px;'},"$debug"),"\n";
|
|
print "</div>";
|
|
}
|
|
1;
|