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}); 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 my ($ctpos,$operator_hash) = $apif->user_rentals_history($q,$ctrel); #print Dumper($ctpos); my $ctpos_count=0; foreach my $id (keys(%$ctpos)){ $ctpos_count++; } 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); my $radID = $R::radID || ""; my $tink_agb_text; $tink_agb_text = $db->get_content("2351",""); $tink_agb_text->{txt01} = $q->unescapeHTML($tink_agb_text->{txt01}); $tink_agb_text->{txt01} = $lb->newline($tink_agb_text->{txt01},"","0"); my $konrad_agb_text; $konrad_agb_text = $db->get_content("3446",""); $konrad_agb_text->{txt01} = $q->unescapeHTML($konrad_agb_text->{txt01}); $konrad_agb_text->{txt01} = $lb->newline($konrad_agb_text->{txt01},"","0"); #TODO get and edit sharee AGB from Tarif content my $sharee_agb_text; $sharee_agb_text->{ct_name} = "AGB"; $sharee_agb_text->{txt01} = ""; print "
\n"; print < EOF ; 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}/)){ 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 = ""; $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"; if(!$ctrel->{int04}){ my $des = "E-Mail Bestätigungscode"; my $key = "confirm_code"; my $label_des="* $des"; $label_des = "Bitte \"$des\" korrigieren" if($R::failure); print $q->label({-for=>"$key", -style=>'padding-top:1em;'},"$label_des"),"\n"; print "\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 = "Bitte \"$des\" korrigieren" if($R::failure); print $q->label({-for=>"$key", -style=>'padding-top:1em;'},"$label_des"),"\n"; print "\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;'},""),"\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 "
\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}/){ print $q->div({-class=>'content2'}, "Damit Sie jederzeit und einfach ein Leihrad mieten können benötigen wir Anschrift und Zahlungsdaten."),"\n"; } 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"); print $q->div({-class=>'content2'}, "Aktuell liegen keine Buchungen vor."),"\n" if(!$ctpos_count); }elsif($key =~ /barcode/ && $ctpos_count){ #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 "
\n"; print $q->start_table({-style=>'margin:15px 0;', -border=>'0', -width=>'auto',-align=>'left', -cellpadding=>'3', -cellspacing=>'0'}),"\n"; print $q->Tr(),"\n"; foreach my $id (sort { lc($ctpos->{$b}->{$scol}) cmp lc($ctpos->{$a}->{$scol}) } keys(%$ctpos)){ $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); #$occupied_style = "color:#ff1493;" if($ctpos->{$id}->{txt10} =~ /occupied|requested/); $occupied_style = "color:#ff1493;" if($ctpos->{$id}->{int10} == 2 || $ctpos->{$id}->{int10} == 3); if($key eq "txt01"){ #print $q->td({-class=>'tdtxt', -style=>"$occupied_style"},"$ctpos->{$id}->{$key}"); print "\n"; if($ctpos->{$id}->{txt01}){ $ctpos->{$id}->{$key} =~ s/\
/;   /g; print "$ctpos->{$id}->{$key}
\n"; } if($ctpos->{$id}->{start_time}){ $ctpos->{$id}->{start_time} = $lb->time4de($ctpos->{$id}->{start_time},"1"); $ctpos->{$id}->{end_time} = $lb->time4de($ctpos->{$id}->{end_time},"1"); print $q->span("→ $ctpos->{$id}->{start_time}
← $ctpos->{$id}->{end_time}"); } print "\n"; }elsif($key =~ /int04/){ if($ctpos->{$id}->{int09}){#if Tarifnr then bike #print $q->td({-class=>'tdint', -style=>"$occupied_style"},"Station $ctpos->{$id}->{$key}"); print "\n"; print $q->span("Station
→ $ctpos->{$id}->{txt12}$ctpos->{$id}->{int06}
← $ctpos->{$id}->{txt13}$ctpos->{$id}->{int04}"); print "\n"; }else{ print $q->td({-class=>'tdint', -style=>"$occupied_style"},"$ctpos->{$id}->{$key}"); } }elsif($key =~ /ct_name/){ if($ctpos->{$id}->{int09}){#if Tarifnr then bike print $q->td({-class=>'tdint', -style=>"$occupied_style"},"Rad
$ctpos->{$id}->{$key}"); }else{ print $q->td({-class=>'tdint', -style=>"$occupied_style"},"$ctpos->{$id}->{$key}"); } }elsif($key eq "int26"){ my $co2saving = ""; if($ctpos->{$id}->{int26}){ $co2saving = "Einsparung
"; my $co2diff = $pri->co2calc($ctpos->{$id}); my $sprit_price = $pri->sprit2calc($ctpos->{$id}); $co2saving .= "$co2diff kg CO²
"; $co2saving .= "$sprit_price EUR
"; $ctpos->{$id}->{int26} =~ s/\./,/; $co2saving .= "bei $ctpos->{$id}->{int26} KM"; } print $q->td({-class=>'tdint', -style=>"$occupied_style", -nowrap=>1},"$co2saving"); }elsif($key eq "int02"){ my $gesamt = 0; my $rabatt = ""; ($gesamt,$rabatt) = $pri->price2calc($ctpos->{$id}); $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 "
\n"; my $i=0; my $dtext = ""; print "
\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 "
\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 = "Bitte \"$des\" bestätigen"; } 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 = "$des"; } if($key eq "txt07" && $R::failure && $R::failure =~ /conflict_txt07/){ $autofocus = "autofocus"; my ($failkey,$failval) = split(/=/,$R::failure); $label_des = "Achtung, es existiert bereits ein Account mit der Telefon Nr.: $failval"; $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 = "Achtung, es existiert bereits ein Account mit der e-Mail Adresse: $failval"; $ctrel->{$key} = $R::conflict_txt08; } #elsif($key eq "txt04" && $R::failure && $R::failure =~ /pwlazy_txt04/){ # $autofocus = "autofocus"; # $label_des = "Das Passwort ist zu kurz."; #} elsif($key eq "txt15" && ($R::failure && $R::failure =~ /conflict_txt15/)){ $autofocus = "autofocus"; $label_des = "Die Bonusnummer kann pro Registrierung nur einmal verwendet werden. So wird verhindert dass weitere Personen von den 30-Freiminuten widerrechtlich Gebrauch nehmen.
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.
"; } elsif($key eq "txt04" && $R::failure && $R::failure =~ /confirm_txt04/){ $autofocus = "autofocus"; $label_des = "Die Passwort Wiederholung ist fehlerhaft. Bitte korrigieren Sie Ihre Eingabe."; } elsif(($R::failure && $R::failure =~ /^$key/) || ($ctrel->{txt31} && $ctrel->{txt31} =~ /$key/)){ $autofocus = "autofocus"; $label_des = "Bitte \"$des\" Angabe korrigieren"; $label_des = "Für das \"$des\" liegt ein Fehler vor." if($key eq "txt04"); $label_des = "Bitte mobile Telefon Nr. mit Ländervorwahl, Beispiel: +49 170 12345678" if($key eq "txt07"); $label_des = "Die Bonusnummer ist leider nicht vorhanden. Bei nicht vorhandener Nummer das Feld bitte leer lassen." if($key =~ /txt15/); } #if($R::success eq $key){ # $label_des = "Das hat geklappt. Der \"$des\" wurde erfolgreich hinzugefügt, s.u.."; #} 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 "
\n"; print $q->label({-for=>"confirm_$key"},"* Passwort wiederholen"),"\n"; print "\n"; print $q->div({-style=>'text-align:left;color:grey;'}, "", "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 "\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 = "Bitte \"$des\" bestätigen"; } my $required=""; #sharee AGB global new if($key eq "int14" && $size eq "checkbox"){ $required=""; my $sharee_agb = "\n"; print $q->label({-for=>"$key", -style=>'padding-top:20px;'},"$label_des"),"\n"; print $q->div({-id=>"$key"},$but->checkbox("1","$key","$ctrel->{$key}","","$required","$autofocus"), " $sharee_agb"),"\n"; print $q->hidden(-name=>"$key",-override=>1,-value=>"null"); } #look also Shareework.pm save_account ret value elsif(1==2 && $key =~ /int15/){#Konrad AGB $required=1 if($varenv->{wwwhost} =~ /konrad/); my $konrad_agb = "\n"; print $q->label({-for=>"$key", -style=>'padding-top:20px;'},"$label_des"),"\n"; print $q->div({-id=>"$key"},$but->checkbox("3429","$key","$ctrel->{$key}","","$required"), " $konrad_agb"),"\n"; print $q->hidden(-name=>"$key",-override=>1,-value=>"0"); }elsif(1==2 && $key =~ /int14/){#TINK AGB $required=1 if($varenv->{wwwhost} !~ /konrad/); my $tink_agb = "\n"; print $q->label({-for=>"$key", -style=>'padding-top:20px;'},"$label_des"),"\n"; print $q->div({-id=>"$key"},$but->checkbox("3428","$key","$ctrel->{$key}","","$required"), " $tink_agb"),"\n"; print $q->hidden(-name=>"$key",-override=>1,-value=>"0"); }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 = "Bitte \"$des\" bestätigen"; print $q->label({-for=>"$key", -style=>'padding-top:10px;'},"$label_des"),"\n"; } if($key =~ /int03/){ print $q->div({-class=>'content2'}, " Wählen Sie Ihre Zahlungsart aus.
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.
Die Nutzungsgebühren werden gesammelt i.d.R. wöchentlich mit dem Verwendungszweck „Mietrad“ von unserem Zahlungsdienstleister payone eingezogen. "),"\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); 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"; 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;'},""),"\n"; } } } if(($R::failure && $R::failure =~ /\w+/ && $R::failure !~ /txt15|txt16/) || ($ctrel->{txt31} && $ctrel->{txt31} =~ /\w/)){ print $q->div({-class=>'content2', -style=>"color:$red"}, "* Achtung!
Bitte überprüfen Sie Ihre Profildaten, damit wir das Fahrradmietsystem freischalten können."),"\n"; } 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;'},""),"\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;'},""),"\n"; } } }#ende e-Mail iif print "
\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 "
"; } 1;