CMS-Text for App infos and units. mailx with bcc

This commit is contained in:
ragu 2023-07-20 07:14:28 +02:00
parent de824a241a
commit 3c52345c5e
10 changed files with 135 additions and 41 deletions

View file

@ -53,6 +53,7 @@ sub handler {
my $netloc = $q->url(-base=>1);
my $dbh = "";
my $script = $q->script_name();
my $referer = $q->referer();
my $path = $q->path_info();
$path = "$script" . "$path";
$path =~ s/\.html//;
@ -716,7 +717,7 @@ sub handler {
print redirect("$varenv{wwwhost}/$varenv{mandant}/Account/$varenv{accounting_3}?cum=2$session_and\&$returnwww");
exit 0;
}
}elsif($path =~ /$varenv{mandant}\/$varenv{profile}/){
}elsif($path =~ /$varenv{mandant}\/$varenv{profile}/ && $referer !~ /failure=\w/){
if((!$users_sharee->{int14}) || ($users_sharee->{txt31} && $tpl->{tpl_order} =~ /$users_sharee->{txt31}/)){
print redirect("$varenv{wwwhost}/$varenv{mandant}/Account/$varenv{accounting_1}?failure=$users_sharee->{txt31}$session_and#top");
exit 0;