1553 lines
54 KiB
PHP
1553 lines
54 KiB
PHP
![]() |
<?php
|
|||
|
|
|||
|
global $site_path;
|
|||
|
|
|||
|
include_once('../../function.php');
|
|||
|
include_once('../survey/definition.php');
|
|||
|
include_once('../exportclases/class.rtfIzvozAnalizaFunctions.php');
|
|||
|
require_once("class.enka.rtf.php");
|
|||
|
|
|||
|
define("FNT_TIMES", "Times New Roman", true);
|
|||
|
define("FNT_ARIAL", "Arial", true);
|
|||
|
|
|||
|
define("FNT_MAIN_TEXT", FNT_TIMES, true);
|
|||
|
define("FNT_QUESTION_TEXT", FNT_TIMES, true);
|
|||
|
define("FNT_HEADER_TEXT", FNT_TIMES, true);
|
|||
|
|
|||
|
define("FNT_MAIN_SIZE", 12, true);
|
|||
|
define("FNT_QUESTION_SIZE", 10, true);
|
|||
|
define("FNT_HEADER_SIZE", 10, true);
|
|||
|
|
|||
|
define("M_ANALIZA_DESCRIPTOR", "descriptor", true);
|
|||
|
define("M_ANALIZA_FREQUENCY", "frequency", true);
|
|||
|
define("ALLOW_HIDE_ZERRO_REGULAR", false); // omogo<67>imo delovanje prikazovanja/skrivanja ni<6E>elnih vnosti za navadne odgovore
|
|||
|
define("ALLOW_HIDE_ZERRO_MISSING", true); // omogo<67>imo delovanje prikazovanja/skrivanja ni<6E>elnih vnosti za missinge
|
|||
|
|
|||
|
|
|||
|
/** Class za generacijo rtf-a
|
|||
|
*/
|
|||
|
class RtfIzvozAnalizaBreak {
|
|||
|
|
|||
|
var $anketa;// = array(); // trenutna anketa
|
|||
|
|
|||
|
var $pi=array('canCreate'=>false); // za shrambo parametrov in sporocil
|
|||
|
var $rtf;
|
|||
|
|
|||
|
public $breakClass = null; // break class
|
|||
|
public $crosstabClass = null; // crosstab class
|
|||
|
|
|||
|
var $spr = 0; // spremenljivka za katero delamo razbitje
|
|||
|
var $seq; // sekvenca
|
|||
|
|
|||
|
var $break_percent; // opcija za odstotke
|
|||
|
public $break_charts = 0; // ali prikazujemo graf ali tabelo
|
|||
|
|
|||
|
var $firstElement = true;
|
|||
|
|
|||
|
var $sessionData; // podatki ki so bili prej v sessionu - za nastavitve, ki se prenasajo v izvoze...
|
|||
|
|
|||
|
|
|||
|
/**
|
|||
|
* @desc konstruktor
|
|||
|
*/
|
|||
|
function __construct ($anketa = null)
|
|||
|
{
|
|||
|
global $site_path;
|
|||
|
global $global_user_id;
|
|||
|
|
|||
|
|
|||
|
// preverimo ali imamo stevilko ankete
|
|||
|
if ( is_numeric($anketa) )
|
|||
|
{
|
|||
|
$this->anketa['id'] = $anketa;
|
|||
|
|
|||
|
// create new RTF document
|
|||
|
$this->rtf = new enka_RTF(true);
|
|||
|
}
|
|||
|
else
|
|||
|
{
|
|||
|
$this->pi['msg'] = "Anketa ni izbrana!";
|
|||
|
$this->pi['canCreate'] = false;
|
|||
|
return false;
|
|||
|
}
|
|||
|
|
|||
|
$_GET['a'] = A_ANALYSIS;
|
|||
|
|
|||
|
// preberemo nastavitve iz baze (prej v sessionu)
|
|||
|
SurveyUserSession::Init($this->anketa['id']);
|
|||
|
$this->sessionData = SurveyUserSession::getData();
|
|||
|
|
|||
|
// ustvarimo break objekt
|
|||
|
$this->breakClass = new SurveyBreak($anketa);
|
|||
|
$this->spr = $this->sessionData['break']['spr'];
|
|||
|
# poiščemo sekvenco
|
|||
|
$this->seq = $this->sessionData['break']['seq'];
|
|||
|
|
|||
|
$this->break_percent = (isset($this->sessionData['break_percent']) && $this->sessionData['break_percent'] == false) ? false : true;
|
|||
|
|
|||
|
if ( SurveyInfo::getInstance()->SurveyInit($this->anketa['id']) && $this->init())
|
|||
|
{
|
|||
|
$this->anketa['uid'] = $global_user_id;
|
|||
|
SurveyUserSetting::getInstance()->Init($this->anketa['id'], $this->anketa['uid']);
|
|||
|
}
|
|||
|
else
|
|||
|
return false;
|
|||
|
// ce smo prisli do tu je vse ok
|
|||
|
$this->pi['canCreate'] = true;
|
|||
|
return true;
|
|||
|
}
|
|||
|
|
|||
|
function getAnketa()
|
|||
|
{ return $this->anketa['id']; }
|
|||
|
|
|||
|
function checkCreate()
|
|||
|
{
|
|||
|
return $this->pi['canCreate'];
|
|||
|
}
|
|||
|
|
|||
|
function getFile($fileName)
|
|||
|
{
|
|||
|
$this->rtf->display($fileName = "analiza.rtf",true);
|
|||
|
}
|
|||
|
|
|||
|
function init()
|
|||
|
{
|
|||
|
global $lang;
|
|||
|
|
|||
|
// dodamo avtorja in naslov
|
|||
|
$this->rtf->WriteTitle();
|
|||
|
$this->rtf->WriteHeader($this->encodeText(SurveyInfo::getInstance()->getSurveyAkronim()), 'left');
|
|||
|
$this->rtf->WriteHeader($this->encodeText(SurveyInfo::getInstance()->getSurveyAkronim()), 'right');
|
|||
|
$this->rtf->WriteFooter($lang['page']." {PAGE} / {NUMPAGES}", 'right');
|
|||
|
$this->rtf->set_default_font(FNT_TIMES, FNT_MAIN_SIZE);
|
|||
|
return true;
|
|||
|
}
|
|||
|
|
|||
|
function createRtf()
|
|||
|
{
|
|||
|
global $site_path;
|
|||
|
global $lang;
|
|||
|
|
|||
|
// izpisemo prvo stran
|
|||
|
//$this->createFrontPage();
|
|||
|
|
|||
|
$this->rtf->draw_title($lang['export_analisys_break']);
|
|||
|
$this->rtf->new_line(2);
|
|||
|
|
|||
|
if ($this->spr != 0){
|
|||
|
# poiščemo pripadajoče variable
|
|||
|
$_spr_data = $this->breakClass->_HEADERS[$this->spr];
|
|||
|
|
|||
|
# poiščemo opcije
|
|||
|
$options = $_spr_data['options'];
|
|||
|
|
|||
|
# za vsako opcijo posebej izračunamo povprečja za vse spremenljivke
|
|||
|
$frequencys = null;
|
|||
|
if (count($options) > 0) {
|
|||
|
foreach ($options as $okey => $option) {
|
|||
|
|
|||
|
# zloopamo skozi variable
|
|||
|
$okeyfrequencys = $this->breakClass->getAllFrequencys($okey, $this->seq, $this->spr);
|
|||
|
if ($okeyfrequencys != null) {
|
|||
|
if ($frequencys == null) {
|
|||
|
$frequencys = array();
|
|||
|
}
|
|||
|
$frequencys[$okey] = $okeyfrequencys;
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
$this->displayBreak($this->spr,$frequencys);
|
|||
|
|
|||
|
} else {
|
|||
|
$this->rtf->MyRTF .= $lang['srv_break_error_note_1'];
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
function displayBreak($forSpr, $frequencys) {
|
|||
|
|
|||
|
# če ne uporabljamo privzetega časovnega profila izpišemo opozorilo
|
|||
|
//SurveyTimeProfiles :: printIsDefaultProfile(false);
|
|||
|
|
|||
|
# če imamo filter ifov ga izpišemo
|
|||
|
//SurveyConditionProfiles:: getConditionString();
|
|||
|
|
|||
|
# če imamo filter spremenljivk ga izpišemo
|
|||
|
//SurveyVariablesProfiles:: getProfileString(true);
|
|||
|
//SurveyDataSettingProfiles :: getVariableTypeNote();
|
|||
|
|
|||
|
# če rekodiranje
|
|||
|
//$SR = new SurveyRecoding($this->anketa);
|
|||
|
//$SR -> getProfileString();
|
|||
|
|
|||
|
# filtriranje po spremenljivkah
|
|||
|
$_FILTRED_VARIABLES = SurveyVariablesProfiles::getProfileVariables(SurveyVariablesProfiles::checkDefaultProfile(), true);
|
|||
|
|
|||
|
# ali prikazujemo tabele ali grafe
|
|||
|
$this->break_charts = (isset($this->sessionData['break']['break_show_charts']) && (int)$this->sessionData['break']['break_show_charts'] == 1) ? 1 : 0;
|
|||
|
|
|||
|
|
|||
|
foreach ($this->breakClass->_HEADERS AS $skey => $spremenljivka) {
|
|||
|
|
|||
|
$spremenljivka['id'] = $skey;
|
|||
|
$tip = $spremenljivka['tip'];
|
|||
|
if ( is_numeric($tip)
|
|||
|
&& $tip != 4 #text
|
|||
|
&& $tip != 5 #label
|
|||
|
&& $tip != 8 #datum
|
|||
|
&& $tip != 9 #SN-imena
|
|||
|
&& $tip != 19 #multitext
|
|||
|
&& $tip != 21 #besedilo*
|
|||
|
&& ( count($_FILTRED_VARIABLES) == 0 || (count($_FILTRED_VARIABLES) > 0 && isset($_FILTRED_VARIABLES[$skey]) ))
|
|||
|
) {
|
|||
|
|
|||
|
$this->displayBreakSpremenljivka($forSpr,$frequencys,$spremenljivka);
|
|||
|
} else if ( is_numeric($tip)
|
|||
|
&& (
|
|||
|
$tip == 4 #text
|
|||
|
|| $tip == 19 #multitext
|
|||
|
|| $tip == 21 #besedilo*
|
|||
|
|| $tip == 20 #multi numer*
|
|||
|
) && ( count($_FILTRED_VARIABLES) == 0 || (count($_FILTRED_VARIABLES) > 0 && isset($_FILTRED_VARIABLES[$skey]) ) )
|
|||
|
) {
|
|||
|
$this->displayBreakSpremenljivka($forSpr,$frequencys,$spremenljivka);
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
function displayBreakSpremenljivka($forSpr,$frequencys,$spremenljivka) {
|
|||
|
$tip = $spremenljivka['tip'];
|
|||
|
$skala = $spremenljivka['skala'];
|
|||
|
if ($forSpr != $spremenljivka['id']) {
|
|||
|
switch ($tip) {
|
|||
|
# radio, dropdown
|
|||
|
case 1:
|
|||
|
case 3:
|
|||
|
$this->displayCrosstabs($forSpr,$frequencys,$spremenljivka);
|
|||
|
break;
|
|||
|
#multigrid
|
|||
|
case 6:
|
|||
|
if ($spremenljivka['skala'] == 0) {
|
|||
|
$this->displayBreakTableMgrid($forSpr,$frequencys,$spremenljivka);
|
|||
|
} else {
|
|||
|
$this->displayCrosstabs($forSpr,$frequencys,$spremenljivka);
|
|||
|
}
|
|||
|
break;
|
|||
|
# checkbox
|
|||
|
case 2:
|
|||
|
$this->displayCrosstabs($forSpr,$frequencys,$spremenljivka);
|
|||
|
break;
|
|||
|
#number
|
|||
|
case 7:
|
|||
|
#ranking
|
|||
|
case 17:
|
|||
|
#vsota
|
|||
|
case 18:
|
|||
|
#multinumber
|
|||
|
case 20:
|
|||
|
$this->displayBreakTableNumber($forSpr,$frequencys,$spremenljivka);
|
|||
|
break ;
|
|||
|
case 19:
|
|||
|
$this->displayBreakTableText($forSpr,$frequencys,$spremenljivka);
|
|||
|
break ;
|
|||
|
#multicheck
|
|||
|
case 16:
|
|||
|
$this->displayCrosstabs($forSpr,$frequencys,$spremenljivka);
|
|||
|
break;
|
|||
|
case 4:
|
|||
|
|
|||
|
case 21:
|
|||
|
# po novem besedilo izpisujemo v klasični tabeli
|
|||
|
$this->displayBreakTableText($forSpr,$frequencys,$spremenljivka);
|
|||
|
|
|||
|
#$this->displayCrosstabs($forSpr,$frequencys,$spremenljivka);
|
|||
|
break;
|
|||
|
default:
|
|||
|
$this->displayCrosstabs($forSpr,$frequencys,$spremenljivka);
|
|||
|
break;
|
|||
|
}
|
|||
|
|
|||
|
$this->firstElement = false;
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
function displayBreakTableMgrid($forSpr,$frequencys,$spremenljivka) {
|
|||
|
global $lang;
|
|||
|
|
|||
|
// Ce izrisujemo graf
|
|||
|
if($this->break_charts == 1){
|
|||
|
$this->displayChart($forSpr,$frequencys,$spremenljivka,$type = 'mgrid');
|
|||
|
}
|
|||
|
|
|||
|
// Ce izrisujemo tabelo
|
|||
|
else{
|
|||
|
|
|||
|
$keysCount = count($frequencys);
|
|||
|
$sequences = explode('_',$spremenljivka['sequences']);
|
|||
|
$forSpremenljivka = $this->breakClass->_HEADERS[$forSpr];
|
|||
|
$tip = $spremenljivka['tip'];
|
|||
|
|
|||
|
# izračunamo povprečja za posamezne sekvence
|
|||
|
$means = array();
|
|||
|
foreach ($frequencys AS $fkey => $fkeyFrequency) {
|
|||
|
foreach ($sequences AS $sequence) {
|
|||
|
$means[$fkey][$sequence] = $this->breakClass->getMeansFromKey($frequencys[$fkey][$sequence]);
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
if ($tip != 16 && $tip != 20) {
|
|||
|
if ($tip == 1 || $tip == 3) {
|
|||
|
if (count($spremenljivka['options']) < 15) {
|
|||
|
$rowspan = 2;
|
|||
|
$colspan = count($spremenljivka['options'])+1;
|
|||
|
} else {
|
|||
|
$rowspan = 1;
|
|||
|
$colspan = 1;
|
|||
|
}
|
|||
|
} else {
|
|||
|
$rowspan = 2;
|
|||
|
$colspan = count($sequences);
|
|||
|
}
|
|||
|
|
|||
|
$borderB = '\clbrdrb\brdrs\brdrw10';
|
|||
|
$borderT = '\clbrdrt\brdrs\brdrw10';
|
|||
|
$borderLR = '\clbrdrl\brdrs\brdrw10\clbrdrr\brdrs\brdrw10';
|
|||
|
$border = '\clbrdrb\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrr\brdrs\brdrw10';
|
|||
|
//$align = ($arrayParams['align']=='center' ? '\qc' : '\ql');
|
|||
|
$bold = '\b';
|
|||
|
|
|||
|
//nastavitve tabele - (sirine celic, border...)
|
|||
|
$defw_full = 13500;
|
|||
|
$defw_part = 5500;
|
|||
|
$defw_part2 = 8000;
|
|||
|
$defw_part3 = floor(8000 / $colspan);
|
|||
|
|
|||
|
|
|||
|
// zacetek tabele
|
|||
|
$this->rtf->MyRTF .= $this->rtf->_font_size(16);
|
|||
|
$this->rtf->MyRTF .= "{\par";
|
|||
|
|
|||
|
|
|||
|
// PRVA VRSTICA
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.$borderT.'\clvmgf\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText($forSpremenljivka['naslov'].' ('.$forSpremenljivka['variable'].')'). '\qc\cell';
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $defw_part2 );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($spremenljivka['naslov'].' ('.$spremenljivka['variable'].')'). '\qc\cell';
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// DRUGA VRSTICA
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.$borderB.'\clvmrg\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
if ($tip != 1 && $tip != 3) {
|
|||
|
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl\b0 '.$this->encodeText($variable['naslov'].' ('.$variable['variable'].')'). '\qc\cell';
|
|||
|
$i++;
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
else if (count($spremenljivka['options']) < 15) {
|
|||
|
foreach ($spremenljivka['options'] AS $okey => $option) {
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl '.$this->encodeText($option.' ('.$okey.')'). '\qc\cell';
|
|||
|
$i++;
|
|||
|
}
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl '.$this->encodeText('povprečje'). '\qc\cell';
|
|||
|
}
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// VRSTICE S PODATKI
|
|||
|
foreach ($frequencys AS $fkey => $fkeyFrequency) {
|
|||
|
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.$borderB.'\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl '.$this->encodeText($forSpremenljivka['options'][$fkey]). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
if ($variable['other'] != 1) {
|
|||
|
$sequence = $variable['sequence'];
|
|||
|
if (($tip == 1 || $tip == 3) && count($spremenljivka['options']) < 15) {
|
|||
|
foreach ($spremenljivka['options'] AS $okey => $option) {
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl '.$this->encodeText($frequencys[$fkey][$sequence]['valid'][$okey]['cnt']). '\qc\cell';
|
|||
|
$i++;
|
|||
|
}
|
|||
|
}
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl '.self::formatNumber($means[$fkey][$sequence],SurveyDataSettingProfiles :: getSetting('NUM_DIGIT_AVERAGE'),''). '\qc\cell';
|
|||
|
$i++;
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
}
|
|||
|
|
|||
|
// konec tabele
|
|||
|
$this->rtf->MyRTF .= "}";
|
|||
|
$this->rtf->new_line(3);
|
|||
|
}
|
|||
|
|
|||
|
else {
|
|||
|
$rowspan = 2;
|
|||
|
$colspan = $spremenljivka['grids'][0]['cnt_vars'];
|
|||
|
|
|||
|
$borderB = '\clbrdrb\brdrs\brdrw10';
|
|||
|
$borderT = '\clbrdrt\brdrs\brdrw10';
|
|||
|
$borderLR = '\clbrdrl\brdrs\brdrw10\clbrdrr\brdrs\brdrw10';
|
|||
|
$border = '\clbrdrb\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrr\brdrs\brdrw10';
|
|||
|
$bold = '\b';
|
|||
|
|
|||
|
//nastavitve tabele - (sirine celic, border...)
|
|||
|
$defw_full = 13500;
|
|||
|
$defw_part = 5500;
|
|||
|
$defw_part2 = 8000;
|
|||
|
$defw_part3 = floor(8000 / $colspan);
|
|||
|
|
|||
|
|
|||
|
# za multicheck razdelimo na grupe - skupine
|
|||
|
foreach ($frequencys AS $fkey => $frequency) {
|
|||
|
|
|||
|
$this->rtf->MyRTF .= '\b '.$this->encodeText('Tabela za: ('.$forSpremenljivka['variable'].') = '.$forSpremenljivka['options'][$fkey]). '\b0';
|
|||
|
$this->rtf->new_line(1);
|
|||
|
|
|||
|
// zacetek tabele
|
|||
|
$this->rtf->MyRTF .= $this->rtf->_font_size(16);
|
|||
|
$this->rtf->MyRTF .= "{\par";
|
|||
|
|
|||
|
|
|||
|
// 1. vrstica
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
$table = '\clvertalc'.$border.'\cellx'.( $defw_part + $defw_part2 );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText($spremenljivka['naslov'].' ('.$spremenljivka['variable'].')'). '\qc\cell';
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
//2. vrstica
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
$table = '\clvertalc'.$border.'\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText(''). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($spremenljivka['grids'][0]['variables'] AS $vkey => $variable) {
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl\b0 '.$this->encodeText($variable['naslov']). '\qc\cell';
|
|||
|
$i++;
|
|||
|
}
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// vrstice s podatki
|
|||
|
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
|||
|
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
$table = '\clvertalc'.$border.'\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl '.$this->encodeText('('.$grid['variable'].') '.$grid['naslov']). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
$sequence = $variable['sequence'];
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl '.self::formatNumber($means[$fkey][$sequence],SurveyDataSettingProfiles :: getSetting('NUM_DIGIT_AVERAGE'),''). '\qc\cell';
|
|||
|
$i++;
|
|||
|
}
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
}
|
|||
|
|
|||
|
// konec tabele
|
|||
|
$this->rtf->MyRTF .= "}";
|
|||
|
$this->rtf->new_line(3);
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
function displayBreakTableNumber($forSpr,$frequencys,$spremenljivka) {
|
|||
|
global $lang;
|
|||
|
|
|||
|
$keysCount = count($frequencys);
|
|||
|
$sequences = explode('_',$spremenljivka['sequences']);
|
|||
|
$forSpremenljivka = $this->breakClass->_HEADERS[$forSpr];
|
|||
|
$tip = $spremenljivka['tip'];
|
|||
|
|
|||
|
# izračunamo povprečja za posamezne sekvence
|
|||
|
$means = array();
|
|||
|
$totalMeans = array();
|
|||
|
$totalFreq = array();
|
|||
|
foreach ($frequencys AS $fkey => $fkeyFrequency) {
|
|||
|
foreach ($sequences AS $sequence) {
|
|||
|
$means[$fkey][$sequence] = $this->breakClass->getMeansFromKey($frequencys[$fkey][$sequence]);
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
// Ce izrisujemo graf
|
|||
|
if($this->break_charts == 1){
|
|||
|
|
|||
|
// Number, vsota, ranking graf
|
|||
|
if($tip != 20 ){
|
|||
|
$this->displayChart($forSpr,$frequencys,$spremenljivka,$type = 'number');
|
|||
|
}
|
|||
|
|
|||
|
// Multinumber graf
|
|||
|
else{
|
|||
|
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
|||
|
|
|||
|
// Izrisujemo samo 1 graf v creportu
|
|||
|
if($_GET['m'] == 'analysis_creport'){
|
|||
|
|
|||
|
if($spremenljivka['break_sub_table']['key'] == $gkey){
|
|||
|
$this->displayChart($forSpr,$frequencys,$spremenljivka,$type = 'number');
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
// Izrisujemo vse zaporedne grafe
|
|||
|
else{
|
|||
|
$spremenljivka['break_sub_table']['key'] = $gkey;
|
|||
|
$spremenljivka['break_sub_table']['sequence'] = $grid['variables'][0]['sequence'];
|
|||
|
|
|||
|
$this->displayChart($forSpr,$frequencys,$spremenljivka,$type = 'number');
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
// Izrisujemo tabelo
|
|||
|
else{
|
|||
|
# za multi number naredimo po skupinah
|
|||
|
if ($tip != 20) {
|
|||
|
|
|||
|
$rowspan = 3;
|
|||
|
$colspan = count($sequences);
|
|||
|
|
|||
|
$borderB = '\clbrdrb\brdrs\brdrw10';
|
|||
|
$borderT = '\clbrdrt\brdrs\brdrw10';
|
|||
|
$borderLR = '\clbrdrl\brdrs\brdrw10\clbrdrr\brdrs\brdrw10';
|
|||
|
$border = '\clbrdrb\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrr\brdrs\brdrw10';
|
|||
|
//$align = ($arrayParams['align']=='center' ? '\qc' : '\ql');
|
|||
|
$bold = '\b';
|
|||
|
|
|||
|
//nastavitve tabele - (sirine celic, border...)
|
|||
|
$defw_full = 13500;
|
|||
|
$defw_part = 5500;
|
|||
|
$defw_part2 = 8000;
|
|||
|
$defw_part3 = floor(8000 / $colspan);
|
|||
|
|
|||
|
|
|||
|
// zacetek tabele
|
|||
|
$this->rtf->MyRTF .= $this->rtf->_font_size(16);
|
|||
|
$this->rtf->MyRTF .= "{\par";
|
|||
|
|
|||
|
|
|||
|
// PRVA VRSTICA
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.$borderT.'\clvmgf\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText($forSpremenljivka['naslov'].' ('.$forSpremenljivka['variable'].')'). '\qc\cell';
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $defw_part2 );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($spremenljivka['naslov'].' ('.$spremenljivka['variable'].')'). '\qc\cell';
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// DRUGA VRSTICA
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.'\clvmrg\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl\b0 '.$this->encodeText($variable['naslov'].' ('.$variable['variable'].')'). '\qc\cell';
|
|||
|
$i++;
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// TRETJA VRSTICA
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.$borderB.'\clvmrg\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl\b0 '.$this->encodeText('Povprečje'). '\qc\cell';
|
|||
|
$i++;
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// VRSTICE S PODATKI
|
|||
|
foreach ($frequencys AS $fkey => $fkeyFrequency) {
|
|||
|
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.$borderB.'\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl '.$this->encodeText($forSpremenljivka['options'][$fkey]). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
if ($variable['other'] != 1) {
|
|||
|
$sequence = $variable['sequence'];
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl '.self::formatNumber($means[$fkey][$sequence],SurveyDataSettingProfiles :: getSetting('NUM_DIGIT_AVERAGE'),''). '\qc\cell';
|
|||
|
|
|||
|
$totalMeans[$sequence] += ($this->breakClass->getMeansFromKey($fkeyFrequency[$sequence])*(int)$frequencys[$fkey][$sequence]['validCnt']);
|
|||
|
$totalFreq[$sequence]+= (int)$frequencys[$fkey][$sequence]['validCnt'];
|
|||
|
|
|||
|
$i++;
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
// dodamo še skupno sumo in povprečje
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.$borderB.'\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl '.$this->encodeText('Skupaj'). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
|
|||
|
$sequence = $variable['sequence'];
|
|||
|
if ($variable['other'] != 1) {
|
|||
|
#povprečja
|
|||
|
$totalMean = $totalFreq[$sequence] > 0 ? $totalMeans[$sequence] / $totalFreq[$sequence] : 0;
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl\b '.self::formatNumber($totalMean ,SurveyDataSettingProfiles :: getSetting('NUM_DIGIT_AVERAGE'),''). '\b0\qc\cell';
|
|||
|
|
|||
|
$i++;
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// konec tabele
|
|||
|
$this->rtf->MyRTF .= "}";
|
|||
|
$this->rtf->new_line(3);
|
|||
|
}
|
|||
|
|
|||
|
else {
|
|||
|
$rowspan = 3;
|
|||
|
$colspan = count($spremenljivka['grids'][0]['variables']);
|
|||
|
|
|||
|
$borderB = '\clbrdrb\brdrs\brdrw10';
|
|||
|
$borderT = '\clbrdrt\brdrs\brdrw10';
|
|||
|
$borderLR = '\clbrdrl\brdrs\brdrw10\clbrdrr\brdrs\brdrw10';
|
|||
|
$border = '\clbrdrb\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrr\brdrs\brdrw10';
|
|||
|
$bold = '\b';
|
|||
|
|
|||
|
//nastavitve tabele - (sirine celic, border...)
|
|||
|
$defw_full = 13500;
|
|||
|
$defw_part = 5500;
|
|||
|
$defw_part2 = 8000;
|
|||
|
$defw_part3 = floor(8000 / $colspan);
|
|||
|
|
|||
|
|
|||
|
# za multicheck razdelimo na grupe - skupine
|
|||
|
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
|||
|
|
|||
|
$this->rtf->MyRTF .= '\b '.$this->encodeText('Tabela za: '.$spremenljivka['naslov'].' ('.$spremenljivka['variable'].') = '.$grid['naslov'].' ('.$grid['variable'].')'). '\b0';
|
|||
|
$this->rtf->new_line(1);
|
|||
|
|
|||
|
|
|||
|
// zacetek tabele
|
|||
|
$this->rtf->MyRTF .= $this->rtf->_font_size(16);
|
|||
|
$this->rtf->MyRTF .= "{\par";
|
|||
|
|
|||
|
// PRVA VRSTICA
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.$borderT.'\clvmgf\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText($forSpremenljivka['naslov'].' ('.$forSpremenljivka['variable'].')'). '\qc\cell';
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $defw_part2 );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($spremenljivka['naslov'].' ('.$spremenljivka['variable'].') - '.$grid['naslov'].' ('.$grid['variable'].')'). '\qc\cell';
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// DRUGA VRSTICA
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.'\clvmrg\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl\b0 '.$this->encodeText($variable['naslov'].' ('.$variable['variable'].')'). '\qc\cell';
|
|||
|
$i++;
|
|||
|
}
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// TRETJA VRSTICA
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.$borderB.'\clvmrg\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl\b0 '.$this->encodeText('Povprečje'). '\qc\cell';
|
|||
|
$i++;
|
|||
|
}
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// vrstice s podatki
|
|||
|
foreach ($forSpremenljivka['options'] AS $okey => $option) {
|
|||
|
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
$table = '\clvertalc'.$border.'\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl '.$this->encodeText($option). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
$sequence = $variable['sequence'];
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl '.self::formatNumber($means[$okey][$sequence],SurveyDataSettingProfiles :: getSetting('NUM_DIGIT_AVERAGE'),''). '\qc\cell';
|
|||
|
|
|||
|
$totalMeans[$sequence] += ($means[$okey][$sequence]*(int)$frequencys[$okey][$sequence]['validCnt']);
|
|||
|
$totalFreq[$sequence]+= (int)$frequencys[$okey][$sequence]['validCnt'];
|
|||
|
|
|||
|
$i++;
|
|||
|
}
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
}
|
|||
|
|
|||
|
// dodamo še skupno sumo in povprečje
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
$table = '\clvertalc'.$border.'\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl '.$this->encodeText('Skupaj'). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
$sequence = $variable['sequence'];
|
|||
|
|
|||
|
if ($variable['other'] != 1) {
|
|||
|
#povprečja
|
|||
|
$totalMean = $totalFreq[$sequence] > 0 ? $totalMeans[$sequence] / $totalFreq[$sequence] : 0;
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl\b '.self::formatNumber($totalMean,SurveyDataSettingProfiles :: getSetting('NUM_DIGIT_AVERAGE'),''). '\b0\qc\cell';
|
|||
|
|
|||
|
$i++;
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// konec tabele
|
|||
|
$this->rtf->MyRTF .= "}";
|
|||
|
$this->rtf->new_line(3);
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
function displayBreakTableText($forSpr,$frequencys,$spremenljivka) {
|
|||
|
global $lang;
|
|||
|
|
|||
|
$keysCount = count($frequencys);
|
|||
|
$sequences = explode('_',$spremenljivka['sequences']);
|
|||
|
$forSpremenljivka = $this->breakClass->_HEADERS[$forSpr];
|
|||
|
$tip = $spremenljivka['tip'];
|
|||
|
|
|||
|
# izračunamo povprečja za posamezne sekvence
|
|||
|
$texts = array();
|
|||
|
foreach ($frequencys AS $fkey => $fkeyFrequency) {
|
|||
|
foreach ($sequences AS $sequence) {
|
|||
|
$texts[$fkey][$sequence] = $this->breakClass->getTextFromKey($fkeyFrequency[$sequence]);
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
$rowspan = 3;
|
|||
|
$colspan = count($spremenljivka['grids'][0]['variables']);
|
|||
|
|
|||
|
$borderB = '\clbrdrb\brdrs\brdrw10';
|
|||
|
$borderT = '\clbrdrt\brdrs\brdrw10';
|
|||
|
$borderLR = '\clbrdrl\brdrs\brdrw10\clbrdrr\brdrs\brdrw10';
|
|||
|
$border = '\clbrdrb\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrr\brdrs\brdrw10';
|
|||
|
$bold = '\b';
|
|||
|
|
|||
|
//nastavitve tabele - (sirine celic, border...)
|
|||
|
$defw_full = 13500;
|
|||
|
$defw_part = 5500;
|
|||
|
$defw_part2 = 8000;
|
|||
|
$defw_part3 = floor(8000 / $colspan);
|
|||
|
|
|||
|
|
|||
|
# za multicheck razdelimo na grupe - skupine
|
|||
|
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
|||
|
|
|||
|
$this->rtf->MyRTF .= '\b '.$this->encodeText('Tabela za: '.$spremenljivka['naslov'].' ('.$spremenljivka['variable'].') = '.$grid['naslov'].' ('.$grid['variable'].')'). '\b0';
|
|||
|
$this->rtf->new_line(1);
|
|||
|
|
|||
|
|
|||
|
// zacetek tabele
|
|||
|
$this->rtf->MyRTF .= $this->rtf->_font_size(16);
|
|||
|
$this->rtf->MyRTF .= "{\par";
|
|||
|
|
|||
|
// PRVA VRSTICA
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.$borderT.'\clvmgf\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText($forSpremenljivka['naslov'].' ('.$forSpremenljivka['variable'].')'). '\qc\cell';
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $defw_part2 );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($spremenljivka['naslov'].' ('.$spremenljivka['variable'].') - '.$grid['naslov'].' ('.$grid['variable'].')'). '\qc\cell';
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// DRUGA VRSTICA
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc'.$borderLR.$borderB.'\clvmrg\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl\b0 '.$this->encodeText($variable['naslov'].' ('.$variable['variable'].')'). '\qc\cell';
|
|||
|
$i++;
|
|||
|
}
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
// vrstice s podatki
|
|||
|
foreach ($forSpremenljivka['options'] AS $okey => $option) {
|
|||
|
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
$table = '\clvertalc'.$border.'\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl '.$this->encodeText($option). '\qc\cell';
|
|||
|
|
|||
|
$i=1;
|
|||
|
foreach ($grid['variables'] AS $vkey => $variable) {
|
|||
|
$sequence = $variable['sequence'];
|
|||
|
|
|||
|
if (count($texts[$okey][$sequence]) > 0) {
|
|||
|
$text = '';
|
|||
|
foreach ($texts[$okey][$sequence] AS $ky => $units) {
|
|||
|
$text .= ' '.$units['text'].'\\line\n';
|
|||
|
}
|
|||
|
$text = substr($text,0,-7);
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl '.$this->encodeText($text). '\qc\cell';
|
|||
|
}
|
|||
|
else{
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( $defw_part + $i*$defw_part3 );
|
|||
|
$tableEnd .= '\pard\intbl '.$this->encodeText(''). '\qc\cell';
|
|||
|
}
|
|||
|
|
|||
|
$i++;
|
|||
|
}
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
// konec tabele
|
|||
|
$this->rtf->MyRTF .= "}";
|
|||
|
$this->rtf->new_line(3);
|
|||
|
|
|||
|
$this->rtf->MyRTF .= $this->rtf->_font_size(24);
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
function displayCrosstabs($forSpr,$frequencys,$spremenljivka) {
|
|||
|
global $lang;
|
|||
|
|
|||
|
//ustvarimo crosstab objekt
|
|||
|
$this->crosstabClass = new SurveyCrosstabs();
|
|||
|
$this->crosstabClass->Init($this->anketa['id']);
|
|||
|
|
|||
|
$spr1 = $this->spr;
|
|||
|
$seq1 = $this->seq;
|
|||
|
$grd1 = 'undefined';
|
|||
|
foreach ($this->breakClass->_HEADERS[$spr1]['grids'] AS $gid => $grid) {
|
|||
|
foreach ($grid['variables'] AS $vkey => $vrednost) {
|
|||
|
if ($vrednost['sequence'] == $seq1) {
|
|||
|
$grd1 = $gid;
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
$spr2 = $spremenljivka['id'];
|
|||
|
foreach ($spremenljivka['grids'] AS $gid => $grid) {
|
|||
|
if (($spremenljivka['tip'] == 16 || $spremenljivka['tip'] == 6) && $this->break_charts != 1) {
|
|||
|
|
|||
|
$text = 'Tabela za: '.$spremenljivka['naslov'].' ('.$spremenljivka['variable'].') = '.$grid['naslov'];
|
|||
|
if ($spremenljivka['tip'] != 6) {
|
|||
|
$text .= ' ('.$grid['variable'].')';
|
|||
|
}
|
|||
|
$this->rtf->MyRTF .= '\b '.$this->encodeText($text). '\b0';
|
|||
|
$this->rtf->new_line(1);
|
|||
|
}
|
|||
|
|
|||
|
$seq2 = $grid['variables'][0]['sequence'];
|
|||
|
$grd2 = $gid;
|
|||
|
|
|||
|
$this->crosstabClass->setVariables($seq2,$spr2,$grd2,$seq1,$spr1,$grd1);
|
|||
|
|
|||
|
if($this->break_charts == 1){
|
|||
|
$this->crosstabClass->fromBreak = false;
|
|||
|
$this->displayChart($forSpr,$frequencys,$spremenljivka,$type = 'crosstab');
|
|||
|
}
|
|||
|
else{
|
|||
|
$this->displayCrosstabsTable();
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
function displayCrosstabsTable() {
|
|||
|
global $lang;
|
|||
|
|
|||
|
if ($this->crosstabClass->getSelectedVariables(1) !== null && $this->crosstabClass->getSelectedVariables(2) !== null) {
|
|||
|
$variables1 = $this->crosstabClass->getSelectedVariables(1);
|
|||
|
$variables2 = $this->crosstabClass->getSelectedVariables(2);
|
|||
|
foreach ($variables1 AS $v_first) {
|
|||
|
foreach ($variables2 AS $v_second) {
|
|||
|
|
|||
|
$crosstabs = null;
|
|||
|
$crosstabs_value = null;
|
|||
|
|
|||
|
$crosstabs = $this->crosstabClass->createCrostabulation($v_first, $v_second);
|
|||
|
$crosstabs_value = $crosstabs['crosstab'];
|
|||
|
|
|||
|
# podatki spremenljivk
|
|||
|
$spr1 = $this->crosstabClass->_HEADERS[$v_first['spr']];
|
|||
|
$spr2 = $this->crosstabClass->_HEADERS[$v_second['spr']];
|
|||
|
|
|||
|
$grid1 = $spr1['grids'][$v_first['grd']];
|
|||
|
$grid2 = $spr2['grids'][$v_second['grd']];
|
|||
|
|
|||
|
#število vratic in število kolon
|
|||
|
$cols = count($crosstabs['options1']);
|
|||
|
$rows = count($crosstabs['options2']);
|
|||
|
|
|||
|
# ali prikazujemo vrednosti variable pri spremenljivkah
|
|||
|
$show_variables_values = $this->crosstabClass->doValues;
|
|||
|
|
|||
|
# nastavitve oblike
|
|||
|
if (($this->crosstabClass->crossChk1 || $this->crosstabClass->crossChk2 || $this->crosstabClass->crossChk3) && ($this->crosstabClass->crossChkEC || $this->crosstabClass->crossChkRE || $this->crosstabClass->crossChkSR || $this->crosstabClass->crossChkAR)) {
|
|||
|
# dodamo procente in residuale
|
|||
|
$rowSpan = 3;
|
|||
|
$numColumnPercent = $this->crosstabClass->crossChk1 + $this->crosstabClass->crossChk2 + $this->crosstabClass->crossChk3;
|
|||
|
$numColumnResidual = $this->crosstabClass->crossChkEC + $this->crosstabClass->crossChkRE + $this->crosstabClass->crossChkSR + $this->crosstabClass->crossChkAR;
|
|||
|
$tblColumn = max($numColumnPercent,$numColumnResidual);
|
|||
|
} else if ($this->crosstabClass->crossChk1 || $this->crosstabClass->crossChk2 || $this->crosstabClass->crossChk3) {
|
|||
|
# imamo samo procente
|
|||
|
$rowSpan = 2;
|
|||
|
$numColumnPercent = $this->crosstabClass->crossChk1 + $this->crosstabClass->crossChk2 + $this->crosstabClass->crossChk3;
|
|||
|
$numColumnResidual = 0;
|
|||
|
$tblColumn = $numColumnPercent;
|
|||
|
} else if ($this->crosstabClass->crossChkEC || $this->crosstabClass->crossChkRE || $this->crosstabClass->crossChkSR || $this->crosstabClass->crossChkAR) {
|
|||
|
# imamo samo residuale
|
|||
|
$rowSpan = 2;
|
|||
|
$numColumnPercent = 0;
|
|||
|
$numColumnResidual = $this->crosstabClass->crossChkEC + $this->crosstabClass->crossChkRE + $this->crosstabClass->crossChkSR + $this->crosstabClass->crossChkAR;
|
|||
|
$tblColumn = $numColumnResidual;
|
|||
|
} else {
|
|||
|
#prikazujemo samo podatke
|
|||
|
$rowSpan = 1;
|
|||
|
$numColumnPercent = 0;
|
|||
|
$numColumnResidual = 0;
|
|||
|
$tblColumn = 1;
|
|||
|
}
|
|||
|
|
|||
|
//nastavitve tabele - (sirine celic, border...)
|
|||
|
$defw_full = 10500;
|
|||
|
$defw_part = 1500;
|
|||
|
$defw_part2 = ($cols > 2) ? 9000 : 7500;
|
|||
|
//izracun sirine ene celice
|
|||
|
$singleWidth = floor( $defw_part2 / ($cols) );
|
|||
|
|
|||
|
$borderB = '\clbrdrb\brdrs\brdrw10';
|
|||
|
$borderT = '\clbrdrt\brdrs\brdrw10';
|
|||
|
$borderLR = '\clbrdrl\brdrs\brdrw10\clbrdrr\brdrs\brdrw10';
|
|||
|
$border = '\clbrdrb\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrr\brdrs\brdrw10';
|
|||
|
//$align = ($arrayParams['align']=='center' ? '\qc' : '\ql');
|
|||
|
$bold = '\b';
|
|||
|
|
|||
|
|
|||
|
# izri<72>emo tabelo
|
|||
|
$this->rtf->MyRTF .= $this->rtf->_font_size(16);
|
|||
|
$this->rtf->MyRTF .= "{\par";
|
|||
|
|
|||
|
# najprej izri<72>emo NASLOVNE VRSTICE
|
|||
|
# za multicheckboxe popravimo naslov, na podtip
|
|||
|
$sub_q1 = null;
|
|||
|
if ($spr1['tip'] == '6' || $spr1['tip'] == '16' || $spr1['tip'] == '17' || $spr1['tip'] == '19' || $spr1['tip'] == '20') {
|
|||
|
foreach ($spr1['grids'] AS $grid) {
|
|||
|
foreach ($grid['variables'] AS $variable) {
|
|||
|
if ($variable['sequence'] == $v_first['seq']) {
|
|||
|
$sub_q1 = strip_tags($spr1['naslov']);
|
|||
|
if ($show_variables_values == true ) {
|
|||
|
$sub_q1 .= ' ('.strip_tags($spr1['variable']).')';
|
|||
|
}
|
|||
|
if ($spr1['tip'] == '16') {
|
|||
|
$sub_q1 .= ', ' . strip_tags($grid1['naslov']) . ($show_variables_values == true ? ' (' . strip_tags($grid1['variable']) . ')' : '');
|
|||
|
} else {
|
|||
|
$sub_q1 .= ', ' . strip_tags($variable['naslov']) . ($show_variables_values == true ? ' (' . strip_tags($variable['variable']) . ')' : '');
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
if ($sub_q1 == null) {
|
|||
|
$sub_q1 .= strip_tags($spr1['naslov']);
|
|||
|
$sub_q1 .= ($show_variables_values == true ? ' ('.strip_tags($spr1['variable']).')' : '');
|
|||
|
}
|
|||
|
|
|||
|
$sub_q2 = null;
|
|||
|
if ($spr2['tip'] == '6' || $spr2['tip'] == '16' || $spr2['tip'] == '17' || $spr2['tip'] == '19' || $spr2['tip'] == '20') {
|
|||
|
foreach ($spr2['grids'] AS $grid) {
|
|||
|
foreach ($grid['variables'] AS $variable) {
|
|||
|
if ($variable['sequence'] == $v_second['seq']) {
|
|||
|
$sub_q2 = strip_tags($spr2['naslov']);
|
|||
|
if ($show_variables_values == true) {
|
|||
|
$sub_q2 .= ' ('.strip_tags($spr2['variable']).')';
|
|||
|
}
|
|||
|
if ($spr2['tip'] == '16') {
|
|||
|
$sub_q2.= ', ' . strip_tags($grid2['naslov']) . ($show_variables_values == true ? ' (' . strip_tags($grid2['variable']) . ')' : '');
|
|||
|
} else {
|
|||
|
$sub_q2.= ', ' . strip_tags($variable['naslov']) . ($show_variables_values == true ? ' (' . strip_tags($variable['variable']) . ')' : '');
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
if ($sub_q2 == null) {
|
|||
|
$sub_q2 .= strip_tags($spr2['naslov']);
|
|||
|
$sub_q2 .= ($show_variables_values == true ? ' ('.strip_tags($spr2['variable']).')' : '');
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
//prva vrstica
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
$table .= '\clvertalc\cellx'.( 2 * $defw_part );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + $defw_part2 );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($sub_q1). '\qc\cell';
|
|||
|
$table .= '\clvertalc\cellx'.( 2 * $defw_part + $defw_part2 + $singleWidth );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
//druga vrstica
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
$table = '\clvertalc\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
$table .= '\clvertalc\cellx'.( 2 * $defw_part );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
|
|||
|
|
|||
|
if (count($crosstabs['options1']) > 0 ) {
|
|||
|
$i=1;
|
|||
|
foreach ($crosstabs['options1'] as $ckey1 =>$crossVariabla) {
|
|||
|
#ime variable
|
|||
|
$text = $crossVariabla['naslov'];
|
|||
|
# <20>e ni tekstovni odgovor dodamo key
|
|||
|
if ($crossVariabla['type'] != 't') {
|
|||
|
$text .= ' ( '.$ckey1.' )';
|
|||
|
}
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + $i * $singleWidth );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '. $this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$i++;
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + $defw_part2 + $singleWidth );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($lang['srv_analiza_crosstab_skupaj']). '\qc\cell';
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
|
|||
|
|
|||
|
//VMESNE VRSTICE
|
|||
|
$cntY = 0;
|
|||
|
if (count($crosstabs['options2']) > 0) {
|
|||
|
|
|||
|
//POSAMEZNA VMESNA VRSTICA
|
|||
|
foreach ($crosstabs['options2'] as $ckey2 =>$crossVariabla2) {
|
|||
|
$cntY++;
|
|||
|
|
|||
|
|
|||
|
for($j=1; $j<=$rowSpan; $j++){
|
|||
|
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
if( $cntY == 1 && $j == 1 ){
|
|||
|
$table = '\clvertalc'.$borderLR.$borderT.'\clvmgf\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText($sub_q2). '\qc\cell';
|
|||
|
}
|
|||
|
else{
|
|||
|
$table = '\clvertalc'.$borderLR.'\clvmrg\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
|
|||
|
$text = $crossVariabla2['naslov'];
|
|||
|
if ($crossVariabla2['type'] !== 't') {
|
|||
|
$text .= ' ('.$ckey2.')';
|
|||
|
}
|
|||
|
if($j == 1){
|
|||
|
$table .= '\clvertalc'.$borderLR.$borderT.'\cellx'.( 2 * $defw_part );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
}
|
|||
|
else{
|
|||
|
$table .= '\clvertalc'.$borderLR.'\cellx'.( 2 * $defw_part );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
|
|||
|
//del vrstice z vsebino
|
|||
|
$bold = '\b0';
|
|||
|
$i=1;
|
|||
|
foreach ($crosstabs['options1'] as $ckey1 => $crossVariabla1) {
|
|||
|
|
|||
|
//FREKVENCE
|
|||
|
if( $j == 1 ){
|
|||
|
$text = ((int)$crosstabs_value[$ckey1][$ckey2] > 0) ? $crosstabs_value[$ckey1][$ckey2] : 0;
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + $i * $singleWidth );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
}
|
|||
|
|
|||
|
//PROCENTI
|
|||
|
elseif( $j == 2 && $numColumnPercent > 0 ){
|
|||
|
$x = 1;
|
|||
|
if ($this->crosstabClass->crossChk1) {
|
|||
|
#procent vrstica
|
|||
|
$text = $this->formatNumber($this->crosstabClass->getCrossTabPercentage($crosstabs['sumaVrstica'][$ckey2], $crosstabs_value[$ckey1][$ckey2]), 2, '%');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnPercent));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
if ($this->crosstabClass->crossChk2) {
|
|||
|
#procent stolpec
|
|||
|
$text = $this->formatNumber($this->crosstabClass->getCrossTabPercentage($crosstabs['sumaStolpec'][$ckey1], $crosstabs_value[$ckey1][$ckey2]), 2, '%');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnPercent));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
if ($this->crosstabClass->crossChk3) {
|
|||
|
#procent skupni
|
|||
|
$text = $this->formatNumber($this->crosstabClass->getCrossTabPercentage($crosstabs['sumaSkupna'], $crosstabs_value[$ckey1][$ckey2]), 2, '%');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnPercent));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
//RESIDUALI
|
|||
|
else{
|
|||
|
$x = 1;
|
|||
|
if ($this->crosstabClass->crossChkEC) {
|
|||
|
$text = $this->formatNumber($crosstabs['exC'][$ckey1][$ckey2], 3, '');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnResidual));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
if ($this->crosstabClass->crossChkRE) {
|
|||
|
$text = $this->formatNumber($crosstabs['res'][$ckey1][$ckey2], 3, '');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnResidual));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
if ($this->crosstabClass->crossChkSR) {
|
|||
|
$text = $this->formatNumber($crosstabs['stR'][$ckey1][$ckey2], 3, '');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnResidual));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
if ($this->crosstabClass->crossChkAR) {
|
|||
|
$text = $this->formatNumber($crosstabs['adR'][$ckey1][$ckey2], 3, '');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnResidual));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
$i++;
|
|||
|
}
|
|||
|
|
|||
|
//SKUPAJ
|
|||
|
if( $j == 1){
|
|||
|
$bold = '\b';
|
|||
|
|
|||
|
$text = (int)$crosstabs['sumaVrstica'][$ckey2];
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + $defw_part2 + $singleWidth );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$bold = '\b0';
|
|||
|
}
|
|||
|
elseif( $j == 2 && $numColumnPercent > 0 ){
|
|||
|
$x = 1;
|
|||
|
# suma po vrsticah v procentih
|
|||
|
if ($this->crosstabClass->crossChk1) {
|
|||
|
$text = $this->formatNumber(100, 2, '%');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnPercent));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
if ($this->crosstabClass->crossChk2) {
|
|||
|
$text = $this->formatNumber( ($crosstabs['sumaSkupna'] > 0 ? (100 * $crosstabs['sumaVrstica'][$ckey2] / $crosstabs['sumaSkupna']) : 0), 2, '%');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnPercent));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
if ($this->crosstabClass->crossChk3) {
|
|||
|
$text = $this->formatNumber( ($crosstabs['sumaSkupna'] > 0 ? (100 * $crosstabs['sumaVrstica'][$ckey2] / $crosstabs['sumaSkupna']) : 0), 2, '%');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnPercent));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
}
|
|||
|
else{
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + $i * $singleWidth );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
}
|
|||
|
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
|
|||
|
$bold = '\b';
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
$cntY++;
|
|||
|
|
|||
|
|
|||
|
// skupni sestevki po stolpcih - ZADNJA VRSTICA
|
|||
|
//popravimo row span (residualov ne upostevamo)
|
|||
|
$rowSpan = $numColumnResidual > 0 ? $rowSpan-1 : $rowSpan;
|
|||
|
|
|||
|
for($j=1; $j<=$rowSpan; $j++){
|
|||
|
|
|||
|
$tableHeader = '\trowd\trql\trrh400';
|
|||
|
|
|||
|
if($j == 1){
|
|||
|
$table = '\clvertalc'.$borderT.'\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
|
|||
|
$table .= '\clvertalc'.$borderLR.$borderT.'\cellx'.( 2 * $defw_part );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($lang['srv_analiza_crosstab_skupaj']). '\qc\cell';
|
|||
|
}
|
|||
|
else{
|
|||
|
$table = '\clvertalc\cellx'.( $defw_part );
|
|||
|
$tableEnd = '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
|
|||
|
$table .= '\clvertalc'.$borderLR.$borderB.'\cellx'.( 2 * $defw_part );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText(' '). '\qc\cell';
|
|||
|
}
|
|||
|
|
|||
|
if (count($crosstabs['options1']) > 0){
|
|||
|
|
|||
|
$i=1;
|
|||
|
$bold = '\b0';
|
|||
|
foreach ($crosstabs['options1'] as $ckey1 => $crossVariabla1) {
|
|||
|
|
|||
|
if($j == 1){
|
|||
|
$bold = '\b';
|
|||
|
|
|||
|
$text = (int)$crosstabs['sumaStolpec'][$ckey1];
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + $i * $singleWidth );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '. $this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$bold = '\b0';
|
|||
|
}
|
|||
|
|
|||
|
else{
|
|||
|
$x = 1;
|
|||
|
# suma po stolpcih v procentih
|
|||
|
if ($this->crosstabClass->crossChk1) {
|
|||
|
$text = $this->formatNumber( ($crosstabs['sumaSkupna'] > 0 ? (100 * $crosstabs['sumaStolpec'][$ckey1] / $crosstabs['sumaSkupna']) : 0), 2, '%');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnPercent));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
if ($this->crosstabClass->crossChk2) {
|
|||
|
$text = $this->formatNumber(100, 2, '%');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnPercent));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
if ($this->crosstabClass->crossChk3)
|
|||
|
{
|
|||
|
$text = $this->formatNumber( ($crosstabs['sumaSkupna'] > 0 ? (100 * $crosstabs['sumaStolpec'][$ckey1] / $crosstabs['sumaSkupna']) : 0), 2, '%');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnPercent));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
$i++;
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
# skupna suma
|
|||
|
if($j == 1){
|
|||
|
$bold = '\b';
|
|||
|
|
|||
|
$text = (int)$crosstabs['sumaSkupna'];
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + $defw_part2 + $singleWidth );
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$bold = '\b0';
|
|||
|
}
|
|||
|
|
|||
|
else{
|
|||
|
$x = 1;
|
|||
|
# suma po stolpcih v procentih
|
|||
|
if ($this->crosstabClass->crossChk1) {
|
|||
|
$text = $this->formatNumber(100, 2, '%');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnPercent));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
if ($this->crosstabClass->crossChk2) {
|
|||
|
$text = $this->formatNumber(100, 2, '%');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnPercent));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
if ($this->crosstabClass->crossChk3) {
|
|||
|
$text = $this->formatNumber(100, 2, '%');
|
|||
|
|
|||
|
$table .= '\clvertalc'.$border.'\cellx'.( 2 * $defw_part + ($i-1) * $singleWidth + $x * round($singleWidth/$numColumnPercent));
|
|||
|
$tableEnd .= '\pard\intbl'.$bold.' '.$this->encodeText($text). '\qc\cell';
|
|||
|
|
|||
|
$x++;
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
$bold = '\b';
|
|||
|
$tableEnd .= '\pard\intbl\row';
|
|||
|
|
|||
|
$this->rtf->MyRTF .= $this->rtf->enkaEncode($tableHeader.$table.$tableEnd);
|
|||
|
}
|
|||
|
|
|||
|
//konec tabele
|
|||
|
$this->rtf->MyRTF .= "}";
|
|||
|
$this->rtf->new_line(3);
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
function displayChart($forSpr,$frequencys,$spremenljivka,$type){
|
|||
|
global $lang;
|
|||
|
|
|||
|
// Zgeneriramo id vsake tabele (glede na izbrani spremenljivki za generiranje)
|
|||
|
if($type == 'crosstab'){
|
|||
|
$chartID = implode('_', $this->crosstabClass->variabla1[0]);
|
|||
|
$chartID .= '_'.$this->crosstabClass->variabla2[0]['seq'].'_'.$this->crosstabClass->variabla2[0]['spr'].'_undefined';
|
|||
|
$chartID .= '_counter_0'/*.$this->crosstabClass->counter*/;
|
|||
|
|
|||
|
$settings = $this->sessionData['crosstab_charts'][$chartID];
|
|||
|
}
|
|||
|
|
|||
|
else{
|
|||
|
if($spremenljivka['tip'] == 20){
|
|||
|
// Preberemo za kateri grid izrisujemo tabelo
|
|||
|
$gkey = $spremenljivka['break_sub_table']['key'];
|
|||
|
|
|||
|
$spr1 = $this->sessionData['break']['seq'].'-'. $this->sessionData['break']['spr'].'-undefined';
|
|||
|
$spr2 = $spremenljivka['grids'][$gkey]['variables'][0]['sequence'].'-'.$spremenljivka['id'].'-undefined';
|
|||
|
}
|
|||
|
else{
|
|||
|
$spr1 = $this->sessionData['break']['seq'].'-'. $this->sessionData['break']['spr'].'-undefined';
|
|||
|
$spr2 = $spremenljivka['grids'][0]['variables'][0]['sequence'].'-'.$spremenljivka['id'].'-undefined';
|
|||
|
}
|
|||
|
|
|||
|
$chartID = $spr1.'_'.$spr2;
|
|||
|
|
|||
|
$settings = $this->sessionData['break_charts'][$chartID];
|
|||
|
}
|
|||
|
|
|||
|
$imgName = $settings['name'];
|
|||
|
|
|||
|
|
|||
|
// IZRIS GRAFA
|
|||
|
if(!$this->firstElement){
|
|||
|
$this->rtf->new_page();
|
|||
|
$this->rtf->new_line(2);
|
|||
|
}
|
|||
|
|
|||
|
// Naslov posameznega grafa
|
|||
|
$title = $spremenljivka['naslov'] . ' ('.$spremenljivka['variable'].')';
|
|||
|
if($spremenljivka['tip'] == 20){
|
|||
|
$grid = $spremenljivka['grids'][$gkey];
|
|||
|
$subtitle = $grid['naslov'] . ' ('.$grid['variable'].')';
|
|||
|
}
|
|||
|
elseif($spremenljivka['tip'] == 16 || $spremenljivka['tip'] == 6){
|
|||
|
foreach ($spremenljivka['grids'] AS $gid => $grid) {
|
|||
|
if($this->crosstabClass->variabla1[0]['seq'] == $grid['variables'][0]['sequence']){
|
|||
|
$subtitle = $grid['naslov'];
|
|||
|
if ($spremenljivka['tip'] != 6) {
|
|||
|
$subtitle .= ' ('.$grid['variable'].')';
|
|||
|
}
|
|||
|
break;
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
$this->rtf->add_text('\b '.$this->encodeText($title).' \b0', 'center');
|
|||
|
$this->rtf->new_line();
|
|||
|
if($spremenljivka['tip'] == 20 || $spremenljivka['tip'] == 16 || $spremenljivka['tip'] == 6){
|
|||
|
$this->rtf->add_text('\b '.$this->encodeText($subtitle).' \b0', 'center');
|
|||
|
$this->rtf->new_line();
|
|||
|
}
|
|||
|
|
|||
|
$scale = 100;
|
|||
|
|
|||
|
$this->rtf->add_image('pChart/Cache/'.$imgName, $scale, 'center');
|
|||
|
|
|||
|
$this->rtf->new_line(2);
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
|
|||
|
/*Skrajsa tekst in doda '...' na koncu*/
|
|||
|
function snippet($text,$length=64,$tail="...")
|
|||
|
{
|
|||
|
$text = trim($text);
|
|||
|
$txtl = strlen($text);
|
|||
|
if($txtl > $length)
|
|||
|
{
|
|||
|
for($i=1;$text[$length-$i]!=" ";$i++)
|
|||
|
{
|
|||
|
if($i == $length)
|
|||
|
{
|
|||
|
return substr($text,0,$length) . $tail;
|
|||
|
}
|
|||
|
}
|
|||
|
$text = substr($text,0,$length-$i+1) . $tail;
|
|||
|
}
|
|||
|
return $text;
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
function formatNumber($value,$digit=0,$sufix="")
|
|||
|
{
|
|||
|
if ( $value <> 0 && $value != null )
|
|||
|
$result = round($value,$digit);
|
|||
|
else
|
|||
|
$result = "0";
|
|||
|
$result = number_format($result, $digit, ',', '.').$sufix;
|
|||
|
|
|||
|
return $result;
|
|||
|
}
|
|||
|
|
|||
|
function encodeText($text)
|
|||
|
{ // popravimo sumnike ce je potrebno
|
|||
|
$text = html_entity_decode($text, ENT_NOQUOTES, 'UTF-8');
|
|||
|
$text = str_replace(array("š","š","č"),array("<EFBFBD>","<EFBFBD>","<EFBFBD>"),$text);
|
|||
|
return strip_tags($text);
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
?>
|