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

Booking calendar (beta intern) for calendar bike reservation

Browse source
This commit is contained in:
ragu 2024-05-07 08:15:54 +02:00
parent 030091de20
commit d5a98d0c54
26 changed files with 1127 additions and 144 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -52,6 +52,18 @@ my $i_rows=0;
my $u_rows=0;
my $d_rows=0;
#bike reservation by CalReserv
sub bike_reserv {
my $self = shift;
my $q = shift;
my $varenv = shift;
my $ca_id = shift;
my $aowner = shift;
return;
}
#
#also done in src/Tpl/Anmelden.pm!?
sub delete_account {
@ -286,10 +298,11 @@ sub save_account(){
}
#Freischaltcode format can be "CA-Li-hsze789k" or "CA1234567"
if($valxx && ($valxx =~ /^(\w{2,3})-([\w\-]+)/i || $valxx =~ /^(\w{2,3})(\d+)/i)){
if($valxx && ($valxx =~ /^(\w{2,3})-([\w\-]+)/i || $valxx =~ /^(\w{2,3})(\d+)/i || $valxx =~ /^(\w{2,3})-(\w+)/i)){
$valxx =~ s/\s//g;
my $bonus_prefix = uc($1),
my $bonusnr = $2;
$bonusnr = "$1-$2" if($valxx =~ /^(\w{2,3})-(\w+)/i);#TR Oberried
my $operator_conf = $dbt->get_operator_conf($bonus_prefix);
my @txt30_op = ();
@ -563,7 +576,7 @@ sub save_account(){
my $payone_mival = $payone->managemandate_main(\%varenv,$ctadr,"",$owner);
if($payone_mival && $payone_mival =~ /\w{2}-\w+/){
#payment_ack
#payment_ack payAck
system("$dbt->{copri_conf}->{basedir}/$varenv{syshost}/src/scripts/payment_ack.pl '$varenv{syshost}' 'payment_ackSEPA' '$ctadr->{c_id}' '$owner' &");
$vde_on_fail = 0 if($vde_on_fail != 2);