for each call back, removes the alarms (cal_component_remove_all_alarms):

2001-09-17  JP Rosevear  <jpr@ximian.com>

	* cal-util/cal-component.c (for_each_remove_all_alarms): for each
	call back, removes the alarms
	(cal_component_remove_all_alarms): remove all alarms from the
	component

	* cal-util/cal-component.h: new proto

	* gui/e-itip-control.c (write_error_html): writes error messages
	rather than normal html

	* gui/itip-utils.c (itip_send_comp): remove all alarms if the
	method warrants it

svn path=/trunk/; revision=12897

1 files changed, 35 insertions, 0 deletions

diff --git a/calendar/cal-util/cal-component.c b/calendar/cal-util/cal-component.c
index 7ef6f9e477..b4784c6124 100644
--- a/calendar/cal-util/cal-component.c
+++ b/calendar/cal-util/cal-component.c
@@ -4066,6 +4066,41 @@ cal_component_remove_alarm (CalComponent *comp, const char *auid)
 	icalcomponent_free (alarm);
 }
 
+static gboolean
+for_each_remove_all_alarms (gpointer key, gpointer value, gpointer data)
+{
+	CalComponent *comp = CAL_COMPONENT (data);
+	CalComponentPrivate *priv;
+	icalcomponent *alarm = value;
+	
+	priv = comp->priv;
+	
+	icalcomponent_remove_component (priv->icalcomp, alarm);
+	icalcomponent_free (alarm);
+
+	return TRUE;	
+}
+
+/**
+ * cal_component_remove_all_alarms:
+ * @comp: A calendar component
+ * 
+ * Remove all alarms from the calendar component
+ **/
+void
+cal_component_remove_all_alarms (CalComponent *comp)
+{
+	CalComponentPrivate *priv;
+
+	g_return_if_fail (comp != NULL);
+	g_return_if_fail (IS_CAL_COMPONENT (comp));
+
+	priv = comp->priv;
+	g_return_if_fail (priv->icalcomp != NULL);
+
+	g_hash_table_foreach_remove (priv->alarm_uid_hash, for_each_remove_all_alarms, comp);
+}
+
 
 /* Scans an icalproperty from a calendar component and adds its mapping to our
  * own alarm structure.