2021-12-30 12:05:56 +01:00
package FormEdit ;
#
# SPDX-License-Identifier: AGPL-3.0-or-later
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
#
use strict ;
use warnings ;
use POSIX ;
use CGI ':standard' ;
use DateTime ;
use DateTime::Format::Pg ;
use Lib::Config ;
use Mod::Buttons ;
use Mod::Libenz ;
use Mod::Libenzdb ;
use Mod::DBtank ;
use Mod::APIfunc ;
use Mod::Pricing ;
use Tpl::AccountSubmenu ;
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 || "" ;
my $ mode = shift || "" ;
my $ varenv = shift ;
my $ users_sharee = shift || "" ;
my $ return = shift || "" ;
my $ q = new CGI ;
my $ cf = new Config ;
my $ lb = new Libenz ;
my $ db = new Libenzdb ;
my $ dbt = new DBtank ;
my $ apif = new APIfunc ;
my $ pri = new Pricing ;
my $ but = new Buttons ;
my $ submenu = new AccountSubmenu ;
my $ script = $ q - > script_name ( ) ;
my $ path_info = $ q - > path_info ( ) ;
my $ path = $ path_info ;
#with meta_host,
if ( "$varenv->{metahost}" ) {
$ path = "$script" . "$path_info" ;
$ script = "" ;
}
my $ dbh = "" ; #$dbt->dbconnect();
my $ user_agent = $ q - > user_agent ( ) ;
my % ib = $ but - > ibuttons_arch ( ) ;
my @ viewsel = split /\// , $ 1 if ( $ path =~ /^\/(.*)/ ) ;
my $ red = "red" ;
my $ coo = $ q - > cookie ( - name = > 'domcookie' ) || $ R:: sessionid ;
my $ session = "" ;
my $ session_and = "" ;
if ( $ R:: sessionid && length ( $ R:: sessionid ) > 20 && ! $ q - > cookie ( - name = > 'domcookie' ) ) {
$ session = "?sessionid=$R::sessionid" ;
$ session_and = "&sessionid=$R::sessionid" ;
}
my $ bgcolor1 = "009899" ; #sharee
$ bgcolor1 = $ dbt - > { website } - > { $ varenv - > { syshost } } - > { bgcolor1 } if ( $ dbt - > { website } - > { $ varenv - > { syshost } } - > { bgcolor1 } ) ;
$ bgcolor1 = $ dbt - > { merchant_ids } - > { $ varenv - > { merchant_id } } - > { bgcolor1 } if ( $ dbt - > { merchant_ids } - > { $ varenv - > { merchant_id } } - > { bgcolor1 } ) ;
2022-01-15 11:17:07 +01:00
#print "$dbt->{merchant_ids}->{$varenv->{merchant_id}}->{id}|$varenv->{merchant_id}|$coo";
my $ aowner = "198" ;
$ aowner = $ dbt - > { merchant_ids } - > { $ varenv - > { merchant_id } } - > { id } if ( $ varenv - > { merchant_id } && $ dbt - > { merchant_ids } - > { $ varenv - > { merchant_id } } - > { id } ) ;
2021-12-30 12:05:56 +01:00
my $ ctrel = { } ;
$ ctrel = $ users_sharee if ( ref ( $ users_sharee ) eq "HASH" && $ users_sharee - > { c_id } ) ;
#
#collect rentals on operators and get operator hash with dbname->uri_operator
#$q->param(-name=>'month',-value=>"18");#disabled because changing to not invoiced positions
2022-02-10 16:45:22 +01:00
my ( $ cttpos , $ operator_hash ) = $ apif - > user_rentals_history ( $ q , $ ctrel ) ;
#print Dumper($cttpos);
2021-12-30 12:05:56 +01:00
2022-02-10 16:45:22 +01:00
my $ cttpos_count = 0 ;
foreach my $ id ( keys ( %$ cttpos ) ) {
$ cttpos_count + + ;
2021-12-30 12:05:56 +01:00
}
my $ ctt_all = { } ;
#$ctt = $db->collect_content2("contenttrans","int10",$ctrel->{c_id}) if($ctrel->{c_id});
#
#loop operator hash to get invoices for each operator
foreach my $ sharee_operator ( keys ( %$ operator_hash ) ) {
my $ dbh_operator = $ dbt - > dbconnect_extern ( "$sharee_operator" ) ;
my $ pref = {
table = > "contenttrans" ,
fetch = > "all" ,
int10 = > "$ctrel->{c_id}" ,
keyfield = > "c_id" ,
} ;
if ( $ ctrel - > { c_id } ) {
my $ ctt = $ dbt - > fetch_tablerecord ( $ dbh_operator , $ pref ) ;
foreach my $ id ( keys ( %$ ctt ) ) {
$ ctt - > { $ id } - > { wwwhost } = "$operator_hash->{$sharee_operator}" ;
$ ctt - > { $ id } - > { praefix } = "$sharee_operator" ;
#print "$ctt->{$id}->{praefix}|";
}
$ ctt_all = { %$ ctt_all , %$ ctt } ;
}
}
my $ tpl_id = $ node_meta - > { tpl_id } ;
#$tpl_id = "302004" if($viewsel[1] =~ /Mieten/ && $ctrel->{c_id});
my $ tpl = $ db - > get_tpl ( $ tpl_id ) ;
my $ tpl01 = $ tpl ; #If nothing else, because of tpl_name Title in split_lates
my $ tpl02 = "" ;
my @ split_lates = ( "$tpl->{tpl_order}" ) ;
my $ template01 = "$tpl_id" . "001" ;
my $ template02 = "$tpl_id" . "002" ;
if ( $ tpl_id < 999 ) {
$ tpl01 = $ db - > get_tpl ( $ template01 ) ;
$ tpl02 = $ db - > get_tpl ( $ template02 ) ;
@ split_lates = ( "$tpl01->{tpl_order}" , "$tpl02->{tpl_order}" ) ;
}
my $ now_dt = strftime "%Y-%m-%d %H:%M" , localtime ;
my $ start_date = strftime "%d.%m.%Y %H:%M" , localtime ;
my ( $ end_date , $ end_time ) = split ( / / , $ now_dt ) ;
my ( $ e_yy , $ e_mo , $ e_dd ) = split ( /-/ , $ end_date ) ;
my ( $ e_hh , $ e_mi ) = split ( /\:/ , $ end_time ) ;
2022-01-15 11:17:07 +01:00
my $ sharee_agb_text = { } ;
2021-12-30 12:05:56 +01:00
$ sharee_agb_text - > { ct_name } = "AGB" ;
2022-01-15 11:17:07 +01:00
$ sharee_agb_text - > { txt01 } = "<iframe src='$varenv->{wwwhost}/site/agb.html' style='width:100%;height:8000px;border:none;' scrolling='auto'></iframe>" ;
$ sharee_agb_text - > { txt01 } = "<iframe src='$varenv->{wwwhost}/site/agb_konrad_1.html' style='width:100%;height:8000px;border:none;' scrolling='auto'></iframe>" if ( $ aowner == 195 || $ aowner == 185 || $ aowner == 176 ) ;
2021-12-30 12:05:56 +01:00
2022-01-21 17:26:57 +01:00
my $ sharee_privacy_text = { } ;
$ sharee_privacy_text - > { ct_name } = "Datenschutzhinweise" ;
$ sharee_privacy_text - > { txt01 } = "<iframe src='$varenv->{wwwhost}/site/privacy_2.html' style='width:100%;height:8000px;border:none;' scrolling='auto'></iframe>" ;
2021-12-30 12:05:56 +01:00
print "<div id='Contentapp'>\n" ;
print << EOF
< ! - - Modal - - >
< div class = "modal fade" id = "sharee_agb" tabindex = "-1" role = "dialog" aria - labelledby = "myModalLabel" aria - hidden = "true" >
< div class = "modal-dialog" >
< div class = "modal-content" >
< div class = "modal-header" >
< button type = "button" class = "close" data - dismiss = "modal" > < span aria - hidden = "true" style = "text-decoration:underline;" > AGB schließen </span> < span class = "sr-only" > Close </span> </button>
</div>
< div class = "modal-body" >
< div class = "text-default" > <h4> $ sharee_agb_text - > { ct_name } </h4> $ sharee_agb_text - > { txt01 } </div>
</div>
< div class = "modal-header" >
< button type = "button" class = "close" data - dismiss = "modal" > < span aria - hidden = "true" style = "text-decoration:underline;" > AGB schließen </span> < span class = "sr-only" > Close </span> </button>
</div>
</div>
</div>
</div>
EOF
;
2022-01-21 17:26:57 +01:00
print << EOF
< ! - - Modal - - >
< div class = "modal fade" id = "sharee_privacy" tabindex = "-1" role = "dialog" aria - labelledby = "myModalLabel" aria - hidden = "true" >
< div class = "modal-dialog" >
< div class = "modal-content" >
< div class = "modal-header" >
< button type = "button" class = "close" data - dismiss = "modal" > < span aria - hidden = "true" style = "text-decoration:underline;" > schließen </span> < span class = "sr-only" > Close </span> </button>
</div>
< div class = "modal-body" >
< div class = "text-default" > <h4> $ sharee_privacy_text - > { ct_name } </h4> $ sharee_privacy_text - > { txt01 } </div>
</div>
< div class = "modal-header" >
< button type = "button" class = "close" data - dismiss = "modal" > < span aria - hidden = "true" style = "text-decoration:underline;" > schließen </span> < span class = "sr-only" > Close </span> </button>
</div>
</div>
</div>
</div>
EOF
;
2021-12-30 12:05:56 +01:00
my $ debug = 0 ;
$ debug = 1 if ( $ users_sharee - > { c_id } eq $ dbt - > { copri_conf } - > { superu_id } || $ dbt - > { copri_conf } - > { stage } eq "test" ) ;
my $ debug_message = "" ;
my $ payable_check = 0 ;
if ( ( $ ctrel - > { int03 } == 1 && $ ctrel - > { ct_name } =~ /\w{2}-\d+/ ) || ( $ ctrel - > { int03 } == 2 && length ( $ ctrel - > { ct_name } ) >= 19 ) ) {
$ payable_check = 1 ;
}
#subMenue--------
$ submenu - > tpl ( $ node_meta , $ users_dms , $ mode , $ varenv , $ users_sharee , $ return ) ;
#-----------------
my $ catch_failure = 0 ;
if ( ( $ R:: failure && $ R:: failure =~ /\w+/ ) || ( $ ctrel - > { txt31 } && $ ctrel - > { txt31 } =~ /\w/ ) ) {
$ debug_message = "($R::failure || $ctrel->{txt31})" if ( $ debug ) ;
$ catch_failure = 1 ;
print $ q - > div ( { - class = > 'content2' , - style = > "clear:both;color:$red" } , "* Es liegt noch mindestens ein Fehler vor. $debug_message" ) , "\n" ;
}
#confirm code manage
if ( $ catch_failure && ( ! $ ctrel - > { int04 } && ! $ ctrel - > { int13 } ) && ( $ tpl_id =~ /^2$|302004/ ) && ( $ path =~ /$varenv->{accounting_3}/ ) ) {
$ debug_message = "$catch_failure && (!$ctrel->{int04} || !$ctrel->{int13}) && $tpl_id" if ( $ debug ) ;
print $ q - > div ( { - class = > 'content2' } , "Erst nachdem Ihre Profildaten vollständig sind erhalten Sie die Bestätigung. $debug_message" ) , "\n" ;
} elsif ( ( ! $ ctrel - > { int04 } || ! $ ctrel - > { int13 } ) && ( $ tpl_id =~ /^2$|302004/ ) && ( $ path =~ /$varenv->{accounting_3}/ ) ) {
2022-01-14 10:49:45 +01:00
2021-12-30 12:05:56 +01:00
print $ q - > start_form ( - name = > 'accountscreen' , - action = > "/$varenv->{mandant}/Account/$varenv->{accounting_3}$session" ) , "\n" ;
print $ q - > hidden ( - name = > "sessionid" , - override = > 1 , - value = > "$R::sessionid" ) ;
my $ required = "" ;
2022-01-14 10:49:45 +01:00
$ debug_message = "(!$ctrel->{int04} || !$ctrel->{int13}) && $tpl_id" if ( $ debug ) ;
print $ q - > div ( { - class = > 'content_title3' , - style = > 'clear:both;' } , "Fast geschafft $debug_message" ) , "\n" ;
my $ acktext = "Es wurden Bestätigungs-Codes an Ihre e-Mail Adresse und per SMS an Ihre Telefonnr. versandt." ;
$ acktext = "Es wurde ein Bestätigungs-Code per SMS an Ihre Telefonnr. versandt." if ( $ ctrel - > { int04 } && ! $ ctrel - > { int13 } ) ;
$ acktext = "Es wurde ein Bestätigungs-Code an Ihre e-Mail Adresse versandt." if ( ! $ ctrel - > { int04 } && $ ctrel - > { int13 } ) ;
print $ q - > div ( { - class = > 'content2' } , "$acktext Nach erfolgreicher Bestätigung können Sie unsere Mieträder nutzen. Bitte beachten Sie die Anweisungen." ) , "\n" ;
2021-12-30 12:05:56 +01:00
if ( ! $ ctrel - > { int04 } ) {
my $ des = "E-Mail Bestätigungscode" ;
my $ key = "confirm_code" ;
my $ label_des = "* $des" ;
$ label_des = "<span style=color:$red>Bitte \"$des\" korrigieren</span>" if ( $ R:: failure ) ;
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:1em;' } , "$label_des" ) , "\n" ;
print "<input id='$key' type='text' class='form-control' name='$key' value='' placeholder='$des' $required autofocus/>\n" ;
print $ q - > div ( { - class = > 'content2' } , "Falls Sie keinen e-Mail Bestätigungs Code erhalten haben, überprüfen Sie bitte Ihre bei der Registrierung angegebene e-Mail Adresse und/oder den Spam Bereich in Ihrem e-Mail Programm. Hier können Sie erneut einen " , $ q - > a ( { - style = > "color:#$bgcolor1;" , - href = > "$varenv->{wwwhost}?sharee_edit=send_email$session_and" } , "e-Mail Code anfordern" ) ) , "\n" ;
} else {
print $ q - > div ( { - class = > 'content2' , - style = > 'color:gray;' } , "* E-Mail Bestätigungs-Code wurde bereits erfolgreich eingegeben." ) , "\n" ;
}
if ( ! $ ctrel - > { int13 } ) {
my $ des = "SMS Bestätigungscode" ;
my $ key = "confirm_smscode" ;
my $ label_des = "* $des" ;
$ label_des = "<span style=color:$red>Bitte \"$des\" korrigieren</span>" if ( $ R:: failure ) ;
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:1em;' } , "$label_des" ) , "\n" ;
print "<input id='$key' type='text' class='form-control' name='$key' value='' placeholder='$des' $required autofocus />\n" ;
print $ q - > div ( { - class = > 'content2' } , "Falls Sie keinen SMS Bestätigungs Code erhalten haben, überprüfen Sie bitte Ihre bei der Registrierung angegebene mobile Telefonnummer. Hier können Sie erneut einen " , $ q - > a ( { - style = > "color:#$bgcolor1;" , - href = > "$varenv->{wwwhost}?sharee_edit=send_sms$session_and" } , "SMS Code anfordern" ) ) , "\n" ;
} else {
print $ q - > div ( { - class = > 'content2' , - style = > 'color:gray;' } , "* SMS Bestätigungs-Code wurde bereits erfolgreich eingegeben." ) , "\n" ;
}
my $ button_name = "Weiter" ;
print $ q - > div ( { - style = > 'margin-top:2em;' } , "<button type='submit' name='confirm_userid' value='$ctrel->{c_id}' class='btn btn-primary btn-lg btn-block' style='border:1px solid #$bgcolor1;background-color:#$bgcolor1;'>$button_name</button>" ) , "\n" ;
print $ q - > end_form , "\n" ;
} else {
my $ postaction = "/$varenv->{mandant}/Account/$varenv->{accounting_2}" ;
if ( $ ctrel - > { c_id } && $ path =~ /$varenv->{accounting_2}|$varenv->{accounting_3}|$varenv->{profile}/ ) {
$ postaction = "/$varenv->{mandant}/Account/$varenv->{accounting_3}" ;
} elsif ( $ path =~ /$varenv->{accounting_1}/ ) {
$ postaction = "/$varenv->{mandant}/Account/$varenv->{accounting_1_5}" ;
} elsif ( $ ctrel - > { c_id } && $ path =~ /$varenv->{accounting_1}/ ) {
$ postaction = "/$varenv->{mandant}/Account/$varenv->{accounting_2}" ;
}
print $ q - > start_form ( - name = > 'accountscreen' , - action = > "$postaction$session" ) , "\n" ;
print $ q - > hidden ( - name = > "sessionid" , - override = > 1 , - value = > "$R::sessionid" ) if ( $ R:: sessionid ) ;
print "<div class='form-group' style='clear:both;'>\n" ;
my $ i = 0 ;
my @ tpl_order ;
foreach ( @ split_lates ) {
$ i + + ;
if ( $ i == 1 ) {
if ( $ R:: confirm_success ) {
print $ q - > div ( { - class = > 'content_title3' } , "Anmeldung bestätigt" ) , "\n" ;
} else {
print $ q - > div ( { - class = > 'content_title3' } , "$tpl01->{tpl_name}" ) , "\n" ;
}
if ( $ path =~ /$varenv->{accounting_1}/ ) {
2022-01-15 12:03:21 +01:00
print $ q - > div ( { - class = > 'content2' } , " Bitte füllen Sie dieses Formular vollständig aus und hinterlegen im nächsten Schritt wahlweise Ihre Lastschriftdaten ( für Konten mit IBAN DE ) oder Kreditkartendaten ( VISA oder Mastercard ) . Bitte halten Sie die Daten immer auf dem neuesten Stand . < br /><br / >
Nach Abschluss der Registrierung erhalten Sie sowohl auf die von Ihnen hinterlegte E - Mail als auch auf die Mobiltelefonnummer jeweils eine Nachricht , die Sie beide zwingend bestätigen müssen . ")," \ n " ;
2021-12-30 12:05:56 +01:00
}
if ( $ path =~ /$varenv->{accounting_2}/ ) {
if ( $ tpl_id == 302008 ) {
print $ q - > div ( { - class = > 'content2' } , "Wähle die Zahlungsart." ) , "\n" ;
} else { #old SEPA only style
print $ q - > div ( { - class = > 'content2' } , "Durch das SEPA Mandat können wir die Leihrad Buchungen bequem einziehen." ) , "\n" ;
}
}
}
if ( $ i == 2 ) {
print $ q - > div ( { - class = > 'content_title3' } , "$tpl02->{tpl_name}" ) , "\n" ;
print $ q - > div ( { - class = > 'content2' } , "Das Login besteht aus Ihrer e-Mail Adresse und einem mindestens 8 stelligen Passwort." ) , "\n" ;
}
@ tpl_order = split /,/ , $ _ ;
my $ scol = "itime" ;
foreach ( @ tpl_order ) {
my ( $ key , $ des , $ size ) = split /=/ , $ _ ;
$ ctrel - > { $ key } = $ q - > unescapeHTML ( "$ctrel->{$key}" ) ;
$ ctrel - > { $ key } = $ lb - > newline ( $ ctrel - > { $ key } , "" , "1" ) ;
#radID & timeCode from contenttranspos----------------
if ( $ ctrel - > { int03 } && $ path =~ /$varenv->{accounting_3}|$varenv->{profile}/ ) {
if ( 1 == 1 ) {
if ( $ key =~ /ct_name/ ) {
if ( $ ctrel - > { int12 } ) {
print $ q - > div ( { - class = > 'content2' , - style = > 'color:#c83434;' } , "Herzlich Willkommen. Wir mussten Ihren Zugang zu den Mieträdern sperren weil ein Problem mit Ihren Zahlungsdaten vorliegt. Bitte aktualisieren Sie Ihre Zahlungsdaten und kontaktieren Sie uns damit wir den Vorfall klären können." ) , "\n" ;
} else {
print $ q - > div ( { - class = > 'content2' } , "Herzlich Willkommen. Sie können nach erfolgreicher Anmeldung unter dem Menue \"Fahrradstandortkarte\" ein Leihrad mieten." ) , "\n" ;
}
print $ q - > div ( { - class = > 'content2' } , "Nach der Mietradnutzung haben Sie hier die Möglichkeit die Mietvorgänge einzusehen und gebuchte Rechnungen als PDF herunterzuladen." ) , "\n" ;
print $ q - > div ( { - class = > 'content2' } , "Ihre Bonusnummer wurde akzeptiert. Bitte beachten Sie dass der Bonustarif im Kontext des Mietradbetreibers vergeben wird. Der Tarif wird bei der Mietrad Reservierung angezeigt." ) , "\n" if ( $ R:: success && $ R:: success eq "txt15" ) ;
2022-02-10 16:45:22 +01:00
print $ q - > div ( { - class = > 'content2' } , "Aktuell liegen keine Buchungen vor." ) , "\n" if ( ! $ cttpos_count ) ;
2021-12-30 12:05:56 +01:00
2022-02-10 16:45:22 +01:00
} elsif ( $ key =~ /barcode/ && $ cttpos_count ) {
2021-12-30 12:05:56 +01:00
#print $q->div({-style=>'padding-top:1.5em;font-weight:bold;'},"Ihre Buchungsdaten der letzten 1 ½ Jahre im Überblick"),"\n";
print $ q - > div ( { - style = > 'padding-top:1.5em;font-weight:bold;' } , "Folgende Positionen liegen zur nächsten Abbuchung vor" ) , "\n" ;
my @ tpl_posorder = ( "txt01=Beschreibung" , "int04=Station" , "ct_name=(Rad) Nummer" , "int26=CO2" , "int02=Betrag" ) ;
my $ j = 0 ;
my $ nx = 0 ;
my $ sum = 0 ;
print "<div style='clear:both;'>\n" ;
print $ q - > start_table ( { - style = > 'margin:15px 0;' , - border = > '0' , - width = > 'auto' , - align = > 'left' , - cellpadding = > '3' , - cellspacing = > '0' } ) , "\n" ;
print $ q - > Tr ( ) , "\n" ;
2022-02-10 16:45:22 +01:00
foreach my $ id ( sort { lc ( $ cttpos - > { $ b } - > { $ scol } ) cmp lc ( $ cttpos - > { $ a } - > { $ scol } ) } keys ( %$ cttpos ) ) {
2021-12-30 12:05:56 +01:00
$ j + + ;
$ nx + + ;
print $ q - > Tr ( ) , "\n" ;
foreach ( @ tpl_posorder ) {
my ( $ key , $ val ) = split /=/ , $ _ ;
my $ occupied_style = "background-color:#fcfdfb;" ;
$ occupied_style = "background-color:#f4f1ee;" if ( $ nx % = 2 ) ;
2022-02-10 16:45:22 +01:00
#$occupied_style = "color:#ff1493;" if($cttpos->{$id}->{txt10} =~ /occupied|requested/);
$ occupied_style = "color:#ff1493;" if ( $ cttpos - > { $ id } - > { int10 } == 2 || $ cttpos - > { $ id } - > { int10 } == 3 ) ;
2021-12-30 12:05:56 +01:00
if ( $ key eq "txt01" ) {
2022-02-10 16:45:22 +01:00
#print $q->td({-class=>'tdtxt', -style=>"$occupied_style"},"$cttpos->{$id}->{$key}");
2021-12-30 12:05:56 +01:00
print "<td class='tdtxt' style='$occupied_style'>\n" ;
2022-02-10 16:45:22 +01:00
if ( $ cttpos - > { $ id } - > { txt01 } ) {
$ cttpos - > { $ id } - > { $ key } =~ s/\<br \/\>/; /g ;
print "$cttpos->{$id}->{$key}<br />\n" ;
2021-12-30 12:05:56 +01:00
}
2022-02-10 16:45:22 +01:00
if ( $ cttpos - > { $ id } - > { start_time } && $ cttpos - > { $ id } - > { end_time } ) {
$ cttpos - > { $ id } - > { start_time } = $ lb - > time4de ( $ cttpos - > { $ id } - > { start_time } , "1" ) ;
$ cttpos - > { $ id } - > { end_time } = $ lb - > time4de ( $ cttpos - > { $ id } - > { end_time } , "1" ) ;
print $ q - > span ( "→ $cttpos->{$id}->{start_time}<br />← $cttpos->{$id}->{end_time}" ) ;
2021-12-30 12:05:56 +01:00
}
print "</td>\n" ;
} elsif ( $ key =~ /int04/ ) {
2022-02-10 16:45:22 +01:00
if ( $ cttpos - > { $ id } - > { int09 } ) { #if Tarifnr then bike
#print $q->td({-class=>'tdint', -style=>"$occupied_style"},"Station $cttpos->{$id}->{$key}");
2021-12-30 12:05:56 +01:00
print "<td class='tdtxt' style='$occupied_style'>\n" ;
2022-02-10 16:45:22 +01:00
print $ q - > span ( "Station<br />→ $cttpos->{$id}->{txt12}$cttpos->{$id}->{int06}<br />← $cttpos->{$id}->{txt13}$cttpos->{$id}->{int04}" ) ;
2021-12-30 12:05:56 +01:00
print "</td>\n" ;
} else {
2022-02-10 16:45:22 +01:00
print $ q - > td ( { - class = > 'tdint' , - style = > "$occupied_style" } , "$cttpos->{$id}->{$key}" ) ;
2021-12-30 12:05:56 +01:00
}
} elsif ( $ key =~ /ct_name/ ) {
2022-02-10 16:45:22 +01:00
if ( $ cttpos - > { $ id } - > { int09 } ) { #if Tarifnr then bike
print $ q - > td ( { - class = > 'tdint' , - style = > "$occupied_style" } , "Rad<br />$cttpos->{$id}->{$key}" ) ;
2021-12-30 12:05:56 +01:00
} else {
2022-02-10 16:45:22 +01:00
print $ q - > td ( { - class = > 'tdint' , - style = > "$occupied_style" } , "$cttpos->{$id}->{$key}" ) ;
2021-12-30 12:05:56 +01:00
}
} elsif ( $ key eq "int26" ) {
my $ co2saving = "" ;
2022-02-10 16:45:22 +01:00
if ( $ cttpos - > { $ id } - > { int26 } ) {
2021-12-30 12:05:56 +01:00
$ co2saving = "Einsparung</br>" ;
2022-02-10 16:45:22 +01:00
my $ co2diff = $ pri - > co2calc ( $ cttpos - > { $ id } ) ;
my $ sprit_price = $ pri - > sprit2calc ( $ cttpos - > { $ id } ) ;
2021-12-30 12:05:56 +01:00
$ co2saving . = "$co2diff kg CO²<br />" ;
$ co2saving . = "$sprit_price EUR<br />" ;
2022-02-10 16:45:22 +01:00
$ cttpos - > { $ id } - > { int26 } =~ s/\./,/ ;
$ co2saving . = "bei $cttpos->{$id}->{int26} KM" ;
2021-12-30 12:05:56 +01:00
}
print $ q - > td ( { - class = > 'tdint' , - style = > "$occupied_style" , - nowrap = > 1 } , "$co2saving" ) ;
} elsif ( $ key eq "int02" ) {
my $ gesamt = 0 ;
my $ rabatt = "" ;
2022-02-10 16:45:22 +01:00
( $ gesamt , $ rabatt ) = $ pri - > price2calc ( $ cttpos - > { $ id } ) ;
2021-12-30 12:05:56 +01:00
$ sum += $ gesamt ;
$ gesamt = $ lb - > round ( $ gesamt ) ;
$ gesamt = $ lb - > cashme ( $ gesamt , "," ) ;
print $ q - > td ( { - class = > 'tdint' , - style = > "$occupied_style" , - nowrap = > 1 } , "$rabatt $gesamt €" ) ;
}
}
}
if ( $ j == 0 ) {
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'tdint' } , "Keine Daten vorhanden" ) ;
} else {
$ sum = $ lb - > round ( $ sum ) ;
$ sum = $ lb - > cashme ( $ sum , "," ) ;
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'tdint' , - colspan = > 3 } , "" ) ;
print $ q - > td ( { - class = > 'tdint' } , "Gesamt" ) ;
print $ q - > td ( { - class = > 'tdint' } , $ q - > b ( "$sum €" ) ) ;
}
print $ q - > end_table ;
print "</div>\n" ;
my $ i = 0 ;
my $ dtext = "" ;
print "<div style='clear:both;'>\n" ;
foreach my $ id ( sort { $ ctt_all - > { $ b } - > { ct_name } cmp $ ctt_all - > { $ a } - > { ct_name } } keys ( %$ ctt_all ) ) {
if ( $ ctt_all - > { $ id } - > { ct_name } =~ /\d/ && $ coo ) {
$ i + + ;
my $ invoice_time = $ ctt_all - > { $ id } - > { invoice_time } || $ ctt_all - > { $ id } - > { mtime } ;
$ invoice_time = $ lb - > time4de ( $ invoice_time , 0 ) ;
#$varenv->{praefix} only defined in sharee
my $ webtarget = "_blank" ;
my $ dtext = "" ;
if ( $ varenv - > { syshost } =~ /app/ ) {
$ webtarget = "_self" ;
$ dtext = "(Der PDF download öffnet je nach System/Konfiguartion einen externen PDF-Viewer oder Webbrowser)" ;
}
if ( $ i == 1 ) {
print $ q - > div ( { - id = > 'Rechnungen' , - style = > 'font-weight:bold;' } , "Ihre Rechnungen" ) , "\n" ;
print $ q - > div ( { - style = > 'padding:0.5em;' } , "$dtext" ) , "\n" ;
}
print $ q - > div ( { - style = > 'font-size:1em;padding:0.5em;border:0px solid #cccccc;' } , $ q - > a ( { - href = > "$ctt_all->{$id}->{wwwhost}/FileOut?file=Rechnung-$ctt_all->{$id}->{praefix}-$ctt_all->{$id}->{ct_name}.pdf&sessionid=$coo" , - target = > "$webtarget" , - type = > 'application/octet-stream' , - style = > 'text-decoration:underline;' } , $ q - > img ( { - src = > "$varenv->{metahost}/glyphicons/file-any.png" , - style = > 'width:30px;' } ) , "Rechnung $ctt_all->{$id}->{ct_name}.pdf" ) , " ($invoice_time)" ) , "\n" ;
}
}
print "</div>\n" ;
}
}
}
#------------------------------------------------------
my $ label_des = "* $des" ;
my $ autofocus = "" ;
if ( $ key =~ /txt15|txt19/ ) {
$ label_des = "$des" ;
}
#sharee Tarife
if ( 1 == 2 && $ key =~ /txt30/ ) {
#FIXME
print $ q - > div ( { - style = > 'padding-top:10px;' } , "aktivierte Tarife: $ctrel->{$key}" ) , "\n" if ( $ users_sharee - > { txt08 } =~ /gnu-systems|tux-edv/ ) ;
if ( ( $ R:: failure && $ R:: failure =~ /^$key/ ) || ( $ ctrel - > { txt31 } && $ ctrel - > { txt31 } =~ /$key/ ) ) {
$ autofocus = "autofocus" ;
$ label_des = "<span style=color:$red>Bitte \"$des\" bestätigen</span>" ;
}
my ( $ bike_group , $ user_group , $ tariff_all , $ user_tour ) = $ apif - > fetch_tariff ( $ users_sharee , "" ) ;
my $ required = "" ;
my @ tariff = ( "$ctrel->{$key}" ) ;
@ tariff = split ( /\s/ , $ ctrel - > { $ key } ) if ( $ ctrel - > { $ key } =~ /\s/ ) ;
my $ record_bonus = { c_id = > 0 } ;
foreach my $ rid ( sort { $ tariff_all - > { $ a } - > { barcode } <=> $ tariff_all - > { $ b } - > { barcode } } keys ( %$ tariff_all ) ) {
print "xxxxxxxxxxxxx $tariff_all->{$rid}->{barcode} | $tariff_all->{$rid}->{int18}\n" ;
} #end foreach tariff_all
} elsif ( $ key =~ /txt/ && $ size eq "select" && $ des eq "Land" ) {
my $ country = $ lb - > country_code ( ) ;
$ ctrel - > { $ key } = "DE" if ( ! $ ctrel - > { $ key } ) ;
my @ _valxx ;
foreach ( sort { $ country - > { $ a } cmp $ country - > { $ b } } keys ( %$ country ) ) {
push @ _valxx , "$_:$country->{$_}" ;
}
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:15px;' } , "$label_des" ) , "\n" ;
print $ but - > selector_class ( "$key" , "form-control" , "" , "$ctrel->{$key}" , @ _valxx ) ;
} elsif ( $ key =~ /txt/ && $ size eq "select" ) {
my @ _valxx = split ( /,/ , $ varenv - > { $ des } ) ;
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:15px;' } , "$label_des" ) , "\n" ;
print $ but - > selector_class ( "$key" , "form-control" , "" , "$ctrel->{$key}" , @ _valxx ) ;
} elsif ( $ key =~ /txt/ && ! $ R:: confirm_success ) {
my $ required = "required" ;
#Gutschein
if ( $ key =~ /txt16/ && $ ctrel - > { c_id } ) {
$ required = "" ;
$ label_des = "<span style='font-weight:normal;'>$des</span>" ;
}
if ( $ key eq "txt07" && $ R:: failure && $ R:: failure =~ /conflict_txt07/ ) {
$ autofocus = "autofocus" ;
my ( $ failkey , $ failval ) = split ( /=/ , $ R:: failure ) ;
$ label_des = "<span style=color:$red>Achtung, es existiert bereits ein Account mit der Telefon Nr.: $failval</span>" ;
$ ctrel - > { $ key } = $ R:: conflict_txt07 ;
}
elsif ( $ key eq "txt08" && $ R:: failure && $ R:: failure =~ /conflict_txt08/ ) {
$ autofocus = "autofocus" ;
my ( $ failkey , $ failval ) = split ( /=/ , $ R:: failure ) ;
$ label_des = "<span style=color:$red>Achtung, es existiert bereits ein Account mit der e-Mail Adresse: $failval</span>" ;
$ ctrel - > { $ key } = $ R:: conflict_txt08 ;
}
#elsif($key eq "txt04" && $R::failure && $R::failure =~ /pwlazy_txt04/){
# $autofocus = "autofocus";
# $label_des = "<span style=color:$red>Das Passwort ist zu kurz.</span>";
#}
elsif ( $ key eq "txt15" && ( $ R:: failure && $ R:: failure =~ /conflict_txt15/ ) ) {
$ autofocus = "autofocus" ;
$ label_des = " < span style = color: $ red > Die Bonusnummer kann pro Registrierung nur einmal verwendet werden . So wird verhindert dass weitere Personen von den 30 - Freiminuten widerrechtlich Gebrauch nehmen . < br / >
Weitere Personen aus Ihrem Haushalt profitieren jedoch ebenfalls , falls Sie weitere Produkte ( Gas , SeeConnect , Fähre - oder Bus - Zeitkarten ) nutzen . Dann könnte sich die zweite Person mit der weiteren Nummer registrieren . </span> " ;
}
elsif ( $ key eq "txt04" && $ R:: failure && $ R:: failure =~ /confirm_txt04/ ) {
$ autofocus = "autofocus" ;
$ label_des = "<span style=color:$red>Die Passwort Wiederholung ist fehlerhaft. Bitte korrigieren Sie Ihre Eingabe.</span>" ;
}
elsif ( ( $ R:: failure && $ R:: failure =~ /^$key/ ) || ( $ ctrel - > { txt31 } && $ ctrel - > { txt31 } =~ /$key/ ) ) {
$ autofocus = "autofocus" ;
$ label_des = "<span style=color:$red>Bitte \"$des\" Angabe korrigieren</span>" ;
$ label_des = "<span style=color:$red>Für das \"$des\" liegt ein Fehler vor.</span>" if ( $ key eq "txt04" ) ;
2022-01-09 18:31:20 +01:00
$ label_des = "<span style=color:$red>Bitte mobile Telefon Nr. mit Ländervorwahl, Beispiel: +49 170 12345678</span>" if ( $ key eq "txt07" ) ;
2021-12-30 12:05:56 +01:00
$ label_des = "<span style=color:$red>Die Bonusnummer ist leider nicht vorhanden. Bei nicht vorhandener Nummer das Feld bitte leer lassen.</span>" if ( $ key =~ /txt15/ ) ;
}
#if($R::success eq $key){
# $label_des = "<span>Das hat geklappt. Der \"$des\" wurde erfolgreich hinzugefügt, s.u..</span>";
#}
if ( $ key eq "txt04" ) {
my $ pw = "xxxxxxxx" ;
$ pw = "" if ( ! $ ctrel - > { c_id } ) ;
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:1.5em;' } , "$label_des" ) , "\n" ;
print "<input id='$key' type='password' class='form-control' name='$key' value='$pw' override placeholder='$des' $required $autofocus /><br />\n" ;
print $ q - > label ( { - for = > "confirm_$key" } , "* Passwort wiederholen" ) , "\n" ;
print "<input id='confirm_$key' type='password' class='form-control' name='confirm_$key' value='$pw' override placeholder='$des bestätigen' $required />\n" ;
print $ q - > div ( { - style = > 'text-align:left;color:grey;' } , "<input type='checkbox' onclick='show_passwd()'>" , "Passwort anzeigen" ) , "\n" if ( $ pw ne "xxxxxxxx" ) ;
} else {
#all other input textfields
$ required = "" ; # if($key =~ /txt09|txt16/);
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:1.5em;' } , "$label_des" ) , "\n" ;
print "<input id='$key' type='text' class='form-control' name='$key' value='$ctrel->{$key}' override placeholder='$des' $required $autofocus />\n" ;
}
#all int checkboxes disabled because of AGB downunder
} elsif ( $ key =~ /int/ && $ size eq "checkbox" ) {
if ( ( $ R:: failure && $ R:: failure =~ /^$key/ ) || ( $ ctrel - > { txt31 } && $ ctrel - > { txt31 } =~ /$key/ ) ) {
$ autofocus = "autofocus" ;
$ label_des = "<span style=color:$red>Bitte \"$des\" bestätigen</span>" ;
}
my $ required = "" ;
#sharee AGB global new
if ( $ key eq "int14" && $ size eq "checkbox" ) {
$ required = "" ;
my $ sharee_agb = "<button type='button' class='btn btn-primary ' style='padding:1px 40px;border:1px solid #$bgcolor1;background-color:#$bgcolor1;' data-toggle='modal' data-target='#sharee_agb'>$des</button>\n" ;
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:20px;' } , "$label_des" ) , "\n" ;
2022-01-04 11:49:13 +01:00
print $ q - > div ( { - id = > "$key" } , $ but - > checkbox ( "1" , "$key" , "$ctrel->{$key}" , "" , "$required" , "$autofocus" ) , " $sharee_agb" ) , "\n" ;
2021-12-30 12:05:56 +01:00
print $ q - > hidden ( - name = > "$key" , - override = > 1 , - value = > "null" ) ;
2022-01-21 17:26:57 +01:00
my $ sharee_privacy = "<button type='button' class='btn btn-primary ' style='text-decoration:underline;color:black;border:1px solid white;background-color:white;' data-toggle='modal' data-target='#sharee_privacy'>Datenschutzhinweise.</button>\n" ;
print $ q - > div ( { - style = > 'padding-top:10px;' } , "Bitte beachten Sie unsere neuen $sharee_privacy" ) , "\n" if ( $ aowner == 195 || $ aowner == 185 || $ aowner == 176 ) ;
#print $q->div({-class=>'content2'},"Bitte beachten Sie unsere <a href='$varenv->{wwwhost}/site/privacy_2.html' target='_blank'>Datenschutzhinweise.</a>"),"\n";
2021-12-30 12:05:56 +01:00
} elsif ( 1 == 2 && $ key =~ /int02/ ) { #newsletter
if ( $ varenv - > { wwwhost } !~ /konrad/ ) {
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:10px;' } , "" ) , "\n" ;
print $ q - > div ( { - id = > "$key" } , $ but - > checkbox ( "1" , "$key" , "$ctrel->{$key}" , "" , "$required" ) , " $des" ) , "\n" ;
print $ q - > hidden ( - name = > "$key" , - override = > 1 , - value = > "0" ) ;
}
} else {
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:10px;' } , "" ) , "\n" ;
print $ q - > div ( { - id = > "$key" } , $ but - > checkbox ( "1" , "$key" , "$ctrel->{$key}" , "" , "$required" ) , " $des" ) , "\n" ;
print $ q - > hidden ( - name = > "$key" , - override = > 1 , - value = > "0" ) ;
}
} elsif ( $ key =~ /int/ ) {
if ( ( $ R:: failure && $ R:: failure =~ /^$key/ ) || ( $ ctrel - > { txt31 } && $ ctrel - > { txt31 } =~ /$key/ ) ) {
$ autofocus = "autofocus" ;
$ label_des = "<span style=color:$red>Bitte \"$des\" bestätigen</span>" ;
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:10px;' } , "$label_des" ) , "\n" ;
}
if ( $ key =~ /int03/ ) {
2022-01-09 18:31:20 +01:00
print $ q - > div ( { - class = > 'content2' } , "
Wählen Sie Ihre Zahlungsart aus . <br/>
Das Abbuchungsverfahren ( Erteilung eines SEPA Mandats ) kann nur mit einem Girokonto in Deutschland erfolgen ( IBAN beginnt mit DE ) . Es werden nur folgende Kreditkarten akzeptiert: VISA und MasterCard . <br/>
Die Nutzungsgebühren werden gesammelt i . d . R . wöchentlich mit dem Verwendungszweck „ Mietrad “ von unserem Zahlungsdienstleister payone eingezogen .
2021-12-30 12:05:56 +01:00
")," \ n " ;
my $ incasso = "1" ;
my $ creditcard = "2" ;
my $ checked_incasso ;
my $ checked_creditcard ;
$ checked_incasso = 1 if ( $ ctrel - > { $ key } == 1 || $ ctrel - > { $ key } == 3 ) ;
$ checked_creditcard = 2 if ( $ ctrel - > { $ key } == 2 ) ;
2022-01-09 18:31:20 +01:00
print $ q - > div ( { - class = > 'radio' , - style = > 'padding-top:20px;' } , $ but - > radiobox_vertical ( "$key" , "$incasso" , "$checked_incasso" , $ q - > img ( { - id = > "pic-payment" , - style = > 'height:50px;' , - title = > 'Abbuchung' , - src = > "$varenv->{metahost}/img/payment-incasso2.png" } ) ) ) , "\n" ;
print $ q - > div ( { - class = > 'radio' , - style = > 'padding-bottom:20px;' } , $ but - > radiobox_vertical ( "$key" , "$creditcard" , "$checked_creditcard" , $ q - > img ( { - id = > "pic-payment" , - style = > 'height:30px;' , - title = > 'Kreditkarte' , - src = > "$varenv->{metahost}/img/payment-creditcard2.png" } ) ) ) , "\n" ;
2021-12-30 12:05:56 +01:00
print $ q - > hidden ( - name = > "$key" , - override = > 1 , - value = > "null" ) ;
}
}
if ( $ key eq "txt16" && $ ctrel - > { c_id } && ! $ R:: confirm_success ) {
print $ q - > div ( { - style = > 'margin-top:1em;' } , "<button type='submit' name='sharee_edit' value='save_transact' class='btn btn-primary btn-lg btn-block' style='border:1px solid #$bgcolor1;background-color:#$bgcolor1;'>Speichern</button>" ) , "\n" ;
}
}
}
if ( ( $ R:: failure && $ R:: failure =~ /\w+/ && $ R:: failure !~ /txt15|txt16/ ) || ( $ ctrel - > { txt31 } && $ ctrel - > { txt31 } =~ /\w/ ) ) {
2022-01-14 10:49:45 +01:00
print $ q - > div ( { - class = > 'content2' , - style = > "color:$red" } , "* Achtung!<br />Bitte überprüfen Sie Ihre Profildaten, damit wir das Fahrradmietsystem freischalten können." ) , "\n" ;
2021-12-30 12:05:56 +01:00
}
if ( $ path !~ /$varenv->{accounting_3}|$varenv->{profile}/ ) {
if ( $ ctrel - > { c_id } ) {
my $ button_name = "Speichern" ;
$ button_name = "Weiter" if ( $ path =~ /$varenv->{accounting_1_5}|$varenv->{accounting_2}/ ) ;
print $ q - > hidden ( - name = > "tinkc_id" , - override = > 1 , - value = > "$ctrel->{c_id}" ) ;
print $ q - > div ( { - style = > 'margin-top:1em;' } , "<button type='submit' name='sharee_edit' value='save_account' class='btn btn-primary btn-lg btn-block' style='border:1px solid #$bgcolor1;background-color:#$bgcolor1;'>$button_name</button>" ) , "\n" ;
if ( $ path =~ /$varenv->{accounting_1}/ ) {
print $ q - > div ( { - style = > 'margin-top:2em;text-align:center;' } , $ q - > a ( { - style = > "color:#$bgcolor1;font-size:1.2em;" , - role = > "button" , - href = > "/$viewsel[0]/Account?sharee_edit=delete_account1$session_and" } , "Daten löschen?" ) ) , "\n" ; # if($ctrel->{txt08});
}
} else {
print $ q - > div ( { - style = > 'margin-top:1em;' } , "<button type='submit' name='sharee_edit' value='create_account' class='btn btn-primary btn-lg btn-block' style='border:1px solid #$bgcolor1;background-color:#$bgcolor1;'>Weiter</button>" ) , "\n" ;
}
}
} #ende e-Mail iif
print "</div>\n" ;
print $ q - > end_form , "\n" ;
print $ q - > div ( { - style = > 'position:fixed;bottom:2%;right:2%;z-index:10;font-size:13px;' } , "--> $varenv->{syshost} | $varenv->{merchant_id} | $bgcolor1 | template -> $node_meta->{tpl_name},$tpl_id ($template01,$template02) | $users_sharee->{c_id}" ) , "\n" if ( $ users_sharee - > { c_id } eq $ dbt - > { copri_conf } - > { superu_id } || $ dbt - > { copri_conf } - > { stage } eq "test" ) ;
print "</div>" ;
}
1 ;
