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

log pid and sites

Browse source
This commit is contained in:
ragu 2022-07-05 11:44:00 +02:00
parent df19863a86
commit 3bb934ee18
6 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
copri4/main/src/Mod/APIjsonserver.pm
View file

@ -76,8 +76,8 @@ my $response = {
user_group => [],
user_tour => [],
response_state => "OK, nothing todo",
agb_html => "site/agb_sharee_1.html",
privacy_html => "site/privacy_2.html",
agb_html => "site/agb_sharee_2.html",
privacy_html => "site/privacy_sharee_2.html",
impress_html => "site/impress_1.html",
tariff_info_html => "site/tariff_info.html",
bike_info_html => "site/bike_info_sharee_1.html",

4
copri4/main/src/Mod/Basework.pm
View file

@ -39,7 +39,7 @@ sub log {
my $logfile = "/var/log/copri4/$varenv{syshost}-process.log";
#if($varenv{debug}){
if(1==1){
warn "$what" . "\n" . Dumper($message) . "\n";#to apache2/error.log
warn "$$ $what" . "\n" . Dumper($message) . "\n";#to apache2/error.log
#2021-07-21 disabled. error.log is enough
if(1==2){
@ -51,7 +51,7 @@ sub log {
#also to stdout
if($stdout){
#print "\n--- $now_dt $0 ---\n";
print "$what" . "\n" . Dumper($message) . "\n";
print "$$ $what" . "\n" . Dumper($message) . "\n";
}
}

13
copri4/main/src/Mod/Printpreview.pm
View file

@ -651,8 +651,9 @@ td {
my ($mandant_main_id,$top,$site,$site_all,$wc,$footer_bank,$logo) = @_;
my $ctf = $db->get_content1("contentuser","$mandant_main_id");
$ctf->{txt01} = $q->unescapeHTML("$ctf->{txt01}");
my @txt11 = split (/;/,"$ctf->{txt11}");#www
my @txt19 = split (/;/,"$footer_bank");#Fußzeile
my @txt11 = split (/;/,"$ctf->{txt11}");#Tel usw.
my @txt12 = split (/;/,"$ctf->{txt12}");#Geschäftsführer
my @txt19 = split (/;/,"$footer_bank");#Bank usw.
$top *= $site;
my $top2 = $top + 120;
@ -672,13 +673,13 @@ td {
print "<td style='width:25%;'>";
print $q->start_table({-border=>'0',-align=>'left'});
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "KONTAKT:","\n");
print $q->td({-class=>'tdpdf2'}, "Geschäftsführer:","\n");
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$ctf->{txt01}","\n");
print $q->td({-class=>'tdpdf2'}, "$txt12[0]","\n");
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$ctf->{txt04}","\n");
print $q->td({-class=>'tdpdf2'}, "$txt12[1]","\n");
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$ctf->{txt05}","\n");
print $q->td({-class=>'tdpdf2'}, "$txt12[2]","\n");
print $q->end_table;
print "</td>";

2
copri4/main/src/Mod/Shareework.pm
View file

@ -286,7 +286,7 @@ sub save_account(){
fetch => "one",
template_id => "228",
int03 => ">::0",
ct_name => "$bonusnr",
ct_name => "ilike::$bonusnr",
};
my $bonus_record = $dbt->fetch_record($dbh_operator,$pref_bo);
my $bonus_collect = {};#will be hash on matchin SWK bonus