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

accounting and statistik adjustments

Browse source
This commit is contained in:
ragu 2022-11-28 18:28:06 +01:00
parent e6c7010f28
commit 4435999ac2
10 changed files with 122 additions and 87 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -188,14 +188,20 @@ sub save_account(){
my $fkeys = "";
my $pw_dummy = "";
@keywords = grep {!/txt31/} @keywords;
print FILE Dumper($q) if($debug);
#print FILE Dumper($q) if($debug);
foreach(@keywords){
$fkeys .= "$_,";
my $val = $q->param("$_");
my $valxx = $q->escapeHTML("$val");
$valxx =~ s/^\s+//;
$valxx =~ s/\s+$//;
print FILE "$_:$valxx \n" if($debug);
if($debug){
if($_ !~ /txt04/){
print FILE "$_:$valxx \n";
}else{
print FILE "$_:is not logged\n";
}
}
if($_ =~ /^int|barcode/){
$valxx =~ s/,/./g;
if(looks_like_number($valxx)){