fetch_merchant on primary API request

This commit is contained in:
Rainer Gümpelein 2022-01-05 11:08:12 +01:00
parent 67dda28bb6
commit 20048865c0
3 changed files with 119 additions and 57 deletions

View file

@ -109,7 +109,8 @@ sub handler {
print $q->header(-charset=>"$html_charset", -cookie=>$cookie);
}
(my $aowner,$varenv{merchant_id},my $response) = $apif->fetch_merchant(\%varenv,$coo,"","");
(my $aowner,my $return_merchant) = $apif->fetch_merchant($q,\%varenv,$coo,$R::merchant_id);
$varenv{merchant_id} = $return_merchant->{merchant_id};
$bw->log("Indexsharee merchant select used with access_owner $aowner",$varenv{merchant_id},"");
($api_return,$users_sharee) = $apif->auth_verify($q,$coo,"");