user registry and merchant select

copri4/main/src/Tpl/BaseEdit.pm

@@ -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>";
 }

copri4/main/src/Tpl/Karte.pm

@@ -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";