public static function applet_caption()
 {
     if (!Base_AclCommon::check_permission('Calendar')) {
         return false;
     }
     return __('Agenda');
 }

 public static function menu()
 {
     if (!Acl::is_user() || !Base_AclCommon::check_permission('Fax - Browse')) {
         return array();
     }
     return array(_M('CRM') => array('__submenu__' => 1, _M('Fax') => array()));
 }

 public function uninstall()
 {
     Base_AclCommon::delete_permission('Fax - Browse');
     Base_AclCommon::delete_permission('Fax - Send');
     Base_ThemeCommon::uninstall_default_theme($this->get_type());
     return true;
 }

 public static function menu()
 {
     if (Base_AclCommon::check_permission('Advanced User Settings')) {
         return array(_M('My settings') => array('__weight__' => 10, '__submenu__' => 1, _M('Control panel') => array()));
     }
     return array();
 }

 public function uninstall()
 {
     Base_AclCommon::delete_permission('Calendar');
     DB::DropTable('crm_calendar_custom_events_handlers');
     Base_ThemeCommon::uninstall_default_theme('CRM/Calendar');
     return true;
 }

	public function uninstall() {
		Base_AclCommon::delete_permission('Messenger Alerts');
		$ret = true;
		$ret &= DB::DropTable('utils_messenger_users');
		$ret &= DB::DropTable('utils_messenger_message');
		return $ret;
	}

 public static function menu()
 {
     if (Base_AclCommon::check_permission('Search')) {
         return array(_M('Search') => array());
     }
     return array();
 }

 public function uninstall()
 {
     $ret = true;
     $ret &= DB::DropTable('apps_shoutbox_messages');
     Base_AclCommon::delete_permission('Shoutbox');
     Base_ThemeCommon::uninstall_default_theme($this->get_type());
     return $ret;
 }

 public function uninstall()
 {
     Base_AclCommon::delete_permission('Advanced User Settings');
     global $database;
     $ret = true;
     $ret &= DB::DropTable('base_user_settings');
     Base_ThemeCommon::uninstall_default_theme(Base_User_SettingsInstall::module_name());
     return $ret;
 }

 public function uninstall()
 {
     Base_AclCommon::delete_permission('Manage Perspective');
     $ret = true;
     $ret &= DB::DropTable('crm_filters_contacts');
     $ret &= DB::DropTable('crm_filters_group');
     Base_ThemeCommon::uninstall_default_theme($this->get_type());
     return $ret;
 }

 public static function menu()
 {
     if (Base_AclCommon::check_permission('Dashboard')) {
         $tray_settings = Utils_TrayCommon::get_trays();
         if (count($tray_settings) > 0) {
             return array(_M('Tray') => array('__icon__' => 'pile_small.png'));
         }
     }
     return array();
 }

 public static function admin_access()
 {
     if (DEMO_MODE) {
         return false;
     }
     if (Variable::get('anonymous_setup')) {
         return true;
     }
     return Base_AclCommon::i_am_admin();
 }

 public function uninstall()
 {
     Base_AclCommon::delete_permission('Attachments - view full download history');
     $ret = true;
     $ret &= DB::DropTable('utils_attachment_download');
     $ret &= DB::DropTable('utils_attachment_file');
     $ret &= DB::DropTable('utils_attachment_local');
     Utils_RecordBrowserCommon::uninstall_recordset('utils_attachment');
     Base_ThemeCommon::uninstall_default_theme($this->get_type());
     return $ret;
 }

 public function uninstall()
 {
     Base_AclCommon::delete_permission('Dashboard');
     Base_ThemeCommon::uninstall_default_theme($this->get_type());
     $ret = true;
     $ret &= DB::DropTable('base_dashboard_settings');
     $ret &= DB::DropTable('base_dashboard_applets');
     $ret &= DB::DropTable('base_dashboard_default_settings');
     $ret &= DB::DropTable('base_dashboard_default_applets');
     $ret &= DB::DropTable('base_dashboard_users');
     return $ret;
 }

 private function create_admin_modules_instances()
 {
     foreach (get_declared_classes() as $class) {
         $rclass = new ReflectionClass($class);
         if ($rclass->isSubclassOf("AdminModule") && !$rclass->isAbstract()) {
             $module = new $class();
             if (Base_AclCommon::i_am_sa() || Base_AclCommon::i_am_admin() && $module->access_admin() || Base_AclCommon::i_am_user() && $module->access_user()) {
                 $this->admin_modules[$class] = $module;
             }
         }
     }
     ksort($this->admin_modules);
 }

 /**
  * Replace all registered special values.
  *
  * Object will be cloned. Current object will not be changed.
  *
  * @param bool $human_readable Use special value or it's human readable form
  *
  * @return Utils_RecordBrowser_CritsInterface New object with replaced values
  */
 public function replace_special_values($human_readable = false)
 {
     $new = clone $this;
     $user = Base_AclCommon::get_user();
     $replace_values = self::get_replace_values($user);
     /** @var Utils_RecordBrowser_ReplaceValue $rv */
     foreach ($replace_values as $rv) {
         $replacement = $human_readable ? $rv->get_human_readable() : $rv->get_replace();
         $deactivate = $human_readable ? false : $rv->get_deactivate();
         $new->replace_value($rv->get_value(), $replacement, $deactivate);
     }
     return $new;
 }

 public function update_observer($type, $message, $errfile, $errline, $errcontext, $backtrace)
 {
     $mail = Variable::get('error_mail');
     if ($mail) {
         $backtrace = htmlspecialchars_decode(str_replace(array('<br />', '&nbsp;'), array("\n", ' '), $backtrace));
         $x = "who=" . Base_AclCommon::get_user() . "\ntype=" . $type . "\nmessage=" . $message . "\nerror file=" . $errfile . "\nerror line=" . $errline . "\n" . $backtrace;
         $d = ModuleManager::get_data_dir('Base/Error') . md5($x) . '.txt';
         file_put_contents($d, $x);
         $url = get_epesi_url();
         Base_MailCommon::send($mail, 'Epesi Error - ' . $url, substr($x, 0, strpos($x, "error backtrace")) . "\n" . $url . '/' . $d, null, null, false, true);
     }
     return true;
 }

 protected function load_epesi()
 {
     if (self::$epesi_loaded) {
         return;
     }
     define('CID', false);
     define('READ_ONLY_SESSION', true);
     require_once '../../../include.php';
     ModuleManager::load_modules();
     self::$epesi_loaded = true;
     if (!Base_AclCommon::is_user()) {
         throw new ErrorException('Not logged in');
     }
 }

	public function install() {
		Base_ThemeCommon::install_default_theme($this->get_type());
		$ret = true;
		$ret &= DB::CreateTable('utils_watchdog_category',
					'id I AUTO KEY,'.
					'name C(32),'.
					'callback C(128)',
			array('constraints'=>''));
		if(!$ret){
			print('Unable to create table utils_watchdog_category.<br>');
			return false;
		}
		$ret &= DB::CreateTable('utils_watchdog_event',
					'id I AUTO KEY,'.
					'category_id I,'.
					'internal_id I,'.
					'message C(64),'.
					'event_time T',
			array('constraints'=>', FOREIGN KEY (category_id) REFERENCES utils_watchdog_category(id)'));
		if(!$ret){
			print('Unable to create table utils_watchdog_event.<br>');
			return false;
		}
		$ret &= DB::CreateTable('utils_watchdog_subscription',
					'category_id I,'.
					'internal_id I,'.
					'last_seen_event I,'.
					'user_id I',
			array('constraints'=>', FOREIGN KEY (user_id) REFERENCES user_login(id)'));
		if(!$ret){
			print('Unable to create table utils_watchdog_subscription.<br>');
			return false;
		}
		$ret &= DB::CreateTable('utils_watchdog_category_subscription',
					'category_id I,'.
					'user_id I',
			array('constraints'=>', FOREIGN KEY (user_id) REFERENCES user_login(id), FOREIGN KEY (category_id) REFERENCES utils_watchdog_category(id)'));
		if(!$ret){
			print('Unable to create table utils_watchdog_category_subscription.<br>');
			return false;
		}

		DB::CreateIndex('utils_watchdog_event__internal_id__idx', 'utils_watchdog_event', 'internal_id');
		DB::CreateIndex('utils_watchdog_event__cat_int__idx', 'utils_watchdog_event', array('category_id','internal_id'));
		DB::CreateIndex('utils_watchdog_subscription__cat_int__idx', 'utils_watchdog_subscription', array('category_id','internal_id'));
		DB::CreateIndex('utils_watchdog_subscription__user__idx', 'utils_watchdog_subscription', 'user_id');
		Base_AclCommon::add_permission(_M('Watchdog - subscribe to categories'),array('ACCESS:employee','ACCESS:manager'));
		return $ret;
	}

 public static function get_my_homepage()
 {
     $clearance = Base_AclCommon::get_clearance();
     $sql = 'SELECT home_page FROM base_home_page AS bhp WHERE ';
     $vals = array();
     if ($clearance != null) {
         $sql .= ' NOT EXISTS (SELECT * FROM base_home_page_clearance WHERE home_page_id=bhp.id AND ' . implode(' AND ', array_fill(0, count($clearance), 'clearance!=%s')) . ')';
         $vals = array_values($clearance);
     } else {
         $sql .= ' NOT EXISTS (SELECT * FROM base_home_page_clearance WHERE home_page_id=bhp.id)';
     }
     $sql .= ' ORDER BY priority';
     $page = DB::GetOne($sql, $vals);
     $pages = self::get_home_pages();
     return isset($pages[$page]) ? $pages[$page] : array();
 }