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

sigo api reserve and rental

Browse source
This commit is contained in:
Rainer Gümpelein 2022-04-07 21:07:59 +02:00
parent 5870071d1b
commit 9c0e5f78e8
7 changed files with 444 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

6
copri4/shareedms-operator/src/Lib/Mlogic.pm
View file

@ -123,7 +123,7 @@ sub tpl(){
print "</div>\n";
print $q->end_form,"\n";
print $q->span({-style=>'color:white;'},"merchant_id:$varenv->{merchant_id}"),"\n";
#print $q->span({-style=>'color:white;'},"merchant_id:$varenv->{merchant_id}"),"\n";
print "</div>";
exit 0;
@ -253,13 +253,13 @@ sub tpl(){
my $big2menu="";
#while (my ($key, $value) = each %{ $dbt->{operator} }) {
foreach my $key (sort keys (%{ $dbt->{operator} })) {
$big2menu .= $but->lia_button("$dbt->{operator}->{$key}->{operatorDMS}?merchant_id=$dbt->{operator}->{$key}->{merchant_id}","DMS $key","","","color:#$dbt->{operator}->{$key}->{bgcolor1};","") if($dbt->{operator}->{$key}->{merchant_id});
$big2menu .= $but->lia_button("$dbt->{operator}->{$key}->{operatorDMS}","DMS $key","","","color:#$dbt->{operator}->{$key}->{bgcolor1};","") if($dbt->{operator}->{$key}->{merchant_id});
}
foreach my $key (sort keys (%{ $dbt->{website} })) {
$big2menu .= $but->lia_button("$dbt->{website}->{$key}->{operatorWeb}","Web $key","","","color:#$dbt->{website}->{$key}->{bgcolor1};","") if($dbt->{website}->{$key}->{merchant_id});
}
foreach my $key (sort keys (%{ $dbt->{appsframe} })) {
$big2menu .= $but->lia_button("$dbt->{primary}->{sharee_primary}->{primaryApp}?request=authorization&authcookie=$dbt->{appsframe}->{$key}->{merchant_id}","App $key","","","color:#$dbt->{merchant_ids}->{$dbt->{appsframe}->{$key}->{merchant_id}}->{bgcolor1};","");
$big2menu .= $but->lia_button("$dbt->{primary}->{sharee_primary}->{primaryApp}?sessionid=$dbt->{appsframe}->{$key}->{merchant_id}","App $key","","","color:#$dbt->{merchant_ids}->{$dbt->{appsframe}->{$key}->{merchant_id}}->{bgcolor1};","");
}
print $q->div({-style=>'width:100%;margin:0;padding-top:70px;color:white;'}, ""),"\n";