statistik daily station

This commit is contained in:
Rainer Gümpelein 2022-01-19 19:11:41 +01:00
parent 4a0cc8aacb
commit d134aec3ca
4 changed files with 31 additions and 9 deletions

View file

@ -1503,7 +1503,8 @@ sub bikes_available(){
$return->{$id}->{tariff_description}->{max_eur_per_day} = "$tariff_content->{$tid}->{int17}" if($tariff_content->{$tid}->{int17});
$return->{$id}->{tariff_description}->{free_hours} = "$tariff_content->{$tid}->{int16}" if($tariff_content->{$tid}->{int16});
$return->{$id}->{tariff_description}->{abo_eur_per_month} = "$tariff_content->{$tid}->{int15}" if($tariff_content->{$tid}->{int15});
$return->{$id}->{tariff_description}->{operator_agb} = "Mit der Mietrad Anmietung wird folgender Betreiber <a href='$varenv->{wwwhost}/site/agb.html' target='_blank'>AGB</a> zugestimmt (als Demo sharee AGB)." if($auth->{c_id} == 1842 || $auth->{c_id} == 5781);
#TODO, have to be set on Tarif table
$return->{$id}->{tariff_description}->{operator_agb} = "Mit der Mietrad Anmietung wird folgender Betreiber <a href='$varenv->{wwwhost}/site/agb.html' target='_blank'>AGB</a> zugestimmt (als Demo sharee AGB)." if($auth->{c_id} == 1842 || $auth->{c_id} == 5781 || $auth->{c_id} == 22262);
}
}
}

View file

@ -625,9 +625,9 @@ elsif($q->param('request') eq "stations_available"){
my ($auth,$authraw) = $apif->auth_verify($q);
#Mein konrad App
#if($dbt->{merchant_ids}->{$varenv{merchant_id}}->{id} eq "176"){
if($aowner && $aowner eq "176"){
$response->{merchant_message} = "Herzlich Willkommen bei der neuen konrad App! Die App ist zwar schon installierbar, bis zur vollständigen Umstellung des Systems sind aber noch keine Räder ausleihbar. Das ist erst voraussichtlich Ende Januar der Fall und wird den Nutzern noch mitgeteilt. Danke für Ihr Verständnis! Ihr konrad-Team";
}
#if($aowner && $aowner eq "176"){
#$response->{merchant_message} = "Herzlich Willkommen bei der neuen konrad App! Die App ist zwar schon installierbar, bis zur vollständigen Umstellung des Systems sind aber noch keine Räder ausleihbar. Das ist erst voraussichtlich Ende Januar der Fall und wird den Nutzern noch mitgeteilt. Danke für Ihr Verständnis! Ihr konrad-Team";
#}
$response = { %$response, %$auth };
($response->{stations},$response->{uri_operator_array},$response->{user_group},$response->{user_tour}) = $jsc->loop_sharees($q,$auth,$return_merchant);
}else{

View file

@ -911,6 +911,27 @@ sub select_users(){
return $users;
}
#insert_content with all
sub insert_contenthash(){
my $self = shift;
my $dbh = shift || $dbh_intern;
my $table = shift;
my $sethash = shift;
my ($keys,$values);
if(ref($sethash) eq "HASH"){
foreach my $key (sort (keys(%$sethash))){
$keys .= $key . ",";
$values .= "\'$sethash->{$key}\'" . ",";
}
$keys =~ s/,$//;
$values =~ s/,$//;
}
#print "$keys --> $values\n";
my $sth = $dbh->prepare("INSERT INTO $table ($keys) VALUES ($values)");
my $rows = $sth->execute();
return $rows;
}
#insert content
sub insert_contentoid {
my $self = shift;