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

shareeweb-ren, Mlogic and sigo_cupdate

Browse source
This commit is contained in:
Rainer Gümpelein 2022-04-04 14:57:43 +02:00
parent fd29218991
commit d06556bd60
11 changed files with 125 additions and 79 deletions
Download patch file Download diff file Expand all files Collapse all files

13
copri4/shareeapp-operator/src/Tpl/Contact.pm
View file

@ -59,10 +59,13 @@ sub tpl(){
$session_and = "&sessionid=$R::sessionid";
}
my $project = "all";
my $project = "";#project dependent operator contact match
my $oprefix = "";#single operator contact match
$project = "Freiburg" if($varenv->{syshost} eq "shareeweb-sharee");
$project = "Bayern" if($varenv->{syshost} eq "shareeweb-bayern");
$project = "Konstanz" if($varenv->{syshost} eq "shareeweb-konstanz");
$oprefix = "REN" if($varenv->{syshost} eq "shareeweb-ren");
my $sort_updown = "up";
my $content2 = "content2_contact";
@ -82,7 +85,8 @@ sub tpl(){
#BIG LOOP content table
#while (my ($mandant_conf, $value) = each %{ $dbt->{operator} }) {
foreach my $m_id (sort { $dbt->{operator}->{$b}->{oprefix} cmp $dbt->{operator}->{$a}->{oprefix} } keys(%{ $dbt->{operator} })) {
if($dbt->{operator}->{$m_id}->{project} eq $project || $project eq "all"){
#if($dbt->{operator}->{$m_id}->{project} eq $project || $project eq "all"){
if($dbt->{operator}->{$m_id}->{oprefix} eq $oprefix || $dbt->{operator}->{$m_id}->{project} eq $project){
print $q->div({-class=>"$content2"}," "),"\n";
my $sharee_operator = $dbt->{operator}->{$m_id}->{database}->{dbname};
@ -96,7 +100,10 @@ sub tpl(){
$record_cc->{$key} = $lb->newline($record_cc->{$key},"","");
if($key =~ /ct_name/){
print $q->div({-id=>"$record_cc->{c_id}",-class=>'content_title2'},"• $record_cc->{$key}"),"\n";
#print $q->div({-id=>"$record_cc->{c_id}",-class=>'content_title2'},"• $record_cc->{$key}"),"\n";
my $title = "$record_cc->{$key}";
$title = "$dbt->{operator}->{$m_id}->{title}";# if($dbt->{operator}->{$m_id}->{oprefix} eq $oprefix);
print $q->div({-id=>"$record_cc->{c_id}",-class=>'content_title2'},"• $title"),"\n";
}elsif($key =~ /txt|int/ && $record_cc->{$key} && $key !~ /txt85/){
#phone tag
if($record_cc->{$key} =~ /\d+$/ && $des =~ /hotline|Telefon|phone/i){