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

show only published events at calendar view

Browse Source
This commit is contained in:
Milan
2018-12-26 21:36:25 +01:00
parent 9152289728
commit c38a1c33c0
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/calcms/calendar.pm
View File

@@ -8,6 +8,7 @@ use Date::Calc();
use template(); use template();
use cache(); use cache();
use events();
use base 'Exporter'; use base 'Exporter';
our @EXPORT_OK = qw(init get_cached_or_render get render get_calendar_weeks configure_cache); our @EXPORT_OK = qw(init get_cached_or_render get render get_calendar_weeks configure_cache);
@@ -203,7 +204,7 @@ sub get {
my $woy_year = undef; my $woy_year = undef;
for my $date (@$week) { for my $date (@$week) {
my ( $year, $month, $day ) = split( /\-/, $date ); my ( $year, $month, $day ) = split( /\-/, $date, 3 );
my $weekday = 0; my $weekday = 0;
my $day_result = undef; my $day_result = undef;

3
lib/calcms/events.pm
View File

@@ -1414,6 +1414,7 @@ sub get_by_date_range {
$end = time::add_hours_to_datetime( $end, $day_starting_hour ); $end = time::add_hours_to_datetime( $end, $day_starting_hour );
my $conditions = []; my $conditions = [];
push @$conditions, 'published = 1';
push @$conditions, 'start between ? and ?'; push @$conditions, 'start between ? and ?';
my $bind_values = [ $start, $end ]; my $bind_values = [ $start, $end ];
@@ -1430,7 +1431,7 @@ sub get_by_date_range {
where $conditions where $conditions
}; };
#print STDERR Dumper($query); #print STDERR Dumper($query) . Dumper($bind_values);
my $events = db::get( $dbh, $query, $bind_values ); my $events = db::get( $dbh, $query, $bind_values );