From d5c5e04463a6b0f5d7f047addfdceae3238b444b Mon Sep 17 00:00:00 2001
From: Ramon Novoa <rnovoa@artica.es>
Date: Wed, 29 Oct 2014 17:11:51 +0100
Subject: [PATCH] Delete invalid service elements.

---
 pandora_server/util/pandora_db.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/pandora_server/util/pandora_db.pl b/pandora_server/util/pandora_db.pl
index f66a59cc38..7a313fc56b 100644
--- a/pandora_server/util/pandora_db.pl
+++ b/pandora_server/util/pandora_db.pl
@@ -222,6 +222,9 @@ sub pandora_purgedb ($$) {
     # Delete policy queue data
 	enterprise_hook("pandora_purge_policy_queue", [$dbh, $conf]);
 
+    # Delete policy queue data
+	enterprise_hook("pandora_purge_service_elements", [$dbh, $conf]);
+
     # Delete GIS  data
     $conf->{'_gis_purge'}= 15 if (!defined($conf->{'_gis_purge'}));
     log_message ('PURGE', "Deleting old GIS data (More than " . $conf->{'_gis_purge'} . " days).");