bug-tracker-init.tcl

Generic init procs for bug tracker

Location:
packages/bug-tracker/tcl/bug-tracker-init.tcl
Created:
2010-04-07
Author:
Ryan Gallimore <rgallimore@viscousmedia.com>
CVS Identification:
$Id$

Procedures in this file

Detailed information

bug_tracker::search_mounted_p (public)

 bug_tracker::search_mounted_p

Partial Call Graph (max 5 caller/called nodes):
%3 packages/bug-tracker/lib/nav-bar.tcl packages/bug-tracker/ lib/nav-bar.tcl bug_tracker::search_mounted_p bug_tracker::search_mounted_p packages/bug-tracker/lib/nav-bar.tcl->bug_tracker::search_mounted_p

Testcases:
No testcase defined.
[ hide source ] | [ make this the default ]

Content File Source

# /packages/bug-tracker/tcl/bug-tracker-init.tcl


ad_library {
    
    Generic init procs for bug tracker 
    
    @author Ryan Gallimore (rgallimore@viscousmedia.com)
    @creation-date 2010-04-07
    @cvs-id $Id$
}

# Is search mounted and associated driver installed?
set search_mounted_p 1
set search_driver [parameter::get -package_id [apm_package_id_from_key search] \
                                  -parameter FtsEngineDriver]

if { [site_node::get_package_url -package_key search] eq "" } { 
    ns_log Warning Bug Tracker: Search package is not mounted.
    set search_mounted_p 0
} elseif { $search_driver eq ""} {
    ns_log Warning Bug Tracker: FtsEngineDriver parameter in package search is empty.
    set search_mounted_p 0
} elseif { [apm_package_id_from_key $search_driver] == 0} { 
    ns_log Warning Bug Tracker: Search driver $search_driver is not installed.
    set search_mounted_p 0
}

eval "ad_proc -public bug_tracker::search_mounted_p {} {} {
    return $search_mounted_p
}"