roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-02-22 11:46:27 +01:00
Code Issues Projects Releases Packages Wiki Activity

Kundendaten Formular failure messages

Browse source
This commit is contained in:
Rainer Gümpelein 2022-02-23 12:33:59 +01:00
parent 6b7a616b44
commit eafd393458
4 changed files with 33 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
copri4/main/src/Mod/APIfunc.pm
View file

@ -1120,7 +1120,7 @@ sub booking_update(){
if($q->param('voltage') && $q->param('voltage') =~ /(\d+)/){
$update_cc->{int14} = $1;
$self->service_automatic($q) if($1 <= 40);
$self->service_automatic($q) if($1 <= 50);
}
my $update_pos = {

11
copri4/main/src/Mod/KMLout.pm
View file

@ -91,7 +91,12 @@ sub kmlGenerator {
my $kmlfile = "sharee-$timestamp-$users_sharee->{c_id}.kml";
$bw->log("kmlGenerator with: ",$kmlfile,"");
my $uri_primary = $dbt->{primary}->{sharee_primary}->{primaryApp};
#request primary will jsonclient loop_sharees
my $uri_request = $dbt->{primary}->{sharee_primary}->{primaryApp};
#detect DMS, because this will do it directly without loop_sharees
$uri_request = $dbt->{operator}->{$varenv->{dbname}}->{operatorApp} if($varenv->{dbname} ne "sharee_primary" && $varenv->{syshost} =~ /shareedms-/);
my $rest_stations = "request=stations_available&project=$project&authcookie=$authcookie->{authcookie}";
my $rest_bikes = "request=bikes_available&project=$project&authcookie=$authcookie->{authcookie}";
@ -108,8 +113,8 @@ sub kmlGenerator {
my %place_latitude;
#reading shareejson
my $stations_json = fetch_primary_json("",$uri_primary,$rest_stations);
my $bikes_json = fetch_primary_json("",$uri_primary,$rest_bikes);
my $stations_json = fetch_primary_json("",$uri_request,$rest_stations);
my $bikes_json = fetch_primary_json("",$uri_request,$rest_bikes);
open(XML,">$varenv->{basedir}/xml/$kmlfile") || die "$0 can not write $!";

9
copri4/main/src/Mod/Payment.pm
View file

@ -453,8 +453,8 @@ sub rpc {
my $update_adr = {
table => "contentadr",
mtime => "now()",
owner => $owner
#mtime => "now()",
#owner => $owner
};
my $update_ctt = {
@ -587,6 +587,11 @@ sub rpc {
print FILE "payone RPC end\n\n" if($debug);
close(FILE) if($debug);
#set contentadr owner and mtime only if Vde or error will be set by payone id's
if((($update_adr->{int12} && $update_adr->{int12} > 0) || $update_adr->{txt28}) && ($owner == 178 || $owner == 179)){
$update_adr->{owner} = "$owner";
$update_adr->{mtime} = "now()";
}
$dbt->update_record($dbh,$update_adr,$ctadr) if($ctadr->{c_id} > 0);
$dbt->update_record($dbh,$update_ctt,$ctt) if($ctt->{c_id} > 0);
return $payoneret;

41
copri4/shareeapp-operator/src/Tpl/FormEdit.pm
View file

@ -487,15 +487,17 @@ Nach Abschluss der Registrierung erhalten Sie sowohl auf die von Ihnen hinterleg
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){
#}elsif($key =~ /txt/ && !$R::confirm_success){
}elsif($key =~ /txt/){
my $required="required";
#start failure messages
#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/){
elsif($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>";
@ -507,13 +509,15 @@ Nach Abschluss der Registrierung erhalten Sie sowohl auf die von Ihnen hinterleg
$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(($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
elsif($key eq "txt15"){
if($R::failure){
if($key eq "txt15"){
if($R::failure =~ /^txt15/){
$autofocus = "autofocus";
$label_des = "<span style=color:$red>Die Bonusnummer ist leider nicht vorhanden. Bei nicht vorhandener Nummer das Feld bitte leer lassen.</span>";
}
@ -534,22 +538,11 @@ Weitere Personen aus Ihrem Haushalt profitieren jedoch ebenfalls, falls Sie weit
}
}
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 mobile Telefon Nr. mit Ländervorwahl, Beispiel: +49 170 12345678</span>" if($key eq "txt07");
}
#if($R::success eq $key){
# $label_des = "<span>Das hat geklappt. Der \"$des\" wurde erfolgreich hinzugefügt, s.u..</span>";
#}
elsif($key eq "txt04"){
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>";
}
my $pw = "xxxxxxxx";
$pw = "" if(!$ctrel->{c_id});
print $q->label({-for=>"$key", -style=>'padding-top:1.5em;'},"$label_des"),"\n";
@ -562,7 +555,7 @@ Weitere Personen aus Ihrem Haushalt profitieren jedoch ebenfalls, falls Sie weit
$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";
}
}#end $key =~ /txt/
#all int checkboxes disabled because of AGB downunder
}elsif($key =~ /int/ && $size eq "checkbox"){