\n";
@@ -60,8 +53,6 @@ sub tpl(){
$self->tplselect($q,$node_meta,$users_dms,$mode,$varenv,$users_sharee,$feedb);
print "
\n";
print "\n";
- #print "\n";
-
}
#2021-05-05 changed to Mlogic
@@ -76,30 +67,36 @@ sub tplselect(){
my $feedb = shift || "";
$q->import_names('R');
- my $sort = "";
- my $lang = "de";
- my $tpl_id = $node_meta->{tpl_id};
if($node_meta->{main_id}){
- if($tpl_id == 2){
+ if($node_meta->{tpl_id} == 2){
require "Tpl/Anmelden.pm";
&Anmelden::tpl($node_meta,$users_dms,$mode,$varenv,$users_sharee,$feedb);
- }elsif($tpl_id == 302 || $tpl_id == 302008){
+ }elsif($node_meta->{tpl_id} == 302 || $node_meta->{tpl_id} == 302008){
require "Tpl/FormEdit.pm";
&FormEdit::tpl($node_meta,$users_dms,$mode,$varenv,$users_sharee,$feedb);
- }elsif($tpl_id == 302004){
+ }elsif($node_meta->{tpl_id} == 302004){
require "Tpl/RentalData.pm";
&RentalData::tpl($node_meta,$users_dms,$varenv,$users_sharee,$feedb);
- }elsif($tpl_id == 308){
+ }elsif($node_meta->{tpl_id} == 308){
require "Tpl/PayoneSelect.pm";
&PayoneSelect::tpl($q,$node_meta,$users_dms,$varenv,$users_sharee,$feedb);
- }elsif($tpl_id == 197){
+ }elsif($node_meta->{tpl_id} == 314){
+ #CalendarReserv CalReserv (ex. MapReserv_v2)
+ $calres->tpl($q,$node_meta,$users_dms,$varenv,$users_sharee,$feedb);
+ #}elsif($node_meta->{tpl_id} == 315){
+ #CalendarBikes CalReserv iframe
+ #$calres->tpl($q,$node_meta,$users_dms,$varenv,$users_sharee,$feedb);
+ }elsif($node_meta->{tpl_id} == 197){
require "Tpl/Contact.pm";
&Contact::tpl($node_meta,$users_dms,$mode,$varenv,$users_sharee,$feedb);
}
+
+print "";
+
}
- my $debug = "Mlogic --> (users_sharee->{c_id}: $users_sharee->{c_id} | ct_table: $node_meta->{ct_table} | parent_id: $node_meta->{parent_id} | main_id: $node_meta->{main_id} | tpl_id: $node_meta->{tpl_id} | u_id: $users_dms->{u_id} | mode: $mode)";
- print $q->div({-style=>'position:fixed;bottom:0%;right:2%;z-index:10;font-size:13px;'},"$debug"),"\n" if($users_sharee->{c_id} eq $varenv->{superu_id});
+ my $debug = "Mlogic --> (users_sharee->{c_id}: $users_sharee->{c_id} | ct_table: $node_meta->{ct_table} | parent_id: $node_meta->{parent_id} | main_id: $node_meta->{main_id} | tpl_id: $node_meta->{tpl_id})";
+ print $q->div({-style=>'position:fixed;bottom:0%;right:2%;z-index:10;font-size:13px;'},"$debug"),"\n" if($users_sharee->{c_id} eq $varenv->{superu_id} || $dbt->{copri_conf}->{stage} eq "test");
}
diff --git a/copri4/shareeapp-operator/src/Tpl/AccountSubmenu.pm b/copri4/shareeapp-operator/src/Tpl/AccountSubmenu.pm
index 0c3f2c9..bc0a799 100755
--- a/copri4/shareeapp-operator/src/Tpl/AccountSubmenu.pm
+++ b/copri4/shareeapp-operator/src/Tpl/AccountSubmenu.pm
@@ -134,12 +134,14 @@ if(1==1){
my $mstyle_1_5="";
my $mstyle_2="";
my $mstyle_3="";
+ my $mstyle_4="";
if($node_meta->{main_id} == $node1->{$id1}->{main_id}){
$mstyle_1 .= "background-color: #$hgcolor1;" if("$node1->{$id1}->{node_name}" eq "$varenv->{accounting_1}");
$mstyle_1_5 .= "background-color: #$hgcolor1;" if("$node1->{$id1}->{node_name}" eq "$varenv->{accounting_1_5}");
$mstyle_2 .= "background-color: #$hgcolor1;" if("$node1->{$id1}->{node_name}" eq "$varenv->{accounting_2}");
$mstyle_3 .= "background-color: #$hgcolor1;" if("$node1->{$id1}->{node_name}" eq "$varenv->{accounting_3}");
+ $mstyle_4 .= "background-color: #$hgcolor1;" if("$node1->{$id1}->{node_name}" eq "$varenv->{accounting_4}");
#sharee AGB
if(!$users_sharee->{int14}){
@@ -154,6 +156,10 @@ if(1==1){
print $q->li($q->a({-style=>"$mstyle_1_5",-title=>"$varenv->{accounting_1_5}", -href=>"/$viewsel[0]/Account/$varenv->{accounting_1_5}$session"}, $q->img({-src=>"$varenv->{metahost}/img/Account_Zahlungsart.svg"}))),"\n";
print $q->li($q->a({-style=>"$mstyle_2",-title=>"$varenv->{accounting_2}", -href=>"/$viewsel[0]/Account/$varenv->{accounting_2}$session"}, $q->img({-src=>"$varenv->{metahost}/img/Account_Kontoverbindung.svg"}))),"\n";
print $q->li($q->a({-style=>"$mstyle_3",-title=>"$varenv->{accounting_3}", -href=>"/$viewsel[0]/Account/$varenv->{accounting_3}$session"}, $q->img({-src=>"$varenv->{metahost}/img/Account_Verleihdaten.svg"}))),"\n";
+ #Calendar Reservation beta
+ if($users_sharee->{c_id} && $dbt->{copri_conf}->{betau_id}->{$users_sharee->{c_id}}){
+ print $q->li($q->a({-style=>"$mstyle_4",-title=>"$varenv->{accounting_4}", -href=>"/$viewsel[0]/Account/$varenv->{accounting_4}$session"}, $q->span({-class=>"bi bi-calendar3", -style=>"font-size: 2rem;width:3rem;padding-top:0.4rem;"}))),"\n";
+ }
}
else{
print $q->li($q->a({-style=>"$mstyle_1",-title=>"$varenv->{accounting_1}", -href=>"/$viewsel[0]/Account/$varenv->{accounting_1}$session"}, $q->img({-src=>"$varenv->{metahost}/img/Account_Kundendaten.svg"}))),"\n";
diff --git a/copri4/shareeapp-operator/src/Tpl/CalReserv.pm b/copri4/shareeapp-operator/src/Tpl/CalReserv.pm
new file mode 100755
index 0000000..f8cf1b8
--- /dev/null
+++ b/copri4/shareeapp-operator/src/Tpl/CalReserv.pm
@@ -0,0 +1,634 @@
+package CalReserv;
+#
+# SPDX-License-Identifier: AGPL-3.0-or-later
+# Copyright (c) Rainer Gümpelein, TeilRad GmbH
+#
+#Bike calendar-reservation
+#
+use strict;
+use warnings;
+use POSIX;
+use CGI ':standard';
+use Scalar::Util qw(looks_like_number);
+use JSON;
+use DateTime;
+use DateTime::Format::Strptime;
+use DateTime::Format::Pg;
+use LWP::UserAgent;
+use Mod::Basework;
+use Mod::DBtank;
+use Mod::Buttons;
+use Tpl::AccountSubmenu;
+use Data::Dumper;
+
+sub new {
+ my $class = shift;
+ my $self = {};
+ bless($self,$class);
+ return $self;
+}
+
+sub tpl {
+ my $self = shift;
+ my $q = shift;
+ my $node_meta = shift;
+ my $users_dms = shift || "";
+ my $varenv = shift;
+ my $users_sharee = shift || "";
+ my $feedb = shift || "";
+
+ my $bw = new Basework;
+ my $dbt = new DBtank;
+ my $but = new Buttons;
+ my $submenu = new AccountSubmenu;
+ my $path = $q->path_info();
+ my $dbh = "";
+ my $red = "#c83434";
+
+ my $coo = $q->cookie(-name=>'domcookie') || $R::sessionid;
+ my $session="";
+ my $session_and="";
+ if($R::sessionid && length($R::sessionid) > 20 && !$q->cookie(-name=>'domcookie')){
+ $session = "?sessionid=$R::sessionid";
+ $session_and = "&sessionid=$R::sessionid";
+ }
+ my $bike = $q->escapeHTML($R::bike) || "";
+ my $bgcolor1 = "009899";#sharee
+ $bgcolor1 = $dbt->{website}->{$varenv->{syshost}}->{bgcolor1} if($dbt->{website}->{$varenv->{syshost}}->{bgcolor1});
+ $bgcolor1 = $dbt->{merchant_ids}->{$varenv->{merchant_id}}->{bgcolor1} if($dbt->{merchant_ids}->{$varenv->{merchant_id}}->{bgcolor1});
+ my $initMap = "48.741246, 11.210390";
+ my $map_zoom = 7;
+ my $project = "all";
+ my $uri_server = $dbt->{primary}->{sharee_primary}->{primaryApp};
+
+ my $timestamp = DateTime->now( time_zone => "Europe/Berlin" );
+ my $dt0 = DateTime->now( time_zone => "Europe/Berlin" );
+ my $dt1 = DateTime->now( time_zone => "Europe/Berlin" );
+ my $strp = DateTime::Format::Strptime->new(
+ pattern => '%Y-%m-%dT%H:%M',
+ locale => 'de_DE',
+ time_zone => 'Europe/Berlin',
+ on_error => 'croak',
+ );
+
+ my $reserv_starttime = $R::reserv_starttime || "";
+ my $reserv_endtime = $R::reserv_endtime || "";
+
+ if($reserv_starttime && $reserv_starttime =~ /\d{4}-\d{2}-\d{2}T\d{2}:\d{2}/){
+ $dt0 = $strp->parse_datetime($reserv_starttime);
+ $reserv_starttime = $dt0->datetime;
+ }
+ if($reserv_endtime && $reserv_endtime =~ /\d{4}-\d{2}-\d{2}T\d{2}:\d{2}/){
+ $dt1 = $strp->parse_datetime($reserv_endtime);
+ $reserv_endtime = $dt1->datetime;
+ }
+
+ if($dt0 < $timestamp){
+ $dt0 = $strp->parse_datetime($timestamp);
+ $reserv_starttime = $dt0->datetime;
+ $reserv_starttime =~ s/:00$//;
+ $dt1 = $strp->parse_datetime($timestamp);
+ $dt1->add( hours => 4);
+ $reserv_endtime = $dt1->datetime;
+ $reserv_endtime =~ s/:00$//;
+ }
+
+ if(!$reserv_starttime || $reserv_starttime !~ /\d{4}-\d{2}-\d{2}T\d{2}:\d{2}/){
+ $dt0 = $strp->parse_datetime($timestamp);
+ $reserv_starttime = $dt0->datetime;
+ $reserv_starttime =~ s/:00$//;
+ }
+
+ if(!$reserv_endtime || $reserv_endtime !~ /\d{4}-\d{2}-\d{2}T\d{2}:\d{2}/){
+ $dt1 = $strp->parse_datetime($timestamp);
+ $dt1->add( hours => 3);
+ $reserv_endtime = $dt1->datetime;
+ $reserv_endtime =~ s/:00$//;
+ }
+
+ print "\n";
+
+ #subMenue--------
+ $submenu->tpl($node_meta,$users_dms,$varenv,$users_sharee,$feedb);
+ #-----------------
+
+ print $q->start_form(-name=>'calreservscreen', -action=>""),"\n";
+ print $q->hidden(-name=>"sessionid",-override=>1,-value=>"$R::sessionid") if($R::sessionid);
+ print $q->hidden(-name=>"calreserv",-override=>1,-value=>"1");#to get uri_operator by GBFSout
+
+
+ #Station select by map
+ my $icon_green = "Open_Green.png";
+ my $icon_red = "Open_Red.png";
+ my $icon_blue = "Open_Blue.png";
+ $initMap =~ s/\s//g;
+ my ($lat,$lng) = split(/,/,$initMap);
+ if($R::select_station && $R::select_station =~ /LatLng\((\d+\.\d+),\s(\d+\.\d+)\)/){
+ $lat = $1;
+ $lng = $2;
+ }
+
+print<
+
+
+
+
+
+EOF
+;
+
+print $q->div({-class=>'content_title3',-style=>''}, "$varenv->{cms}->{'iframe-calendar-reserv-intro'}->{txt}"),"\n";
+#print $q->div({-style=>'padding:10px 0;'},"
Mietrad Reservierung. Radstation in Karte auswählen, Fahrtbeginn und Fahrtende einstellen und verfügbares Mietrad buchen."),"\n";
+print $q->div({-id=>"geolocatestate"},""),"\n";
+
+print "
\n";
+
+ #print $q->div({-style=>'padding:15px 0;'},$q->b("Mietradstation: "),$q->span({-id=>"station_selected"},"")),"\n";
+ #with Station select $stations_json
+ my $list_options = "";
+ my %gbfs_station = ();
+ my %selected_station = ();
+ if(1==1){
+ my $rest_stations = "request=stations_available&calreserv=1&authcookie=$coo";
+ my $stations_json = fetchserver_json("",$uri_server,$rest_stations);
+ eval {
+ my $response_stations = {};
+ $response_stations = decode_json($stations_json);
+
+ foreach my $station (sort {$response_stations->{shareejson}->{stations}->{$a}->{station} cmp $response_stations->{shareejson}->{stations}->{$b}->{station} } keys (%{ $response_stations->{shareejson}->{stations} })) {
+ #print Dumper($response_stations->{shareejson}->{stations}->{$station});
+ $response_stations->{shareejson}->{stations}->{$station}->{gps}->{latitude} =~ s/0$//g;
+ $response_stations->{shareejson}->{stations}->{$station}->{gps}->{longitude} =~ s/0$//g;
+ $gbfs_station{$station}{LatLng} = "LatLng($response_stations->{shareejson}->{stations}->{$station}->{gps}->{latitude}, $response_stations->{shareejson}->{stations}->{$station}->{gps}->{longitude})";
+ $gbfs_station{$station}{name} = Encode::encode('utf-8', Encode::decode('iso-8859-1',$response_stations->{shareejson}->{stations}->{$station}->{description}));
+ $gbfs_station{$station}{station_id} = $response_stations->{shareejson}->{stations}->{$station}->{station};
+ if($R::select_station && $R::select_station eq $gbfs_station{$station}{LatLng}){
+ $selected_station{uri_operator} = $response_stations->{shareejson}->{stations}->{$station}->{uri_operator};
+ $selected_station{name} = $gbfs_station{$station}{name};
+ $selected_station{station_id} = $gbfs_station{$station}{station_id};
+ $list_options .= "
\n";
+ }else{
+ $list_options .= "
\n";
+ }
+ }
+ };
+ if ($@){
+ $bw->log("Failure, CalendarReserv station_information not valid","","");
+ warn $@;
+ }
+
+ print $q->label({-for=>'select_station', -class=>'form-label'},"
Mietradstation"),"\n";
+ print "
\n";
+ #print $q->span({-class=>"input-group-text bi bi-record-circle", -style=>"font-size: 1.5rem;width:3rem;"},""),"\n";
+ #print $q->input({-id=>'select_station', -name=>'select_station', -type=>'text', -list=>'list-stations', -class=>'form-control', -style=>'max-width:500px;font-weight:bold;', -placeholder=>'Ort oder Stationname', -override=>1},""),"\n";
+ print "";
+ #print $q->input({-type=>'reset',-value=>'Reset'},""),"\n";
+ print "
\n";
+ }
+ #end with Station select $stations_json
+
+print "";
+
+print<
+ //document.getElementById('select_station').value = 'LatLng(47.976634, 7.825490)';
+
+ var map = L.map('map', { scrollWheelZoom: false }).setView([$lat, $lng], $map_zoom);
+
+ L.tileLayer('https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png', {
+ attribution: '© OpenStreetMap contributors'
+}).addTo(map);
+
+var icon_green = L.icon({
+ iconUrl: '$varenv->{metahost}/img/$icon_green',
+ iconSize: [37, 37],
+ iconAnchor: [20, 37],
+ popupAnchor: [-2, -36]
+ //shadowUrl: 'marker-shadow.png',
+ //shadowSize: [68, 95],
+ //shadowAnchor: [22, 94]
+});
+var icon_red = L.icon({
+ iconUrl: '$varenv->{metahost}/img/$icon_red',
+ iconSize: [37, 37],
+ iconAnchor: [20, 37],
+ popupAnchor: [-2, -36]
+});
+
+//Only stations with bike_count
+Promise.all([
+ fetch(
+ "$uri_server/GBFSout?request=stations_available&calreserv=1&authcookie=$coo"
+ )]).then(async ([response1]) => {
+ const responseData1 = await response1.json();
+
+ const data1 = responseData1.data.stations;
+
+ const layerGroup = L.featureGroup().addTo(map);
+ data1.forEach(({ lat, lon, name, bike_count, uri_operator, station_id: stationId }) => {
+ console.log('Station: ' + stationId , name, bike_count);
+
+ layerGroup.addLayer(
+ //L.marker([lat, lon], { icon:icon_green }).bindPopup(`Station: \${name} \${stationId}
\${lat},\${lon}`).on('click', clickedGPS)
+ L.marker([lat, lon], { icon:icon_green }).bindPopup(`Station \${name} \${stationId}`).on('click', clickedGPS)
+ );
+
+ });
+
+ //disabled to setView on current location
+ //map.fitBounds(layerGroup.getBounds());
+});
+
+function clickedGPS(e) {
+ const select_station = document.querySelector('#select_station');
+ select_station.value = e.latlng
+ //station_selected.textContent = 'FR101'
+ console.log('clickedGPS:' + select_station.value);
+}
+
+function onLocationFound(e) {
+ console.log('onLocationFound:' + e.latlng);
+ const geolocatestate = document.querySelector('#geolocatestate');
+ var radius = e.accuracy;
+
+ //L.marker(e.latlng).addTo(map).bindPopup("You are within " + radius + " meters from this point").openPopup();
+ L.circle(e.latlng, radius).addTo(map);
+ geolocatestate.textContent = 'Stationen in Umgebung';
+}
+
+
+function onLocationError(e) {
+ alert(e.message);
+}
+
+function lastLocation() {
+ var latlng = L.latLng($lat, $lng);
+ console.log('lastLocation:' + latlng);
+ const geolocatestate = document.querySelector('#geolocatestate');
+ var radius = 5000;
+
+ L.marker(latlng, { icon:icon_green }).addTo(map).bindPopup(`Station $selected_station{name} | $selected_station{station_id}`).openPopup();
+ L.circle(latlng, radius).addTo(map);
+ geolocatestate.textContent = 'Station nach Auswahl';
+}
+
+
+if("$R::select_station"){
+ map.on('locationfound', lastLocation);
+ map.locate({setView: false, maxZoom: 16});
+ map.setView(L.latLng($lat, $lng), 11);
+}else{
+ map.on('locationfound', onLocationFound);
+ map.on('locationerror', onLocationError);
+ map.locate({setView: true, maxZoom: 16});
+}
+
+
+EOF
+;
+
+ #end Station select by map
+
+ #if(!$bike){
+ print "\n";
+ print $q->label({-for=>'reserv_starttime', -class=>'form-label'},"Fahrtbeginn"),"\n";
+ print $q->input({-id=>'reserv_starttime', -name=>'reserv_starttime',-type=>'datetime-local', -class=>'form-control', -style=>'max-width:230px;', -value=>"$reserv_starttime", -override=>1},""),"\n";
+ print $q->label({-for=>'reserv_endtime', -class=>'form-label', -style=>'padding-top:1em;'},"Fahrtende"),"\n";
+ print $q->input({-id=>'reserv_endtime', -name=>'reserv_endtime',-type=>'datetime-local', -class=>'form-control', -style=>'max-width:230px;', -value=>"$reserv_endtime", override=>1},""),"\n";
+ print "
\n";
+ #}
+
+ if(1==2){
+ print $q->div({-class=>"accordion bi bi-caret-down"}, "mehr Filter anzeigen"),"\n";
+ print "\n";
+
+ print "
\n";
+ my $ecargo_checked = "checked";
+ $ecargo_checked = "" if($R::sharee_edit && !$R::ecargo);
+ print "\n";
+ print $q->label({-class=>"form-check-label", -for=>"ecargo",-style=>'padding-top:5px;'},"E-Lastenrad"),"\n";
+ print "
\n";
+ print "
\n";
+ my $cargo_checked = "checked";
+ $cargo_checked = "" if($R::sharee_edit && !$R::cargo);
+ print "\n";
+ print $q->label({-class=>"form-check-label", -for=>"cargo",-style=>'padding-top:5px;'},"Lastenrad"),"\n";
+ print "
\n";
+ print "
\n";
+ my $city_checked = "checked";
+ $city_checked = "" if($R::sharee_edit && !$R::city);
+ print "\n";
+ print $q->label({-class=>"form-check-label", -for=>"city",-style=>'padding-top:5px;'},"Stadtrad"),"\n";
+ print "
\n";
+
+ print "
\n";
+ print $q->div({-style=>'padding:0.1em 0;margin:0.5em 0;background-color:#b6b6b6;'},""),"\n";
+ my $bike_image = "bike_Cargo_SoleHumanPowered_Two.png";
+ $bike_image = "bike_Cargo_SoleHumanPowered_Trike.png" if($response_bikes->{shareejson}->{bikes}->{$bike}->{bike_type}->{category} eq "cargo" && $response_bikes->{shareejson}->{bikes}->{$bike}->{bike_type}->{wheels} eq "3");
+ $bike_image = "bike_Cargo_Pedelec_Two.png" if($response_bikes->{shareejson}->{bikes}->{$bike}->{bike_type}->{category} eq "cargo" && $response_bikes->{shareejson}->{bikes}->{$bike}->{bike_type}->{engine});
+ $bike_image = "bike_City_SoleHumanPowered_Two.png" if($response_bikes->{shareejson}->{bikes}->{$bike}->{bike_type}->{category} eq "city");
+
+ print $q->div({-style=>'padding:0.5em;float:left;'},$q->img({-style=>'width:100px;', -src=>"$varenv->{metahost}/img/$bike_image"})),"\n";
+ print $q->div({-style=>'padding:0.5em;'},$q->span({-style=>'font-weight:bold;'},"$response_bikes->{shareejson}->{bikes}->{$bike}->{description} "),"$response_bikes->{shareejson}->{bikes}->{$bike}->{bike}"),"\n";
+
+ my $dts = $strp->parse_datetime($reserv_starttime);
+ my $start_loc = $dts->strftime("%d.%m.%Y %H:%M");
+ my $dte = $strp->parse_datetime($reserv_endtime);
+ my $end_loc = $dte->strftime("%d.%m.%Y %H:%M");
+ print $q->div({-style=>''},"Fahrtbeginn: $start_loc"),"\n";
+ print $q->div({-style=>''},"Fahrtende: $end_loc"),"\n";
+
+ print $q->div({-id=>"return_state_$bike",-style=>'color:green;'},""),"\n";
+
+ #collect timerange
+ my $set_starttime = "";
+ my $set_endtime = "";
+ my $j = 0;
+ my $dt2 = DateTime->now(time_zone => "Europe/Berlin");
+ my $dt3 = DateTime->now(time_zone => "Europe/Berlin");
+ my $dtnow = $strp->parse_datetime($timestamp);
+ $dtnow->add( minutes => 1);
+ $set_starttime = $dtnow->datetime;
+
+ my %blockedhash = ();
+ my %reservedhash = ();
+ my $sb = 100;#start blockedhash index . 1
+ my $eb = 100;#end blockedhash index . 2
+ my $sr = 100;#start reservedhash index . 1
+ my $er = 100;#end reservedhash index . 2
+ $blockedhash{$sb . '1'} = $set_starttime;
+ foreach my $rid (sort {$response_bikes->{shareejson}->{bikes}->{$bike}->{blocked}->{$a}->{start_time} cmp $response_bikes->{shareejson}->{bikes}->{$bike}->{blocked}->{$b}->{start_time} } keys (%{ $response_bikes->{shareejson}->{bikes}->{$bike}->{blocked} })) {
+ $j++;
+ $dt2 = DateTime::Format::Pg->parse_datetime($response_bikes->{shareejson}->{bikes}->{$bike}->{blocked}->{$rid}->{start_time});
+ $sr++;
+ $er++;
+
+ if($j==1){
+ $dt3 = DateTime::Format::Pg->parse_datetime($response_bikes->{shareejson}->{bikes}->{$bike}->{blocked}->{$rid}->{end_time});
+ }
+
+ if($j==1 && $dtnow < $dt3){
+ $set_endtime = $dt2->datetime;
+ $reservedhash{$sr . '1'} = $set_endtime;#reserv start_time
+ $reservedhash{$er . '2'} = $set_starttime;#reserv end_time
+ $dt3->add( minutes => 15);
+ $set_starttime = $dt3->datetime;
+ $blockedhash{$sb . '1'} = $set_starttime;
+ }else{
+ my $dt0 = DateTime::Format::Pg->parse_datetime($response_bikes->{shareejson}->{bikes}->{$bike}->{blocked}->{$rid}->{start_time});
+ my $dtend = $strp->parse_datetime($dt0);
+ $set_endtime = $dtend->datetime;
+ $reservedhash{$sr . '1'} = $set_endtime;#reserv start_time
+ $blockedhash{$eb . '2'} = $set_endtime;#blocked end_time
+
+ my $dt1 = DateTime::Format::Pg->parse_datetime($response_bikes->{shareejson}->{bikes}->{$bike}->{blocked}->{$rid}->{end_time});
+ my $dtstart = $strp->parse_datetime($dt1);
+ $set_starttime = $dtstart->datetime;
+ $reservedhash{$er . '2'} = $set_starttime;#reserv end_time
+
+ $sb++;
+ $eb++;
+ $dt1->add( minutes => 15);
+ $dtstart = $strp->parse_datetime($dt1);
+ $set_starttime = $dtstart->datetime;
+ $blockedhash{$sb . '1'} = $set_starttime;#blocked start_time
+ }
+ }
+ $dtnow->add( weeks => 4);
+ $set_endtime = $dtnow->datetime;
+ $blockedhash{$eb . '2'} = $set_endtime;
+ #print Dumper(\%reservedhash) . "
\n";
+ #print Dumper(\%blockedhash) . "
\n";
+ #end collect timerange
+
+ #view red flag if bike not available on selected rental timerange
+ my $reservindex = 0;
+ my $se = 0;
+ my $reservbut = 0;
+ foreach my $ri (sort keys %reservedhash){
+ if($ri =~ /(\d{3})(\d{1})/){
+ $reservindex = $1;
+ $se = $2;
+ }
+ if($ri =~ /^$reservindex/ && $se == 1){
+ my $dtx = $strp->parse_datetime($reservedhash{$ri});
+ my $end_ri = $ri + 1;
+ my $dty = $strp->parse_datetime($reservedhash{$end_ri});
+ if($dty >= $dt0 && $dty <= $dt1 && $dtx <= $dt1){
+ $reservbut = 1;
+ #print $q->div({-style=>'color:red;'},"Im gewähltem Zeitfenster nicht verfügbar"),"\n";
+ #print "$ri Von: $reservedhash{$ri}
\n";
+ #print "$end_ri Bis: $reservedhash{$end_ri}
\n";
+ }
+ }
+ }
+
+ #delete blockedhash with too small ranges
+ my $rangeindex = 0;
+ my $se = 0;
+ foreach my $ri (sort keys %blockedhash){
+ if($ri =~ /(\d{3})(\d{1})/){
+ $rangeindex = $1;
+ $se = $2;
+ }
+ if($ri =~ /^$rangeindex/ && $se == 1){
+ my $dtx = $strp->parse_datetime($blockedhash{$ri});
+ my $end_ri = $ri + 1;
+ my $dty = $strp->parse_datetime($blockedhash{$end_ri});
+ if($dty <= $dtx){
+ delete $blockedhash{$ri};
+ delete $blockedhash{$end_ri};
+ }
+ }
+ }
+
+ my $availability = "";
+ my $href = "";
+ #build availability links
+ foreach my $ri (sort keys %blockedhash){
+ if($ri =~ /(\d{3})(\d{1})/){
+ $rangeindex = $1;
+ $se = $2;
+ }
+ if($ri =~ /^$rangeindex/ && $se == 1){
+ $href = "/app/Account/CalendarReserv?sharee_edit=calendar_bikes_available&select_station=$R::select_station&bike=$bike&calreserv=1&authcookie=$coo&lang=de";
+ #print "$ri Von: $blockedhash{$ri}
\n";
+ my $dtx = $strp->parse_datetime($blockedhash{$ri});
+ my $start_loc = $dtx->strftime("%d.%m.%Y %H:%M");
+ $href .= "&reserv_starttime=$blockedhash{$ri}";
+ $availability .= "
Von: $start_loc
\n";
+ }
+ if($ri =~ /^$rangeindex/ && $se == 2){
+ #print "$ri Bis: $blockedhash{$ri}
---
\n";
+ my $dty = $strp->parse_datetime($blockedhash{$ri});
+ my $end_loc = $dty->strftime("%d.%m.%Y %H:%M");
+ $href .= "&reserv_endtime=$blockedhash{$ri}";
+ $availability .= "
\n
+
Bis: $end_loc
\n
+
\n";
+ }
+ }
+
+
+print <
+
+EOF
+;
+
+ if($reservbut){
+ print $q->div({-style=>'color:red;'},"Im gewähltem Zeitfenster nicht verfügbar"),"\n";
+ }else{
+ #Mietrad buchen
+ print $q->div({-id=>"button_reserv_$bike",-style=>'clear:both;text-align:center;display:block;'},"Mietrad buchen"),"\n";
+
+ #Buchung stornieren
+ print $q->div({-id=>"button_cancel_$bike",-style=>'clear:both;text-align:center;display:none;'},"Buchung stornieren"),"\n";
+ }
+
+ #Weitere Verfügbarkeit anzeigen
+ print $q->div({-id=>"button_availablbility_$bike",-style=>'clear:both;text-align:center;display:block;'},"Weitere Verfügbarkeit anzeigen"),"\n";
+
+
+ #print Dumper($response_bikes->{shareejson}->{bikes}->{$bike}->{rental_description}->{tarif_elements});
+ foreach my $ele (%{ $response_bikes->{shareejson}->{bikes}->{$bike}->{rental_description}->{tarif_elements} }){
+ if($response_bikes->{shareejson}->{bikes}->{$bike}->{rental_description}->{tarif_elements}->{$ele}[0] && $response_bikes->{shareejson}->{bikes}->{$bike}->{rental_description}->{tarif_elements}->{$ele}[1]){
+ print $q->div({-style=>'padding:0.2em 0.5em;'},"$response_bikes->{shareejson}->{bikes}->{$bike}->{rental_description}->{tarif_elements}->{$ele}[0] : $response_bikes->{shareejson}->{bikes}->{$bike}->{rental_description}->{tarif_elements}->{$ele}[1]"),"\n";
+ }
+ }
+
+ #print "