From 00cc8c263590d269e832a1bee341754a125724f3 Mon Sep 17 00:00:00 2001
From: Andrew McMillan <debian@mcmillan.net.nz>
Date: Wed, 18 Jun 2008 22:09:00 +1200
Subject: [PATCH] Function to detect RRULE exceptions in an event.

---
 dba/rrule_functions.sql | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/dba/rrule_functions.sql b/dba/rrule_functions.sql
index e64ff540..d36cd778 100644
--- a/dba/rrule_functions.sql
+++ b/dba/rrule_functions.sql
@@ -184,3 +184,8 @@ END;
 ' LANGUAGE 'plpgsql' IMMUTABLE STRICT;
 
 
+CREATE or REPLACE FUNCTION event_has_exceptions( TEXT ) RETURNS BOOLEAN AS '
+  SELECT $1 ~ ''\nRECURRENCE-ID(;TZID=[^:]+)?:[[:space:]]*[[:digit:]]{8}(T[[:digit:]]{6})?''
+' LANGUAGE 'sql' IMMUTABLE STRICT;
+
+