mirror of
https://gitlab.com/t6353/sharee.bike.git
synced 2024-11-15 23:26:34 +01:00
118 lines
3.2 KiB
Perl
Executable file
118 lines
3.2 KiB
Perl
Executable file
package Modalbox;
|
||
#
|
||
# 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 Scalar::Util qw(looks_like_number);
|
||
use Lib::Config;
|
||
use Mod::Buttons;
|
||
use Mod::Libenzdb;
|
||
use Mod::DBtank;
|
||
|
||
sub new {
|
||
my $class = shift;
|
||
my $self = {};
|
||
bless($self,$class);
|
||
return $self;
|
||
}
|
||
|
||
sub mobox(){
|
||
my $node_meta = shift;
|
||
my $users_dms = shift;
|
||
my $return = shift || "";
|
||
|
||
my $q = new CGI;
|
||
my $cf = new Config;
|
||
my $but = new Buttons;
|
||
my $db = new Libenzdb;
|
||
my $dbt = new DBtank;
|
||
$q->import_names('R');
|
||
my @keywords = $q->param;
|
||
my %varenv = $cf->envonline();
|
||
my $script = $q->script_name();
|
||
my $path = $q->path_info();
|
||
my $lang = "de";
|
||
my $dbh = "";
|
||
|
||
if($users_dms->{kind_of_trans} && looks_like_number($users_dms->{c_id4trans}) && looks_like_number($users_dms->{tpl_id4trans})){
|
||
my $width = $node_meta->{tpl_width} || "990";
|
||
my $bg_color = "white";
|
||
my $bg_color2 = "#f7ae37" || "";
|
||
|
||
my $table = "contenttrans";
|
||
my $ctt = $db->get_content1($table,$users_dms->{c_id4trans});
|
||
my ($address_wc,$table_wc) = split(/\./,$ctt->{int04});
|
||
my $rows = $address_wc + $table_wc;
|
||
|
||
my $height = "600";
|
||
if($varenv{orga} eq "dms"){
|
||
$rows = $rows - 0;
|
||
}else{
|
||
$rows = $rows - 10;
|
||
}
|
||
$height += $rows * 15 if($rows > 0);
|
||
my $debug;
|
||
$debug = "(c_id: $users_dms->{c_id4trans} | tpl_id: $users_dms->{tpl_id4trans})" if($users_dms->{u_id} == $dbt->{copri_conf}->{superu_id});
|
||
|
||
print<<EOF
|
||
<style>
|
||
.ui-dialog .ui-dialog-content {
|
||
background: $bg_color;
|
||
}
|
||
.ui-dialog > .ui-widget-header {
|
||
color:$varenv{color};
|
||
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);
|
||
}
|
||
</style>
|
||
|
||
<script>
|
||
\$(function() {
|
||
\$( "#dialog-form" )
|
||
.css("background-color","$bg_color")
|
||
.dialog({
|
||
height: $height,
|
||
width: $width,
|
||
//show: { effect: 'drop', direction: "up" } ,
|
||
closeOnEscape: true,
|
||
zIndex: 1010000000000,
|
||
modal: true
|
||
});
|
||
\$('.ui-widget-overlay').click(function() {
|
||
\$(".ui-dialog-titlebar-close").trigger('click');
|
||
});
|
||
\$('.ui-dialog').css('z-index',9999);
|
||
});
|
||
</script>
|
||
EOF
|
||
;
|
||
|
||
print "<div id='dialog-form' style='text-align:center;margin:0;padding:2px;max-width:1200px;' title='Terminal – $users_dms->{kind_of_trans} $debug'>";
|
||
|
||
if($users_dms->{kind_of_trans} && looks_like_number($users_dms->{c_id4trans}) && looks_like_number($users_dms->{tpl_id4trans})){
|
||
if($table eq "contenttrans" && $varenv{orga} eq "dms"){
|
||
require "Tpl/Address3.pm";
|
||
&Address3::tpl($node_meta,$users_dms,$return);
|
||
}
|
||
}else{
|
||
print $q->div({-style=>"padding:0.1em;margin:0em;background-color:white;font-size:0.81em;"}, "Ein neues Formular kann im COPRI Hauptfenster geöffnet werden (Code: $users_dms->{kind_of_trans} && $users_dms->{c_id4trans} && $users_dms->{tpl_id4trans})",
|
||
"\n");
|
||
}
|
||
|
||
print "</div>\n";
|
||
}
|
||
}
|
||
1;
|