From 4766f36a4d74924f21ff329c4318ce4e069ffa04 Mon Sep 17 00:00:00 2001
From: brettp <brettp@36083f99-b078-4883-b0ff-0f9b5a30f544>
Date: Wed, 3 Mar 2010 17:53:05 +0000
Subject: Pulled in the interface changes.

git-svn-id: http://code.elgg.org/elgg/trunk@5257 36083f99-b078-4883-b0ff-0f9b5a30f544
---
 mod/pages/actions/pages/delete.php | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 mod/pages/actions/pages/delete.php

(limited to 'mod/pages/actions/pages/delete.php')

diff --git a/mod/pages/actions/pages/delete.php b/mod/pages/actions/pages/delete.php
new file mode 100644
index 000000000..740f1f6eb
--- /dev/null
+++ b/mod/pages/actions/pages/delete.php
@@ -0,0 +1,35 @@
+<?php
+
+	$page = get_input('page');
+	
+	if ($page = get_entity($page)) {
+		
+		if ($page->canEdit()) {
+			
+			// Bring all child elements forward
+				$parent = $page->parent_guid;
+				if ($children = elgg_get_entities_from_metadata(array('metadata_name' => 'parent_guid', 'metadata_value' => $page->getGUID()))) {
+					foreach($children as $child) {
+						$child->parent_guid = $parent;
+					}
+				}
+				if ($page->delete()) {
+					system_message(elgg_echo('pages:delete:success'));
+					if ($parent) {
+						if ($parent = get_entity($parent)) {
+							forward($parent->getURL());
+							exit;
+						}
+					}
+					forward('pg/pages/owned/' . $_SESSION['user']->username);
+					exit;
+				}
+			
+		}
+		
+	}
+	
+	register_error(elgg_echo('pages:delete:failure'));
+	forward($_SERVER['HTTP_REFERER']);
+
+?>
\ No newline at end of file
-- 
cgit v1.2.3