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::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 || "" ;
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 $ 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 @ 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
2022-05-19 16:00:41 +02:00
#TODO substitute aowner by project
2023-01-27 06:55:30 +01:00
my $ project = "Freiburg" ; #defaults to sharee
2022-05-19 16:00:41 +02:00
$ project = $ dbt - > { merchant_ids } - > { $ varenv - > { merchant_id } } - > { project } if ( $ varenv - > { merchant_id } && $ dbt - > { merchant_ids } - > { $ varenv - > { merchant_id } } - > { project } ) ;
2022-05-18 10:53:29 +02:00
my $ bonus_desc = "Bonusnummer (falls vorhanden)" ;
my $ bonus_ak = "Ihre Bonusnummer wurde akzeptiert. Bitte beachten Sie dass der Bonustarif im Kontext des Mietradbetreibers vergeben wird. Der Tarif wird bei der Mietrad Reservierung angezeigt." ;
my $ bonus_avail = "Die Bonusnummer ist nicht vorhanden." ;
my $ bonus_conflict = " Die Bonusnummer kann pro Registrierung nur einmal verwendet werden . So wird verhindert dass weitere Personen von den 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 . " ;
2022-07-05 11:44:00 +02:00
my $ bonus_saved = "Aktiviert:" ;
2022-05-18 10:53:29 +02:00
#sharee.bike text
if ( $ aowner == 186 || $ aowner == 197 ) {
$ bonus_desc = "Freischaltcode (falls vorhanden)" ;
2022-05-19 06:35:50 +02:00
$ bonus_ak = "Ihr Freischaltcode wurde angenommen. Bitte beachten sie dass der Freischaltcode mit einem Mietradtarif verbunden ist. Der Tarif wird bei der Mietrad Reservierung angezeigt." ;
2022-05-18 10:53:29 +02:00
$ bonus_avail = "Der Freischaltcode ist nicht vorhanden." ;
$ bonus_conflict = "Der Freischaltcode kann nur einmal verwendet werden." ;
2022-07-05 11:44:00 +02:00
$ bonus_saved = "Aktiviert:" ;
2022-05-18 10:53:29 +02:00
}
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
2023-04-14 18:08:14 +02:00
$ q - > param ( - name = > 'month' , - value = > "1" ) ;
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
}
#loop operator hash to get invoices for each operator
2022-02-16 15:56:45 +01:00
my $ ctt_all = { } ;
my $ ctadrcoupon = { } ;
2021-12-30 12:05:56 +01:00
foreach my $ sharee_operator ( keys ( %$ operator_hash ) ) {
my $ dbh_operator = $ dbt - > dbconnect_extern ( "$sharee_operator" ) ;
my $ pref = {
2022-02-16 15:56:45 +01:00
table = > "contenttrans" ,
fetch = > "all" ,
int10 = > "$ctrel->{c_id}" ,
2023-01-17 20:43:36 +01:00
keyfield = > "ct_name" ,
ct_name = > "~::[1-9]" ,
2021-12-30 12:05:56 +01:00
} ;
2022-02-16 15:56:45 +01:00
2021-12-30 12:05:56 +01:00
if ( $ ctrel - > { c_id } ) {
my $ ctt = $ dbt - > fetch_tablerecord ( $ dbh_operator , $ pref ) ;
foreach my $ id ( keys ( %$ ctt ) ) {
$ ctt - > { $ id } - > { wwwhost } = "$operator_hash->{$sharee_operator}" ;
2022-10-04 12:14:03 +02:00
$ ctt - > { $ id } - > { operator } = "$sharee_operator" ;
$ ctt - > { $ id } - > { basedir } = "$dbt->{copri_conf}->{basedir}/$dbt->{operator}->{$sharee_operator}->{dir_app}" ;
2023-01-17 20:43:36 +01:00
#print "$id|$sharee_operator|$ctt->{$id}->{wwwhost}|$ctt->{$id}->{operator}|$ctt->{$id}->{basedir}|$ctt->{$id}->{ct_name}<br>";
2021-12-30 12:05:56 +01:00
}
$ ctt_all = { %$ ctt_all , %$ ctt } ;
2022-02-16 15:56:45 +01:00
my $ prefcoupon = {
table = > "contentadr" ,
fetch = > "one" ,
txt15 = > "~::\\w" ,
c_id = > "$ctrel->{c_id}" ,
} ;
$ ctadrcoupon - > { $ sharee_operator } = $ dbt - > fetch_tablerecord ( $ dbh_operator , $ prefcoupon ) ;
2023-03-10 11:35:56 +01:00
$ ctadrcoupon - > { $ sharee_operator } - > { oprefix } = "$dbt->{operator}->{$sharee_operator}->{oprefix}" ;
2021-12-30 12:05:56 +01:00
}
}
my $ tpl_id = $ node_meta - > { tpl_id } ;
#$tpl_id = "302004" if($viewsel[1] =~ /Mieten/ && $ctrel->{c_id});
2022-11-17 20:36:53 +01:00
my $ tpl = $ dbt - > get_tpl ( $ dbh , $ tpl_id ) ;
2021-12-30 12:05:56 +01:00
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 ) {
2022-11-17 20:36:53 +01:00
$ tpl01 = $ dbt - > get_tpl ( $ dbh , $ template01 ) ;
$ tpl02 = $ dbt - > get_tpl ( $ dbh , $ template02 ) ;
2021-12-30 12:05:56 +01:00
@ 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" ;
2023-01-27 06:55:30 +01:00
$ sharee_agb_text - > { txt01 } = "<iframe src='$varenv->{wwwhost}/$dbt->{project_conf}->{$project}->{agb_html}' style='width:100%;height:10000px;border:none;' scrolling='auto'></iframe>" ;
2022-05-24 10:46:05 +02:00
my $ sharee_privacy_text = { } ;
$ sharee_privacy_text - > { ct_name } = "Datenschutzhinweise" ;
2023-01-27 06:55:30 +01:00
$ sharee_privacy_text - > { txt01 } = "<iframe src='$varenv->{wwwhost}/$dbt->{project_conf}->{$project}->{privacy_html}' style='width:100%;height:8000px;border:none;' scrolling='auto'></iframe>" ;
2021-12-30 12:05:56 +01:00
print "<div id='Contentapp'>\n" ;
2022-03-23 07:20:56 +01:00
print << EOF
< ! - - Modal - - >
< div class = "modal fade" id = "sharee_agb" tabindex = "-1" aria - labelledby = "myModalLabel" aria - hidden = "true" >
< div class = "modal-dialog" >
< div class = "modal-content" >
< div class = "modal-header" >
< h5 class = "modal-title" > $ sharee_agb_text - > { ct_name } </h5>
< button type = "button" class = "btn-close" data - bs - dismiss = "modal" aria - label = "Close" > </button>
</div>
< div class = "modal-body" >
< div class = "text-default" > $ sharee_agb_text - > { txt01 } </div>
</div>
< div class = "modal-footer" >
< button type = "button" class = "btn-close" data - bs - dismiss = "modal" aria - label = "Close" > </button>
</div>
</div>
</div>
</div>
EOF
;
2022-03-24 07:25:20 +01:00
print << EOF
< ! - - Modal - - >
< div class = "modal fade" id = "sharee_privacy" tabindex = "-1" aria - labelledby = "myModalLabel" aria - hidden = "true" >
< div class = "modal-dialog" >
< div class = "modal-content" >
< div class = "modal-header" >
< h5 class = "modal-title" > $ sharee_privacy_text - > { ct_name } </h5>
< button type = "button" class = "btn-close" data - bs - dismiss = "modal" aria - label = "Close" > </button>
</div>
< div class = "modal-body" >
< div class = "text-default" > $ sharee_privacy_text - > { txt01 } </div>
</div>
< div class = "modal-footer" >
< button type = "button" class = "btn-close" data - bs - dismiss = "modal" aria - label = "Close" > </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--------
2023-01-17 20:43:36 +01:00
$ submenu - > tpl ( $ node_meta , $ users_dms , $ mode , $ varenv , $ users_sharee , $ feedb ) ;
2021-12-30 12:05:56 +01:00
#-----------------
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" ;
2022-05-18 10:53:29 +02:00
print "<input id='$key' type='text' class='form-control' name='$key' value='' $required autofocus/>\n" ;
2021-12-30 12:05:56 +01:00
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" ;
2022-05-18 10:53:29 +02:00
print "<input id='$key' type='text' class='form-control' name='$key' value='' $required autofocus />\n" ;
2021-12-30 12:05:56 +01:00
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" ;
2022-03-30 13:06:39 +02:00
print $ q - > div ( { - style = > 'margin-top:2em;text-align:center;' } , "<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" ;
2021-12-30 12:05:56 +01:00
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" ) ;
if ( $ ctrel - > { int03 } && $ path =~ /$varenv->{accounting_3}|$varenv->{profile}/ ) {
if ( 1 == 1 ) {
if ( $ key =~ /ct_name/ ) {
if ( $ ctrel - > { int12 } ) {
2023-02-23 12:35:53 +01:00
print $ q - > div ( { - class = > 'content2' , - style = > 'color:#c83434;' } , "Hinweis: Wir mussten Ihren Zugang zu den Mieträdern sperren, da ein Problem mit Ihren Zahlungsdaten vorliegt. Bitte aktualisieren Sie Ihre Zahlungsdaten.<br />Bei Rückfragen zur Registrierung oder Freischaltung wenden Sie sich bitte an hotline\@sharee.bike ." ) , "\n" ;
2021-12-30 12:05:56 +01:00
} else {
2023-02-23 12:35:53 +01:00
print $ q - > div ( { - class = > 'content2' } , "Herzlich Willkommen. Sie können nach erfolgreicher Anmeldung unter dem Menue \"Radstandorte\" ein Leihrad mieten." ) , "\n" ;
2021-12-30 12:05:56 +01:00
}
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" ;
2022-05-18 10:53:29 +02:00
print $ q - > div ( { - class = > 'content2' } , "$bonus_ak" ) , "\n" if ( $ R:: success && $ R:: success eq "txt15" ) ;
2021-12-30 12:05:56 +01:00
2023-01-17 20:43:36 +01:00
} elsif ( $ key =~ /barcode/ ) {
2021-12-30 12:05:56 +01:00
2023-01-17 20:43:36 +01:00
if ( $ cttpos_count ) {
2023-04-14 18:08:14 +02:00
print $ q - > div ( { - style = > 'padding-top:1.5em;font-weight:bold;' } , "Folgende Positionen liegen zur nächsten Abbuchung vor (max. 1 Monat)" ) , "\n" ;
2021-12-30 12:05:56 +01:00
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 ) ) {
2022-04-30 08:12:55 +02:00
$ j + + ;
$ nx + + ;
my $ pricing = { } ;
my $ counting = { } ;
if ( $ cttpos - > { $ id } - > { int35 } && $ cttpos - > { $ id } - > { start_time } && $ cttpos - > { $ id } - > { end_time } ) {
2023-04-17 15:30:19 +02:00
( $ pricing , $ counting ) = $ pri - > counting_rental ( $ varenv , $ cttpos - > { $ id } ) ;
2022-04-30 08:12:55 +02:00
}
2021-12-30 12:05:56 +01:00
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
}
2023-02-23 12:35:53 +01:00
if ( $ pricing - > { start_time } && $ pricing - > { end_time } ) {
$ pricing - > { start_time } = $ lb - > time4de ( $ pricing - > { start_time } , "1" ) ;
$ pricing - > { end_time } = $ lb - > time4de ( $ pricing - > { end_time } , "1" ) ;
2023-04-11 17:57:31 +02:00
my $ rental_time = "" ;
$ rental_time = "(rental debug: $pricing->{real_clock} $pricing->{freed_time})" if ( $ debug ) ;
print $ q - > span ( "→ $pricing->{start_time}<br />← $pricing->{end_time} $rental_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-04-12 11:21:19 +02:00
my $ return_station = "" ;
$ return_station = "← $cttpos->{$id}->{txt13}$cttpos->{$id}->{int04}" if ( $ cttpos - > { $ id } - > { txt13 } && $ cttpos - > { $ id } - > { int04 } ) ;
print $ q - > span ( "Station<br />→ $cttpos->{$id}->{txt12}$cttpos->{$id}->{int06}<br />$return_station" ) ;
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 } ) ;
2022-10-31 08:11:53 +01:00
#my $sprit_price = $pri->sprit2calc($cttpos->{$id});
2021-12-30 12:05:56 +01:00
$ co2saving . = "$co2diff kg CO²<br />" ;
2022-10-31 08:11:53 +01:00
#$co2saving .= "$sprit_price EUR<br />" if($sprit_price !~ /-/);
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" ) {
2022-05-17 06:13:53 +02:00
if ( $ cttpos - > { $ id } - > { int35 } && $ cttpos - > { $ id } - > { start_time } && $ cttpos - > { $ id } - > { end_time } ) {
my $ gesamt = 0 ;
2022-05-01 18:31:03 +02:00
$ sum += $ pricing - > { total_price } ;
2022-05-17 06:13:53 +02:00
$ gesamt = $ lb - > round ( $ pricing - > { total_price } ) ;
$ gesamt = sprintf ( '%.2f' , $ gesamt ) ;
$ gesamt =~ s/\./,/ ;
2022-07-21 20:06:25 +02:00
my $ rabatt = "" ;
$ rabatt = "$pricing->{discount}" if ( $ pricing - > { discount } ) ;
print $ q - > td ( { - class = > 'tdint' , - style = > "$occupied_style" , - nowrap = > 1 } , "$rabatt $gesamt €" ) , "\n" ;
2022-04-30 08:12:55 +02:00
} else {
my $ gesamt = 0 ;
my $ rabatt = "" ;
( $ gesamt , $ rabatt ) = $ pri - > price2calc ( $ cttpos - > { $ id } ) ;
$ sum += $ gesamt ;
$ gesamt = $ lb - > round ( $ gesamt ) ;
2022-11-02 20:14:57 +01:00
$ gesamt = sprintf ( '%.2f' , $ gesamt ) ;
2022-04-30 08:12:55 +02:00
print $ q - > td ( { - class = > 'tdint' , - style = > "$occupied_style" , - nowrap = > 1 } , "$rabatt $gesamt €" ) ;
}
2021-12-30 12:05:56 +01:00
}
}
}
if ( $ j == 0 ) {
print $ q - > Tr ( ) , "\n" ;
print $ q - > td ( { - class = > 'tdint' } , "Keine Daten vorhanden" ) ;
} else {
$ sum = $ lb - > round ( $ sum ) ;
2022-11-02 20:14:57 +01:00
$ sum = sprintf ( '%.2f' , $ sum ) ;
2021-12-30 12:05:56 +01:00
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" ;
2023-01-17 20:43:36 +01:00
} else {
print $ q - > div ( { - class = > 'content2' , - style = > 'padding:0.5em 0;' } , "Aktuell liegen keine Mietvorgänge vor." ) , "\n" ;
} #end if $cttpos_count
2021-12-30 12:05:56 +01:00
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 ) ) {
2023-01-17 20:43:36 +01:00
if ( - f "$ctt_all->{$id}->{basedir}/pdfinvoice/Rechnung-$ctt_all->{$id}->{operator}-$ctt_all->{$id}->{ct_name}.pdf" && $ ctt_all - > { $ id } - > { ct_name } =~ /\d/ && $ coo ) {
#print "$ctt_all->{$id}->{basedir}/pdfinvoice/Rechnung-$ctt_all->{$id}->{operator}-$ctt_all->{$id}->{ct_name}.pdf && $ctt_all->{$id}->{ct_name} =~ /\d/ && $coo<br />";
2021-12-30 12:05:56 +01:00
$ i + + ;
my $ invoice_time = $ ctt_all - > { $ id } - > { invoice_time } || $ ctt_all - > { $ id } - > { mtime } ;
$ invoice_time = $ lb - > time4de ( $ invoice_time , 0 ) ;
2022-10-04 12:14:03 +02:00
#$varenv->{operator} only defined in sharee
2021-12-30 12:05:56 +01:00
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" ;
2022-12-10 15:47:22 +01:00
print $ q - > div ( { - style = > 'padding:0.5em 0;' } , "$dtext" ) , "\n" ;
2021-12-30 12:05:56 +01:00
}
2022-12-10 15:47:22 +01:00
print $ q - > div ( { - style = > 'padding:0.7em 0;border:0px solid #cccccc;' } , $ q - > a ( { - href = > "$ctt_all->{$id}->{wwwhost}/FileOut?file=Rechnung-$ctt_all->{$id}->{operator}-$ctt_all->{$id}->{ct_name}.pdf&sessionid=$coo" , - target = > "$webtarget" , - type = > 'application/octet-stream' , - style = > 'text-decoration:underline;' } , $ q - > span ( { - class = > "bi bi-file-earmark-pdf" } ) , "Rechnung $ctt_all->{$id}->{ct_name}.pdf" ) , " ($invoice_time)" ) , "\n" ;
2021-12-30 12:05:56 +01:00
}
}
print "</div>\n" ;
}
}
}
#------------------------------------------------------
my $ label_des = "* $des" ;
my $ autofocus = "" ;
if ( $ key =~ /txt15|txt19/ ) {
$ label_des = "$des" ;
}
2022-02-23 20:30:12 +01:00
if ( $ key =~ /txt/ && $ size eq "select" && $ des eq "Land" ) {
2021-12-30 12:05:56 +01:00
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 ) ;
2022-02-23 12:33:59 +01:00
#}elsif($key =~ /txt/ && !$R::confirm_success){
} elsif ( $ key =~ /txt/ ) {
2021-12-30 12:05:56 +01:00
my $ required = "required" ;
2022-02-23 12:33:59 +01:00
#start failure messages
2021-12-30 12:05:56 +01:00
#Gutschein
if ( $ key =~ /txt16/ && $ ctrel - > { c_id } ) {
2022-05-11 19:01:13 +02:00
if ( $ R:: failure =~ /^txt16/ ) {
$ autofocus = "autofocus" ;
2022-05-19 16:00:41 +02:00
$ label_des = "<span style=color:$red>Der Gutscheincode ist nicht vorhanden.</span>" ;
2022-05-11 19:01:13 +02:00
}
elsif ( $ R:: failure =~ /conflict_txt16/ ) {
$ autofocus = "autofocus" ;
2022-05-19 16:00:41 +02:00
$ label_des = "<span style=color:$red>Der Gutscheincode wurde bereits hinterlegt.</span>" ;
2022-05-11 19:01:13 +02:00
} else {
$ required = "" ;
$ label_des = "<span style='font-weight:normal;'>$des</span>" ;
}
2021-12-30 12:05:56 +01:00
}
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 ;
}
2022-02-23 12:33:59 +01:00
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" ) ;
$ label_des = "<span style=color:$red>Bitte mobile Telefon Nr. mit Ländervorwahl, Beispiel: +49 170 12345678</span>" if ( $ key eq "txt07" ) ;
} #end failure messages
2021-12-30 12:05:56 +01:00
2022-02-23 12:33:59 +01:00
if ( $ key eq "txt15" ) {
if ( $ R:: failure =~ /^txt15/ ) {
2022-02-16 15:56:45 +01:00
$ autofocus = "autofocus" ;
2023-01-17 20:43:36 +01:00
$ bonus_desc = "<span style=color:$red>$bonus_avail</span>" ;
2022-02-16 15:56:45 +01:00
}
2022-05-18 10:53:29 +02:00
if ( $ R:: failure =~ /conflict_txt15/ ) {
2023-01-17 20:43:36 +01:00
$ bonus_desc = "<span style=color:$red>$bonus_conflict</span>" ;
2022-02-16 15:56:45 +01:00
}
my $ saved_coupon = "" ;
$ saved_coupon = "$ctadrcoupon->{sharee_kn}->{txt15}" if ( $ ctadrcoupon - > { sharee_kn } - > { txt15 } ) ;
2023-01-17 20:43:36 +01:00
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:1.5em;' } , "$bonus_desc" ) , "\n" ;
2022-05-18 10:53:29 +02:00
print "<input id='$key' type='text' class='form-control' name='$key' value='$saved_coupon' override $autofocus />\n" ;
2022-02-16 15:56:45 +01:00
print $ q - > div ( " " ) ;
foreach my $ opid ( keys ( %$ ctadrcoupon ) ) {
if ( $ ctadrcoupon - > { $ opid } - > { txt15 } && ( $ aowner != 195 && $ aowner != 185 && $ aowner != 176 ) ) {
2023-03-10 11:35:56 +01:00
print $ q - > div ( "$bonus_saved $ctadrcoupon->{$opid}->{oprefix}-$ctadrcoupon->{$opid}->{txt15}" ) , "\n" ;
2022-02-16 15:56:45 +01:00
}
}
2021-12-30 12:05:56 +01:00
}
2022-02-16 15:56:45 +01:00
elsif ( $ key eq "txt04" ) {
2022-02-23 12:33:59 +01:00
if ( $ 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>" ;
}
2021-12-30 12:05:56 +01:00
my $ pw = "xxxxxxxx" ;
$ pw = "" if ( ! $ ctrel - > { c_id } ) ;
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:1.5em;' } , "$label_des" ) , "\n" ;
2022-05-18 10:53:29 +02:00
print "<input id='$key' type='password' class='form-control' name='$key' value='$pw' override $required $autofocus /><br />\n" ;
2021-12-30 12:05:56 +01:00
print $ q - > label ( { - for = > "confirm_$key" } , "* Passwort wiederholen" ) , "\n" ;
2022-05-18 10:53:29 +02:00
print "<input id='confirm_$key' type='password' class='form-control' name='confirm_$key' value='$pw' override $required />\n" ;
2021-12-30 12:05:56 +01:00
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
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:1.5em;' } , "$label_des" ) , "\n" ;
2022-05-18 10:53:29 +02:00
print "<input id='$key' type='text' class='form-control' name='$key' value='$ctrel->{$key}' override $required $autofocus />\n" ;
2022-02-23 20:30:12 +01:00
}
}
#end $key =~ /txt/
2021-12-30 12:05:56 +01:00
#all int checkboxes disabled because of AGB downunder
2022-02-23 20:30:12 +01:00
elsif ( $ key =~ /int/ && $ size eq "checkbox" ) {
2021-12-30 12:05:56 +01:00
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 = "" ;
2022-03-23 07:20:56 +01:00
#bootstrap 5
2022-03-30 13:06:39 +02:00
my $ sharee_agb = "<button type='button' class='btn btn-primary ' style='padding:1px 40px;border:1px solid #$bgcolor1;background-color:#$bgcolor1;' data-bs-toggle='modal' data-bs-target='#sharee_agb'>$des</button>\n" ;
2022-03-23 07:20:56 +01:00
2021-12-30 12:05:56 +01:00
print $ q - > label ( { - for = > "$key" , - style = > 'padding-top:20px;' } , "$label_des" ) , "\n" ;
2022-05-20 19:37:57 +02: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" ) ;
2023-01-05 18:11:24 +01:00
my $ sharee_privacy = "<button type='button' class='btn btn-primary ' style='text-decoration:underline;color:#3f3f3f;border:1px solid white;background-color:white;' data-bs-toggle='modal' data-bs-target='#sharee_privacy'>Datenschutzhinweise</button>\n" ;
2022-05-20 19:37:57 +02:00
print $ q - > div ( { - style = > 'padding-top:10px;' } , "$sharee_privacy" ) , "\n" ;
2022-01-21 17:26:57 +01:00
2021-12-30 12:05:56 +01:00
} elsif ( 1 == 2 && $ key =~ /int02/ ) { #newsletter
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" ) ;
}
}
2022-02-23 20:30:12 +01:00
if ( $ key eq "txt16" && $ ctrel - > { c_id } ) {
2022-03-30 13:06:39 +02:00
print $ q - > div ( { - style = > 'margin-top:1em;text-align:center;' } , "<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" ;
2021-12-30 12:05:56 +01:00
}
}
}
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}" ) ;
2022-03-30 13:06:39 +02:00
print $ q - > div ( { - style = > 'margin-top:1em;text-align:center;' } , "<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" ;
2021-12-30 12:05:56 +01:00
if ( $ path =~ /$varenv->{accounting_1}/ ) {
2022-07-25 18:01:01 +02:00
print $ q - > div ( { - style = > 'margin-top:3em;text-align:center;' } , $ q - > a ( { - style = > "color:#$bgcolor1;font-size:1.2em;" , - role = > "button" , - href = > "/$viewsel[0]/Account?sharee_edit=delete_account1$session_and" } , "Delete account?" ) ) , "\n" ;
2021-12-30 12:05:56 +01:00
}
} else {
2022-03-30 13:06:39 +02:00
print $ q - > div ( { - style = > 'margin-top:1em;text-align:center;' } , "<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" ;
2021-12-30 12:05:56 +01:00
}
}
} #ende e-Mail iif
2022-06-21 15:30:22 +02:00
2023-02-23 12:35:53 +01:00
print $ q - > div ( { - class = > 'content2' , - style = > 'margin-top:2em;' } , "Bei Rückfragen zur Registrierung oder Freischaltung wenden Sie sich bitte an hotline\@sharee.bike ." ) , "\n" if ( $ path =~ /$varenv->{accounting_1}|$varenv->{accounting_3}/ ) ;
2022-06-21 15:30:22 +02:00
2021-12-30 12:05:56 +01:00
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 ;
