kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

calendar.cgi: fix height for current time line

Browse Source
This commit is contained in:
Milan
2021-06-27 13:18:58 +02:00
parent ff5fa129ec
commit bb7eb6f8fa
1 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
website/agenda/planung/calendar.cgi
View File

@@ -967,19 +967,29 @@ sub calcCalendarTable {
} }
#insert current time #insert current time
my $now = time::get_datetime( time::time_to_datetime(), $config->{date}->{time_zone} );
my $time = '00:00'; my $time = '00:00';
my $date = ''; my $date = '';
if ( $now =~ /(\d\d\d\d\-\d\d\-\d\d)[ T](\d\d\:\d\d)/ ) { if ( time::get_datetime(
time::time_to_datetime(time()),
$config->{date}->{time_zone}
) =~ /(\d\d\d\d\-\d\d\-\d\d)[ T](\d\d\:\d\d)/ ) {
$date = $1; $date = $1;
$time = $2; $time = $2;
} }
push @{ $events_by_day->{0} }, my $next_time = '00:00';
if ( time::get_datetime(
time::time_to_datetime(time()+60),
$config->{date}->{time_zone}
) =~ /(\d\d\d\d\-\d\d\-\d\d)[ T](\d\d\:\d\d)/ ) {
$next_time = $2;
}
unshift @{ $events_by_day->{0} },
{ {
start => $time, #start => $time,
start_time => $time, start_time => $time,
end_time => $time, end_time => $next_time,
series_id => -1, series_id => -1,
event_id => -1, event_id => -1,
project_id => -1, project_id => -1,