user registry and merchant select

This commit is contained in:
Rainer Gümpelein 2022-01-09 18:31:20 +01:00
parent 36a0bb4a23
commit 4ccea2b0a1
75 changed files with 154 additions and 118 deletions

0
copri4/main/src/Tpl/APIdialog.pm Normal file → Executable file
View file

0
copri4/main/src/Tpl/Address3.pm Normal file → Executable file
View file

0
copri4/main/src/Tpl/AttributEdit.pm Normal file → Executable file
View file

0
copri4/main/src/Tpl/AttributMatrix.pm Normal file → Executable file
View file

4
copri4/main/src/Tpl/BaseEdit.pm Normal file → Executable file
View file

@ -600,8 +600,8 @@ EOF
print $q->div($but->singlesubmit7("$edit","$save_key","$ib{$save_key}","margin:10px 20px;")),"\n";
my $debug = "";
#$debug = "(ct_table: $node_meta->{ct_table} | main_id: $node_meta->{main_id} | c_id: $ctrel->{c_id} | tpl_id: $tpl->{tpl_id} | rel_id: $ctrel->{rel_id})";
print $q->div({-style=>'z-index:10;font-size:13px;'},"$debug"),"\n" if($users_dms->{u_id} eq $varenv{superu_id});
$debug = "(ct_table: $node_meta->{ct_table} | main_id: $node_meta->{main_id} | c_id: $ctrel->{c_id} | tpl_id: $tpl->{tpl_id} | rel_id: $ctrel->{rel_id})";
print $q->div({-style=>'z-index:10;font-size:13px;'},"$debug"),"\n" if($users_dms->{u_id} == $dbt->{copri_conf}->{superu_id});
print "</div>";
}

0
copri4/main/src/Tpl/Calorin.pm Normal file → Executable file
View file

24
copri4/main/src/Tpl/Karte.pm Normal file → Executable file
View file

@ -36,20 +36,30 @@ sub tpl(){
my %apikeyconf = $aconf->getall;
#print $apikeyconf{googlemap}->{google_key};
my $initMap = $dbt->{website}->{$varenv->{syshost}}->{initMap};
$initMap = $dbt->{operator}->{$varenv->{dbname}}->{initMap} if($dbt->{operator}->{$varenv->{dbname}}->{initMap});
$initMap = $dbt->{primary}->{$varenv->{dbname}}->{initMap} if($dbt->{primary}->{$varenv->{dbname}}->{initMap});
$initMap =~ s/\s//g;
my ($lat,$lng) = split(/,/,$initMap);
my $api_return = { authcookie => '' };
my $coo = $q->cookie(-name=>'domcookie') || $R::sessionid;
($api_return,$users_sharee) = $apif->auth_verify($q,$coo,"");
my $initMap = $dbt->{website}->{$varenv->{syshost}}->{initMap};
if($dbt->{website}->{$varenv->{syshost}}->{merchant_id}){
$api_return->{authcookie} = $dbt->{website}->{$varenv->{syshost}}->{merchant_id} if(!$api_return->{authcookie});
}elsif($dbt->{operator}->{$varenv->{dbname}}->{merchant_id}){
$api_return->{authcookie} = $dbt->{operator}->{$varenv->{dbname}}->{merchant_id} if(!$api_return->{authcookie});
$initMap = $dbt->{operator}->{$varenv->{dbname}}->{initMap};
}elsif($dbt->{primary}->{$varenv->{dbname}}->{merchant_id}){
$api_return->{authcookie} = $dbt->{primary}->{$varenv->{dbname}}->{merchant_id} if(!$api_return->{authcookie});
$initMap = $dbt->{primary}->{$varenv->{dbname}}->{initMap};
}
$users_sharee->{c_id} = "0" if(!$users_sharee->{c_id});
$initMap =~ s/\s//g;
my ($lat,$lng) = split(/,/,$initMap);
require "Mod/KMLout.pm";
my $kmlfile = Mod::KMLout::kmlGenerator($api_return,$varenv,$users_sharee);
print "<div style='background-color:#cccccc;width:100%;margin-top:40px;'>\n";
print "$initMap|$varenv->{dbname}|$api_return->{authcookie}|$users_sharee->{c_id}|$kmlfile" if($users_dms->{u_id} == $dbt->{copri_conf}->{superu_id});
print "<div id='map' style='height:600px;'></div>\n";

0
copri4/main/src/Tpl/Liste3.pm Normal file → Executable file
View file

0
copri4/main/src/Tpl/MandantConf.pm Normal file → Executable file
View file

0
copri4/main/src/Tpl/SubListe.pm Normal file → Executable file
View file

0
copri4/main/src/Tpl/TransPositionen.pm Normal file → Executable file
View file