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

@ -47,7 +47,7 @@ my $cmstext_select = $ARGV[5] || "";
my $with_pdf = $ARGV[6] || "";
open(EMA, ">> $dbt->{copri_conf}->{logdir}/mailTransportcms.log");
print EMA "\n$now_dt, start mailTransportcms.pl syshost: $syshost, todo:$todo, adr_id:$adr_id, ct_id:$ct_id, temppw:$temppw\n";
print EMA "\n$now_dt, start mailTransportcms.pl syshost: $syshost, todo:$todo, adr_id:$adr_id, ct_id:$ct_id, temppw:$temppw, cmstext_select:$cmstext_select, with_pdf:$with_pdf\n";
#mailxcfg is shareeconf/mailx.cfg <block> selection!
@ -153,10 +153,11 @@ sub send_invoice {
my $ct_id = shift || "";
my $cms_message_key = shift || "email-invoice";
my $with_pdf = shift || "";
my $lang = $ctadr->{txt11} || $ctadr->{txt10};
my $dbh = $dbt->dbconnect_extern($dbt->{operator}->{$varenv{dbname}}->{database}->{dbname},"iso-8859-1");
my $project = $dbt->{operator}->{$varenv{dbname}}->{project} || "";
$varenv{cms} = $dbt->fetch_cms($dbh,{ lang => $ctadr->{txt10} });
$varenv{cms} = $dbt->fetch_cms($dbh,{ lang => $lang });
if(!$varenv{cms}->{$cms_message_key}->{txt}){
exit 1;
@ -197,6 +198,7 @@ sub send_emailack {
my $todo = shift;
my $sendref = shift;
my $ctadr = shift;
my $lang = $ctadr->{txt11} || $ctadr->{txt10};
my $dbh_primary = $dbt->dbconnect_extern($dbt->{primary}->{sharee_primary}->{database}->{dbname},"iso-8859-1");
my $pref_ctu = {
@ -207,7 +209,7 @@ sub send_emailack {
my $uadr = { c_id => 0 };
$uadr = $dbt->fetch_tablerecord($dbh_primary,$pref_ctu);
$varenv{cms} = $dbt->fetch_cms($dbh_primary,{ lang => $ctadr->{txt10} });
$varenv{cms} = $dbt->fetch_cms($dbh_primary,{ lang => $lang });
my $cms_message_key = "email-emailack";
#Ack digest
@ -228,6 +230,7 @@ sub send_password {
my $sendref = shift;
my $ctadr = shift;
my $temppw = shift;
my $lang = $ctadr->{txt11} || $ctadr->{txt10};
my $dbh_primary = $dbt->dbconnect_extern($dbt->{primary}->{sharee_primary}->{database}->{dbname},"iso-8859-1");
my $pref_ctu = {
@ -238,7 +241,7 @@ sub send_password {
my $uadr = { c_id => 0 };
$uadr = $dbt->fetch_tablerecord($dbh_primary,$pref_ctu);
$varenv{cms} = $dbt->fetch_cms($dbh_primary,{ lang => $ctadr->{txt10} });
$varenv{cms} = $dbt->fetch_cms($dbh_primary,{ lang => $lang });
my $cms_message_key = "email-temppassword";
#temp pw
@ -258,6 +261,7 @@ sub send_cpupdate_message {
my $todo = shift;
my $sendref = shift;
my $ctadr = shift || {};
my $lang = $ctadr->{txt11} || $ctadr->{txt10};
my $dbh_primary = $dbt->dbconnect_extern($dbt->{primary}->{sharee_primary}->{database}->{dbname},"iso-8859-1");
@ -269,7 +273,7 @@ sub send_cpupdate_message {
my $uadr = { c_id => 0 };
$uadr = $dbt->fetch_tablerecord($dbh_primary,$pref_ctu);
$varenv{cms} = $dbt->fetch_cms($dbh_primary,{ lang => $ctadr->{txt10} });
$varenv{cms} = $dbt->fetch_cms($dbh_primary,{ lang => $lang });
my $cms_message_key = "email-cpupdate-message";
$cms_message_key = "email-proactive-cpupdate-message" if($todo eq "send_proactive_cpupdate_message");
$sendref = prepare_content($sendref,$ctadr,$uadr,"",$varenv{cms}->{$cms_message_key}->{txt});