Tariff refactoring init

This commit is contained in:
Rainer Gümpelein 2022-04-12 11:21:19 +02:00
parent 9c0e5f78e8
commit 75c38a8721
16 changed files with 243 additions and 78 deletions

View file

@ -1626,7 +1626,15 @@ sub rentals(){
my $return = {};
foreach my $id (sort { $record->{$a}->{end_time} cmp $record->{$b}->{end_time} } keys (%$record)){
$return->{$id} = $pri->sharee_pricing($record->{$id},"readonly");
#last
$return->{$id} = $pri->sharee_pricing($record->{$id},"readonly");
#new sharee_pricing
#my $return_counting->{$id} = $pri->counting_rental(\%varenv,$record->{$id},"readonly");
#my $return_feed->{$id} = $pri->fetch_rentalfeed(\%varenv,$record->{$id});
#$return->{$id} = { %{ $return_counting->{$id} }, %{ $return_feed->{$id} } };
my $bike_id = $return->{$id}->{bike};
$bike_id = $1 if($bike_id =~ /(\d+)/);
#generate always new ilockit keys.