diff --git a/presentation/lookAndFeel/knowledgeTree/foldermanagement/addFolderBL.php b/presentation/lookAndFeel/knowledgeTree/foldermanagement/addFolderBL.php
new file mode 100644
index 0000000..242ee1a
--- /dev/null
+++ b/presentation/lookAndFeel/knowledgeTree/foldermanagement/addFolderBL.php
@@ -0,0 +1,29 @@
+owl_fs_root/lib/visualpatterns/PatternTableSqlQuery.inc");
+ require_once("$default->owl_fs_root/lib/foldermanagement/Folder.inc");
+ require_once("$default->owl_fs_root/presentation/lookAndFeel/knowledgeTree/foldermanagement/folderUI.inc");
+ require_once("$default->owl_fs_root/presentation/Html.inc");
+ require_once("addFolderUI.inc");
+
+ if (isset($fFolderID)) {
+ echo renderPage($fFolderID);
+ } else {
+ echo renderPage(14);
+ }
+}
+
+?>
diff --git a/presentation/lookAndFeel/knowledgeTree/foldermanagement/addFolderUI.inc b/presentation/lookAndFeel/knowledgeTree/foldermanagement/addFolderUI.inc
new file mode 100644
index 0000000..f8d0b6b
--- /dev/null
+++ b/presentation/lookAndFeel/knowledgeTree/foldermanagement/addFolderUI.inc
@@ -0,0 +1,50 @@
+owl_ui_directory/foldermanagement/addFolderBL.php"));
+ return "
\n";
+}
+
+function renderFolderList($fFolderID) {
+ global $default;
+ $sQuery = "SELECT F.id AS id, F.name AS name " .
+ "FROM $default->owl_folders_table AS F " .
+ "WHERE F.parent_id = " . $fFolderID;
+
+ $aColumns = array("name");
+ $aColumnTypes = array(3);
+ $aColumnHeaderNames = array("Folder");
+
+ $oPatternTableSqlQuery = & new PatternTableSqlQuery($sQuery, $aColumns, $aColumnTypes, $aColumnHeaderNames, "100%", "$default->owl_root_url/control.php?action=addFolder&fFolderID=", "id");
+ $oPatternTableSqlQuery->setImageURL("$default->owl_fs_root/graphics/widgets/dfolder.gif");
+ $oPatternTableSqlQuery->setEmptyTableMessage("This folder contains no sub folders");
+ return $oPatternTableSqlQuery->render();
+}
+
+function renderPage($fFolderID) {
+ $sToRender = "\n";
+ $sToRender .= "\n";
+ $sToRender .= "\t| " . renderFolderPath($fFolderID) . " | \n";
+ $sToRender .= "
\n";
+ $sToRender .= "
\n";
+ $sToRender .= "\n";
+ $sToRender .= "\n";
+ $sToRender .= "\t| " . renderFolderList($fFolderID) . " | \n";
+ $sToRender .= " |
\n";
+ $sToRender .= "
\n";
+
+ return $sToRender;
+}
+
+
+
+?>