Index: tql.module
===================================================================
RCS file: /cvs/drupal-contrib/contributions/modules/tql/tql.module,v
retrieving revision 1.7
diff -u -p -r1.7 tql.module
--- tql.module	9 Apr 2008 10:21:40 -0000	1.7
+++ tql.module	16 Jun 2008 21:21:20 -0000
@@ -34,6 +34,14 @@ function tql_menu($may_cache) {
   return $items;
 }
 
+/**
+ * Implementation of hook_perm().
+ */
+function tql_perm() {
+  return array('search tql');
+}
+
+
 
 /**
  * Menu callback for administration settings.
@@ -58,6 +66,9 @@ function tql_admin_settings() {
  * This creates a tab on the search page to execute a query.
  */
 function tql_search($op = 'search', $keys = NULL) {
+  if (!user_access('search tql')) {
+    return;
+  }
   switch ($op) {
     case 'name':
       // Name of tab for search page