diff --git a/calendar/inc/hook_admin_deleteaccount.inc.php b/calendar/inc/hook_admin_deleteaccount.inc.php
new file mode 100755
index 0000000000..524978c62b
--- /dev/null
+++ b/calendar/inc/hook_admin_deleteaccount.inc.php
@@ -0,0 +1,23 @@
+<?php
+  /**************************************************************************\
+  * phpGroupWare                                                             *
+  * http://www.phpgroupware.org                                              *
+  * Written by Mark Peters <skeeter@phpgroupware.org>                        *
+  * --------------------------------------------                             *
+  *  This program is free software; you can redistribute it and/or modify it *
+  *  under the terms of the GNU General Public License as published by the   *
+  *  Free Software Foundation; either version 2 of the License, or (at your  *
+  *  option) any later version.                                              *
+  \**************************************************************************/
+	/* $Id$ */
+	
+	// Delete all records for a user
+	if (floor($PHP_VERSION ) == 4)
+	{
+		global $accountid;
+	}
+
+	$calendar = CreateObject('calendar.calendar');
+	$cal_stream = $calendar->open('INBOX',$accountid,'');
+	$calendar->delete_calendar($cal_stream,$accountid);
+?>