Update completed books view format

2 files changed, 71 insertions, 1 deletions

diff --git a/tbc_details.inc b/tbc_details.inc
new file mode 100644
index 0000000..6316b80
--- /dev/null
+++ b/tbc_details.inc
@@ -0,0 +1,53 @@
+<?php
+//  DWSIM TBC display completed Books
+function dwsim_tbc_completed_book_proposal_all()
+{
+	$output = "";
+	$query = db_select('textbook_companion_preference', 'pe');
+	$query->fields('pe', array('book', 'author', 'publisher', 'year', 'id'));
+	$query->leftJoin('textbook_companion_proposal', 'po', 'pe.proposal_id = po.id');
+	$query->condition('po.proposal_status', 3);
+	$query->condition('pe.approval_status', 1);
+	$query->orderBy('pe.book', 'ASC');
+	$result = $query->execute();
+
+	if ($result->rowCount() == 0)
+	{
+		$output .= "Work has been completed on the following books under the Textbook Companion Project. 
+					<span style='color:red;'>The list below is not the books as named but only are the solved example for DWSIM</span>";
+
+	} //$result->rowCount() == 0
+	else
+	{
+		/*$output .= "Total number of completed TBC: " . $result->rowCount() . "<br>";*/
+		$output .= "Work has been completed on the following books under the Textbook Companion Project. <br>
+					<span style='color:red;'>The list below is not the books as named but only are the solved example for DWSIM.</span>";
+		$preference_rows = array();
+		$i = 1;
+		while ($row = $result->fetchObject())
+		{
+			$year = date("Y", $row->year);
+			$preference_rows[] = array(
+				$i,
+				l($row->book, "textbook-companion/textbook-run/" . $row->id),
+				$row->author,
+				$row->publisher,
+				$row->year
+			);
+			$i++;
+			/*$preference_data->book . " by " . $preference_data->author . ", " . $preference_data->publisher . ", " . $preference_data->year, 'textbook-companion/textbook-run/' . $preference_data->id*/
+		} //$row = $result->fetchObject()
+		$preference_header = array(
+			'S.No',
+			'TBC Project',
+			'Contributor Name',
+			'Publisher',
+			'Year of Completion'
+		);
+		$output .= theme('table', array(
+			'header' => $preference_header,
+			'rows' => $preference_rows
+		));
+	}
+	return $output;
+}
\ No newline at end of file
diff --git a/textbook_companion.module b/textbook_companion.module
index 3bba94a..106257e 100755
--- a/textbook_companion.module
+++ b/textbook_companion.module
@@ -781,6 +781,15 @@ function textbook_companion_menu()
 		),
 		'type' => MENU_CALLBACK
 	);
+	/* COMPLETED DWSIM TBC Completed Books */
+	$items['textbook-companion/completed-books'] = array(
+		'title' => 'TBC Completed Books',
+		'page callback' => 'dwsim_tbc_completed_book_proposal_all',
+		'access arguments' => array(
+			'download code'
+		),
+		'file' => 'tbc_details.inc',
+	);
 	return $items;
 }
 /**
@@ -884,7 +893,15 @@ function textbook_companion_permission()
 		"verify certificates" => array(
 			"title" => t("verify the certificates"),
 			"description" => t("verify the certificates")
-		)
+		),
+		/*'dwsim tbc completed books' => array(
+			'title' => t('dwsim textbook-companion completed code'),
+			"description" => t("Allows to view completed books")
+		)*/
+		'TBC download abstract' => array(
+			'title' => t('dwsim textbook-companion completed code'),
+			'restrict access' => TRUE
+		),
 	);
 }