saving user language for cms text select

This commit is contained in:
ragu 2023-08-09 20:45:44 +02:00
parent d9974f57a8
commit 7bc18639ab
10 changed files with 70 additions and 305 deletions

View file

@ -3099,6 +3099,7 @@ sub authorization(){
my $q = shift;
my $merchant_id = shift || $q->param('merchant_id') || "";
my $hw_id = shift || $q->param('hw_id') || "";
my $lang = shift || "";
my $aowner = shift || 0;
$dbh = "";
my %varenv = $cf->envonline();
@ -3140,7 +3141,7 @@ sub authorization(){
$dbh = $dbt->dbconnect_extern($dbt->{primary}->{sharee_primary}->{database}->{dbname}) if($varenv{dbname} ne $dbt->{primary}->{sharee_primary}->{database}->{dbname});
$record = $dbt->fetch_record($dbh,$authref);
}
$return = $self->authcookie_manager($dbh,$q,$record,$merchant_id,$hw_id,$aowner);
$return = $self->authcookie_manager($dbh,$q,$record,$merchant_id,$hw_id,$lang,$aowner);
}else{
$bw->log("authorization fails because of failing condition: if($user_id && length($user_id) >= 4 && length($user_pw) >= $pw_length && length($hw_id) >= 10 && length($merchant_id) >= 8)","","");
@ -3153,9 +3154,10 @@ sub authcookie_manager {
my $self = shift;
$dbh = shift;
my $q = shift;
my $record = shift;
my $merchant_id = shift;
my $hw_id = shift;
my $record = shift || {};
my $merchant_id = shift || "";
my $hw_id = shift || "";
my $lang = shift || "";
my $aowner = shift || 0;
my $user_agent = $q->user_agent();
@ -3176,6 +3178,7 @@ sub authcookie_manager {
#owner => "198",#update initiated by primary
};
$update->{txt11} = $q->escapeHTML($lang) if($lang);
$update->{txt21} = $q->escapeHTML($q->param('user_device')) if($q->param('user_device'));
$update->{txt25} = $q->escapeHTML($clientIP) if($clientIP);
$update->{txt26} = $q->escapeHTML($user_agent) if($user_agent);