diff --git a/presentation/lookAndFeel/knowledgeTree/documentmanagement/removeDocumentLinkBL.php b/presentation/lookAndFeel/knowledgeTree/documentmanagement/removeDocumentLinkBL.php
new file mode 100644
index 0000000..219f465
--- /dev/null
+++ b/presentation/lookAndFeel/knowledgeTree/documentmanagement/removeDocumentLinkBL.php
@@ -0,0 +1,74 @@
+fileSystemRoot/lib/security/permission.inc");
+ require_once("$default->fileSystemRoot/lib/documentmanagement/Document.inc");
+ require_once("$default->fileSystemRoot/lib/documentmanagement/DocumentLink.inc");
+ require_once("$default->fileSystemRoot/presentation/Html.inc");
+ require_once("removeDocumentLinkUI.inc");
+
+
+ if (Permission::userHasDocumentWritePermission($fParentDocumentID)) {
+ if (isset($fForDelete)) {
+ //deleting a document link
+ $oDocumentLink = DocumentLink::get($fDocumentLinkID);
+ if ($oDocumentLink->delete()) {
+ redirect("$default->rootUrl/control.php?action=viewDocument&fDocumentID=$fParentDocumentID");
+ } else {
+ //an error occured whilst trying to delete the document link
+ require_once("$default->fileSystemRoot/presentation/webpageTemplate.inc");
+
+ $oParentDocument = Document::get($fParentDocumentID);
+ $oChildDocument = Document::get($fChildDocumentID);
+
+ $oPatternCustom = & new PatternCustom();
+ $oPatternCustom->setHtml(getPage($oParentDocument->getName(), $oChildDocument->getName(), $fParentDocumentID));
+ $main->setCentralPayload($oPatternCustom);
+ $main->setFormAction($_SERVER["PHP_SELF"] . "?fDocumentLinkID=$fDocumentLinkID&fParentDocumentID=$fParentDocumentID&fChildDocumentID=$fChildDocumentID&fForDelete=1");
+ $mail->setErrorMessage("An error occured whilst attempting to delete the link between the two documents");
+ $main->render();
+ }
+ } else {
+ //user has document write permission and can therefore remove the
+ //link between the two documents
+ require_once("$default->fileSystemRoot/presentation/webpageTemplate.inc");
+
+ $oParentDocument = Document::get($fParentDocumentID);
+ $oChildDocument = Document::get($fChildDocumentID);
+
+ $oPatternCustom = & new PatternCustom();
+ $oPatternCustom->setHtml(getPage($oParentDocument->getName(), $oChildDocument->getName(), $fParentDocumentID));
+ $main->setCentralPayload($oPatternCustom);
+ $main->setFormAction($_SERVER["PHP_SELF"] . "?fDocumentLinkID=$fDocumentLinkID&fParentDocumentID=$fParentDocumentID&fChildDocumentID=$fChildDocumentID&fForDelete=1");
+ $main->render();
+ }
+ } else {
+ //user does not have permission to be here
+ require_once("$default->fileSystemRoot/presentation/webpageTemplate.inc");
+
+ $oPatternCustom = & new PatternCustom();
+ $oPatternCustom->setHtml("");
+ $main->setCentralPayload($oPatternCustom);
+ $main->setErrorMessage("You do not have permission to delete links between documents");
+ $main->render();
+ }
+}
+
+
+?>
\ No newline at end of file
diff --git a/presentation/lookAndFeel/knowledgeTree/documentmanagement/removeDocumentLinkUI.inc b/presentation/lookAndFeel/knowledgeTree/documentmanagement/removeDocumentLinkUI.inc
new file mode 100644
index 0000000..d0b0055
--- /dev/null
+++ b/presentation/lookAndFeel/knowledgeTree/documentmanagement/removeDocumentLinkUI.inc
@@ -0,0 +1,43 @@
+siteMap->getSectionName(substr($_SERVER["PHP_SELF"], strlen($default->rootUrl), strlen($_SERVER["PHP_SELF"])));
+ $sColor = $default->siteMap->getSectionColour($sSectionName, "th");
+ $sToRender = "
\n";
+ $sToRender .= "| Unlink document |
\n";
+ $sToRender .= "
\n";
+ $sToRender .= "
\n";
+ $sToRender .= "
\n";
+ return $sToRender;
+}
+
+function getPage($sParentDocumentName, $sChildDocumentName, $iParentDocumentID) {
+ global $default;
+ $sToRender = renderHeading();
+ $sToRender .= "\n";
+ $sToRender .= "\n";
+ $sToRender .= "| You have chosen to delete the link between the document '$sParentDocumentName' and the document '$sChildDocumentName' | \n";
+ $sToRender .= "
\n";
+ $sToRender .= "\n";
+ $sToRender .= "|   | \n";
+ $sToRender .= "
\n";
+ $sToRender .= "Select 'Delete' to confirm or 'Cancel' to cancel | \n";
+ $sToRender .= "\n";
+ $sToRender .= "\n";
+ $sToRender .= "|   | \n";
+ $sToRender .= "
\n"; ;
+ $sToRender .= "\n";
+ $sToRender .= " | ";
+ $sToRender .= "
";
+ $sToRender .= "
";
+ return $sToRender;
+}
+
+?>
\ No newline at end of file