2021-12-30 12:05:56 +01:00
package BaseEdit ;
#
#
# SPDX-License-Identifier: AGPL-3.0-or-later
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
#
#use lib "/var/www/copri4/shareedms-primary/src";
#
use strict ;
use warnings ;
use POSIX ;
use CGI::Carp qw( fatalsToBrowser ) ;
use CGI ':standard' ;
use Lib::Config ;
use Mod::Buttons ;
use Date::Calc qw( :all ) ;
use Mod::Libenz ;
use Mod::Basework ;
use Mod::DBtank ;
use Mod::APIfunc ;
2022-06-02 10:34:03 +02:00
use Mod::Pricing ;
2021-12-30 12:05:56 +01:00
use Data::Dumper ;
sub new {
my $ class = shift ;
my $ self = { } ;
bless ( $ self , $ class ) ;
return $ self ;
}
#Template
sub tpl () {
my $ node_meta = shift ;
my $ users_dms = shift ;
2023-01-17 20:43:36 +01:00
my $ feedb = shift || { } ;
2021-12-30 12:05:56 +01:00
my $ q = new CGI ;
my $ cf = new Config ;
my $ lb = new Libenz ;
my $ bw = new Basework ;
my $ dbt = new DBtank ;
my $ apif = new APIfunc ;
2022-06-02 10:34:03 +02:00
my $ pri = new Pricing ;
2021-12-30 12:05:56 +01:00
my $ but = new Buttons ;
my % ib = $ but - > ibuttons ( ) ;
my % varenv = $ cf - > envonline ( ) ;
my $ lang = "de" ;
my $ dbh = "" ;
2023-01-17 20:43:36 +01:00
my $ c_id = "" ;
2023-03-05 20:01:47 +01:00
#helper to get c_id by rel_id
if ( $ R:: rel_id && $ R:: rel_id =~ /(\d+)/ ) {
my $ rel_id = $ 1 ;
my $ ref_helper = {
table = > "$node_meta->{ct_table}" ,
fetch = > "one" ,
template_id = > "$node_meta->{tpl_id}" ,
rel_id = > "$rel_id" ,
} ;
my $ ctrel_helper = $ dbt - > fetch_record ( $ dbh , $ ref_helper ) ;
$ c_id = $ ctrel_helper - > { c_id } if ( $ ctrel_helper - > { c_id } ) ;
}
2023-01-17 20:43:36 +01:00
$ c_id = $ 1 if ( $ R:: c_id && $ R:: c_id =~ /(\d+)/ ) ;
$ c_id = $ feedb - > { c_id } if ( $ feedb - > { c_id } ) ;
2021-12-30 12:05:56 +01:00
my $ u_id = $ 1 if ( $ R:: u_id && $ R:: u_id =~ /(\d+)/ ) ;
$ u_id = $ 1 if ( $ R:: c_idadr && $ R:: c_idadr =~ /(\d+)/ && $ R:: base_edit eq "new_dmsusers" ) ;
2022-09-15 17:06:08 +02:00
my ( $ edit , $ copy_key , $ save_key , $ relate_key , $ move_key , $ delete_key ) ;
2022-05-11 08:05:35 +02:00
my $ tpl = { } ;
my @ tpl_order = ( ) ;
my $ edit_template = "" ;
2023-01-17 20:43:36 +01:00
my $ bg_color = $ node_meta - > { bg_color } || "grey" ;
2021-12-30 12:05:56 +01:00
my $ ctrel = { } ;
2022-06-02 10:34:03 +02:00
my $ cttpos = { } ;
my $ gesamt = 0 ;
my $ pricing = { } ;
my $ counting = { } ;
my $ rental_feed = { } ;
my $ occupied_style = "" ;
2023-03-05 20:01:47 +01:00
if ( $ node_meta - > { ct_table } eq "content" && $ node_meta - > { tpl_id } && $ c_id ) {
2023-03-30 17:45:12 +02:00
#check rental state
if ( $ node_meta - > { tpl_id } == 205 ) {
my $ pref = {
table = > "contenttranspos" ,
fetch = > "one" ,
int10 = > "IN::(2,3)" ,
cc_id = > $ c_id ,
} ;
$ cttpos = $ dbt - > fetch_tablerecord ( $ dbh , $ pref ) ;
$ occupied_style = "color:#ff1493" if ( $ cttpos - > { int10 } == 2 || $ cttpos - > { int10 } == 3 ) ;
2023-06-14 21:48:20 +02:00
$ move_key = "move_content" ;
2023-03-30 17:45:12 +02:00
}
2021-12-30 12:05:56 +01:00
my $ ref = {
table = > "$node_meta->{ct_table}" ,
fetch = > "one" ,
template_id = > "$node_meta->{tpl_id}" ,
2023-03-05 20:01:47 +01:00
c_id = > "$c_id" ,
2021-12-30 12:05:56 +01:00
} ;
$ ctrel = $ dbt - > fetch_record ( $ dbh , $ ref ) ;
print $ q - > hidden ( - name = > 'c_id' , - override = > '1' , - value = > "$ctrel->{c_id}" ) ;
print $ q - > hidden ( - name = > 'rel_id' , - override = > '1' , - value = > "$ctrel->{rel_id}" ) ;
2023-03-05 20:01:47 +01:00
$ edit = "base_edit" ;
2021-12-30 12:05:56 +01:00
$ save_key = "save_content" ;
$ edit_template = "$ctrel->{template_id}" ;
2022-09-15 17:06:08 +02:00
$ tpl = $ dbt - > get_tpl ( $ dbh , $ edit_template ) ;
2023-03-05 20:01:47 +01:00
} elsif ( $ node_meta - > { ct_table } eq "contentadr" && $ node_meta - > { tpl_id } && $ c_id ) {
2021-12-30 12:05:56 +01:00
my $ ref = {
table = > "$node_meta->{ct_table}" ,
fetch = > "one" ,
template_id = > "$node_meta->{tpl_id}" ,
2023-03-05 20:01:47 +01:00
c_id = > "$c_id" ,
2021-12-30 12:05:56 +01:00
} ;
$ ctrel = $ dbt - > fetch_record ( $ dbh , $ ref ) ;
print $ q - > hidden ( - name = > 'c_id' , - override = > '1' , - value = > "$ctrel->{c_id}" ) ;
print $ q - > hidden ( - name = > 'rel_id' , - override = > '1' , - value = > "$ctrel->{rel_id}" ) ;
$ edit = "base_edit" ;
$ save_key = "save_adr" ;
$ edit_template = "$ctrel->{template_id}" . "000" ;
2022-09-15 17:06:08 +02:00
$ tpl = $ dbt - > get_tpl ( $ dbh , $ edit_template ) ;
2022-07-04 15:30:17 +02:00
} elsif ( $ node_meta - > { ct_table } eq "users" && $ node_meta - > { tpl_id } == 198 && $ u_id ) {
2022-11-16 21:22:00 +01:00
my $ dbh_primary = $ dbt - > dbconnect_extern ( $ dbt - > { primary } - > { sharee_primary } - > { database } - > { dbname } ) ;
2022-09-15 17:06:08 +02:00
my $ users_dms_primary = { u_id = > 0 } ;
$ users_dms_primary = $ dbt - > select_users ( $ dbh_primary , $ users_dms - > { u_id } , "and int03=2" ) ;
$ tpl = $ dbt - > get_tpl ( $ dbh , $ node_meta - > { tpl_id } ) ;
#only if user is also a primary DMS user with invoice rw
if ( ! $ users_dms_primary - > { u_id } || $ users_dms_primary - > { int03 } != 2 ) {
$ tpl - > { tpl_order } =~ s/int02=[\w\s\+\&=]+,// ;
$ tpl - > { tpl_order } =~ s/int03=[\w\s\+\&=]+,// ;
}
2021-12-30 12:05:56 +01:00
my $ ref = {
table = > "$node_meta->{ct_table}" ,
fetch = > "one" ,
u_id = > "$u_id" ,
} ;
$ ctrel = $ dbt - > fetch_tablerecord ( $ dbh , $ ref ) ;
print $ q - > hidden ( - name = > 'u_id' , - override = > '1' , - value = > "$ctrel->{u_id}" ) ;
$ edit = "base_edit" ;
$ save_key = "save_dmsusers" ;
#print Dumper($node_meta->{tpl_id}) . "\n u_id:" . $u_id;
2022-05-09 12:45:01 +02:00
#
} elsif ( $ node_meta - > { ct_table } eq "contentuser" && $ node_meta - > { tpl_id } == 199 ) {
my $ ref = {
table = > "$node_meta->{ct_table}" ,
fetch = > "one" ,
template_id = > "$node_meta->{tpl_id}" ,
c_id = > "$c_id" ,
} ;
$ ctrel = $ dbt - > fetch_record ( $ dbh , $ ref ) ;
print $ q - > hidden ( - name = > 'c_id' , - override = > '1' , - value = > "$ctrel->{c_id}" ) ;
print $ q - > hidden ( - name = > 'rel_id' , - override = > '1' , - value = > "$ctrel->{rel_id}" ) ;
$ edit = "rel_edit" ;
$ save_key = "save_ctuser" ;
2022-09-15 17:06:08 +02:00
$ tpl = $ dbt - > get_tpl ( $ dbh , $ node_meta - > { tpl_id } ) ;
2022-06-02 10:34:03 +02:00
2023-01-17 20:43:36 +01:00
} elsif ( $ node_meta - > { ct_table } eq "contentuser" && $ node_meta - > { tpl_id } == 194 && $ c_id ) {
my $ ref = {
table = > "$node_meta->{ct_table}" ,
fetch = > "one" ,
template_id = > "$node_meta->{tpl_id}" ,
c_id = > "$c_id" ,
} ;
$ ctrel = $ dbt - > fetch_record ( $ dbh , $ ref ) ;
print $ q - > hidden ( - name = > 'c_id' , - override = > '1' , - value = > "$ctrel->{c_id}" ) ;
print $ q - > hidden ( - name = > 'rel_id' , - override = > '1' , - value = > "$ctrel->{rel_id}" ) ;
$ edit = "base_edit" ;
$ save_key = "save_contentcms" ;
$ tpl = $ dbt - > get_tpl ( $ dbh , $ node_meta - > { tpl_id } ) ;
2022-06-02 10:34:03 +02:00
} elsif ( $ node_meta - > { ct_table } eq "contenttranspos" && $ node_meta - > { tpl_id } == 221 ) {
my $ now_dt = strftime "%Y-%m-%d %H:%M:%S" , localtime ;
my $ pref = {
table = > "contenttrans" ,
table_pos = > "contenttranspos" ,
fetch = > "one" ,
c_id = > $ c_id ,
} ;
print $ q - > hidden ( - name = > 'c_id' , - override = > '1' , - value = > "$c_id" ) ;
$ cttpos = $ dbt - > collect_post ( $ dbh , $ pref ) ;
$ occupied_style = "color:#ff1493" if ( $ cttpos - > { int10 } == 2 || $ cttpos - > { int10 } == 3 || $ cttpos - > { int10 } == 6 ) ;
if ( $ cttpos - > { int35 } && $ cttpos - > { start_time } && $ cttpos - > { end_time } ) {
2023-04-17 15:30:19 +02:00
( $ pricing , $ counting ) = $ pri - > counting_rental ( \ % varenv , $ cttpos ) ;
2023-07-20 09:08:37 +02:00
my $ dbh_primary = $ dbt - > dbconnect_extern ( $ dbt - > { primary } - > { sharee_primary } - > { database } - > { dbname } ) ;
my % varenv_prim = ( ) ;
$ varenv_prim { cms } = $ dbt - > fetch_cms ( $ dbh_primary , { lang = > $ q - > escapeHTML ( $ lang ) } ) ;
$ rental_feed = $ pri - > fetch_rentalfeed ( \ % varenv_prim , \ % varenv , $ cttpos , $ counting ) ;
2022-06-02 10:34:03 +02:00
$ gesamt = $ pri - > round ( $ pricing - > { total_price } ) ;
$ gesamt = sprintf ( '%.2f' , $ gesamt ) ;
} else {
( $ gesamt , my $ rabatt ) = $ pri - > price2calc ( $ cttpos ) ;
$ gesamt = $ pri - > round ( $ gesamt ) ;
$ gesamt = sprintf ( '%.2f' , $ gesamt ) ;
}
$ edit = "base_edit" ;
$ save_key = "save_pos" ;
2022-09-15 17:06:08 +02:00
my $ tpl_id = $ node_meta - > { tpl_id } ;
$ tpl_id = 223 if ( $ cttpos - > { template_id } && $ cttpos - > { template_id } =~ /224|229/ ) ;
$ tpl = $ dbt - > get_tpl ( $ dbh , $ tpl_id ) ;
2022-06-02 10:34:03 +02:00
2021-12-30 12:05:56 +01:00
} else {
print $ q - > div ( "Es konnten keine Daten gefunden werden" ) , "\n" ;
return "failure::Error, no table selected" ;
}
2022-06-02 10:34:03 +02:00
#if(ref($ctrel) ne "HASH" && !$ctrel->{c_id} && !$ctrel->{u_id}){
# print $q->div("error: no content available");
#}
2021-12-30 12:05:56 +01:00
2022-06-02 10:34:03 +02:00
my $ u_name = "" ;
my $ dbmtime = "" ;
my $ dbowner = $ ctrel - > { owner } || $ cttpos - > { owner_end } || "" ;
my $ dbmtime = $ ctrel - > { mtime } || $ cttpos - > { mtime } || "" ;
2022-10-04 17:06:17 +02:00
$ dbmtime = $ ctrel - > { change } if ( $ node_meta - > { tpl_id } == 198 ) ;
2022-06-02 10:34:03 +02:00
$ u_name = $ dbt - > sys_username ( $ dbh , $ dbowner ) ;
$ dbmtime = $ lb - > time4de ( $ dbmtime , "1" ) if ( $ dbmtime ) ;
2021-12-30 12:05:56 +01:00
my $ selsize = "200px" ;
print $ q - > hidden ( - name = > 'parent_id' , - override = > '1' , - value = > "$node_meta->{parent_id}" ) ;
print $ q - > hidden ( - name = > 'template_id' , - override = > '1' , - value = > "$node_meta->{template_id}" ) ;
print $ q - > hidden ( - name = > 'offset' , - override = > '1' , - value = > "$R::offset" ) ;
print $ q - > hidden ( - name = > 'limit' , - override = > '1' , - value = > "$R::limit" ) ;
print $ q - > hidden ( - name = > 'relids' , - override = > '1' , - value = > "$R::relids" ) ;
###
my $ bike_nodes = { } ;
2023-06-14 21:48:20 +02:00
my $ node = {
template_id = > 205 ,
parent_id = > 200013 ,
fetch = > "all" ,
keyfield = > "main_id" ,
} ;
$ bike_nodes = $ dbt - > fetch_rel4tpl4nd ( $ dbh , $ node ) ;
2023-07-13 12:10:45 +02:00
my $ station_all = { } ;
my $ pref_st = {
table = > "content" ,
fetch = > "all" ,
keyfield = > "c_id" ,
template_id = > 225 ,
} ;
$ station_all = $ dbt - > fetch_record ( $ dbh , $ pref_st ) ;
my $ tariff_all = { } ;
2023-06-14 21:48:20 +02:00
my $ tariff = {
2022-09-15 17:06:08 +02:00
table = > "content" ,
fetch = > "all" ,
keyfield = > "barcode" ,
template_id = > "210" , #Tariff tpl_id
} ;
2023-06-14 21:48:20 +02:00
$ tariff_all = $ dbt - > fetch_record ( $ dbh , $ tariff ) ;
2021-12-30 12:05:56 +01:00
print "<div id='Container_cms'>\n" ;
#1. table submit
print $ q - > start_table ( { - class = > 'list' , - border = > '0' , - width = > '100%' , - align = > 'center' , - cellpadding = > '3' , - cellspacing = > '0' } ) ;
print $ q - > Tr ( ) ;
2023-06-14 21:48:20 +02:00
print $ q - > td ( { - style = > "background-color:#a7a18f;padding-right:0px;border-bottom: 1px solid silver;" } , $ but - > singlesubmit7 ( "$edit" , "$save_key" , "$ib{$save_key}" , "margin:0 5px;" ) ) ;
if ( $ move_key ) {
my @ _main_valxx = ( ) ;
foreach my $ rid ( sort { $ bike_nodes - > { $ a } - > { n_sort } <=> $ bike_nodes - > { $ b } - > { n_sort } } keys ( %$ bike_nodes ) ) {
push ( @ _main_valxx , "$bike_nodes->{$rid}->{main_id}:$bike_nodes->{$rid}->{node_name} - $dbt->{copri_conf}->{type_id}->{$bike_nodes->{$rid}->{type_id}}" ) ;
}
if ( scalar ( @ _main_valxx ) > 1 ) {
print $ q - > td ( { - style = > "background-color:#a7a18f;padding-right:10px;border-bottom: 1px solid silver;" } ,
$ but - > singlesubmit7 ( "$edit" , "$move_key" , "$ib{$move_key}" , "margin:0 5px;" ) ,
$ but - > selector_class ( "main_id" , "eselect" , "" , $ ctrel - > { main_id } , @ _main_valxx )
) ;
}
}
print $ q - > td ( { - style = > "background-color:#a7a18f;border-bottom: 1px solid silver;text-align:right;font-size:11px;" } , "$u_name / $dbmtime" ) ;
2023-08-02 19:03:27 +02:00
#if($node_meta->{tpl_id} !~ /199|221/){
if ( ( $ node_meta - > { tpl_id } =~ /198|205|210|219|224|225|228|229/ ) || ( $ node_meta - > { tpl_id } == 202 && $ varenv { dbname } eq $ dbt - > { primary } - > { sharee_primary } - > { database } - > { dbname } ) || ( $ node_meta - > { tpl_id } == 194 && ! $ ctrel - > { int11 } ) ) {
print $ q - > td ( { - style = > "background-color:#a7a18f;padding-right:10px;border-bottom: 1px solid silver;text-align:right;" } , $ but - > singlesubmit7 ( "$edit" , "remove_chk4rel" , "$ib{remove_chk4rel}" , "margin:0 5px;" ) ) ;
}
2021-12-30 12:05:56 +01:00
print $ q - > end_table ;
###Terminal target
my $ c_key = "c_id" ;
my $ add_trans = "add_transpos" ;
if ( "$node_meta->{ct_table}" =~ /contentadr/ ) {
$ add_trans = "add_transadr" ;
$ c_key = "c_idadr" ;
}
my $ tpath = "" ;
my $ top = 70 ;
if ( $ node_meta - > { tpl_id } == 202 ) {
2022-09-15 17:06:08 +02:00
my $ pref = {
table = > "contenttrans" ,
fetch = > "all" ,
keyfield = > "c_id" ,
template_id = > "IN::(209,218)" ,
#ca_id => "$ctrel->{c_id}",#future change
int10 = > "$ctrel->{c_id}" ,
} ;
my $ cttrans = $ dbt - > fetch_record ( $ dbh , $ pref ) ;
2021-12-30 12:05:56 +01:00
foreach my $ id ( sort { $ cttrans - > { $ b } - > { c_id } <=> $ cttrans - > { $ a } - > { c_id } } keys ( %$ cttrans ) ) {
my $ toppx = $ top . "px" ;
2023-07-27 07:05:23 +02:00
print $ q - > div ( { - style = > "position:absolute;top:$toppx;right:20px;" } , " TXID $cttrans->{$id}->{txt16} " , $ q - > span ( { - style = > "background-color:#f7ae37" } , $ q - > a ( { - class = > "linknav" , - href = > "/$dbt->{shareedms_conf}->{parent_node}/Faktura/$cttrans->{$id}->{node_name}?ct_trans=open\&c_id4trans=$cttrans->{$id}->{c_id}\&tpl_id4trans=$cttrans->{$id}->{template_id}\&owner=$users_dms->{u_id}" , - title = > "Faktura Terminal öffnen" } , "[ $cttrans->{$id}->{node_name} #$cttrans->{$id}->{ct_name} ]" ) ) ) , "\n" ;
2021-12-30 12:05:56 +01:00
$ top += 22 ;
}
} elsif ( $ node_meta - > { tpl_id } == 205 ) {
my $ day = strftime "%d" , localtime ;
my $ month = strftime "%m" , localtime ;
my $ year = strftime "%Y" , localtime ;
my ( $ nyear , $ nmonth , $ nday ) = Add_Delta_YMD ( $ year , $ month , $ day , 0 , 0 , - 28 ) ;
my $ toppx = $ top . "px" ;
2022-05-09 12:45:01 +02:00
print $ q - > div ( { - style = > "position:absolute;top:$toppx;right:20px;" } , $ q - > span ( { - style = > "background-color:#86cbd7" } , $ q - > a ( { - class = > "linknav" , - href = > "/$dbt->{shareedms_conf}->{parent_node}/Mietjournal/?detail_search=1&barcode=$ctrel->{barcode}&start_date_time=$nday.$nmonth.$nyear" , - title = > "Mietjournal der letzten 4 Wochen" } , "[ Mietjournal zu Rad $dbt->{operator}->{$varenv{dbname}}->{oprefix}$ctrel->{barcode} ]" ) ) ) , "\n" ;
2021-12-30 12:05:56 +01:00
$ top += 22 ;
#}else{
#print $q->div({-style=>"position:absolute;top:$top;right:20px;"},"no valid users path definition: $tpath"),"\n";
}
###
#just for checking if ct_name or barcode still available
if ( $ varenv { orga } eq "dms" ) {
print << EOF
<style>
. ui - autocomplete {
text - align:left ;
font - size:14px ;
background: #eeeeee;
border:1px solid silver ;
}
</style>
<script>
\ $ ( function ( ) {
\ $( '#json_select' ) . autocomplete ( {
2023-03-05 20:01:47 +01:00
source: '/ajax_json?table=content&template_id=$node_meta->{template_id}&c_id=$ctrel->{c_id}&catch_equal=1' ,
2021-12-30 12:05:56 +01:00
minLength: 1 ,
response: function ( event , ui ) {
if ( ui . content . length === 0 ) {
2023-03-05 20:01:47 +01:00
\ $( '#log' ) . text ( 'neu' ) ;
2021-12-30 12:05:56 +01:00
} else {
\ $( '#log' ) . text ( 'bereits angelegt!' ) ;
}
}
} ) ;
} ) ;
</script>
EOF
;
}
2022-05-11 08:05:35 +02:00
@ tpl_order = split /,/ , $ tpl - > { tpl_order } ;
2021-12-30 12:05:56 +01:00
#2. table content
print $ q - > start_table ( { - border = > '0' , - width = > '100%' , - align = > 'center' , - cellpadding = > '3' , - cellspacing = > '0' } ) ;
print "<tr>\n" ;
my $ j = 0 ;
#2.1 sub-table
print "<td style='border-bottom:1px solid silver;border-right:1px solid silver;vertical-align:top;padding:15px;'>\n" ;
print $ q - > start_table ( { - border = > '0' , - width = > '100%' , - align = > 'center' , - cellpadding = > '3' , - cellspacing = > '0' } ) ;
my @ _service_valxx = ( "" , "1" , "2" , "3" , "4" ) ;
foreach ( @ tpl_order ) {
2022-05-13 10:38:03 +02:00
2022-06-02 10:34:03 +02:00
#Mietjournal edit
if ( $ node_meta - > { ct_table } eq "contenttranspos" && $ node_meta - > { tpl_id } == 221 ) {
2023-06-14 21:48:20 +02:00
my ( $ key , $ des , $ size , $ postdes ) = split /=/ , $ _ ;
$ des . = " ($key)" if ( $ users_dms - > { u_id } eq $ varenv { superu_id } ) ;
2022-08-02 09:37:22 +02:00
my $ prefix = $ cttpos - > { txt12 } ;
$ prefix = "S3X" if ( $ prefix eq "SX" ) ;
2022-06-02 10:34:03 +02:00
2022-08-02 09:37:22 +02:00
if ( $ key =~ /barcode/ ) {
print $ q - > hidden ( - name = > "$key" , - override = > 1 , - value = > "$cttpos->{$key}" ) , "\n" ;
2022-09-20 16:13:45 +02:00
print $ q - > hidden ( - name = > "ct_id" , - override = > 1 , - value = > "$cttpos->{ct_id}" ) , "\n" ;
2022-08-02 09:37:22 +02:00
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' } , $ q - > b ( "$prefix$cttpos->{$key}" ) ) , "\n" ;
} elsif ( $ key =~ /c_id|ct_name|txt08/ ) {
2022-06-02 10:34:03 +02:00
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' } , $ q - > b ( "$cttpos->{$key}" ) ) , "\n" ;
2022-06-03 06:21:28 +02:00
} elsif ( $ key =~ /txt/ && $ size eq "area" ) {
$ cttpos - > { $ key } = $ q - > unescapeHTML ( "$cttpos->{$key}" ) ;
$ cttpos - > { $ key } = $ lb - > newline ( $ cttpos - > { $ key } , "" , 1 ) ;
2022-06-02 10:34:03 +02:00
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2022-06-03 06:21:28 +02:00
if ( $ key eq "txt01" && $ cttpos - > { int09 } && $ cttpos - > { $ key } !~ /Manuell/ ) {
2022-06-02 10:34:03 +02:00
$ cttpos - > { $ key } . = "\nManuell bearbeitet\n" ;
}
print "<td class='content1_cms' style='$occupied_style;'\n>" ;
2023-06-01 07:50:17 +02:00
my $ class = "etxt" ;
$ class = "etxt2" if ( $ key eq "txt23" ) ;
print $ q - > textarea ( - class = > "$class" , - name = > "$key" , - default = > "$cttpos->{$key}" , - override = > '1' , - rows = > "5" , - cols = > 50 ) , "\n" ;
2022-06-02 10:34:03 +02:00
print "</td>\n" ;
#if Traiff Nr.
} elsif ( $ key eq "int09" ) {
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2022-08-02 09:37:22 +02:00
#print $q->td({-class=>'content1_cms'}, $q->textfield(-class=>'etxt',-name=>"int09",-default=>"$cttpos->{int09}",-size=>"5",-maxlength=>5), "Text", $q->textfield(-class=>'etxt',-name=>"txt04",-default=>"$cttpos->{txt04}",-size=>"30",-maxlength=>50)),"\n";
print $ q - > td ( { - class = > 'content1_cms' } , "$cttpos->{int09} ($cttpos->{txt04})" ) , "\n" ;
2023-07-13 12:10:45 +02:00
}
#pos end station
elsif ( $ key eq "int04" && "$size" eq "select" && $ node_meta - > { tpl_id } == 221 ) {
my @ _valxx = ( "" ) ;
foreach my $ rid ( sort { $ station_all - > { $ a } - > { int04 } <=> $ station_all - > { $ b } - > { int04 } } keys ( %$ station_all ) ) {
push ( @ _valxx , "$station_all->{$rid}->{int04}:$station_all->{$rid}->{int04} - $station_all->{$rid}->{txt01}" ) ;
}
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - colspan = > '1' } , "$des" ) ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '1' } , "$prefix" , $ but - > selector_class ( "$key" , "eselect2" , "width:250px;" , $ cttpos - > { int04 } , @ _valxx ) ) ;
2022-06-02 10:34:03 +02:00
2023-07-13 12:10:45 +02:00
}
elsif ( $ key eq "int04" ) {
2022-06-02 10:34:03 +02:00
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2023-06-01 07:50:17 +02:00
print $ q - > td ( { - class = > 'content1_cms' } , "$prefix" , $ q - > textfield ( - class = > 'etxt2' , - name = > "int04" , - default = > "$cttpos->{int04}" , - size = > "15" , - maxlength = > 40 ) ) , "\n" ;
2022-06-02 10:34:03 +02:00
#End GPS
} elsif ( $ key eq "txt06" ) {
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' } , "$cttpos->{$key}" ) , "\n" ;
} elsif ( $ key eq "date_time" ) {
2023-06-21 14:59:05 +02:00
my ( $ s_yy , $ s_mo , $ s_dd , $ s_hh , $ s_mi ) = $ lb - > split_date ( $ pricing - > { start_time } ) ;
my ( $ e_yy , $ e_mo , $ e_dd , $ e_hh , $ e_mi ) = $ lb - > split_date ( $ pricing - > { end_time } ) ;
2022-06-02 10:34:03 +02:00
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' } ,
2022-08-02 09:37:22 +02:00
$ q - > textfield ( - id = > 'datepicker3' , - class = > 'etxt' , - name = > "start_date" , - default = > "$s_dd.$s_mo.$s_yy" , - size = > "10" , - maxlength = > 10 ) ,
$ q - > textfield ( - class = > 'etxt' , - name = > "s_hh" , - default = > "$s_hh" , - size = > "2" , - maxlength = > 2 ) , ":" ,
$ q - > textfield ( - class = > 'etxt' , - name = > "s_mi" , - default = > "$s_mi" , - size = > "2" , - maxlength = > 2 ) , " → " ,
2023-06-01 07:50:17 +02:00
$ q - > textfield ( - id = > 'datepicker4' , - class = > 'etxt2' , - name = > "end_date" , - default = > "$e_dd.$e_mo.$e_yy" , - size = > "10" , - maxlength = > 10 ) ,
$ q - > textfield ( - class = > 'etxt2' , - name = > "e_hh" , - default = > "$e_hh" , - size = > "2" , - maxlength = > 2 ) , ":" ,
$ q - > textfield ( - class = > 'etxt2' , - name = > "e_mi" , - default = > "$e_mi" , - size = > "2" , - maxlength = > 2 ) ) , "\n" ;
2022-06-02 10:34:03 +02:00
} elsif ( $ key =~ /int10/ && "$size" eq "select" ) { #bike_state
my @ _lock_valxx = ( ) ;
foreach my $ s_key ( sort keys ( % { $ dbt - > { copri_conf } - > { bike_state } } ) ) {
2023-06-01 07:50:17 +02:00
push @ _lock_valxx , "$s_key:$dbt->{copri_conf}->{bike_state}->{$s_key}" if ( $ s_key =~ /1|2|3/ ) ;
2022-06-02 10:34:03 +02:00
}
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2023-06-01 07:50:17 +02:00
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ but - > selector_class ( "$key" , "eselect2" , "" , $ cttpos - > { $ key } , @ _lock_valxx ) ) ;
2022-06-02 10:34:03 +02:00
} elsif ( $ key =~ /int20/ && "$size" eq "select" ) { #lock_state locked/unlocked
my @ _lock_valxx = ( ) ;
foreach my $ s_key ( sort keys ( % { $ dbt - > { copri_conf } - > { lock_state } } ) ) {
2023-06-29 11:54:02 +02:00
push @ _lock_valxx , "$s_key:$dbt->{copri_conf}->{lock_state}->{$s_key}" ;
2022-06-02 10:34:03 +02:00
}
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2023-06-01 07:50:17 +02:00
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ but - > selector_class ( "$key" , "eselect2" , "" , $ cttpos - > { $ key } , @ _lock_valxx ) , "$postdes" ) ;
2022-06-02 10:34:03 +02:00
} elsif ( $ key eq "int26" ) {
if ( $ cttpos - > { int26 } ) {
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
my $ co2saving = "" ;
my $ co2diff = $ pri - > co2calc ( $ cttpos ) ;
2022-10-31 08:11:53 +01:00
#my $sprit_price = $pri->sprit2calc($cttpos);
2022-06-02 10:34:03 +02:00
$ co2saving . = "$co2diff kg CO²<br />" ;
2022-10-31 08:11:53 +01:00
#$co2saving .= "$sprit_price EUR<br />" if($sprit_price !~ /-/);
2022-06-02 10:34:03 +02:00
$ cttpos - > { int26 } =~ s/\./,/ ;
$ co2saving . = "bei $cttpos->{int26} KM" ;
print $ q - > td ( { - class = > 'content1_cms' } , "$co2saving" ) ;
}
} elsif ( $ key =~ /int03/ ) {
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' , - nowrap = > "1" } , "$des" ) , "\n" ;
2023-06-21 14:59:05 +02:00
if ( $ cttpos - > { int35 } && $ pricing - > { start_time } && $ pricing - > { end_time } ) {
2022-06-02 10:34:03 +02:00
print $ q - > td ( { - class = > 'content1_cms' , - nowrap = > 1 } , "$pricing->{real_clock} $pricing->{freed_time}" ) , "\n" ;
} else {
print $ q - > td ( { - colspan = > '1' , - class = > 'content1_cms' } , $ q - > textfield ( - class = > 'etxt' , - name = > "$key" , - default = > "$cttpos->{$key}" , - override = > '1' , - size = > "$size" , - maxlength = > 10 ) ) , "\n" ;
}
} elsif ( $ key =~ /int02/ ) {
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2023-06-21 14:59:05 +02:00
if ( $ cttpos - > { int35 } && $ pricing - > { start_time } && $ pricing - > { end_time } ) {
2022-06-02 10:34:03 +02:00
print "<td class='content1_cms' nowrap>\n" ;
foreach my $ fid ( sort keys ( % { $ rental_feed - > { rental_description } - > { tarif_elements } } ) ) {
if ( ref ( $ rental_feed - > { rental_description } - > { tarif_elements } - > { $ fid } ) eq "ARRAY" ) {
print "$rental_feed->{rental_description}->{tarif_elements}->{$fid}[0]: $rental_feed->{rental_description}->{tarif_elements}->{$fid}[1]<br />\n" ;
}
}
print "</td>\n" ;
} else {
print $ q - > td ( { - class = > 'content1_cms' , - style = > "" } , $ q - > textfield ( - class = > 'etxt' , - name = > "$key" , - default = > "$cttpos->{$key}" , - override = > '1' , - size = > "$size" , - maxlength = > 100 ) , "\n" ) ;
}
} elsif ( $ key =~ /int07/ ) {
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2022-08-02 09:37:22 +02:00
print $ q - > td ( { - class = > 'content1_cms' , - style = > "" , - nowrap = > '1' } , $ q - > textfield ( - class = > 'etxt' , - name = > "$key" , - default = > "$cttpos->{$key}" , - override = > '1' , - size = > "6" , - maxlength = > 6 ) , $ but - > selector ( "int08" , "40px" , "$cttpos->{int08}" , ( "0.00:%" , "1.00:€" ) ) ) , "\n" ;
2022-06-02 10:34:03 +02:00
} elsif ( $ key =~ /int01/ ) {
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - nowrap = > "1" } , "$gesamt €" ) ;
2023-06-15 11:26:21 +02:00
} elsif ( $ key eq "txt24" ) {
if ( $ cttpos - > { $ key } && $ users_dms - > { int03 } > 1 ) {
$ cttpos - > { $ key } = $ q - > unescapeHTML ( "$cttpos->{$key}" ) ;
$ cttpos - > { $ key } = $ lb - > newline ( $ cttpos - > { $ key } , "" , "" ) ;
print $ q - > Tr ( ) , "\n" ;
#print $q->td({-class=>'left_italic_cms'},"$des"),"\n";
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 2 } , "$cttpos->{$key}" ) , "\n" ;
}
2022-06-02 10:34:03 +02:00
} elsif ( $ key =~ /txt/ ) {
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' } , $ q - > textfield ( - class = > 'etxt' , - name = > "$key" , - default = > "$cttpos->{$key}" , - override = > '1' , - size = > "$size" , - maxlength = > 100 ) ) , "\n" ;
} elsif ( $ key =~ /int/ ) {
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - nowrap = > "1" } , " \n" ) ;
}
2022-09-20 16:13:45 +02:00
#only if invoice isn't booked
if ( $ key eq "txt23" && $ cttpos - > { ca_id } && $ cttpos - > { ct_id } && ! $ cttpos - > { state } ) {
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'left_italic_cms' } , $ q - > a ( { - class = > "linknav4" , - href = > "/$dbt->{shareedms_conf}->{parent_node}/Waren/Gebühren?ca_id=$cttpos->{ca_id}\&ct_id=$cttpos->{ct_id}\&owner=$users_dms->{u_id}" , - title = > "" } , "Gebühr hinzufügen" ) ) , "\n" ;
2023-06-15 11:26:21 +02:00
print $ q - > td ( { - class = > 'content1_cms' } , " " ) , "\n" ;
2023-06-14 21:48:20 +02:00
}
2022-06-02 10:34:03 +02:00
} #end edit position
2022-05-13 10:38:03 +02:00
#service-config
2022-06-02 10:34:03 +02:00
elsif ( $ node_meta - > { ct_table } eq "contentuser" && $ node_meta - > { tpl_id } == 199 ) {
2022-05-11 08:05:35 +02:00
my ( $ key , $ tplkey , $ des , $ size , $ service_interval , $ service_type ) = split /=/ , $ _ ;
2022-05-13 10:38:03 +02:00
$ ctrel - > { $ key } = $ q - > unescapeHTML ( "$ctrel->{$key}" ) ;
$ ctrel - > { $ key } = $ lb - > newline ( $ ctrel - > { $ key } , "" , 1 ) ;
2022-05-11 08:05:35 +02:00
2022-05-13 10:38:03 +02:00
if ( $ key =~ /ct_name/ ) {
2022-06-02 10:34:03 +02:00
print $ q - > Tr ( ) , "\n" ;
2022-05-13 10:38:03 +02:00
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 3 } , $ q - > b ( "$ctrel->{ct_name}" ) ) , "\n" ;
2022-05-11 08:05:35 +02:00
}
2022-05-13 10:38:03 +02:00
elsif ( $ key =~ /txt\d/ && $ tplkey =~ /int\d/ ) {
$ j + + ;
my $ desc_num = "$des $j" ;
$ desc_num . = " ($key:$tplkey)" if ( $ users_dms - > { u_id } eq $ varenv { superu_id } ) ;
my $ desc_key = "" ;
my $ desc_name = "" ;
my $ desc_size = "" ;
my $ desc_intervall = "" ;
my $ desc_type = "" ;
( $ desc_key , $ desc_name , $ desc_size , $ desc_intervall , $ desc_type ) = split ( /=/ , $ ctrel - > { $ key } ) ;
2022-06-02 10:34:03 +02:00
print $ q - > Tr ( ) , "\n" ;
2022-05-13 10:38:03 +02:00
print $ q - > hidden ( - name = > "$key" , - override = > 1 , - value = > "$tplkey" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' } , "$desc_num" , $ q - > textfield ( - class = > 'etxt' , - style = > "width:15em;" , - name = > "$key" , - default = > "$desc_name" ) ) , "\n" ;
print $ q - > hidden ( - name = > "$key" , - override = > 1 , - value = > "checkbox" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' } , "Intervall" , $ q - > textfield ( - class = > 'etxt' , - style = > "width:2em;" , - name = > "$key" , - default = > "$desc_intervall" ) , "Tage" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' } , $ but - > radiobox2 ( "$key" , "$desc_type" , "" , "weich" , "hart" ) ) , "\n" ;
}
2022-05-11 08:05:35 +02:00
} else {
my ( $ key , $ des , $ size , $ postdes ) = split /=/ , $ _ ;
2022-08-17 21:22:57 +02:00
my $ w = $ size . "em" ;
$ w = "15em" if ( $ size eq "readonly" ) ;
2022-05-11 08:05:35 +02:00
my $ seldes = $ des ;
$ des . = " ($key)" if ( $ users_dms - > { u_id } eq $ varenv { superu_id } ) ;
2023-03-30 17:45:12 +02:00
if ( $ key =~ /txt25/ && $ node_meta - > { tpl_id } == 225 && $ size eq "readonly" ) {
my % station_filter_hash = ( ) ;
if ( $ ctrel - > { txt25 } && $ ctrel - > { txt25 } =~ /\d\s\d/ ) {
% station_filter_hash = map { $ _ = > 1 } split ( /\s+/ , $ ctrel - > { txt25 } ) ;
} elsif ( $ ctrel - > { txt25 } && $ ctrel - > { txt25 } =~ /(\d+)/ ) {
$ station_filter_hash { $ 1 } = 1 ;
}
my $ station_filter = "" ;
foreach my $ type_id ( keys ( % station_filter_hash ) ) {
$ station_filter . = "$dbt->{copri_conf}->{type_id}->{$type_id}<br />" ;
}
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - style = > 'vertical-align:top;' , - colspan = > '1' } , "$des" ) ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '1' } , $ station_filter ) ;
}
elsif ( $ key =~ /c_id|ct_name|barcode|txt/ && $ size eq "readonly" ) {
2021-12-30 12:05:56 +01:00
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2022-08-17 21:22:57 +02:00
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 2 } , $ q - > textfield ( - class = > 'etxt' , - style = > "width:$w;color:grey;" , - name = > "$key" , - default = > "$ctrel->{$key}" , - readonly = > 1 ) ) , "\n" ;
2021-12-30 12:05:56 +01:00
} elsif ( $ key eq "u_id" && $ size eq "readonly" ) {
my $ adref = {
table = > "contentadr" ,
fetch = > "one" ,
template_id = > "202" ,
c_id = > "$ctrel->{$key}" ,
} ;
my $ ctadr = $ dbt - > fetch_record ( $ dbh , $ adref ) ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "ID" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 2 } , $ q - > textfield ( - class = > 'etxt' , - style = > "width:15em;" , - name = > "$key" , - default = > "$ctrel->{$key}" , - readonly = > 1 ) ) , "\n" ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "Vorname Name" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 2 } , $ q - > textfield ( - class = > 'etxt' , - style = > "width:15em;" , - name = > "" , - default = > "$ctadr->{txt01}" , - readonly = > 1 ) ) , "\n" ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "eMail (Login)" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 2 } , $ q - > textfield ( - class = > 'etxt' , - style = > "width:15em;" , - name = > "" , - default = > "$ctadr->{txt08}" , - readonly = > 1 ) ) , "\n" ;
} elsif ( $ key eq "ct_name" ) {
#blank Teilenummer
my $ ct_name = $ ctrel - > { $ key } ;
if ( ( $ node_meta - > { ct_table } eq "content" ) && ( $ tpl - > { tpl_order } =~ /barcode/ ) && ( "$ct_name" eq "$ctrel->{barcode}" ) ) {
$ ct_name = "" ;
}
my $ oprefix = "" ;
$ oprefix = "$dbt->{operator}->{$varenv{dbname}}->{oprefix}-" if ( $ node_meta - > { tpl_id } == 224 || $ node_meta - > { tpl_id } == 228 ) ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2023-08-02 19:03:27 +02:00
#CMS Textkey readonly
if ( $ node_meta - > { tpl_id } == 194 && $ ctrel - > { int11 } ) {
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 2 } , "$oprefix" , $ q - > textfield ( - class = > 'etxt' , - style = > "width:$w;" , - name = > "$key" , - override = > '1' , - default = > "$ct_name" , - readonly = > 1 ) , $ postdes ) , "\n" ;
} else {
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 2 } , "$oprefix" , $ q - > textfield ( - class = > 'etxt' , - style = > "width:$w;" , - name = > "$key" , - override = > '1' , - default = > "$ct_name" ) , $ postdes ) , "\n" ;
}
2021-12-30 12:05:56 +01:00
}
elsif ( $ key eq "barcode" ) {
my $ oprefix = "" ;
$ oprefix = "$dbt->{operator}->{$varenv{dbname}}->{oprefix}" if ( $ node_meta - > { tpl_id } == 205 ) ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2023-03-05 20:01:47 +01:00
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 1 } , "$oprefix" , $ q - > textfield ( - class = > 'etxt' , - style = > "width:$w;" , - id = > "json_select" , - name = > "$key" , - value = > "$ctrel->{$key}" , - override = > '1' , - size = > "25" , - maxlength = > 50 ) , $ q - > span ( { - id = > 'log' } , "" ) ) , "\n" ;
2021-12-30 12:05:56 +01:00
}
elsif ( $ key =~ /int/ && $ size =~ /\w\+\w/ && $ postdes eq "reverse" ) {
my ( $ a , $ b ) = split /\+/ , $ size ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 1 } , $ but - > radiobox2reverse ( "$key" , "$ctrel->{$key}" , "$a" , "$b" ) ) , "\n" ;
}
elsif ( $ key =~ /int/ && $ size =~ /\w\+\w/ ) {
2022-03-01 10:25:13 +01:00
#Ack digest
my $ ack_code = "" ;
if ( $ node_meta - > { tpl_id } == 202 && $ ctrel - > { txt34 } ) {
my $ ack_digest = $ q - > unescapeHTML ( $ ctrel - > { txt34 } ) ;
if ( $ key eq "int04" ) {
$ ack_code = " ($1)" if ( $ ack_digest =~ /^(.{5})/ ) ;
} elsif ( $ key eq "int13" ) {
$ ack_code = " ($1)" if ( $ ack_digest =~ /(.{5})$/ ) ;
}
}
2021-12-30 12:05:56 +01:00
my ( $ a , $ b , $ c ) = split /\+/ , $ size ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2022-03-01 10:25:13 +01:00
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 1 } , $ but - > radiobox2 ( "$key" , "$ctrel->{$key}" , "$a" , "$b" , "$c" ) , $ ack_code ) , "\n" ;
2021-12-30 12:05:56 +01:00
}
elsif ( $ key =~ /int/ && $ size =~ /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" , "$ctrel->{$key}" ) , $ postdes ) , "\n" ;
print $ q - > hidden ( - name = > "$key" , - override = > 1 , - value = > "null" ) ;
}
2023-07-13 12:10:45 +02:00
#bike station
elsif ( $ key eq "int04" && "$size" eq "select" && $ node_meta - > { tpl_id } == 205 ) {
my @ _valxx = ( "" ) ;
foreach my $ rid ( sort { $ station_all - > { $ a } - > { int04 } <=> $ station_all - > { $ b } - > { int04 } } keys ( %$ station_all ) ) {
push ( @ _valxx , "$station_all->{$rid}->{int04}:$station_all->{$rid}->{int04} - $station_all->{$rid}->{txt01}" ) ;
}
my $ oprefix = "$dbt->{operator}->{$varenv{dbname}}->{oprefix}" ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - colspan = > '1' } , "$des" ) ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '1' } , "$oprefix" , $ but - > selector_class ( "$key" , "eselect" , "width:250px;" , $ ctrel - > { int04 } , @ _valxx ) ) ;
}
2021-12-30 12:05:56 +01:00
elsif ( $ key eq "int04" ) {
my $ oprefix = "" ;
$ oprefix = "$dbt->{operator}->{$varenv{dbname}}->{oprefix}" if ( $ node_meta - > { tpl_id } == 225 || $ node_meta - > { tpl_id } == 205 ) ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 1 } , "$oprefix" , $ q - > textfield ( - class = > 'etxt' , - style = > "width:$w;" , - name = > "$key" , - value = > "$ctrel->{$key}" , - override = > '1' , - size = > "25" , - maxlength = > 50 ) , "" ) ;
}
elsif ( $ key =~ /int12/ && "$size" eq "select" && $ node_meta - > { tpl_id } == 210 ) { #Flotte bike_group (bikenode.main_id)
my @ _valxx = ( "" ) ;
foreach my $ rid ( sort { $ bike_nodes - > { $ a } - > { node_name } cmp $ bike_nodes - > { $ b } - > { node_name } } keys ( %$ bike_nodes ) ) {
2023-03-16 15:13:19 +01:00
push ( @ _valxx , "$bike_nodes->{$rid}->{main_id}:$bike_nodes->{$rid}->{node_name} - $dbt->{copri_conf}->{type_id}->{$bike_nodes->{$rid}->{type_id}}" ) ;
2021-12-30 12:05:56 +01:00
}
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - colspan = > '1' } , "$des" ) ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '1' } , $ but - > selector_class ( "$key" , "eselect" , "width:250px;" , $ ctrel - > { $ key } , @ _valxx ) ) ;
}
elsif ( $ key =~ /int21|int22/ && "$size" eq "select" && $ node_meta - > { tpl_id } == 228 ) { #Bonus Tarif
my @ _valxx = ( "" ) ;
foreach my $ rid ( sort { $ tariff_all - > { $ a } - > { barcode } <=> $ tariff_all - > { $ b } - > { barcode } } keys ( %$ tariff_all ) ) {
2022-06-02 10:34:03 +02:00
push ( @ _valxx , "$tariff_all->{$rid}->{barcode}:$tariff_all->{$rid}->{barcode} - $tariff_all->{$rid}->{ct_name}" ) ;
2021-12-30 12:05:56 +01:00
}
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - colspan = > '1' } , "$des" ) ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '1' } , $ but - > selector_class ( "$key" , "eselect" , "width:350px;" , $ ctrel - > { $ key } , @ _valxx ) ) ;
}
2022-04-14 14:45:36 +02:00
elsif ( $ key =~ /int10/ && "$size" eq "select" && $ node_meta - > { tpl_id } == 205 ) { #bike_state
2021-12-30 12:05:56 +01:00
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2023-03-30 17:45:12 +02:00
if ( $ occupied_style ) {
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , "$dbt->{copri_conf}->{bike_state}->{$cttpos->{$key}}" , $ q - > span ( { - style = > "$occupied_style" } , "Das Rad ist in Benutzung. Der Mietvorgang kann nur über das Mietjournal beendet werden" ) ) , "\n" ;
} else {
my @ _lock_valxx = ( ) ;
foreach my $ s_key ( sort keys ( % { $ dbt - > { copri_conf } - > { bike_state } } ) ) {
push @ _lock_valxx , "$s_key:$dbt->{copri_conf}->{bike_state}->{$s_key}" ;
}
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ but - > selector_class ( "$key" , "eselect" , "" , $ ctrel - > { $ key } , @ _lock_valxx ) ) ;
}
2021-12-30 12:05:56 +01:00
}
2022-04-14 14:45:36 +02:00
elsif ( $ key =~ /int10/ && "$size" eq "select" && $ node_meta - > { tpl_id } == 225 ) { #station_state
my @ _lock_valxx = ( ) ;
2022-06-02 10:34:03 +02:00
foreach my $ s_key ( sort keys ( % { $ dbt - > { copri_conf } - > { station_state } } ) ) {
push @ _lock_valxx , "$s_key:$dbt->{copri_conf}->{station_state}->{$s_key}" ;
}
2022-04-14 14:45:36 +02:00
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ but - > selector_class ( "$key" , "eselect" , "" , $ ctrel - > { $ key } , @ _lock_valxx ) ) ;
}
2021-12-30 12:05:56 +01:00
elsif ( $ key =~ /int18/ && "$size" eq "select" && $ node_meta - > { tpl_id } == 210 ) { #sharing_type
my @ _lock_valxx = ( ) ;
2022-07-12 19:59:44 +02:00
#delete hidden-lv if not LV
delete $ dbt - > { copri_conf } - > { sharing_type } - > { 4 } if ( $ varenv { syshost } ne "shareedms-lv" ) ;
2022-06-02 10:34:03 +02:00
foreach my $ s_key ( sort keys ( % { $ dbt - > { copri_conf } - > { sharing_type } } ) ) {
push @ _lock_valxx , "$s_key:$dbt->{copri_conf}->{sharing_type}->{$s_key}" ;
}
2021-12-30 12:05:56 +01:00
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ but - > selector_class ( "$key" , "eselect" , "" , $ ctrel - > { $ key } , @ _lock_valxx ) ) ;
}
elsif ( $ key =~ /int20/ && "$size" eq "select" && $ node_meta - > { tpl_id } == 205 ) { #lock_state locked/unlocked
my @ _lock_valxx = ( ) ;
2022-06-02 10:34:03 +02:00
foreach my $ s_key ( sort keys ( % { $ dbt - > { copri_conf } - > { lock_state } } ) ) {
push @ _lock_valxx , "$s_key:$dbt->{copri_conf}->{lock_state}->{$s_key}" ;
}
2021-12-30 12:05:56 +01:00
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
2022-06-03 06:21:28 +02:00
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ but - > selector_class ( "$key" , "eselect" , "" , $ ctrel - > { $ key } , @ _lock_valxx ) , "$postdes" ) ;
2021-12-30 12:05:56 +01:00
}
elsif ( $ key =~ /int11/ && "$size" eq "select" && $ node_meta - > { tpl_id } == 205 ) { #lock_system BC Ilockit usw
my @ _lock_valxx = ( ) ;
2022-06-02 10:34:03 +02:00
foreach my $ s_key ( sort keys ( % { $ dbt - > { copri_conf } - > { lock_system } } ) ) {
push @ _lock_valxx , "$s_key:$dbt->{copri_conf}->{lock_system}->{$s_key}" ;
}
2021-12-30 12:05:56 +01:00
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ but - > selector_class ( "$key" , "eselect" , "" , $ ctrel - > { $ key } , @ _lock_valxx ) ) ;
}
elsif ( $ key =~ /int/ ) {
2023-07-13 12:10:45 +02:00
$ ctrel - > { $ key } = "75" if ( $ key eq "int06" && ! $ ctrel - > { $ key } && $ node_meta - > { tpl_id } == 225 ) ;
2021-12-30 12:05:56 +01:00
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > 2 } , $ q - > textfield ( - class = > 'etxt' , - style = > "width:$w;" , - name = > "$key" , - override = > '1' , - default = > "$ctrel->{$key}" ) , $ postdes ) , "\n" ;
}
elsif ( $ key =~ /txt/ && "$size" eq "select" && "$des" =~ /Land/ ) {
my @ _valxx ;
my $ selsize = "150px" ;
my $ country = $ lb - > country_code ( ) ;
2023-06-21 14:59:05 +02:00
my $ country_all = $ lb - > country_code_all ( ) ;
2021-12-30 12:05:56 +01:00
$ ctrel - > { $ key } = "DE" if ( ! $ ctrel - > { $ key } ) ;
foreach ( sort { $ country - > { $ a } cmp $ country - > { $ b } } keys ( %$ country ) ) {
push @ _valxx , "$_:$country->{$_}" ;
}
2023-06-21 14:59:05 +02:00
foreach ( sort { $ country_all - > { $ a } cmp $ country_all - > { $ b } } keys ( %$ country_all ) ) {
push @ _valxx , "$_:$country_all->{$_}" ;
}
2021-12-30 12:05:56 +01:00
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ but - > selector ( "$key" , "$selsize" , $ ctrel - > { $ key } , @ _valxx ) ) ;
}
elsif ( $ node_meta - > { tpl_id } == 205 && $ key =~ /txt23/ && "$size" =~ /select/ ) { #Service-Farbcode
my @ _valxx = ( "red" , "blue" , "green" ) ;
my @ service_code = ( "red" , "red" , "red" , "red" , "red" , "red" ) ;
@ service_code = split ( /\s/ , $ ctrel - > { $ key } ) if ( $ ctrel - > { $ key } =~ /\w+\s\w+\s\w+\s\w+\s\w+\s\w+/g ) ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - style = > 'vertical-align:top;' , - colspan = > '1' } , "$des" ) ;
print "<td class='content1_cms' colspan='1'>\n" ;
foreach ( @ service_code ) {
print $ but - > selector_color ( "$key" , "color:white;background-color:$_;width:60px;" , $ _ , @ _valxx ) ;
}
print "</td>\n" ;
}
elsif ( $ key =~ /txt/ && "$size" =~ /select/ ) {
if ( $ size =~ /_multiple/ ) {
2023-04-24 14:49:30 +02:00
if ( $ key =~ /txt07/ && $ node_meta - > { tpl_id } eq "198" ) { #user defined service_tour alias user_tour
2022-03-14 17:37:49 +01:00
my $ height = scalar ( @ _service_valxx ) ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - style = > 'vertical-align:top;' , - colspan = > '1' } , "$des" ) ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '1' } , $ but - > selector2 ( "$key" , "50px;" , "$height" , $ ctrel - > { $ key } , @ _service_valxx ) ) ;
}
elsif ( $ key =~ /txt07/ && $ node_meta - > { tpl_id } eq "225" ) { # station defined Service Tour
2021-12-30 12:05:56 +01:00
my $ height = scalar ( @ _service_valxx ) ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - style = > 'vertical-align:top;' , - colspan = > '1' } , "$des" ) ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '1' } , $ but - > selector2 ( "$key" , "50px;" , "$height" , $ ctrel - > { $ key } , @ _service_valxx ) ) ;
}
2022-03-14 17:37:49 +01:00
elsif ( $ key =~ /txt24/ && $ node_meta - > { tpl_id } == 225 ) { #Station on station_group (bikenode.main_ids)
2021-12-30 12:05:56 +01:00
my @ _valxx = ( "" ) ;
foreach my $ rid ( sort { $ bike_nodes - > { $ a } - > { node_name } cmp $ bike_nodes - > { $ b } - > { node_name } } keys ( %$ bike_nodes ) ) {
2023-03-30 17:45:12 +02:00
push ( @ _valxx , "$bike_nodes->{$rid}->{main_id}:$bike_nodes->{$rid}->{node_name}" ) ;
2021-12-30 12:05:56 +01:00
}
2022-07-12 19:59:44 +02:00
2021-12-30 12:05:56 +01:00
my $ height = scalar ( @ _valxx ) ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - style = > 'vertical-align:top;' , - colspan = > '1' } , "$des" ) ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '1' } , $ but - > selector2 ( "$key" , "250px;" , "$height" , $ ctrel - > { $ key } , @ _valxx ) ) ;
}
2023-03-30 17:45:12 +02:00
2021-12-30 12:05:56 +01:00
#sharee user_group Tarif-2.0 (tarif.c_ids)
2022-11-16 21:22:00 +01:00
elsif ( $ key =~ /txt30/ && $ varenv { dbname } ne $ dbt - > { primary } - > { sharee_primary } - > { database } - > { dbname } ) {
2021-12-30 12:05:56 +01:00
my @ _valxx = ( "" ) ;
foreach my $ rid ( sort { $ tariff_all - > { $ a } - > { barcode } <=> $ tariff_all - > { $ b } - > { barcode } } keys ( %$ tariff_all ) ) {
if ( $ tariff_all - > { $ rid } - > { ct_name } ) {
2022-05-18 10:53:29 +02:00
push ( @ _valxx , "$tariff_all->{$rid}->{barcode}:$tariff_all->{$rid}->{barcode} $dbt->{copri_conf}->{sharing_type}->{$tariff_all->{$rid}->{int18}} - $tariff_all->{$rid}->{ct_name} - $bike_nodes->{$tariff_all->{$rid}->{int12}}->{node_name}" ) ;
2021-12-30 12:05:56 +01:00
}
}
my $ height = scalar ( @ _valxx ) ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - style = > 'vertical-align:top;' , - colspan = > '1' } , "$des" ) ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '1' } , $ but - > selector2 ( "$key" , "350px;" , "$height" , $ ctrel - > { $ key } , @ _valxx ) ) ;
}
} else {
my @ _valxx = ( "" ) ;
@ _valxx = split ( /,/ , $ varenv { $ seldes } ) if ( $ varenv { $ seldes } ) ;
my $ selsize = "80px" ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ but - > selector ( "$key" , "$selsize" , $ ctrel - > { $ key } , @ _valxx ) ) ;
}
}
elsif ( $ key =~ /txt/ && $ size =~ /area$/ ) {
2023-02-23 12:35:53 +01:00
$ ctrel - > { $ key } = $ q - > unescapeHTML ( "$ctrel->{$key}" ) ;
$ ctrel - > { $ key } = $ lb - > newline ( $ ctrel - > { $ key } , "" , 1 ) ;
2021-12-30 12:05:56 +01:00
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - colspan = > 1 } , "$des" ) , "\n" ;
2023-03-05 20:01:47 +01:00
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '3' } , $ q - > textarea ( - class = > "etxt" , - style = > 'border: 1px solid silver; height:3em; width:25em;' , - name = > "$key" , - override = > '1' , - default = > "$ctrel->{$key}" ) ) , "\n" ;
2021-12-30 12:05:56 +01:00
}
elsif ( $ key =~ /txt/ && $ size =~ /area(\d+)/ ) {
2023-02-23 12:35:53 +01:00
$ ctrel - > { $ key } = $ q - > unescapeHTML ( "$ctrel->{$key}" ) ;
$ ctrel - > { $ key } = $ lb - > newline ( $ ctrel - > { $ key } , "" , 1 ) ;
2021-12-30 12:05:56 +01:00
#my $h= $1 if($size =~ /area(\d+)/);
my $ h = "height:" . $ 1 . "em;" ;
my $ w = "width:25em;" ;
$ w = "width:" . $ 2 . "em;" if ( $ size =~ /area(\d+)-(\d+)/ ) ;
print $ q - > Tr ( ) ;
2023-01-17 20:43:36 +01:00
print $ q - > td ( { - class = > 'left_italic_cms' , - colspan = > 1 } , "$des" ) , "\n" ;
2021-12-30 12:05:56 +01:00
if ( $ key eq "txt28" && $ ctrel - > { $ key } =~ /SEPA-Lastschriftmandat/ ) {
use URI::Encode qw( uri_encode uri_decode ) ;
$ ctrel - > { txt28 } = uri_decode ( $ ctrel - > { txt28 } ) ;
$ ctrel - > { txt28 } =~ s/\+/ /g ;
2022-12-16 08:37:05 +01:00
#print $q->td({-style=>'border:1px solid silver;'},$ctrel->{txt28}),"\n";
#}else{
2021-12-30 12:05:56 +01:00
}
2022-12-16 08:37:05 +01:00
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '3' } , $ q - > textarea ( - id = > "$key" , - class = > "etxt" , - style = > "border: 1px solid silver;$h $w" , - name = > "$key" , - override = > '1' , - default = > "$ctrel->{$key}" ) ) , "\n" ;
2021-12-30 12:05:56 +01:00
}
2023-03-10 11:35:56 +01:00
elsif ( $ key =~ /txt15/ && $ varenv { dbname } ne $ dbt - > { primary } - > { sharee_primary } - > { database } - > { dbname } && $ node_meta - > { tpl_id } == 202 ) {
my $ bonus_record = { c_id = > 0 , ct_name = > "" } ;
#check after saving to see if matches
if ( $ varenv { dbname } eq "sharee_kn" ) {
$ bonus_record - > { ct_name } = $ lb - > grep_filecontent ( "$dbt->{copri_conf}->{basedir}/$dbt->{operator}->{$varenv{dbname}}->{dir_app}/ftp/SWK_codes/got_last.csv" , "$ctrel->{txt15}" ) if ( $ ctrel - > { txt15 } ) ;
}
if ( ! $ bonus_record - > { ct_name } ) {
my $ pref_cc = {
2021-12-30 12:05:56 +01:00
table = > "content" ,
fetch = > "one" ,
template_id = > "228" ,
ct_name = > "$ctrel->{txt15}" ,
2023-03-10 11:35:56 +01:00
} ;
$ bonus_record = $ dbt - > fetch_record ( $ dbh , $ pref_cc ) if ( $ ctrel - > { txt15 } ) ;
}
2021-12-30 12:05:56 +01:00
my @ tariff = ( "$ctrel->{txt30}" ) ;
@ tariff = split ( /\s/ , $ ctrel - > { txt30 } ) if ( $ ctrel - > { txt30 } =~ /\s/ ) ;
foreach my $ tf_id ( @ tariff ) {
$ tf_id =~ s/\s//g ;
2023-03-10 11:35:56 +01:00
my $ sharing_type = "public-bonus" ;
$ sharing_type = $ dbt - > { copri_conf } - > { sharing_type } - > { $ tariff_all - > { $ tf_id } - > { int18 } } ;
if ( $ bonus_record - > { int22 } && $ tf_id && $ bonus_record - > { int22 } == $ tf_id ) {
$ postdes . = "*code aktiviert $sharing_type Tarif Nr. $bonus_record->{int22}. " ;
2021-12-30 12:05:56 +01:00
}
2023-03-10 11:35:56 +01:00
if ( ( ! $ ctrel - > { txt15 } || $ bonus_record - > { ct_name } ne $ ctrel - > { txt15 } ) && $ tf_id && $ tariff_all - > { $ tf_id } - > { int18 } != 2 ) {
$ postdes . = $ q - > span ( { - style = > 'color:red;padding-left:10px;' } , "Achtung, $sharing_type Tarif $tf_id ohne *code aktiviert. " ) ;
}
}
if ( $ ctrel - > { txt15 } && $ bonus_record - > { ct_name } ne $ ctrel - > { txt15 } ) {
$ postdes . = $ q - > span ( { - style = > 'color:red;padding-left:10px;' } , "*code ist nicht vorhanden! " ) ;
} elsif ( $ ctrel - > { txt15 } && $ bonus_record - > { ct_name } eq $ ctrel - > { txt15 } ) {
my $ sharing_type = "public-bonus" ;
$ sharing_type = $ dbt - > { copri_conf } - > { sharing_type } - > { $ tariff_all - > { $ bonus_record - > { int22 } } - > { int18 } } if ( $ bonus_record - > { int22 } ) ;
2023-06-01 07:50:17 +02:00
$ postdes . = "Ok, $sharing_type *code vorhanden." ;
2021-12-30 12:05:56 +01:00
}
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ q - > textfield ( - class = > 'etxt' , - style = > "width:$w;" , - name = > "$key" , - override = > '1' , - default = > "$ctrel->{$key}" ) , $ postdes ) , "\n" ;
}
#Operators or Operators Antrag
elsif ( $ key =~ /txt17|txt19/ ) {
2022-11-16 21:22:00 +01:00
if ( $ varenv { dbname } eq $ dbt - > { primary } - > { sharee_primary } - > { database } - > { dbname } ) {
2021-12-30 12:05:56 +01:00
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ q - > textfield ( - class = > 'etxt' , - style = > "width:$w;" , - name = > "$key" , - override = > '1' , - default = > "$ctrel->{$key}" ) , $ postdes ) , "\n" ;
}
}
2023-03-10 11:35:56 +01:00
elsif ( $ key =~ /txt/ && $ key !~ /txt12|txt15/ ) {
2021-12-30 12:05:56 +01:00
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ q - > textfield ( - class = > 'etxt' , - style = > "width:$w;" , - name = > "$key" , - override = > '1' , - default = > "$ctrel->{$key}" ) , $ postdes ) , "\n" ;
}
elsif ( $ key =~ /byte/ ) {
my $ K_int = unpack "H*" , $ ctrel - > { $ key } ;
#$K_int =~ s/(.)/sprintf( "%x", ord($1))/eg;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - colspan = > 1 } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ q - > textfield ( - class = > 'etxt' , - style = > "width:$w;" , - name = > "$key" , - override = > '1' , - default = > "$K_int" ) , $ postdes ) , "\n" ;
}
2022-04-20 12:07:48 +02:00
elsif ( $ key =~ /time\d+/ ) {
$ ctrel - > { $ key } =~ s/:00$// ;
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' , - colspan = > 1 } , "$des" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '2' } , $ q - > textfield ( - class = > 'etxt' , - style = > "width:$w;" , - name = > "$key" , - override = > '1' , - default = > "$ctrel->{$key}" ) , $ postdes ) , "\n" ;
}
2021-12-30 12:05:56 +01:00
if ( $ key =~ /date_time/ ) {
2022-06-02 10:34:03 +02:00
my ( $ s_yy , $ s_mo , $ s_dd , $ s_hh , $ s_mi ) = $ lb - > split_date ( $ ctrel - > { start_time } ) ;
my ( $ e_yy , $ e_mo , $ e_dd , $ e_hh , $ e_mi ) = $ lb - > split_date ( $ ctrel - > { end_time } ) ;
2021-12-30 12:05:56 +01:00
print $ q - > Tr ( ) ;
2022-06-02 10:34:03 +02:00
print $ q - > td ( { - class = > 'left_italic_cms' } , "Start" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '1' } ,
$ q - > textfield ( - id = > 'datepicker3' , - class = > 'etxt' , - name = > "start_date" , - default = > "$s_dd.$s_mo.$s_yy" , - override = > '1' , - size = > "10" , - maxlength = > 10 ) ,
2021-12-30 12:05:56 +01:00
$ q - > textfield ( - class = > 'etxt' , - name = > "s_hh" , - override = > '1' , - default = > "$s_hh" , - size = > "2" , - maxlength = > 2 ) , ":" ,
$ q - > textfield ( - class = > 'etxt' , - name = > "s_mi" , - override = > '1' , - default = > "$s_mi" , - size = > "2" , - maxlength = > 2 ) ) , "\n" ;
2022-06-02 10:34:03 +02:00
print $ q - > Tr ( ) ;
print $ q - > td ( { - class = > 'left_italic_cms' } , "Ende" ) , "\n" ;
print $ q - > td ( { - class = > 'content1_cms' , - colspan = > '1' } ,
$ q - > textfield ( - id = > 'datepicker4' , - class = > 'etxt' , - name = > "end_date" , - default = > "$e_dd.$e_mo.$e_yy" , - override = > '1' , - size = > "10" , - maxlength = > 10 ) ,
2021-12-30 12:05:56 +01:00
$ q - > textfield ( - class = > 'etxt' , - name = > "e_hh" , - override = > '1' , - default = > "$e_hh" , - size = > "2" , - maxlength = > 2 ) , ":" ,
$ q - > textfield ( - class = > 'etxt' , - name = > "e_mi" , - override = > '1' , - default = > "$e_mi" , - size = > "2" , - maxlength = > 2 ) ) , "\n" ;
}
2022-05-11 08:05:35 +02:00
} #end else
2021-12-30 12:05:56 +01:00
}
print $ q - > end_table ;
print "</td>\n" ;
print "</tr>\n" ;
print $ q - > end_table ;
#2.table ende
2023-06-14 21:48:20 +02:00
my $ legend = "" ;
$ legend = "<span style='color:#FF5F1F;'>• </span> Orange markierte Angaben bitte prüfen und ggf. korrigieren." if ( $ node_meta - > { tpl_id } == 221 ) ;
print $ q - > div ( $ but - > singlesubmit7 ( "$edit" , "$save_key" , "$ib{$save_key}" , "margin:10px 5px;" ) , "$legend" ) , "\n" ;
2023-08-01 07:47:54 +02:00
if ( $ node_meta - > { tpl_id } == 194 ) {
print $ q - > div ( { - style = > 'font-size:13px;' } , " <b> Text Variablen Legende: </b> < br / >
- - subject - - - - subject - - & rarr ; eMail Betreff < br / >
:: user_name:: & rarr ; Kunden Name < br / >
:: app_name:: & rarr ; App Name < br / >
:: invoice_nr:: & rarr ; Faktura Beleg Nr < br / >
:: invoice_name:: & rarr ; Faktura PDF Name < br / >
:: txid:: & rarr ; Payone TXID < br / >
:: signature:: & rarr ; eMail Signature < br / >
")," \ n " ;
}
2021-12-30 12:05:56 +01:00
my $ debug = "" ;
2022-01-09 18:31:20 +01:00
$ debug = "(ct_table: $node_meta->{ct_table} | main_id: $node_meta->{main_id} | c_id: $ctrel->{c_id} | tpl_id: $tpl->{tpl_id} | rel_id: $ctrel->{rel_id})" ;
print $ q - > div ( { - style = > 'z-index:10;font-size:13px;' } , "$debug" ) , "\n" if ( $ users_dms - > { u_id } == $ dbt - > { copri_conf } - > { superu_id } ) ;
2021-12-30 12:05:56 +01:00
print "</div>" ;
}
1 ;
