<?php if ( ! defined('BASEPATH')) exit('No direct script access allowed');
/*
 * LimeSurvey
 * Copyright (C) 2007-2011 The LimeSurvey Project Team / Carsten Schmitz
 * All rights reserved.
 * License: GNU/GPL License v2 or later, see LICENSE.php
 * LimeSurvey is free software. This version may have been modified pursuant
 * to the GNU General Public License, and as distributed it includes or
 * is derivative of works licensed under the GNU General Public License or
 * other free or open source software licenses.
 * See COPYRIGHT.php for copyright notices and details.
 *
 */

/**
 * Statistics Controller
 *
 * This controller performs statistics actions
 *
 * @package		LimeSurvey
 * @subpackage	Backend
 */
class statistics extends Survey_Common_Action {

    function __construct($controller, $id)
    {
        parent::__construct($controller, $id);

		Yii::app()->loadHelper("surveytranslator");
    }

	/**
	 * Constructor
	 */
	public function run($surveyid = 0, $subaction = null)
	{
		$surveyid = sanitize_int($surveyid);
		//TODO: Convert question types to views
        $clang = $this->getController()->lang;

		$imageurl = Yii::app()->getConfig("imageurl");
		$aData = array('clang' => $clang, 'imageurl' => $imageurl);
        $aData['sql']='';

		/*
		 * We need this later:
		 *  1 - Array Dual Scale
		 *  5 - 5 Point Choice
		 *  A - Array (5 Point Choice)
		 *  B - Array (10 Point Choice)
		 *  C - Array (Yes/No/Uncertain)
		 *  D - Date
		 *  E - Array (Increase, Same, Decrease)
		 *  F - Array (Flexible Labels)
		 *  G - Gender
		 *  H - Array (Flexible Labels) by Column
		 *  I - Language Switch
		 *  K - Multiple Numerical Input
		 *  L - List (Radio)
		 *  M - Multiple choice
		 *  N - Numerical Input
		 *  O - List With Comment
		 *  P - Multiple choice with comments
		 *  Q - Multiple Short Text
		 *  R - Ranking
		 *  S - Short Free Text
		 *  T - Long Free Text
		 *  U - Huge Free Text
		 *  X - Boilerplate Question
		 *  Y - Yes/No
		 *  ! - List (Dropdown)
		 *  : - Array (Flexible Labels) multiple drop down
		 *  ; - Array (Flexible Labels) multiple texts
		 *  | - File Upload


		 Debugging help:
		 echo '<script language="javascript" type="text/javascript">alert("HI");</script>';
		 */

		//split up results to extend statistics -> NOT WORKING YET! DO NOT ENABLE THIS!
		$showcombinedresults = 0;

		/*
		 * this variable is used in the function shortencode() which cuts off a question/answer title
		 * after $maxchars and shows the rest as tooltip
		 */
		$maxchars = 50;

		//we collect all the output within this variable
		$statisticsoutput ='';

		//output for chosing questions to cross query
		$cr_statisticsoutput = '';

		// This gets all the 'to be shown questions' from the POST and puts these into an array
		$summary=returnGlobal('summary');
		$statlang=returnGlobal('statlang');

		//if $summary isn't an array we create one
		if (isset($summary) && !is_array($summary)) {
		    $summary = explode("+", $summary);
		}

		//no survey ID? -> come and get one
		if (!isset($surveyid)) {$surveyid=returnGlobal('sid');}

		//still no survey ID -> error
		$aData['surveyid'] = $surveyid;


		// Set language for questions and answers to base language of this survey
		$language = Survey::model()->findByPk($surveyid)->language;
		$aData['language'] = $language;


		//Call the javascript file
		App()->getClientScript()->registerScriptFile(Yii::app()->getConfig('adminscripts') . 'statistics.js');
		App()->getClientScript()->registerScriptFile(Yii::app()->getConfig('adminscripts') . 'json-js/json2.min.js');

		$aData['display']['menu_bars']['browse'] = $clang->gT("Quick statistics");

		//Select public language file
		$row  = Survey::model()->find('sid = :sid', array(':sid' => $surveyid));

		/*
		 * check if there is a datestamp available for this survey
		 * yes -> $datestamp="Y"
		 * no -> $datestamp="N"
		 */
		$datestamp = $row->datestamp;

		// 1: Get list of questions from survey

		/*
		 * We want to have the following data
		 * a) "questions" -> all table namens, e.g.
		 * qid
		 * sid
		 * gid
		 * type
		 * title
		 * question
		 * preg
		 * help
		 * other
		 * mandatory
		 * lid
		 * lid1
		 * question_order
		 * language
		 *
		 * b) "groups" -> group_name + group_order *
		 */

		//store all the data in $rows
		$rows = Question::model()->getQuestionList($surveyid, $language);

		//SORT IN NATURAL ORDER!
		usort($rows, 'groupOrderThenQuestionOrder');

		//put the question information into the filter array
		$filters = array();
		foreach ($rows as $row)
		{
		    //store some column names in $filters array
		    $filters[]=array($row['qid'],
		    $row['gid'],
		    $row['type'],
		    $row['title'],
		    $row['group_name'],
		    flattenText($row['question']));
		}
		$aData['filters'] = $filters;

		//var_dump($filters);
		// SHOW ID FIELD

		$grapherror = false;
        $error = '';
		if (!function_exists("gd_info")) {
			$grapherror = true;
            $error.='<br />'.$clang->gT('You do not have the GD Library installed. Showing charts requires the GD library to function properly.');
            $error.='<br />'.$clang->gT('visit http://us2.php.net/manual/en/ref.image.php for more information').'<br />';
		}
		elseif (!function_exists("imageftbbox")) {
		    $grapherror = true;
            $error.='<br />'.$clang->gT('You do not have the Freetype Library installed. Showing charts requires the Freetype library to function properly.');
            $error.='<br />'.$clang->gT('visit http://us2.php.net/manual/en/ref.image.php for more information').'<br />';
		}

		if ($grapherror)
		{
		    unset($_POST['usegraph']);
		}


		//pre-selection of filter forms
		if (incompleteAnsFilterState() == "complete")
		{
		    $selecthide="selected='selected'";
		    $selectshow="";
		    $selectinc="";
		}
		elseif (incompleteAnsFilterState() == "incomplete")
		{
		    $selecthide="";
		    $selectshow="";
		    $selectinc="selected='selected'";
		}
		else
		{
		    $selecthide="";
		    $selectshow="selected='selected'";
		    $selectinc="";
		}
		$aData['selecthide'] = $selecthide;
		$aData['selectshow'] = $selectshow;
		$aData['selectinc'] = $selectinc;
        $aData['error'] = $error;

		$survlangs = Survey::model()->findByPk($surveyid)->additionalLanguages;
		$survlangs[] = Survey::model()->findByPk($surveyid)->language;
		$aData['survlangs'] = $survlangs;
		$aData['datestamp'] = $datestamp;

		//if the survey contains timestamps you can filter by timestamp, too

		//Output selector

		//second row below options -> filter settings headline

		$filterchoice_state=returnGlobal('filterchoice_state');
		$aData['filterchoice_state'] = $filterchoice_state;


		/*
		 * let's go through the filter array which contains
		 * 	['qid'],
		 ['gid'],
		 ['type'],
		 ['title'],
		 ['group_name'],
		 ['question'],
		 ['lid'],
		 ['lid1']);
		 */

		$currentgroup='';
        $counter = 0;
		foreach ($filters as $key1 => $flt)
		{
		    //is there a previous question type set?


		    /*
		     * remember: $flt is structured like this
		     *  ['qid'],
		     ['gid'],
		     ['type'],
		     ['title'],
		     ['group_name'],
		     ['question'],
		     ['lid'],
		     ['lid1']);
		     */

		    //SGQ identifier

		    //full question title

		    /*
		     * Check question type: This question types will be used (all others are separated in the if clause)
		     *  5 - 5 Point Choice
		     G - Gender
		     I - Language Switch
		     L - List (Radio)
		     M - Multiple choice
		     N - Numerical Input
		     | - File Upload
		     O - List With Comment
		     P - Multiple choice with comments
		     Y - Yes/No
		     ! - List (Dropdown) )
		     */


		    /////////////////////////////////////////////////////////////////////////////////////////////////
		    //This section presents the filter list, in various different ways depending on the question type
		    /////////////////////////////////////////////////////////////////////////////////////////////////

		    //let's switch through the question type for each question
		    switch ($flt[2])
		    {
		        case "K": // Multiple Numerical
		            //get answers
		            $result = Question::model()->getQuestionsForStatistics('title as code, question as answer', "parent_qid=$flt[0] AND language = '{$language}'", 'question_order');
		            $aData['result'][$key1]['key1'] = $result;
		            break;


		        case "Q": // Multiple Short Text

		            //get subqestions
		            $result = Question::model()->getQuestionsForStatistics('title as code, question as answer', "parent_qid=$flt[0] AND language = '{$language}'", 'question_order');
		            $aData['result'][$key1] = $result;
		            break;

		            //----------------------- ARRAYS --------------------------

		        case "A": // ARRAY OF 5 POINT CHOICE QUESTIONS

		            //get answers
		            $result = Question::model()->getQuestionsForStatistics('title, question', "parent_qid=$flt[0] AND language = '{$language}'", 'question_order');
		            $aData['result'][$key1] = $result;
		            break;


		            //just like above only a different loop
		        case "B": // ARRAY OF 10 POINT CHOICE QUESTIONS
		            $result = Question::model()->getQuestionsForStatistics('title, question', "parent_qid=$flt[0] AND language = '{$language}'", 'question_order');
		            $aData['result'][$key1] = $result;
		            break;


		        case "C": // ARRAY OF YES\No\$clang->gT("Uncertain") QUESTIONS
		            //get answers
		            $result = Question::model()->getQuestionsForStatistics('title, question', "parent_qid=$flt[0] AND language = '{$language}'", 'question_order');
		            $aData['result'][$key1] = $result;
		            break;


		            //similiar to the above one
		        case "E": // ARRAY OF Increase/Same/Decrease QUESTIONS
		            $result = Question::model()->getQuestionsForStatistics('title, question', "parent_qid=$flt[0] AND language = '{$language}'", 'question_order');
		            $aData['result'][$key1] = $result;
		            break;

		        case ";":  //ARRAY (Multi Flex) (Text)
		            $result = Question::model()->getQuestionsForStatistics('title, question', "parent_qid=$flt[0] AND language = '{$language}' AND scale_id = 0", 'question_order');
		            $aData['result'][$key1] = $result;
		            foreach($result as $key => $row)
		            {
		            	$fresult = Question::model()->getQuestionsForStatistics('title, question', "parent_qid=$flt[0] AND language = '{$language}' AND scale_id = 1", 'question_order');
		                $aData['fresults'][$key1][$key] = $fresult;
		            }
		            break;

		        case ":":  //ARRAY (Multi Flex) (Numbers)
		            $result = Question::model()->getQuestionsForStatistics('title, question', "parent_qid=$flt[0] AND language = '{$language}' AND scale_id = 0", 'question_order');
		            $aData['result'][$key1] = $result;
		            foreach($result as $row)
		            {
		            	$fresult = Question::model()->getQuestionsForStatistics('*', "parent_qid=$flt[0] AND language = '{$language}' AND scale_id = 1", 'question_order, title');
		            	$aData['fresults'][$key1] = $fresult;
		            }
		            break;
		            /*
		             * For question type "F" and "H" you can use labels.
		             * The only difference is that the labels are applied to column heading
		             * or rows respectively
		             */
		        case "F": // FlEXIBLE ARRAY
		        case "H": // ARRAY (By Column)
		            //Get answers. We always use the answer code because the label might be too long elsewise
		            $result = Question::model()->getQuestionsForStatistics('title, question', "parent_qid=$flt[0] AND language = '{$language}'", 'question_order');
		            $aData['result'][$key1] = $result;

		            //check all the answers
		            foreach($result as $row)
		            {
		                $fresult = Answer::model()->getQuestionsForStatistics('*', "qid=$flt[0] AND language = '{$language}'", 'sortorder, code');
		                $aData['fresults'][$key1] = $fresult;
		            }

		            //$statisticsoutput .= "\t\t\t\t<td>\n";
		            $counter=0;
		            break;


		        case "R": //RANKING
		            //get some answers
		            $result = Answer::model()->getQuestionsForStatistics('code, answer', "qid=$flt[0] AND language = '{$language}'", 'sortorder, answer');
		            $aData['result'][$key1] = $result;
		            break;

		        case "1": // MULTI SCALE

		            //get answers
		            $result = Question::model()->getQuestionsForStatistics('title, question', "parent_qid=$flt[0] AND language = '{$language}'", 'question_order');
		            $aData['result'][$key1] = $result;
		            //loop through answers
		            foreach($result as $key => $row)
		            {

		                //check if there is a dualscale_headerA/B
		                $dshresult = QuestionAttribute::model()->getQuestionsForStatistics('value', "qid=$flt[0] AND attribute = 'dualscale_headerA'", '');
		                $aData['dshresults'][$key1][$key] = $dshresult;


		                $fresult = Answer::model()->getQuestionsForStatistics('*', "qid=$flt[0] AND language = '{$language}' AND scale_id = 0", 'sortorder, code');

		                $aData['fresults'][$key1][$key] = $fresult;


		                $dshresult2 = QuestionAttribute::model()->getQuestionsForStatistics('value', "qid=$flt[0] AND attribute = 'dualscale_headerB'", '');
		                $aData['dshresults2'][$key1][$key] = $dshresult2;
		            }
		            break;

		        case "P":  //P - Multiple choice with comments
		        case "M":  //M - Multiple choice

		            //get answers
		            $result = Question::model()->getQuestionsForStatistics('title, question', "parent_qid = $flt[0] AND language = '$language'", 'question_order');
		            $aData['result'][$key1] = $result;
		            break;


		            /*
		             * This question types use the default settings:
		             * 	L - List (Radio)
		             O - List With Comment
		             P - Multiple choice with comments
		             ! - List (Dropdown)
		             */
		        default:

		            //get answers
		            $result = Answer::model()->getQuestionsForStatistics('code, answer', "qid=$flt[0] AND language = '$language'", 'sortorder, answer');
		            $aData['result'][$key1] = $result;
		            break;

		    }	//end switch -> check question types and create filter forms

		    $currentgroup=$flt[1];

		    $counter++;

		    //temporary save the type of the previous question
		    //used to adjust linebreaks
		    $previousquestiontype = $flt[2];

		}

		// ----------------------------------- END FILTER FORM ---------------------------------------

		Yii::app()->loadHelper('admin/statistics');
		$showtextinline=isset($_POST['showtextinline']) ? 1 : 0;
		$aData['showtextinline'] = $showtextinline;

		//Show Summary results
		if (isset($summary) && $summary)
		{
		    $usegraph=isset($_POST['usegraph']) ? 1 : 0;
            $aData['usegraph'] = $usegraph;
		    $outputType = $_POST['outputtype'];

            $helper = new statistics_helper();
		    switch($outputType){
		        case 'html':
		            $statisticsoutput .= $helper->generate_statistics($surveyid,$summary,$summary,$usegraph,$outputType,'DD',$statlang);
		            break;
		        case 'pdf':
		            $helper->generate_statistics($surveyid,$summary,$summary,$usegraph,$outputType,'I',$statlang);
		            exit;
		            break;
		        case 'xls':
		            $helper->generate_statistics($surveyid,$summary,$summary,$usegraph,$outputType,'DD',$statlang);
		            exit;
		            break;
		        default:
		            break;
		    }

		}	//end if -> show summary results

        $aData['sStatisticsLanguage']=$statlang;
		$aData['output'] = $statisticsoutput;
        $aData['summary'] = $summary;

        $this->_renderWrappedTemplate('export', 'statistics_view', $aData);

	}

    
    /**
    *  Returns a simple list of values in a particular column, that meet the requirements of the SQL
    */
    function listcolumn($surveyid, $column, $sortby="", $sortmethod="", $sorttype="")
    {
        Yii::app()->loadHelper('admin/statistics');
        $helper = new statistics_helper();
        $aData['data']=$helper->_listcolumn($surveyid, $column, $sortby, $sortmethod, $sorttype);
        $aData['surveyid']=$surveyid;
        $aData['column']=$column;
        $aData['sortby']=$sortby;
        $aData['sortmethod']=$sortmethod;
        $aData['sorttype']=$sorttype;
        App()->getClientScript()->reset();
        $this->getController()->render('export/statistics_browse_view', $aData);    
    }
    
    
	function graph()
	{
        Yii::app()->loadHelper('admin/statistics');
		Yii::app()->loadHelper("surveytranslator");

        // Initialise PCHART
        require_once(Yii::app()->basePath . '/third_party/pchart/pchart/pChart.class');
        require_once(Yii::app()->basePath . '/third_party/pchart/pchart/pData.class');
        require_once(Yii::app()->basePath . '/third_party/pchart/pchart/pCache.class');


        Yii::import('application.third_party.ar-php.Arabic', true);
        
        $tempdir = Yii::app()->getConfig("tempdir");
        $MyCache = new pCache($tempdir.'/');
	    $aData['success'] = 1;
        $sStatisticsLanguage=sanitize_languagecode($_POST['sStatisticsLanguage']);
        $oStatisticsLanguage = new Limesurvey_lang($sStatisticsLanguage);  

	    if (isset($_POST['cmd']) && isset($_POST['id'])) {
	        list($qsid, $qgid, $qqid) = explode("X", substr($_POST['id'], 0), 3);
            if(!is_numeric(substr($qsid,0,1))) {
                // Strip first char when not numeric (probably T or D)
                $qsid=substr($qsid,1);
            }
            $aFieldmap=createFieldMap($qsid,'full',false,false,$sStatisticsLanguage);
            $qtype=$aFieldmap[$_POST['id']]['type'];
            $qqid=$aFieldmap[$_POST['id']]['qid'];
            $aattr = getQuestionAttributeValues($qqid);
            $field = substr($_POST['id'], 1);

	        switch ($_POST['cmd']) {
	            case 'showmap':
	                if (isset($aattr['location_mapservice'])) {

                        $aData['mapdata'] = array (
                            "coord" => getQuestionMapData($field, $qsid),
                            "zoom" => $aattr['location_mapzoom'],
                            "width" => $aattr['location_mapwidth'],
                            "height" => $aattr['location_mapheight']
                        );
	                    QuestionAttribute::model()->setQuestionAttribute($qqid, 'statistics_showmap', 1);
                    } else {
	                    $aData['success'] = 0;
                    }
	                break;
	            case 'hidemap':
	                if (isset($aattr['location_mapservice'])) {
                        $aData['success'] = 1;
	                    QuestionAttribute::model()->setQuestionAttribute($qqid, 'statistics_showmap', 0);
                    } else {
	                    $aData['success'] = 0;
                    }
	                break;
	            case 'showgraph':
	                if (isset($aattr['location_mapservice'])) {
                        $aData['mapdata'] = array (
                            "coord" => getQuestionMapData($field, $qsid),
                            "zoom" => $aattr['location_mapzoom'],
                            "width" => $aattr['location_mapwidth'],
                            "height" => $aattr['location_mapheight']
                        );
	                }

                    $bChartType = $qtype != "M" && $qtype != "P" && $aattr["statistics_graphtype"] == "1";
                    $adata = Yii::app()->session['stats'][$_POST['id']];
	                $aData['chartdata'] = createChart($qqid, $qsid, $bChartType, $adata['lbl'], $adata['gdata'], $adata['grawdata'], $MyCache, $oStatisticsLanguage, $qtype);


                    QuestionAttribute::model()->setQuestionAttribute($qqid, 'statistics_showgraph', 1);
	                break;
	            case 'hidegraph':
                    QuestionAttribute::model()->setQuestionAttribute($qqid, 'statistics_showgraph', 0);
	                break;
	            case 'showbar':
	                if ($qtype == "M" || $qtype == "P") {
	                    $aData['success'] = 0;
	                    break;
	                }

                    QuestionAttribute::model()->setQuestionAttribute($qqid, 'statistics_graphtype', 0);

                    $adata = Yii::app()->session['stats'][$_POST['id']];
	                $aData['chartdata'] =  createChart($qqid, $qsid, 0, $adata['lbl'], $adata['gdata'], $adata['grawdata'], $MyCache, $oStatisticsLanguage, $qtype);

	                break;
	            case 'showpie':

	                if ($qtype == "M" || $qtype == "P") {
	                    $aData['success'] = 0;
	                    break;
	                }

                    QuestionAttribute::model()->setQuestionAttribute($qqid, 'statistics_graphtype', 1);

                    $adata = Yii::app()->session['stats'][$_POST['id']];
	                $aData['chartdata'] =  createChart($qqid, $qsid, 1, $adata['lbl'], $adata['gdata'], $adata['grawdata'], $MyCache, $oStatisticsLanguage, $qtype);


	                break;
	            default:
	                $aData['success'] = 0;
	                break;
	        }
	    } else {
	        $aData['success'] = 0;
	    }

        //$this->_renderWrappedTemplate('export', 'statistics_graph_view', $aData);
        $this->getController()->renderPartial('export/statistics_graph_view', $aData);
	}

    /**
     * Renders template(s) wrapped in header and footer
     *
     * @param string $sAction Current action, the folder to fetch views from
     * @param string|array $aViewUrls View url(s)
     * @param array $aData Data to be passed on. Optional.
     */
    protected function _renderWrappedTemplate($sAction = 'export', $aViewUrls = array(), $aData = array())
    {
        parent::_renderWrappedTemplate($sAction, $aViewUrls, $aData);
    }

}