freenetis-github/application/controllers/stats.php @ 53cf4ce8
| 8baed187 | Michal Kliment | <?php defined('SYSPATH') or die('No direct script access.');
|
|
/*
|
|||
* This file is part of open source system FreenetIS
|
|||
* and it is released under GPLv3 licence.
|
|||
*
|
|||
* More info about licence can be found:
|
|||
* http://www.gnu.org/licenses/gpl-3.0.html
|
|||
*
|
|||
* More info about project can be found:
|
|||
* http://www.freenetis.org/
|
|||
*
|
|||
*/
|
|||
/**
|
|||
* Controller display statistic from different parts of system.
|
|||
*
|
|||
* @author Michal Kliment
|
|||
* @package Controller
|
|||
*/
|
|||
class Stats_Controller extends Controller
|
|||
{
|
|||
/**
|
|||
* Links
|
|||
*
|
|||
* @var string
|
|||
*/
|
|||
private $links;
|
|||
/**
|
|||
* Construct function
|
|||
* Generates menu
|
|||
*
|
|||
* @author Michal Kliment
|
|||
*/
|
|||
public function __construct()
|
|||
{
|
|||
parent::__construct();
|
|||
| c1bdc1c4 | Michal Kliment | $array = array();
|
|
if ($this->acl_check_view('Stats_Controller', 'members_increase_decrease'))
|
|||
{
|
|||
$array[] = html::anchor(
|
|||
'stats/members_increase_decrease',
|
|||
__('Increase and decrease of members')
|
|||
);
|
|||
}
|
|||
| 8baed187 | Michal Kliment | ||
| c1bdc1c4 | Michal Kliment | if ($this->acl_check_view('Stats_Controller', 'members_growth'))
|
|
{
|
|||
$array[] = html::anchor('stats/members_growth', __('Growth of members'));
|
|||
}
|
|||
| 8baed187 | Michal Kliment | ||
| c1bdc1c4 | Michal Kliment | if (Settings::get('finance_enabled'))
|
|
{
|
|||
if ($this->acl_check_view('Stats_Controller', 'incoming_member_payment'))
|
|||
{
|
|||
$array[] = html::anchor(
|
|||
'stats/incoming_member_payment', __('Incoming member payment')
|
|||
);
|
|||
}
|
|||
if ($this->acl_check_view('Stats_Controller', 'members_fees'))
|
|||
{
|
|||
$array[] = html::anchor('stats/members_fees', __('Member fees'));
|
|||
}
|
|||
}
|
|||
| 8baed187 | Michal Kliment | ||
$this->links = implode(' | ', $array);
|
|||
}
|
|||
/**
|
|||
* Index function
|
|||
| c1bdc1c4 | Michal Kliment | * Redirects to function by acl
|
|
| 8baed187 | Michal Kliment | *
|
|
* @author Michal Kliment
|
|||
*/
|
|||
public function index()
|
|||
{
|
|||
| c1bdc1c4 | Michal Kliment | if ($this->acl_check_view('Stats_Controller', 'members_increase_decrease'))
|
|
{
|
|||
url::redirect('stats/members_increase_decrease');
|
|||
}
|
|||
if ($this->acl_check_view('Stats_Controller', 'members_growth'))
|
|||
{
|
|||
url::redirect('stats/members_growth');
|
|||
}
|
|||
if ($this->acl_check_view('Stats_Controller', 'incoming_member_payment'))
|
|||
{
|
|||
url::redirect('stats/incoming_member_payment');
|
|||
}
|
|||
url::redirect('stats/members_fees');
|
|||
| 8baed187 | Michal Kliment | }
|
|
/**
|
|||
* Function to show increase of members in each month of being of association
|
|||
*
|
|||
* @author Michal Kliment
|
|||
*/
|
|||
public function members_increase_decrease()
|
|||
{
|
|||
// access control
|
|||
| c1bdc1c4 | Michal Kliment | if (!$this->acl_check_view('Stats_Controller', 'members_increase_decrease'))
|
|
| 8baed187 | Michal Kliment | Controller::error(ACCESS);
|
|
// creates instance of member ID=1 (Association)
|
|||
$association = new Member_Model(1);
|
|||
$first_entrance_date = date_parse($association->entrance_date);
|
|||
// creates new member model
|
|||
$member_model = new Member_Model();
|
|||
$last_entrance = $member_model->orderby('entrance_date', 'desc')
|
|||
->find_all()
|
|||
->current();
|
|||
$last_entrance_date = $last_entrance && $last_entrance->entrance_date != ''
|
|||
? $last_entrance->entrance_date : date("Y-m-d");
|
|||
$filter_form = new Filter_form('m');
|
|||
$filter_form->add('date')
|
|||
->label(__('Date'))
|
|||
->type('date')
|
|||
->default(Filter_form::OPER_GREATER_OR_EQUAL, $association->entrance_date)
|
|||
->default(Filter_form::OPER_SMALLER_OR_EQUAL, $last_entrance_date)
|
|||
| a33fa7cc | Michal Kliment | ->add_class('without_days');
|
|
| 8baed187 | Michal Kliment | ||
$filter_form->add('increase')
|
|||
->type('number');
|
|||
$filter_form->add('decrease')
|
|||
->type('number');
|
|||
$month = $first_entrance_date['month'];
|
|||
$year = $first_entrance_date['year'];
|
|||
$counts = array();
|
|||
$dates = $member_model->get_all_entrance_and_leaving_dates(
|
|||
$filter_form->as_sql()
|
|||
);
|
|||
foreach ($dates as $date)
|
|||
{
|
|||
$parse_date = date_parse($date->date);
|
|||
if (!isset($counts[$parse_date['year']][$parse_date['month']]))
|
|||
{
|
|||
$counts[$parse_date['year']][$parse_date['month']] = array
|
|||
(
|
|||
'increase' => 0,
|
|||
'decrease' => 0
|
|||
);
|
|||
}
|
|||
$counts[$parse_date['year']][$parse_date['month']]['increase'] += $date->increase;
|
|||
$counts[$parse_date['year']][$parse_date['month']]['decrease'] += $date->decrease;
|
|||
}
|
|||
// grid with lis of users
|
|||
$grid = new Grid('members', null, array
|
|||
(
|
|||
'separator' => '<br /><br />',
|
|||
'use_paginator' => false,
|
|||
'use_selector' => false,
|
|||
));
|
|||
$grid->field('date');
|
|||
$grid->field('increase')
|
|||
->class('right');
|
|||
$grid->field('decrease')
|
|||
->class('right');
|
|||
$grid->datasource($dates);
|
|||
$view = new View('main');
|
|||
$view->google_jsapi_enabled = TRUE;
|
|||
$view->content = new View('stats/members_increase_decrease');
|
|||
$view->content->js_data_array_str = '';
|
|||
| a33fa7cc | Michal Kliment | $year = $max_year = $month = $max_month = NULL;
|
|
$counts_year_keys = array_keys($counts);
|
|||
if (!empty($counts_year_keys))
|
|||
{
|
|||
$year = min($counts_year_keys);
|
|||
$max_year = max($counts_year_keys);
|
|||
$counts_month_keys = array_keys($counts[$year]);
|
|||
if (!empty($counts_month_keys))
|
|||
{
|
|||
$month = min(array_keys($counts[$year]));
|
|||
$max_month = max(array_keys($counts[$max_year]));
|
|||
}
|
|||
}
|
|||
| 8baed187 | Michal Kliment | $max_date = date('Y-m-d', mktime(
|
|
0, 0, 0, $max_month, count(date::days($max_month)), $max_year
|
|||
));
|
|||
while (($date = date('Y-m-d', mktime(0, 0, 0, $month, 1, $year))) <= $max_date)
|
|||
{
|
|||
if (isset($counts[$year][$month]))
|
|||
$view->content->js_data_array_str .= "['$month/$year', "
|
|||
. $counts[$year][$month]['increase'] . ", "
|
|||
. $counts[$year][$month]['decrease'] . "],";
|
|||
else
|
|||
$view->content->js_data_array_str .= "['$month/$year', 0, 0],";
|
|||
// iterate to next month
|
|||
$month++;
|
|||
if ($month == 13)
|
|||
{
|
|||
$month = 1;
|
|||
$year++;
|
|||
}
|
|||
}
|
|||
$breadcrumbs = breadcrumbs::add()
|
|||
->text('Stats')
|
|||
->text('Increase and decrease of members');
|
|||
$view->title = __('Increase and decrease of members');
|
|||
$view->breadcrumbs = $breadcrumbs->html();
|
|||
$view->content->link_back = $this->links;
|
|||
$view->content->filter_form = $filter_form;
|
|||
$view->content->grid = $grid;
|
|||
$view->render(TRUE);
|
|||
}
|
|||
/**
|
|||
* Function to show growth of members in each month of being of association
|
|||
*
|
|||
* @author Michal Kliment
|
|||
*/
|
|||
public function members_growth()
|
|||
{
|
|||
// access control
|
|||
| c1bdc1c4 | Michal Kliment | if (!$this->acl_check_view('Stats_Controller', 'members_growth'))
|
|
| 8baed187 | Michal Kliment | Controller::error(ACCESS);
|
|
// creates new member model
|
|||
$member_model = new Member_Model();
|
|||
// finds all members
|
|||
$members = $member_model->orderby('entrance_date')->find_all();
|
|||
// creates instance of member ID=1 (Association)
|
|||
$association = new Member_Model(1);
|
|||
$association_entrance_date = date_parse($association->entrance_date);
|
|||
$entrances = array();
|
|||
$leavings = array();
|
|||
$max = 0;
|
|||
foreach ($members as $member)
|
|||
{
|
|||
// parses date from datetime to array
|
|||
$entrance_date = date_parse(date::month($member->entrance_date));
|
|||
// someone just entranced this month
|
|||
if (isset($entrances[$entrance_date['year']][$entrance_date['month']]))
|
|||
$entrances[$entrance_date['year']][$entrance_date['month']]++;
|
|||
else
|
|||
// this is first member who entranced this month
|
|||
$entrances[$entrance_date['year']][$entrance_date['month']] = 1;
|
|||
// only if leaving date is not empty
|
|||
if ($member->leaving_date != '0000-00-00')
|
|||
{
|
|||
// parses date from datetime to array
|
|||
$leaving_date = date_parse(date::month($member->leaving_date));
|
|||
// someone just leaved this month
|
|||
if (isset($leavings[$leaving_date['year']][$leaving_date['month']]))
|
|||
$leavings[$leaving_date['year']][$leaving_date['month']]++;
|
|||
else
|
|||
// this is first member who leaved this month
|
|||
$leavings[$leaving_date['year']][$leaving_date['month']] = 1;
|
|||
}
|
|||
}
|
|||
$labels = array();
|
|||
$values = array();
|
|||
$month = array();
|
|||
$x = 0;
|
|||
// we draw graph from first month of association´s foundation year to current month of current year
|
|||
for ($i = $association_entrance_date['year']; $i <= date("Y"); $i++)
|
|||
{
|
|||
for ($j = 1; $j <= 12; $j++)
|
|||
{
|
|||
// we draw label only for first month of year
|
|||
$labels[$x] = ($j == 1) ? $i : ' ';
|
|||
// cycle just ran, uses previously value
|
|||
if ($x)
|
|||
{
|
|||
$values[$x] = $values[$x - 1];
|
|||
if (isset($entrances[$i][$j]))
|
|||
$values[$x] += $entrances[$i][$j];
|
|||
if (isset($leavings[$i][$j]))
|
|||
$values[$x] -= $leavings[$i][$j];
|
|||
}
|
|||
else
|
|||
// first run of cycle
|
|||
$values[$x] = (isset($entrances[$i][$j])) ? $entrances[$i][$j] : 0;
|
|||
// finding max, important for drawing graph
|
|||
if ($values[$x] > $max)
|
|||
$max = $values[$x];
|
|||
if ((
|
|||
$i > $association_entrance_date['year'] &&
|
|||
$i < date("Y")
|
|||
) || (
|
|||
$i == date("Y") &&
|
|||
$j <= date("m")
|
|||
) || (
|
|||
$i == $association_entrance_date['year'] &&
|
|||
$j >= $association_entrance_date['month']
|
|||
))
|
|||
{
|
|||
$months[$x] = __('' . Date::$months[$j]) . ' ' . $i;
|
|||
}
|
|||
$x++;
|
|||
}
|
|||
}
|
|||
$breadcrumbs = breadcrumbs::add()
|
|||
->text('Stats')
|
|||
->text('Growth of members');
|
|||
$view = new View('main');
|
|||
$view->title = __('Growth of members');
|
|||
$view->breadcrumbs = $breadcrumbs->html();
|
|||
$view->content = new View('stats/members_growth');
|
|||
$view->content->link_back = $this->links;
|
|||
$view->content->labels = $labels;
|
|||
$view->content->values = $values;
|
|||
$view->content->months = $months;
|
|||
$view->content->max = $max;
|
|||
$view->render(TRUE);
|
|||
}
|
|||
/**
|
|||
| c1bdc1c4 | Michal Kliment | * Function to show graph of incoming member payment
|
|
| 8baed187 | Michal Kliment | *
|
|
* @author Michal Kliment
|
|||
* @param integer $start_year
|
|||
* @param integer $end_year
|
|||
*/
|
|||
public function incoming_member_payment($start_year = NULL, $end_year = NULL)
|
|||
{
|
|||
// access control
|
|||
| c1bdc1c4 | Michal Kliment | if (!Settings::get('finance_enabled') ||
|
|
!$this->acl_check_view('Stats_Controller', 'incoming_member_payment'))
|
|||
{
|
|||
| 8baed187 | Michal Kliment | Controller::error(ACCESS);
|
|
| c1bdc1c4 | Michal Kliment | }
|
|
| 8baed187 | Michal Kliment | ||
// form is posted
|
|||
if (isset($_POST) && $_POST)
|
|||
{
|
|||
$start_year = $_POST['start_year'];
|
|||
$end_year = $_POST['end_year'];
|
|||
if ($end_year < $start_year)
|
|||
$end_year = $start_year;
|
|||
// redirect to this method with correct parameters
|
|||
url::redirect(
|
|||
'stats/incoming_member_payment/' .
|
|||
$start_year . '/' . $end_year
|
|||
);
|
|||
}
|
|||
$values = array();
|
|||
$labels = array();
|
|||
$months = array();
|
|||
$x = 0;
|
|||
$max = 0;
|
|||
// creates instance of member ID=1 (Association)
|
|||
| c1bdc1c4 | Michal Kliment | $association = new Member_Model(Member_Model::ASSOCIATION);
|
|
| 8baed187 | Michal Kliment | $association_entrance_date = date_parse($association->entrance_date);
|
|
// start year is not set, use date of creation of association
|
|||
if (!$start_year)
|
|||
$start_year = $association_entrance_date['year'];
|
|||
// end year is not set, use current year
|
|||
if (!$end_year)
|
|||
$end_year = date("Y");
|
|||
| c1bdc1c4 | Michal Kliment | ||
// check end year
|
|||
if ($end_year < $start_year)
|
|||
$end_year = $start_year;
|
|||
| 8baed187 | Michal Kliment | ||
$years = array();
|
|||
for ($i = $association_entrance_date['year']; $i <= date("Y"); $i++)
|
|||
$years[$i] = $i;
|
|||
$transfer_model = new Transfer_Model();
|
|||
$amounts = $transfer_model->get_all_monthly_amounts_of_incoming_member_payment();
|
|||
// gets all amount of member payment by months
|
|||
$arr_amounts = array();
|
|||
foreach ($amounts as $amount)
|
|||
$arr_amounts[$amount->year][(int) $amount->month] = $amount->amount;
|
|||
// we draw graph
|
|||
for ($i = $start_year; $i <= $end_year; $i++)
|
|||
{
|
|||
for ($j = 1; $j <= 12; $j++)
|
|||
{
|
|||
// draw label only 12 times
|
|||
if ($x % ($end_year - $start_year + 1) == 0)
|
|||
// we draw label only for first month of year
|
|||
$labels[$x] = $j . ' / ' . substr($i, 2, 2);
|
|||
else
|
|||
$labels[$x] = ' ';
|
|||
$values[$x] = (isset($arr_amounts[$i][$j])) ? $arr_amounts[$i][$j] : 0;
|
|||
// finding max, important for drawing graph
|
|||
if ($values[$x] > $max)
|
|||
$max = $values[$x];
|
|||
if ((
|
|||
$i > $association_entrance_date['year'] &&
|
|||
$i < date("Y")
|
|||
) || (
|
|||
$i == date("Y") &&
|
|||
$j <= date("m")
|
|||
) || (
|
|||
$i == $association_entrance_date['year'] &&
|
|||
$j >= $association_entrance_date['month']
|
|||
))
|
|||
{
|
|||
$months[$x] = __('' . date::$months[$j]) . ' ' . $i;
|
|||
}
|
|||
$x++;
|
|||
}
|
|||
}
|
|||
| c1bdc1c4 | Michal Kliment | ||
| 8baed187 | Michal Kliment | // round max
|
|
| c1bdc1c4 | Michal Kliment | $max = ceil($max);
|
|
| 8baed187 | Michal Kliment | $max = (substr($max, 0, 2) + 1) . num::null_fill(0, strlen($max) - 2);
|
|
| c1bdc1c4 | Michal Kliment | ||
| 8baed187 | Michal Kliment | // calculation of correct rates of axes
|
|
$y_count = substr($max, 0, 2);
|
|||
while ($y_count > 25)
|
|||
$y_count /= 2;
|
|||
$x_rate = num::decimal_point(round(100 / (($end_year - $start_year + 1) * 12 - 1), 5));
|
|||
$y_rate = num::decimal_point(round(100 / $y_count, 5));
|
|||
$breadcrumbs = breadcrumbs::add()
|
|||
->text('Stats')
|
|||
->text('Incoming member payment in the period')
|
|||
->disable_translation()
|
|||
->text($start_year . '-' . $end_year);
|
|||
$view = new View('main');
|
|||
$view->title = __('Incoming member payment');
|
|||
$view->breadcrumbs = $breadcrumbs->html();
|
|||
| c1bdc1c4 | Michal Kliment | $view->content = new View('stats/members_monthly_payments_and_fees');
|
|
$view->content->headline = __('Incoming member payment');
|
|||
$view->content->x_rate = $x_rate;
|
|||
$view->content->y_rate = $y_rate;
|
|||
$view->content->link_back = $this->links;
|
|||
$view->content->labels = $labels;
|
|||
$view->content->values = $values;
|
|||
$view->content->months = $months;
|
|||
$view->content->max = $max;
|
|||
$view->content->start_year = $start_year;
|
|||
$view->content->end_year = $end_year;
|
|||
$view->content->years = $years;
|
|||
$view->render(TRUE);
|
|||
}
|
|||
/**
|
|||
* Function to show graph of member member fees by month
|
|||
*
|
|||
* @author Michal Kliment, Ondřej Fibich
|
|||
* @param integer $start_year
|
|||
* @param integer $end_year
|
|||
*/
|
|||
public function members_fees($start_year = NULL, $end_year = NULL)
|
|||
{
|
|||
// access control
|
|||
if (!Settings::get('finance_enabled') ||
|
|||
!$this->acl_check_view('Stats_Controller', 'members_fees'))
|
|||
{
|
|||
Controller::error(ACCESS);
|
|||
}
|
|||
// form is posted
|
|||
if (isset($_POST) && $_POST)
|
|||
{
|
|||
$start_year = $_POST['start_year'];
|
|||
$end_year = $_POST['end_year'];
|
|||
if ($end_year < $start_year)
|
|||
$end_year = $start_year;
|
|||
// redirect to this method with correct parameters
|
|||
url::redirect(
|
|||
'stats/members_fees/' . $start_year . '/' . $end_year
|
|||
);
|
|||
}
|
|||
$values = array();
|
|||
$labels = array();
|
|||
$months = array();
|
|||
$x = 0;
|
|||
$max = 0;
|
|||
// creates instance of member ID=1 (Association)
|
|||
$association = new Member_Model(Member_Model::ASSOCIATION);
|
|||
$association_entrance_date = date_parse($association->entrance_date);
|
|||
// start year is not set, use date of creation of association
|
|||
if (!$start_year)
|
|||
$start_year = $association_entrance_date['year'];
|
|||
// end year is not set, use current year
|
|||
if (!$end_year)
|
|||
$end_year = date('Y');
|
|||
// check end year
|
|||
if ($end_year < $start_year)
|
|||
$end_year = $start_year;
|
|||
$years = array();
|
|||
for ($i = $association_entrance_date['year']; $i <= date('Y'); $i++)
|
|||
$years[$i] = $i;
|
|||
$transfer_model = new Transfer_Model();
|
|||
$amounts = $transfer_model->get_grouped_monthly_member_fees();
|
|||
// gets all amount of member payment by months
|
|||
$arr_amounts = array();
|
|||
foreach ($amounts as $amount)
|
|||
$arr_amounts[$amount->year][(int) $amount->month] = $amount->amount;
|
|||
// we draw graph
|
|||
for ($i = $start_year; $i <= $end_year; $i++)
|
|||
{
|
|||
for ($j = 1; $j <= 12; $j++)
|
|||
{
|
|||
// draw label only 12 times
|
|||
if ($x % ($end_year - $start_year + 1) == 0)
|
|||
// we draw label only for first month of year
|
|||
$labels[$x] = $j . ' / ' . substr($i, 2, 2);
|
|||
else
|
|||
$labels[$x] = ' ';
|
|||
$values[$x] = (isset($arr_amounts[$i][$j])) ? $arr_amounts[$i][$j] : 0;
|
|||
// finding max, important for drawing graph
|
|||
if ($values[$x] > $max)
|
|||
$max = $values[$x];
|
|||
if ((
|
|||
$i > $association_entrance_date['year'] &&
|
|||
$i < date("Y")
|
|||
) || (
|
|||
$i == date("Y") &&
|
|||
$j <= date("m")
|
|||
) || (
|
|||
$i == $association_entrance_date['year'] &&
|
|||
$j >= $association_entrance_date['month']
|
|||
))
|
|||
{
|
|||
$months[$x] = __('' . date::$months[$j]) . ' ' . $i;
|
|||
}
|
|||
$x++;
|
|||
}
|
|||
}
|
|||
// round max
|
|||
$max = (substr($max, 0, 2) + 1) . num::null_fill(0, strlen($max) - 2);
|
|||
// calculation of correct rates of axes
|
|||
$y_count = substr($max, 0, 2);
|
|||
while ($y_count > 25)
|
|||
$y_count /= 2;
|
|||
$x_rate = num::decimal_point(round(100 / (($end_year - $start_year + 1) * 12 - 1), 5));
|
|||
$y_rate = num::decimal_point(round(100 / $y_count, 5));
|
|||
$breadcrumbs = breadcrumbs::add()
|
|||
->text('Stats')
|
|||
->text('Member fees')
|
|||
->disable_translation()
|
|||
->text($start_year . '-' . $end_year);
|
|||
$view = new View('main');
|
|||
$view->title = __('Member fees');
|
|||
$view->breadcrumbs = $breadcrumbs->html();
|
|||
$view->content = new View('stats/members_monthly_payments_and_fees');
|
|||
$view->content->headline = __('Member fees');
|
|||
| 8baed187 | Michal Kliment | $view->content->x_rate = $x_rate;
|
|
$view->content->y_rate = $y_rate;
|
|||
$view->content->link_back = $this->links;
|
|||
$view->content->labels = $labels;
|
|||
$view->content->values = $values;
|
|||
$view->content->months = $months;
|
|||
$view->content->max = $max;
|
|||
$view->content->start_year = $start_year;
|
|||
$view->content->end_year = $end_year;
|
|||
$view->content->years = $years;
|
|||
$view->render(TRUE);
|
|||
}
|
|||
}
|