45 lines
1.1 KiB
PHP
45 lines
1.1 KiB
PHP
<?php
|
|
|
|
/**
|
|
* This file is part of the Froxlor project.
|
|
* Copyright (c) 2010 the Froxlor Team (see authors).
|
|
*
|
|
* For the full copyright and license information, please view the COPYING
|
|
* file that was distributed with this source code. You can also view the
|
|
* COPYING file online at http://files.froxlor.org/misc/COPYING.txt
|
|
*
|
|
* @copyright (c) the authors
|
|
* @author Froxlor team <team@froxlor.org> (2010-)
|
|
* @license GPLv2 http://files.froxlor.org/misc/COPYING.txt
|
|
* @package Functions
|
|
*
|
|
*/
|
|
|
|
/**
|
|
* Function customerHasPerlEnabled
|
|
*
|
|
* returns true or false whether perl is
|
|
* enabled for the given customer
|
|
*
|
|
* @param int customer-id
|
|
*
|
|
* @return boolean
|
|
*/
|
|
function customerHasPerlEnabled($cid = 0) {
|
|
|
|
if ($cid > 0) {
|
|
$result_stmt = Database::prepare("
|
|
SELECT `perlenabled` FROM `".TABLE_PANEL_CUSTOMERS."` WHERE `customerid` = :cid"
|
|
);
|
|
Database::pexecute($result_stmt, array('cid' => $cid));
|
|
$result = $result_stmt->fetch(PDO::FETCH_ASSOC);
|
|
|
|
if (is_array($result)
|
|
&& isset($result['perlenabled'])
|
|
) {
|
|
return ($result['perlenabled'] == '1') ? true : false;
|
|
}
|
|
}
|
|
return false;
|
|
}
|