show only published events at calendar view

2018-12-26 21:36:25 +01:00
parent 9152289728
commit c38a1c33c0
2 changed files with 4 additions and 2 deletions
--- a/lib/calcms/events.pm
+++ b/lib/calcms/events.pm
@@ -1414,6 +1414,7 @@ sub get_by_date_range {
    $end = time::add_hours_to_datetime( $end, $day_starting_hour );

    my $conditions = [];
+    push @$conditions, 'published = 1';
    push @$conditions, 'start between ? and ?';
    my $bind_values = [ $start, $end ];

@@ -1430,7 +1431,7 @@ sub get_by_date_range {
        where    $conditions
    };

-    #print STDERR Dumper($query);
+    #print STDERR Dumper($query) . Dumper($bind_values);

    my $events = db::get( $dbh, $query, $bind_values );