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
 #my $bgcolor1 = "e2001a";

 $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} = "<iframe src='$varenv->{wwwhost}/site/agb.html' style='width:100%;height:10000px;border:none;' scrolling='auto'></iframe>";


  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
;

  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}/)){
    if(1==1){
      $debug_message = "(!$ctrel->{int04} || !$ctrel->{int13}) && $tpl_id" if($debug);
      print $q->div({-class=>'content_title3',-style=>'clear:both;'}, "Fasst geschafft $debug_message"),"\n";
      print $q->div({-class=>'content2'}, "Es wurden Bestätigungs-Codes an Ihre e-Mail Adresse und per SMS an Ihre Telefonnr. versandt. Nach erfolgreicher Bestätigung können Sie unsere Mieträder nutzen. Bitte beachten Sie die Anweisungen."),"\n";
   #}else{
      #print $q->div({-class=>'content1',-style=>'padding-top:1em;clear:both;'}, "E-Mail Bestätigung"),"\n";
      #print $q->div({-class=>'content2'}, "Wir haben einen Bestätigungscode an Ihre angegebene e-Mail Adresse versandt. Nach erfolgreicher Bestätigung können Sie sich einloggen und ein Leihrad mieten. Bitte beachten Sie die Anweisungen."),"\n";
    }
    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 = "";
    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}/){
		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 &frac12; 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";

  	  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 "<td class='tdtxt' style='$occupied_style'>\n";
	    if($ctpos->{$id}->{txt01}){
            	$ctpos->{$id}->{$key} =~ s/\<br \/\>/; &nbsp; /g;
            	print "$ctpos->{$id}->{$key}<br />\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("&rarr; $ctpos->{$id}->{start_time}<br />&larr; $ctpos->{$id}->{end_time}");
	    }
	    print "</td>\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 "<td class='tdtxt' style='$occupied_style'>\n";
		print $q->span("Station<br />&rarr; $ctpos->{$id}->{txt12}$ctpos->{$id}->{int06}<br />&larr; $ctpos->{$id}->{txt13}$ctpos->{$id}->{int04}");
		print "</td>\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<br />$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</br>";
	      my $co2diff = $pri->co2calc($ctpos->{$id});
	      my $sprit_price = $pri->sprit2calc($ctpos->{$id});
	      $co2saving .= "$co2diff kg CO&sup2;<br />";
	      $co2saving .= "$sprit_price EUR<br />";
	      $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 "</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"), "&nbsp;&nbsp; ($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");
	  $label_des = "<span style=color:$red>Bitte SMS Telefon Nr. mit Ländercode, Beispiel: +49 170 12345678</span>" if($key eq "txt07");
	  $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";
          print $q->div({-id=>"$key"},$but->checkbox("1","$key","$ctrel->{$key}","","$required"), " $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 = "<button type='button' class='btn btn-primary ' style='padding:1px 20px;' data-toggle='modal' data-target='#konrad_agb'>$des</button>\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 = "<button type='button' class='btn btn-primary ' style='padding:1px 20px;background-color:#0061a1;border:1px solid #0061a1;' data-toggle='modal' data-target='#tink_agb'>$des</button>\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 = "<span style=color:$red>Bitte \"$des\" bestätigen</span>";
	   print $q->label({-for=>"$key", -style=>'padding-top:10px;'},"$label_des"),"\n";
        }

	if($key =~ /int03/){

          print $q->div({-class=>'content2'}, "
	Es werden die Kreditkartendaten von VISA und MasterCard akzeptiert.<br/>
	Die Beträge für die Leihvorgänge werden gesammelt und i.d.R. wöchentlich eingezogen. D.h. der Belastungszeitpunkt bei Bankeinzeig oder via Karte findet in den darauffolgenden Tagen statt.<br/>
	Gutschriften werden verrechnet und Ihrem Konto gutgeschrieben.<br/>
	Die Datenübetragung findet per SSL-Verschlüsselung statt.<br/>
        Nach erfolgreicher Anmeldung können Sie unter Ihren Verleihdaten die Leihrad Buchungen und Rechnungen jederzeit einsehen.

	"),"\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;',-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;', -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;'},"<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/)){
	print $q->div({-class=>'content2', -style=>"color:$red"}, "* Eingabefehler.<br />Bitte überprüfen Sie Ihre Profildaten damit wir das Fahrradmietsystem freischalten können. Es liegt ein Eingabefehler vor."),"\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;'},"<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;