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

new rental editor

Browse source
This commit is contained in:
ragu 2022-06-02 10:34:03 +02:00
parent 46f86f6c05
commit aceda57b50
23 changed files with 548 additions and 162 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -269,7 +269,8 @@ sub save_account(){
$valxx = "KN-$valappend";
print FILE "Prepare SWK Bonusnr by prefix $valxx" . "\n" if($debug);
}
if($valxx && ($valxx =~ /^(\w{2,3})-(\w+)/ || $valxx =~ /^(\w{2,3})(\d+)/)){
#Freischaltcode format can be "CA-Li-hsze789k" or "CA1234567"
if($valxx && ($valxx =~ /^(\w{2,3})-([\w\-]+)/i || $valxx =~ /^(\w{2,3})(\d+)/)){
$valxx =~ s/\s//g;
my $bonus_prefix = uc($1),
my $bonusnr = $2;