package Modalbox3; # SPDX-License-Identifier: AGPL-3.0-or-later # Copyright (c) Rainer Gümpelein, TeilRad GmbH use strict; use warnings; use CGI::Cookie (); use CGI ':standard'; use CGI::Carp qw(fatalsToBrowser); use Lib::Config; use Mod::Buttons; use Mod::DBtank; sub new { my $class = shift; my $self = {}; bless($self,$class); return $self; } sub mobox3(){ my $varenv = shift; my $node_meta = shift; my $users_dms = shift; my $feedb = shift || {}; my $q = new CGI; my $cf = new Config; my $dbt = new DBtank; my $but = new Buttons; $q->import_names('R'); my @keywords = $q->param; my $script = $q->script_name(); my $path = $q->path_info(); my $coo = $q->cookie(-name=>'domcookie'); my $dbh = ""; if($node_meta->{main_id} > 100){ my $bg_color = "white"; my $bg_color2 = $node_meta->{bg_color} || "grey"; my $title = "Content Editor \"$node_meta->{tpl_name}\""; $title = "Parts Editor" if($node_meta->{ct_table} eq "content"); $title = "Kunden Editor" if($node_meta->{ct_table} eq "contentadr"); $title = "DMS-Account Editor" if($node_meta->{ct_table} eq "users"); $title = "Service Editor" if($node_meta->{ct_table} eq "contentpos"); $title = "Rental Editor" if($node_meta->{ct_table} eq "contenttranspos"); my $height = $node_meta->{tpl_height} || "990"; my $width = $node_meta->{tpl_width} || "990"; if($R::node2edit eq "edit_relation" || $R::rel_edit =~ /_relation/){ $title = "Node Editor"; $height = "400"; $width = "600"; } print< .ui-dialog .ui-dialog-content { background: $bg_color; } .ui-dialog > .ui-widget-header { color:black; font-weight:normal; border:1px solid $bg_color2; background: $bg_color2; } .ui-widget-overlay { background: #666 url("$varenv->{metahost}/external/jquery-ui-1.12.1/images/ui-bg_diagonals-thick_20_666666_40x40.png") 50% 50% repeat; opacity: .5; filter: Alpha(Opacity=50); } EOF ; print "
\n"; print $q->start_multipart_form(-name=>"editform"); if($R::node2edit && $R::node2edit =~ /new_relation|edit_relation/){ if($node_meta->{ct_table} eq "content" && $node_meta->{template_id} eq "205"){ require "Mod/NodeEdit.pm"; &NodeEdit::admin_tpl($node_meta,$users_dms); }elsif($users_dms->{u_id} == $dbt->{copri_conf}->{superu_id}){ require "Mod/NodeEdit.pm"; &NodeEdit::admin_tpl($node_meta,$users_dms,"only superu_id"); }else{ print $q->div("Dieses Menue ist zur Bearbeitung nicht freigegeben."); } } #elsif($node_meta->{ct_table} eq "contentpos"){ # require "Tpl/APIdialog.pm"; # &APIdialog::tpl($node_meta,$users_dms,$mode,$return); #} elsif(($R::node2edit && $R::node2edit =~ /editpart/) || ($R::base_edit && $R::base_edit !~ /delete/)){ require "Tpl/BaseEdit.pm"; &BaseEdit::tpl($varenv,$node_meta,$users_dms,$feedb); } else{ print $q->div("Zugriff verweigert."); } print $q->end_form; print "
\n"; } } 1;