1640 lines
51 KiB
PHP
1640 lines
51 KiB
PHP
<?php
|
||
|
||
global $site_path;
|
||
|
||
include_once('../../function.php');
|
||
include_once('../survey/definition.php');
|
||
include_once('../exportclases/class.pdfIzvozAnalizaFunctions.php');
|
||
require_once('../exportclases/class.enka.pdf.php');
|
||
|
||
define("ALLOW_HIDE_ZERRO_REGULAR", false); // omogočimo delovanje prikazovanja/skrivanja ničelnih vnosti za navadne odgovore
|
||
define("ALLOW_HIDE_ZERRO_MISSING", true); // omogočimo delovanje prikazovanja/skrivanja ničelnih vnosti za missinge
|
||
|
||
define("NUM_DIGIT_AVERAGE", 2, true); // stevilo digitalnih mest za povprecje
|
||
define("NUM_DIGIT_DEVIATION", 2, true); // stevilo digitalnih mest za povprecje
|
||
|
||
define("M_ANALIZA_DESCRIPTOR", "descriptor", true);
|
||
define("M_ANALIZA_FREQUENCY", "frequency", true);
|
||
|
||
define("FNT_FREESERIF", "freeserif", true);
|
||
define("FNT_FREESANS", "freesans", true);
|
||
define("FNT_HELVETICA", "helvetica", true);
|
||
|
||
define("FNT_MAIN_TEXT", FNT_FREESANS, true);
|
||
define("FNT_QUESTION_TEXT", FNT_FREESANS, true);
|
||
define("FNT_HEADER_TEXT", FNT_FREESANS, true);
|
||
|
||
define("FNT_MAIN_SIZE", 10, true);
|
||
define("FNT_QUESTION_SIZE", 9, true);
|
||
define("FNT_HEADER_SIZE", 10, true);
|
||
|
||
define("RADIO_BTN_SIZE", 3, true);
|
||
define("CHCK_BTN_SIZE", 3, true);
|
||
define("LINE_BREAK", 6, true);
|
||
|
||
define ('PDF_MARGIN_HEADER', 8);
|
||
define ('PDF_MARGIN_FOOTER', 12);
|
||
define ('PDF_MARGIN_TOP', 18);
|
||
define ('PDF_MARGIN_BOTTOM', 18);
|
||
define ('PDF_MARGIN_LEFT', 15);
|
||
define ('PDF_MARGIN_RIGHT', 15);
|
||
|
||
|
||
/** Class za generacijo pdf-a
|
||
*
|
||
* @desc: po novem je potrebno form elemente generirati ro<72>no kot slike
|
||
*
|
||
*/
|
||
class PdfIzvozAnalizaCReport {
|
||
|
||
var $ank_id; // trenutna anketa
|
||
var $usr_id; // user
|
||
|
||
var $pi=array('canCreate'=>false); // za shrambo parametrov in sporocil
|
||
var $pdf;
|
||
var $currentStyle;
|
||
var $db_table = '';
|
||
|
||
private $headFileName = null; # pot do header fajla
|
||
private $dataFileName = null; # pot do data fajla
|
||
private $dataFileStatus = null; # status data datoteke
|
||
|
||
public $crosstabVars = array();
|
||
public $meanData1;
|
||
public $meanData2;
|
||
|
||
var $creportProfile = 0; // Izbran profil porocila
|
||
|
||
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->ank_id = $anketa;
|
||
|
||
SurveyAnalysis::Init($this->ank_id);
|
||
SurveyAnalysis::$setUpJSAnaliza = false;
|
||
|
||
// Nastavimo pravi profil porocila
|
||
$this->creportProfile = SurveyUserSetting :: getInstance()->getSettings('default_creport_profile');
|
||
$this->creportProfile = isset($this->creportProfile) ? $this->creportProfile : 0;
|
||
|
||
// Testiramo kako je obrnjen dokument (ce vsebuje crosstabe, means ali ttest je lanscape)
|
||
$orientation = ($this->landscapeTest()) ? 'L' : 'P';
|
||
|
||
// create new PDF document
|
||
$this->pdf = new enka_TCPDF($orientation, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
|
||
|
||
// Poskrbimo za datoteko s podatki
|
||
$SDF = SurveyDataFile::get_instance();
|
||
$SDF->init($this->ank_id);
|
||
$SDF->prepareFiles();
|
||
|
||
$this->headFileName = $SDF->getHeaderFileName();
|
||
$this->dataFileName = $SDF->getDataFileName();
|
||
$this->dataFileStatus = $SDF->getStatus();
|
||
|
||
// Inicializiramo in polovimo nastavitve missing profila
|
||
SurveyStatusProfiles::Init($this->ank_id);
|
||
|
||
SurveyMissingProfiles :: Init($this->ank_id,$global_user_id);
|
||
SurveyConditionProfiles :: Init($this->ank_id, $global_user_id);
|
||
SurveyZankaProfiles :: Init($this->ank_id, $global_user_id);
|
||
SurveyTimeProfiles :: Init($this->ank_id, $global_user_id);
|
||
|
||
SurveyDataSettingProfiles :: Init($this->ank_id);
|
||
|
||
//polovimo podatke o nastavitvah trenutnega profila (missingi..)
|
||
SurveyAnalysis::$missingProfileData = SurveyMissingProfiles::getProfile(SurveyAnalysis::$currentMissingProfile);
|
||
#preberemo HEADERS iz datoteke
|
||
SurveyAnalysis::$_HEADERS = unserialize(file_get_contents($this->headFileName));
|
||
# odstranimo sistemske variable tipa email, ime, priimek, geslo
|
||
SurveyAnalysis::removeSystemVariables();
|
||
# polovimo frekvence
|
||
SurveyAnalysis::getFrequencys();
|
||
|
||
// preberemo nastavitve iz baze (prej v sessionu)
|
||
SurveyUserSession::Init($this->ank_id);
|
||
$this->sessionData = SurveyUserSession::getData();
|
||
}
|
||
else
|
||
{
|
||
$this->pi['msg'] = "Anketa ni izbrana!";
|
||
$this->pi['canCreate'] = false;
|
||
return false;
|
||
}
|
||
$_GET['a'] = A_ANALYSIS;
|
||
|
||
if ( SurveyInfo::getInstance()->SurveyInit($this->ank_id) && $this->init())
|
||
{
|
||
$this->usr_id = $global_user_id;
|
||
SurveyUserSetting::getInstance()->Init($this->ank_id, $this->usr_id);
|
||
}
|
||
else
|
||
return false;
|
||
|
||
// ce smo prisli do tu je vse ok
|
||
$this->pi['canCreate'] = true;
|
||
|
||
return true;
|
||
}
|
||
|
||
// SETTERS && GETTERS
|
||
|
||
function checkCreate()
|
||
{
|
||
return $this->pi['canCreate'];
|
||
}
|
||
function getFile($fileName)
|
||
{
|
||
//Close and output PDF document
|
||
ob_end_clean();
|
||
$this->pdf->Output($fileName, 'I');
|
||
}
|
||
|
||
|
||
function init()
|
||
{
|
||
global $lang;
|
||
|
||
// array used to define the language and charset of the pdf file to be generated
|
||
$language_meta = Array();
|
||
$language_meta['a_meta_charset'] = 'UTF-8';
|
||
$language_meta['a_meta_dir'] = 'ltr';
|
||
$language_meta['a_meta_language'] = 'sl';
|
||
$language_meta['w_page'] = $lang['page'];
|
||
|
||
//set some language-dependent strings
|
||
$this->pdf->setLanguageArray($language_meta);
|
||
|
||
//set margins
|
||
$this->pdf->setPrintHeaderFirstPage(true);
|
||
$this->pdf->setPrintFooterFirstPage(true);
|
||
$this->pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
|
||
$this->pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
|
||
$this->pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
|
||
|
||
// set header and footer fonts
|
||
$this->pdf->setHeaderFont(Array(FNT_HEADER_TEXT, "I", FNT_HEADER_SIZE));
|
||
$this->pdf->setFooterFont(Array(FNT_HEADER_TEXT, 'I', FNT_HEADER_SIZE));
|
||
|
||
|
||
// set document information
|
||
$this->pdf->SetAuthor('An Order Form');
|
||
$this->pdf->SetTitle('An Order');
|
||
$this->pdf->SetSubject('An Order');
|
||
|
||
//nastavimo datum za footer
|
||
$this->pdf->SetFooterDate(date('d.m.Y'));
|
||
|
||
// set default header data
|
||
$this->pdf->SetHeaderData(null, null, "www.1ka.si", $this->encodeText(SurveyInfo::getInstance()->getSurveyAkronim()));
|
||
|
||
//set auto page breaks
|
||
$this->pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
|
||
|
||
$this->pdf->SetFont(FNT_MAIN_TEXT, '', FNT_MAIN_SIZE);
|
||
//set image scale factor
|
||
$this->pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
|
||
return true;
|
||
}
|
||
|
||
function encodeText($text)
|
||
{ // popravimo sumnike ce je potrebno
|
||
$text = html_entity_decode($text, ENT_NOQUOTES, 'UTF-8');
|
||
$text = str_replace(array("š","š","č"),array("š","š","č"),$text);
|
||
return strip_tags($text);
|
||
}
|
||
|
||
function createPdf()
|
||
{
|
||
global $site_path;
|
||
global $lang;
|
||
|
||
// izpisemo prvo stran
|
||
//$this->createFrontPage();
|
||
|
||
$this->pdf->AddPage();
|
||
|
||
$what = 'creport_title_profile_'.$this->creportProfile;
|
||
$sqlT = sisplet_query("SELECT value FROM srv_user_setting_for_survey WHERE sid='$this->ank_id' AND uid='$this->usr_id' AND what='$what'");
|
||
|
||
if(mysqli_num_rows($sqlT) == 0){
|
||
$titleString = $lang['export_analisys_creport'].': '.SurveyInfo::getInstance()->getSurveyTitle();
|
||
}
|
||
else{
|
||
$rowT = mysqli_fetch_array($sqlT);
|
||
$titleString = $rowT['value'];
|
||
}
|
||
|
||
$this->pdf->setFont('','B','11');
|
||
$this->pdf->MultiCell(150, 5, $this->encodeText($titleString), 0, 'L', 0, 1, 0 ,0, true);
|
||
|
||
$this->pdf->setDrawColor(128, 128, 128);
|
||
$this->pdf->setFont('','','6');
|
||
|
||
$this->pdf->ln(10);
|
||
|
||
if ($this->dataFileStatus == FILE_STATUS_NO_DATA || $this->dataFileStatus == FILE_STATUS_NO_FILE || $this->dataFileStatus == FILE_STATUS_SRV_DELETED) {
|
||
$this->pdf->MultiCell(150, 5, 'NAPAKA!!! Manjkajo datoteke s podatki.', 0, 'L', 0, 1, 0 ,0, true);
|
||
}
|
||
else{
|
||
$sql = sisplet_query("SELECT * FROM srv_custom_report WHERE ank_id='$this->ank_id' AND usr_id='$this->usr_id' AND profile='$this->creportProfile' ORDER BY vrstni_red ASC");
|
||
if(mysqli_num_rows($sql) > 0){
|
||
|
||
// Loop po vseh dodanih elementih porocila
|
||
while($row = mysqli_fetch_array($sql)){
|
||
|
||
switch($row['type']){
|
||
|
||
// sumarnik
|
||
case '1':
|
||
// naslov elementa
|
||
$this->displayTitle($row);
|
||
|
||
$this->displaySum($row);
|
||
|
||
// Komentar elementa
|
||
$this->displayComment($row['text']);
|
||
|
||
$this->pdf->Ln(LINE_BREAK*2);
|
||
break;
|
||
|
||
// frekvence
|
||
case '2':
|
||
// naslov elementa
|
||
$this->displayTitle($row);
|
||
|
||
$this->displayFreq($row);
|
||
|
||
// Komentar elementa
|
||
$this->displayComment($row['text']);
|
||
|
||
$this->pdf->Ln(LINE_BREAK*2);
|
||
break;
|
||
|
||
// opisne
|
||
case '3':
|
||
// naslov elementa
|
||
$this->displayTitle($row);
|
||
|
||
$this->displayDesc($row);
|
||
|
||
// Komentar elementa
|
||
$this->displayComment($row['text']);
|
||
|
||
$this->pdf->Ln(LINE_BREAK*2);
|
||
break;
|
||
|
||
// grafi
|
||
case '4':
|
||
// naslov elementa
|
||
$this->displayTitle($row);
|
||
|
||
$this->displayChart($row);
|
||
|
||
// Komentar elementa
|
||
$this->displayComment($row['text']);
|
||
|
||
$this->pdf->Ln(LINE_BREAK*2);
|
||
break;
|
||
|
||
// crosstab
|
||
case '5':
|
||
// naslov elementa
|
||
$this->displayTitle($row);
|
||
|
||
// tabela
|
||
if($row['sub_type'] == '0')
|
||
$this->displayCrosstab($row);
|
||
// graf
|
||
else
|
||
$this->displayCrosstabChart($row);
|
||
|
||
// Komentar elementa
|
||
$this->displayComment($row['text']);
|
||
|
||
$this->pdf->Ln(LINE_BREAK*2);
|
||
break;
|
||
|
||
// mean
|
||
case '6':
|
||
// naslov elementa
|
||
$this->displayTitle($row);
|
||
|
||
// tabela
|
||
if($row['sub_type'] == '0')
|
||
$this->displayMean($row);
|
||
// graf
|
||
else
|
||
$this->displayMeanChart($row);
|
||
|
||
// Komentar elementa
|
||
$this->displayComment($row['text']);
|
||
|
||
$this->pdf->Ln(LINE_BREAK*2);
|
||
break;
|
||
|
||
// ttest
|
||
case '7':
|
||
// naslov elementa
|
||
$this->displayTitle($row);
|
||
|
||
// tabela
|
||
if($row['sub_type'] == '0')
|
||
$this->displayTTest($row);
|
||
// graf
|
||
else
|
||
$this->displayTTestChart($row);
|
||
|
||
// Komentar elementa
|
||
$this->displayComment($row['text']);
|
||
|
||
$this->pdf->Ln(LINE_BREAK*2);
|
||
break;
|
||
|
||
// text
|
||
case '8':
|
||
$this->displayText($row['text']);
|
||
|
||
$this->pdf->Ln(LINE_BREAK*2);
|
||
break;
|
||
|
||
// break
|
||
case '9':
|
||
// naslov elementa
|
||
$this->displayTitle($row);
|
||
|
||
// tabela
|
||
if($row['sub_type'] == '0')
|
||
$this->displayBreak($row);
|
||
// graf
|
||
else
|
||
$this->displayBreakChart($row);
|
||
|
||
// Komentar elementa
|
||
$this->displayComment($row['text']);
|
||
|
||
$this->pdf->Ln(LINE_BREAK*2);
|
||
break;
|
||
|
||
// page break
|
||
case '-1':
|
||
if($this->pdf->getY() > 30)
|
||
$this->pdf->AddPage();
|
||
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
// Izpisemo sumarnik element
|
||
function displaySum($element){
|
||
|
||
$spid = $element['spr1'];
|
||
$spremenljivka = SurveyAnalysis::$_HEADERS[$spid];
|
||
|
||
# preverjamo ali je meta
|
||
if (($spremenljivka['tip'] != 'm')
|
||
&& (!isset($_spid) || (isset($_spid) && $_spid == $spid))
|
||
&& (($global_user_id === 0 || $global_user_id === null) || in_array($spremenljivka['tip'], SurveyAnalysis::$_FILTRED_TYPES ) )) {
|
||
|
||
# ali imamo sfiltrirano spremenljivko
|
||
//if (isset(SurveyAnalysis::$_FILTRED_VARIABLES[$spid])) {
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='sums');
|
||
|
||
# prikazujemo v odvisnosti od kategorije spremenljivke
|
||
switch ($spremenljivka['tip']) {
|
||
case 1:
|
||
# radio - prikaže navpično
|
||
pdfIzvozAnalizaFunctions::sumVertical($spid,'sums');
|
||
break;
|
||
|
||
case 2:
|
||
#checkbox če je dihotomna:
|
||
pdfIzvozAnalizaFunctions::sumVerticalCheckbox($spid,'sums');
|
||
break;
|
||
|
||
case 3:
|
||
# dropdown - prikjaže navpično
|
||
pdfIzvozAnalizaFunctions::sumVertical($spid,'sums');
|
||
break;
|
||
|
||
case 6:
|
||
# multigrid
|
||
pdfIzvozAnalizaFunctions::sumHorizontal($spid,'sums');
|
||
break;
|
||
|
||
case 16:
|
||
#multicheckbox če je dihotomna:
|
||
pdfIzvozAnalizaFunctions::sumMultiHorizontalCheckbox($spid,'sums');
|
||
break;
|
||
|
||
case 17:
|
||
#razvrščanje če je ordinalna
|
||
pdfIzvozAnalizaFunctions::sumHorizontal($spid,'sums');
|
||
break;
|
||
|
||
case 4: # text
|
||
case 8: # datum
|
||
pdfIzvozAnalizaFunctions::sumTextVertical($spid,'sums');
|
||
break;
|
||
|
||
case 21: # besedilo*
|
||
# varabla tipa »besedilo« je v sumarniku IDENTIČNA kot v FREKVENCAH.
|
||
if ($spremenljivka['cnt_all'] == 1) {
|
||
// če je enodimenzionalna prikažemo kot frekvence
|
||
// predvsem zaradi vprašanj tipa: language, email...
|
||
pdfIzvozAnalizaFunctions::sumTextVertical($spid,'sums');
|
||
} else {
|
||
pdfIzvozAnalizaFunctions::sumMultiText($spid,'sums');
|
||
}
|
||
break;
|
||
|
||
case 19: # multitext
|
||
pdfIzvozAnalizaFunctions::sumMultiText($spid,'sums');
|
||
break;
|
||
|
||
case 7:
|
||
case 18:
|
||
case 22:
|
||
# variabla tipa »število« je v sumarniku identična kot v DESCRIPTIVES.
|
||
pdfIzvozAnalizaFunctions::sumNumberVertical($spid,'sums');
|
||
break;
|
||
|
||
case 20:
|
||
# variabla tipa »število« je v sumarniku identična kot v DESCRIPTIVES.
|
||
pdfIzvozAnalizaFunctions::sumMultiNumber($spid,'sums');
|
||
break;
|
||
|
||
case 5:
|
||
# nagovor
|
||
pdfIzvozAnalizaFunctions::sumNagovor($spid,'sums');
|
||
break;
|
||
}
|
||
|
||
//}
|
||
|
||
} // end if $spremenljivka['tip'] != 'm'
|
||
}
|
||
|
||
// Izpisemo frekvence element
|
||
function displayFreq($element){
|
||
|
||
$spid = $element['spr1'];
|
||
$spremenljivka = SurveyAnalysis::$_HEADERS[$spid];
|
||
|
||
# preverjamo ali je meta
|
||
if (($spremenljivka['tip'] != 'm')
|
||
&& (!isset($_spid) || (isset($_spid) && $_spid == $spid))
|
||
&& (($global_user_id === 0 || $global_user_id === null) || in_array($spremenljivka['tip'], SurveyAnalysis::$_FILTRED_TYPES ) )) {
|
||
|
||
# ali imamo sfiltrirano spremenljivko
|
||
//if (isset(SurveyAnalysis::$_FILTRED_VARIABLES[$spid])) {
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='freq');
|
||
|
||
# prikazujemo v odvisnosti od kategorije spremenljivke
|
||
switch ($spremenljivka['tip']) {
|
||
case 1: # radio - prikjaže navpično
|
||
case 2: #checkbox če je dihotomna:
|
||
case 3: # dropdown - prikjaže navpično
|
||
case 6: # multigrid
|
||
case 4: # text
|
||
case 7:# variabla tipa »število«
|
||
case 8: # datum
|
||
case 16: #multicheckbox če je dihotomna:
|
||
case 17: #razvrščanje če je ordinalna
|
||
case 18: # vsota
|
||
case 19: # multitext
|
||
case 20: # multi number
|
||
case 21: # besedilo*
|
||
case 22: # kalkulacija
|
||
pdfIzvozAnalizaFunctions::frequencyVertical($spid);
|
||
break;
|
||
case 5:
|
||
# nagovor
|
||
pdfIzvozAnalizaFunctions::sumNagovor($spid,'freq');
|
||
break;
|
||
}
|
||
//}
|
||
|
||
} // end if $spremenljivka['tip'] != 'm'
|
||
}
|
||
|
||
// Izpisemo opisne stat element
|
||
function displayDesc($element){
|
||
global $lang;
|
||
|
||
# polovimo frekvence
|
||
SurveyAnalysis::getDescriptives();
|
||
|
||
$spid = $element['spr1'];
|
||
$spremenljivka = SurveyAnalysis::$_HEADERS[$spid];
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='desc');
|
||
|
||
$text = array();
|
||
|
||
$text[] = $this->encodeText($lang['srv_analiza_opisne_variable']);
|
||
$text[] = $this->encodeText($lang['srv_analiza_opisne_variable_text']);
|
||
|
||
$text[] = $this->encodeText($lang['srv_analiza_opisne_m']);
|
||
$text[] = $this->encodeText($lang['srv_analiza_num_units']);
|
||
$text[] = $this->encodeText($lang['srv_analiza_opisne_povprecje']);
|
||
$text[] = $this->encodeText($lang['srv_analiza_opisne_odklon']);
|
||
$text[] = $this->encodeText($lang['srv_analiza_opisne_min']);
|
||
$text[] = $this->encodeText($lang['srv_analiza_opisne_max']);
|
||
|
||
$params = array('bold' => 'B', 'align2' => 'C');
|
||
|
||
$this->pdf->setFont('','b','6');
|
||
pdfIzvozAnalizaFunctions::descTableRow($text, $params);
|
||
$this->pdf->setFont('','','6');
|
||
|
||
|
||
# preverjamo ali je meta
|
||
if ($spremenljivka['tip'] != 'm'
|
||
&& ( count(SurveyAnalysis::$_FILTRED_VARIABLES) == 0 || (count(SurveyAnalysis::$_FILTRED_VARIABLES) > 0 && isset(SurveyAnalysis::$_FILTRED_VARIABLES[$spid]) ))
|
||
&& in_array($spremenljivka['tip'], SurveyAnalysis::$_FILTRED_TYPES)) {
|
||
|
||
$show_enota = false;
|
||
# preverimo ali imamo samo eno variablo in če iammo enoto
|
||
if ((int)$spremenljivka['enota'] != 0 || $spremenljivka['cnt_all'] > 1 ) {
|
||
$show_enota = true;
|
||
}
|
||
|
||
# izpišemo glavno vrstico z podatki
|
||
$_sequence = null;
|
||
# za enodimenzijske tipe izpišemo podatke kar v osnovni vrstici
|
||
if (!$show_enota) {
|
||
// if ($spremenljivka['tip'] == 1 || $spremenljivka['tip'] == 3
|
||
// || $spremenljivka['tip'] == 4 || $spremenljivka['tip'] == 7 || $spremenljivka['tip'] == 8) {
|
||
$variable = $spremenljivka['grids'][0]['variables'][0];
|
||
$_sequence = $variable['sequence']; # id kolone z podatki
|
||
pdfIzvozAnalizaFunctions::displayDescriptivesSpremenljivkaRow($spid, $spremenljivka,$show_enota,$_sequence);
|
||
} else {
|
||
if ($spremenljivka['tip'] == 1 || $spremenljivka['tip'] == 3) {
|
||
$variable = $spremenljivka['grids'][0]['variables'][0];
|
||
$_sequence = $variable['sequence']; # id kolone z podatki
|
||
$show_enota = false;
|
||
}
|
||
pdfIzvozAnalizaFunctions::displayDescriptivesSpremenljivkaRow($spid, $spremenljivka,$show_enota,$_sequence);
|
||
#zloopamo skozi variable
|
||
$_sequence = null;
|
||
$grd_cnt=0;
|
||
if (count($spremenljivka['grids']) > 0)
|
||
foreach ($spremenljivka['grids'] AS $gid => $grid) {
|
||
|
||
if (count($spremenljivka['grids']) > 1 && $grd_cnt !== 0 && $spremenljivka['tip'] != 6) {
|
||
$grid['new_grid'] = true;
|
||
}
|
||
$grd_cnt++;
|
||
# dodamo dodatne vrstice z albelami grida
|
||
if (count ($grid['variables']) > 0)
|
||
foreach ($grid['variables'] AS $vid => $variable ){
|
||
# dodamo ostale vrstice
|
||
$do_show = ($variable['other'] !=1 && ($spremenljivka['tip'] == 1 || $spremenljivka['tip'] == 3 || $spremenljivka['tip'] == 5 || $spremenljivka['tip'] == 8 ))
|
||
? false
|
||
: true;
|
||
if ($do_show) {
|
||
pdfIzvozAnalizaFunctions::displayDescriptivesVariablaRow($spremenljivka,$grid,$variable);
|
||
|
||
}
|
||
$grid['new_grid'] = false;
|
||
|
||
}
|
||
}
|
||
} //else: if (!$show_enota)
|
||
} // end if $spremenljivka['tip'] != 'm'
|
||
}
|
||
|
||
// Izpisemo graf element
|
||
function displayChart($element){
|
||
|
||
$spid = $element['spr1'];
|
||
$spremenljivka = SurveyAnalysis::$_HEADERS[$spid];
|
||
|
||
# preverjamo ali je meta
|
||
if (($spremenljivka['tip'] != 'm'
|
||
&& in_array($spremenljivka['tip'], SurveyAnalysis::$_FILTRED_TYPES ))
|
||
&& (!isset($_spid) || (isset($_spid) && $_spid == $spid))) {
|
||
# ali imamo sfiltrirano spremenljivko
|
||
//if ($vars_count == 0 || ($vars_count > 0 && isset(SurveyAnalysis::$_FILTRED_VARIABLES[$spid]) ) ) {
|
||
|
||
$this->pdf->SetFillColor(250, 250, 250);
|
||
|
||
// Ce imamo radio tip in manj kot 5 variabel po defaultu prikazemo piechart
|
||
$vars = count($spremenljivka['options']);
|
||
$type = 0;
|
||
if( ($spremenljivka['tip'] == 1 || $spremenljivka['tip'] == 3) && $vars < 5 )
|
||
$type = 2;
|
||
|
||
//ce imamo nominalno spremenljivko ali ce je samo 1 variabla nimamo povprecij
|
||
if($spremenljivka['tip'] == 6 && ($spremenljivka['cnt_all'] == 1 || $spremenljivka['skala'] == 1) && $type == 0 )
|
||
$type = 2;
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='charts');
|
||
|
||
if($spremenljivka['tip'] == 4 || $spremenljivka['tip'] == 19 || $spremenljivka['tip'] == 21 || $spremenljivka['tip'] == 22){
|
||
// ce imamo vklopljeno nastavitev prikaz tabel med grafi (default)
|
||
if($spremenljivka['tip'] == 19)
|
||
pdfIzvozAnalizaFunctions::sumMultiText($spid, 'sums');
|
||
else
|
||
pdfIzvozAnalizaFunctions::frequencyVertical($spid);
|
||
}
|
||
elseif( in_array($spremenljivka['tip'],array(1,2,3,6,7,8,16,17,18,20)) ){
|
||
// Prikazemo posamezen graf
|
||
pdfIzvozAnalizaFunctions::displayChart($spid, $type);
|
||
}
|
||
//}
|
||
|
||
} // end if $spremenljivka['tip'] != 'm'
|
||
}
|
||
|
||
// Izpisemo crosstab tabelo
|
||
function displayCrosstab($element){
|
||
global $lang;
|
||
|
||
// Napolnimo podatke crosstabu
|
||
$crossData1 = explode("-", $element['spr1']);
|
||
$crossData2 = explode("-", $element['spr2']);
|
||
|
||
$crosstabClass = new SurveyCrosstabs();
|
||
$crosstabClass->Init($this->ank_id);
|
||
|
||
$crosstabClass->setVariables($crossData1[0],$crossData1[1],$crossData1[2],$crossData2[0],$crossData2[1],$crossData2[2]);
|
||
|
||
// Naslov
|
||
if($element['spr1'] == '' || $element['spr2'] == '')
|
||
$title = $lang['srv_select_spr'];
|
||
else{
|
||
$show_variables_values = true;
|
||
|
||
$spr1 = $crosstabClass->_HEADERS[$crossData1[1]];
|
||
$spr2 = $crosstabClass->_HEADERS[$crossData2[1]];
|
||
|
||
# za multicheckboxe popravimo naslov, na podtip
|
||
$sub_q1 = null;
|
||
$sub_q2 = null;
|
||
if ($spr1['tip'] == '6' || $spr1['tip'] == '7' || $spr1['tip'] == '16' || $spr1['tip'] == '17' || $spr1['tip'] == '18' || $spr1['tip'] == '19' || $spr1['tip'] == '20' || $spr1['tip'] == '21' ) {
|
||
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']).')' : '');
|
||
}
|
||
if ($spr2['tip'] == '6' || $spr2['tip'] == '7' || $spr2['tip'] == '16' || $spr2['tip'] == '17' || $spr2['tip'] == '18' || $spr2['tip'] == '19' || $spr2['tip'] == '20' || $spr2['tip'] == '21') {
|
||
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']).')' : '');
|
||
}
|
||
|
||
$title = $sub_q1 . ' / ' . $sub_q2;
|
||
}
|
||
|
||
$subtitle = '('.$lang['srv_crosstabs']. ($element['sub_type'] == 1 ? ' - '.$lang['srv_chart'] : '') .')';
|
||
|
||
$title .= ' <span class="anl_ita">'.$subtitle.'</span>';
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='crosstab', $crosstabClass);
|
||
pdfIzvozAnalizaFunctions::displayCrosstabsTable();
|
||
}
|
||
|
||
// Izpisemo crosstab graf
|
||
function displayCrosstabChart($element){
|
||
// Napolnimo podatke crosstabu
|
||
$crossData1 = explode("-", $element['spr2']);
|
||
$crossData2 = explode("-", $element['spr1']);
|
||
|
||
$crosstabClass = new SurveyCrosstabs();
|
||
$crosstabClass->Init($this->ank_id);
|
||
|
||
|
||
// Ce iz breaka klicemo graf za crosstab tabelo moramo popravit grid
|
||
if($element['type'] == '9'){
|
||
foreach ($crosstabClass->_HEADERS[$crossData1[1]]['grids'] AS $gid => $grid) {
|
||
foreach ($grid['variables'] AS $vkey => $vrednost) {
|
||
if ($vrednost['sequence'] == $crossData1[0]) {
|
||
$crossData1[2] = $gid;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
$crosstabClass->setVariables($crossData1[0],$crossData1[1],$crossData1[2],$crossData2[0],$crossData2[1],$crossData2[2]);
|
||
|
||
// Naslov
|
||
if($element['spr1'] == '' || $element['spr2'] == '')
|
||
$title = $lang['srv_select_spr'];
|
||
else{
|
||
$show_variables_values = true;
|
||
|
||
$spr1 = $crosstabClass->_HEADERS[$crossData1[1]];
|
||
$spr2 = $crosstabClass->_HEADERS[$crossData2[1]];
|
||
|
||
# za multicheckboxe popravimo naslov, na podtip
|
||
$sub_q1 = null;
|
||
$sub_q2 = null;
|
||
if ($spr1['tip'] == '6' || $spr1['tip'] == '7' || $spr1['tip'] == '16' || $spr1['tip'] == '17' || $spr1['tip'] == '18' || $spr1['tip'] == '19' || $spr1['tip'] == '20' || $spr1['tip'] == '21' ) {
|
||
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']).')' : '');
|
||
}
|
||
if ($spr2['tip'] == '6' || $spr2['tip'] == '7' || $spr2['tip'] == '16' || $spr2['tip'] == '17' || $spr2['tip'] == '18' || $spr2['tip'] == '19' || $spr2['tip'] == '20' || $spr2['tip'] == '21') {
|
||
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']).')' : '');
|
||
}
|
||
|
||
$title = $sub_q1 . ' / ' . $sub_q2;
|
||
}
|
||
|
||
$subtitle = '('.$lang['srv_crosstabs']. ($element['sub_type'] == 1 ? ' - '.$lang['srv_chart'] : '') .')';
|
||
|
||
$title .= ' '.$subtitle;
|
||
|
||
$this->crosstabVars = array($sub_q1, $sub_q2);
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='crosstab_chart', $crosstabClass);
|
||
pdfIzvozAnalizaFunctions::displayCrosstabChart();
|
||
}
|
||
|
||
// Izpisemo mean tabelo
|
||
function displayMean($element){
|
||
|
||
// ustvarimo means objekt
|
||
$meansClass = new SurveyMeans($this->ank_id);
|
||
|
||
// Napolnimo podatke crosstabu
|
||
$meanData1 = explode("-", $element['spr2']);
|
||
$meanData2 = explode("-", $element['spr1']);
|
||
|
||
$v_first = array('seq' => $meanData1[0], 'spr' => $meanData1[1], 'grd' => $meanData1[2]);
|
||
$v_second = array('seq' => $meanData2[0], 'spr' => $meanData2[1], 'grd' => $meanData2[2]);
|
||
|
||
$_means[0] = $meansClass->createMeans($v_first, $v_second);
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='mean', $meansClass);
|
||
pdfIzvozAnalizaFunctions::displayMeansTable($_means);
|
||
}
|
||
|
||
// Izpisemo mean graf
|
||
function displayMeanChart($element){
|
||
|
||
// ustvarimo means objekt
|
||
$meansClass = new SurveyMeans($this->ank_id);
|
||
|
||
// Napolnimo podatke crosstabu
|
||
$meanData1 = explode("-", $element['spr2']);
|
||
$meanData2 = explode("-", $element['spr1']);
|
||
|
||
$v_first = array('seq' => $meanData1[0], 'spr' => $meanData1[1], 'grd' => $meanData1[2]);
|
||
$v_second = array('seq' => $meanData2[0], 'spr' => $meanData2[1], 'grd' => $meanData2[2]);
|
||
|
||
$this->meanData2[0] = $v_first;
|
||
$this->meanData1[0] = $v_second;
|
||
|
||
$_means[0] = $meansClass->createMeans($v_first, $v_second);
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='mean_chart', $meansClass);
|
||
pdfIzvozAnalizaFunctions::displayMeanChart(0);
|
||
}
|
||
|
||
// Izpisemo ttest tabelo
|
||
function displayTTest($element){
|
||
|
||
// ustvarimo ttest objekt
|
||
$ttestClass = new SurveyTTest($this->ank_id);
|
||
|
||
// Nastavimo session da lahko pravilno izrisemo tabelo/graf
|
||
$ttestData1 = explode("-", $element['spr1']);
|
||
$ttestData2 = explode("-", $element['spr2']);
|
||
|
||
$dataArray = array();
|
||
|
||
$dataArray['spr2'] = $ttestData1[1];
|
||
$dataArray['grid2'] = $ttestData1[2];
|
||
$dataArray['seq2'] = $ttestData1[0];
|
||
$dataArray['label2'] = strip_tags($this->getTTestLabel($element['spr1'], $ttestClass));
|
||
|
||
$dataArray['sub_conditions'][0] = $ttestData1[3];
|
||
$dataArray['sub_conditions'][1] = $ttestData1[4];
|
||
|
||
$dataArray['variabla'][0]['seq'] = $ttestData2[0];
|
||
$dataArray['variabla'][0]['spr'] = $ttestData2[1];
|
||
$dataArray['variabla'][0]['grd'] = $ttestData2[2];
|
||
|
||
// Shranimo spremenjene nastavitve v bazo
|
||
SurveyUserSession::Init($this->ank_id);
|
||
$sessionData = SurveyUserSession::getData('ttest');
|
||
$sessionData = $dataArray;
|
||
SurveyUserSession::saveData($sessionData, 'ttest');
|
||
|
||
// ustvarimo ttest objekt
|
||
$ttestClass = new SurveyTTest($this->ank_id);
|
||
|
||
if (count($this->sessionData['ttest']['sub_conditions']) > 1 ) {
|
||
$variables1 = $ttestClass->getSelectedVariables();
|
||
if (count($variables1) > 0) {
|
||
foreach ($variables1 AS $v_first) {
|
||
$ttest = null;
|
||
$ttest = $ttestClass->createTTest($v_first, $this->sessionData['ttest']['sub_conditions']);
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='ttest', $ttestClass);
|
||
pdfIzvozAnalizaFunctions::displayTTestTable($ttest);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
// Izpisemo ttest graf
|
||
function displayTTestChart($element){
|
||
|
||
// ustvarimo ttest objekt
|
||
$ttestClass = new SurveyTTest($this->ank_id);
|
||
|
||
// Nastavimo session da lahko pravilno izrisemo tabelo/graf
|
||
$ttestData1 = explode("-", $element['spr1']);
|
||
$ttestData2 = explode("-", $element['spr2']);
|
||
|
||
$dataArray = array();
|
||
|
||
$dataArray['spr2'] = $ttestData1[1];
|
||
$dataArray['grid2'] = $ttestData1[2];
|
||
$dataArray['seq2'] = $ttestData1[0];
|
||
$dataArray['label2'] = strip_tags($this->getTTestLabel($element['spr1'], $ttestClass));
|
||
|
||
$dataArray['sub_conditions'][0] = $ttestData1[3];
|
||
$dataArray['sub_conditions'][1] = $ttestData1[4];
|
||
|
||
$dataArray['variabla'][0]['seq'] = $ttestData2[0];
|
||
$dataArray['variabla'][0]['spr'] = $ttestData2[1];
|
||
$dataArray['variabla'][0]['grd'] = $ttestData2[2];
|
||
|
||
// Shranimo spremenjene nastavitve v bazo
|
||
SurveyUserSession::Init($this->ank_id);
|
||
$sessionData = SurveyUserSession::getData('ttest');
|
||
$sessionData = $dataArray;
|
||
SurveyUserSession::saveData($sessionData, 'ttest');
|
||
|
||
// ustvarimo ttest objekt
|
||
$ttestClass = new SurveyTTest($this->ank_id);
|
||
|
||
if (count($this->sessionData['ttest']['sub_conditions']) > 1 ) {
|
||
$variables1 = $ttestClass->getSelectedVariables();
|
||
if (count($variables1) > 0) {
|
||
foreach ($variables1 AS $v_first) {
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='ttest_chart', $ttestClass);
|
||
pdfIzvozAnalizaFunctions::displayTTestChart();
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
// Izpisemo break tabelo
|
||
function displayBreak($element){
|
||
global $lang;
|
||
|
||
// Napolnimo podatke breaku
|
||
$breakData1 = explode("-", $element['spr1']);
|
||
$breakData2 = explode("-", $element['spr2']);
|
||
|
||
$breakClass = new SurveyBreak($this->ank_id);
|
||
|
||
$forSpr = $breakData1[1];
|
||
$_spr_data = $breakClass->_HEADERS[$forSpr];
|
||
|
||
# poiščemo sekvenco
|
||
$sekvenca = $breakData1[0];
|
||
|
||
# poiščemo opcije
|
||
$opcije = $_spr_data['options'];
|
||
|
||
if ((int)$_spr_data['tip'] != 2) {
|
||
$seqences[] = $sekvenca;
|
||
$options = $opcije;
|
||
} else {
|
||
# za checkboxe imamo več sekvenc
|
||
$seqences = explode('_',$_spr_data['sequences']);
|
||
$options[1] = $opcije[1];
|
||
}
|
||
|
||
# za vsako opcijo posebej izračunamo povprečja za vse spremenljivke
|
||
/*$frequencys = array();
|
||
if (count($seqences) > 0) {
|
||
foreach ($seqences as $seq) {
|
||
|
||
if (count($options) > 0) {
|
||
foreach ($options as $oKey => $option) {
|
||
# zloopamo skozi variable
|
||
$oKeyfrequencys = $breakClass->getAllFrequencys($oKey, $seq, $forSpr);
|
||
if ($oKeyfrequencys != null) {
|
||
$frequencys[$seq][$oKey] = $oKeyfrequencys;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}*/
|
||
$frequencys = null;
|
||
if (count($options) > 0) {
|
||
foreach ($options as $okey => $option) {
|
||
|
||
# zloopamo skozi variable
|
||
$okeyfrequencys = $breakClass->getAllFrequencys($okey, $sekvenca, $forSpr);
|
||
if ($okeyfrequencys != null) {
|
||
if ($frequencys == null) {
|
||
$frequencys = array();
|
||
}
|
||
$frequencys[$okey] = $okeyfrequencys;
|
||
}
|
||
}
|
||
}
|
||
|
||
$spremenljivka = $breakClass->_HEADERS[$breakData2[1]];
|
||
$spremenljivka['id'] = $breakData2[1];
|
||
|
||
$tip = $spremenljivka['tip'];
|
||
$skala = $spremenljivka['skala'];
|
||
|
||
|
||
// Izrisujemo tabelo ki ni crosstab
|
||
if( ($tip == 6 && $skala == 0) || in_array($tip, array(4,7,17,18,19,20,21)) ){
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='break', $breakClass);
|
||
|
||
if($tip == 6 && $skala == 0)
|
||
pdfIzvozAnalizaFunctions::displayBreakTableMgrid($forSpr,$frequencys,$spremenljivka);
|
||
|
||
elseif($tip == 4 || $tip == 19 || $tip == 21){
|
||
// Nastavimo se katero podtabelo izrisemo (sekvenca odvisne spr)
|
||
$spremenljivka['break_sub_table']['sequence'] = $breakData2[0];
|
||
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
||
if($spremenljivka['break_sub_table']['sequence'] == $grid['variables'][0]['sequence']){
|
||
$spremenljivka['break_sub_table']['key'] = $gkey;
|
||
break;
|
||
}
|
||
}
|
||
|
||
pdfIzvozAnalizaFunctions::displayBreakTableText($forSpr,$frequencys,$spremenljivka);
|
||
}
|
||
|
||
else{
|
||
// Nastavimo se katero podtabelo izrisemo (sekvenca odvisne spr)
|
||
$spremenljivka['break_sub_table']['sequence'] = $breakData2[0];
|
||
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
||
if($spremenljivka['break_sub_table']['sequence'] == $grid['variables'][0]['sequence']){
|
||
$spremenljivka['break_sub_table']['key'] = $gkey;
|
||
break;
|
||
}
|
||
}
|
||
|
||
pdfIzvozAnalizaFunctions::displayBreakTableNumber($forSpr,$frequencys,$spremenljivka);
|
||
}
|
||
}
|
||
|
||
// Izrisujemo crosstab
|
||
else{
|
||
$this->displayCrosstab($element);
|
||
}
|
||
}
|
||
|
||
// Izpisemo break graf
|
||
function displayBreakChart($element){
|
||
// Napolnimo podatke breaku
|
||
$breakData1 = explode("-", $element['spr1']);
|
||
$breakData2 = explode("-", $element['spr2']);
|
||
|
||
$breakClass = new SurveyBreak($this->ank_id);
|
||
|
||
$forSpr = $breakData1[1];
|
||
$_spr_data = $breakClass->_HEADERS[$forSpr];
|
||
|
||
# poiščemo sekvenco
|
||
$sekvenca = $breakData1[0];
|
||
|
||
# poiščemo opcije
|
||
$opcije = $_spr_data['options'];
|
||
|
||
if ((int)$_spr_data['tip'] != 2) {
|
||
$seqences[] = $sekvenca;
|
||
$options = $opcije;
|
||
} else {
|
||
# za checkboxe imamo več sekvenc
|
||
$seqences = explode('_',$_spr_data['sequences']);
|
||
$options[1] = $opcije[1];
|
||
}
|
||
|
||
$frequencys = null;
|
||
if (count($options) > 0) {
|
||
foreach ($options as $okey => $option) {
|
||
|
||
# zloopamo skozi variable
|
||
$okeyfrequencys = $breakClass->getAllFrequencys($okey, $sekvenca, $forSpr);
|
||
if ($okeyfrequencys != null) {
|
||
if ($frequencys == null) {
|
||
$frequencys = array();
|
||
}
|
||
$frequencys[$okey] = $okeyfrequencys;
|
||
}
|
||
}
|
||
}
|
||
|
||
$spremenljivka = $breakClass->_HEADERS[$breakData2[1]];
|
||
$spremenljivka['id'] = $breakData2[1];
|
||
|
||
$tip = $spremenljivka['tip'];
|
||
$skala = $spremenljivka['skala'];
|
||
|
||
|
||
// Pri textovnih tipih vedno izrisemo tabelo
|
||
if($tip == 4 || $tip == 21 || $tip == 19){
|
||
// Nastavimo se katero podtabelo izrisemo (sekvenca odvisne spr)
|
||
$spremenljivka['break_sub_table']['sequence'] = $breakData2[0];
|
||
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
||
if($spremenljivka['break_sub_table']['sequence'] == $grid['variables'][0]['sequence']){
|
||
$spremenljivka['break_sub_table']['key'] = $gkey;
|
||
break;
|
||
}
|
||
}
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='break', $breakClass);
|
||
pdfIzvozAnalizaFunctions::displayBreakTableText($forSpr,$frequencys,$spremenljivka);
|
||
}
|
||
|
||
// Izrisujemo graf ki ni crosstab
|
||
elseif( ($tip == 6 && $skala == 0) || in_array($tip, array(7,17,18,20)) ){
|
||
|
||
pdfIzvozAnalizaFunctions::init($this->ank_id, $this, $from='break', $breakClass);
|
||
|
||
if($tip == 6 && $skala == 0)
|
||
pdfIzvozAnalizaFunctions::displayBreakChart($forSpr,$frequencys,$spremenljivka);
|
||
|
||
else{
|
||
// Nastavimo se katero podtabelo izrisemo (sekvenca odvisne spr)
|
||
$spremenljivka['break_sub_table']['sequence'] = $breakData2[0];
|
||
foreach ($spremenljivka['grids'] AS $gkey => $grid) {
|
||
if($spremenljivka['break_sub_table']['sequence'] == $grid['variables'][0]['sequence']){
|
||
$spremenljivka['break_sub_table']['key'] = $gkey;
|
||
break;
|
||
}
|
||
}
|
||
|
||
pdfIzvozAnalizaFunctions::displayBreakChart($forSpr,$frequencys,$spremenljivka);
|
||
}
|
||
}
|
||
|
||
// Izrisujemo crosstab
|
||
else{
|
||
$this->displayCrosstabChart($element);
|
||
}
|
||
}
|
||
|
||
// Izpisemo element z besedilom
|
||
function displayText($text){
|
||
global $lang;
|
||
|
||
$this->pdf->setFont('','','6');
|
||
|
||
//$this->pdf->Ln(LINE_BREAK);
|
||
//$this->pdf->setY($this->pdf->getY() - 5);
|
||
|
||
$this->pdf->writeHTML($text);
|
||
|
||
/*$this->pdf->setFont('','','7');
|
||
$this->pdf->Write(0, $this->encodeText($text), '', 0, 'l', 1, 1);*/
|
||
}
|
||
|
||
|
||
// Izpisemo naslov elementa
|
||
function displayTitle($element){
|
||
global $lang;
|
||
|
||
// sumarnik
|
||
if($element['type'] == '1'){
|
||
$spr = SurveyAnalysis::$_HEADERS[$element['spr1']];
|
||
|
||
if($element['spr1'] == '')
|
||
$title = $lang['srv_select_spr'];
|
||
else
|
||
$title = $spr['variable'].' - '.$spr['naslov'];
|
||
|
||
$subtitle = ' ('.$lang['srv_sumarnik'].')';
|
||
}
|
||
|
||
// freq
|
||
elseif($element['type'] == '2'){
|
||
$spr = SurveyAnalysis::$_HEADERS[$element['spr1']];
|
||
|
||
if($element['spr1'] == '')
|
||
$title = $lang['srv_select_spr'];
|
||
else
|
||
$title = $spr['variable'].' - '.$spr['naslov'];
|
||
|
||
$subtitle = ' ('.$lang['srv_frequency'].')';
|
||
}
|
||
|
||
// desc
|
||
elseif($element['type'] == '3'){
|
||
$spr = SurveyAnalysis::$_HEADERS[$element['spr1']];
|
||
|
||
if($element['spr1'] == '')
|
||
$title = $lang['srv_select_spr'];
|
||
else
|
||
$title = $spr['variable'].' - '.$spr['naslov'];
|
||
|
||
$subtitle = ' ('.$lang['srv_descriptor'].')';
|
||
}
|
||
|
||
// chart
|
||
elseif($element['type'] == '4'){
|
||
$spr = SurveyAnalysis::$_HEADERS[$element['spr1']];
|
||
|
||
if($element['spr1'] == '')
|
||
$title = $lang['srv_select_spr'];
|
||
else
|
||
$title = $spr['variable'].' - '.$spr['naslov'];
|
||
|
||
$subtitle = ' ('.$lang['srv_chart'].')';
|
||
}
|
||
|
||
// crosstab
|
||
elseif($element['type'] == '5'){
|
||
|
||
// Napolnimo podatke crosstabu
|
||
$crossData1 = explode("-", $element['spr1']);
|
||
$crossData2 = explode("-", $element['spr2']);
|
||
|
||
$crosstabClass = new SurveyCrosstabs();
|
||
$crosstabClass->Init($this->ank_id);
|
||
|
||
$crosstabClass->setVariables($crossData1[0],$crossData1[1],$crossData1[2],$crossData2[0],$crossData2[1],$crossData2[2]);
|
||
|
||
// Naslov
|
||
if($element['spr1'] == '' || $element['spr2'] == '')
|
||
$title = $lang['srv_select_spr'];
|
||
else{
|
||
$show_variables_values = true;
|
||
|
||
$spr1 = $crosstabClass->_HEADERS[$crossData1[1]];
|
||
$spr2 = $crosstabClass->_HEADERS[$crossData2[1]];
|
||
|
||
# za multicheckboxe popravimo naslov, na podtip
|
||
$sub_q1 = null;
|
||
$sub_q2 = null;
|
||
if ($spr1['tip'] == '6' || $spr1['tip'] == '7' || $spr1['tip'] == '16' || $spr1['tip'] == '17' || $spr1['tip'] == '18' || $spr1['tip'] == '19' || $spr1['tip'] == '20' || $spr1['tip'] == '21' ) {
|
||
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 .= '<br />'. strip_tags($grid1['naslov']) . ($show_variables_values == true ? ' (' . strip_tags($grid1['variable']) . ')' : '');
|
||
} else {
|
||
$sub_q1 .= '<br />' . 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']).')' : '');
|
||
}
|
||
if ($spr2['tip'] == '6' || $spr2['tip'] == '7' || $spr2['tip'] == '16' || $spr2['tip'] == '17' || $spr2['tip'] == '18' || $spr2['tip'] == '19' || $spr2['tip'] == '20' || $spr2['tip'] == '21') {
|
||
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.= '<br />' . strip_tags($grid2['naslov']) . ($show_variables_values == true ? ' (' . strip_tags($grid2['variable']) . ')' : '');
|
||
} else {
|
||
$sub_q2.= '<br />' . 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']).')' : '');
|
||
}
|
||
|
||
$title = $sub_q1 . ' / ' . $sub_q2;
|
||
}
|
||
|
||
$subtitle = ' ('.$lang['srv_crosstabs']. ($element['sub_type'] == 1 ? ' - '.$lang['srv_chart'] : '') .')';
|
||
}
|
||
|
||
// mean
|
||
elseif($element['type'] == '6'){
|
||
|
||
// ustvarimo means objekt
|
||
$meansClass = new SurveyMeans($this->ank_id);
|
||
|
||
// Napolnimo podatke crosstabu
|
||
$meanData1 = explode("-", $element['spr2']);
|
||
$meanData2 = explode("-", $element['spr1']);
|
||
|
||
$v_first = array('seq' => $meanData1[0], 'spr' => $meanData1[1], 'grd' => $meanData1[2]);
|
||
$v_second = array('seq' => $meanData2[0], 'spr' => $meanData2[1], 'grd' => $meanData2[2]);
|
||
|
||
$means[0] = $meansClass->createMeans($v_first, $v_second);
|
||
|
||
// Nastavimo variable (potrebno za grafe
|
||
$meansClass->variabla1[0] = $v_second;
|
||
$meansClass->variabla2[0] = $v_first;
|
||
|
||
// Naslov
|
||
if($element['spr1'] == '' || $element['spr2'] == ''){
|
||
$title = $lang['srv_select_spr'];
|
||
}
|
||
else{
|
||
$label2 = strip_tags($meansClass->getSpremenljivkaTitle($means[0]['v1']));
|
||
$label1 = strip_tags($meansClass->getSpremenljivkaTitle($means[0]['v2']));
|
||
|
||
$title = $label1 . ' / ' . $label2;
|
||
}
|
||
|
||
$subtitle = ' ('.$lang['srv_means']. ($element['sub_type'] == 1 ? ' - '.$lang['srv_chart'] : '') .')';
|
||
}
|
||
|
||
// ttest
|
||
elseif($element['type'] == '7'){
|
||
|
||
// ustvarimo ttest objekt
|
||
$ttestClass = new SurveyTTest($this->ank_id);
|
||
|
||
// Naslov
|
||
if($element['spr1'] == '' || $element['spr2'] == ''){
|
||
$title = $lang['srv_select_spr'];
|
||
}
|
||
else{
|
||
$label2 = strip_tags($this->getTTestLabel($element['spr2'], $ttestClass));
|
||
$label1 = strip_tags($this->getTTestLabel($element['spr1'], $ttestClass));
|
||
|
||
$title = $label1 . ' / ' . $label2;
|
||
}
|
||
|
||
$subtitle = ' ('.$lang['srv_ttest']. ($element['sub_type'] == 1 ? ' - '.$lang['srv_chart'] : '') .')';
|
||
}
|
||
|
||
// break
|
||
elseif($element['type'] == '9'){
|
||
|
||
// ustvarimo ttest objekt
|
||
$breakClass = new SurveyBreak($this->ank_id);
|
||
|
||
$breakData1 = explode("-", $element['spr1']);
|
||
$breakData2 = explode("-", $element['spr2']);
|
||
|
||
|
||
$label1 = '';
|
||
$variables = $breakClass->getVariableList(2);
|
||
foreach ($variables as $variable) {
|
||
|
||
if($breakData1[0] == $variable['sequence']){
|
||
$label1 = ( (int)$variable['sub'] == 0 ? '' : ( (int)$variable['sub'] == 1 ? ' ' : ' ' )) . $variable['variableNaslov'];
|
||
$label1 = (strlen($label1) > 60) ? substr($label1, 0, 57).'...' : $label1;
|
||
|
||
break;
|
||
}
|
||
}
|
||
|
||
$label2 = '';
|
||
$variables = $this->getBreakDependentVariableList($breakClass);
|
||
foreach ($variables as $variable) {
|
||
|
||
if($breakData2[0] == $variable['sequence']){
|
||
//$label2 = $variable['variableNaslov'];
|
||
$label2 = (strlen($variable['variableNaslov']) > 60) ? substr($variable['variableNaslov'], 0, 57).'...' : $variable['variableNaslov'];
|
||
|
||
break;
|
||
}
|
||
}
|
||
|
||
$title = $label1 . ' / ' . $label2;
|
||
$subtitle = '('.$lang['srv_break']. ($element['sub_type'] == 1 ? ' - '.$lang['srv_chart'] : '') .')';
|
||
}
|
||
|
||
|
||
$width = $this->landscapeTest() ? 270 : 165;
|
||
|
||
//$this->pdf->ln(15);
|
||
|
||
$this->pdf->setFont('','b','7');
|
||
$this->pdf->MultiCell($width, 1, $this->encodeText($title . $subtitle), 0, 'C', 0, 1, 0 ,0, true);
|
||
/*$this->pdf->setFont('','','7');
|
||
$this->pdf->MultiCell($width, 1, $subtitle, 0, 'C', 0, 1, 0 ,0, true);*/
|
||
|
||
$this->pdf->ln(5);
|
||
}
|
||
|
||
function getTTestLabel($spr, $ttestClass){
|
||
|
||
$data = explode("-", $spr);
|
||
|
||
$spid = $data[1];
|
||
$seq = $data[0];
|
||
$grid = $data[2];
|
||
|
||
$spr_data = $ttestClass->_HEADERS[$spid];
|
||
if ($grid == 'undefined') {
|
||
|
||
# imamp lahko več variabel
|
||
foreach ($spr_data['grids'] as $gkey => $grid ) {
|
||
|
||
foreach ($grid['variables'] as $vkey => $variable) {
|
||
$sequence = $variable['sequence'];
|
||
if ($sequence == $seq) {
|
||
$sprLabel = '('.$variable['variable'].') '. $variable['naslov'];
|
||
}
|
||
}
|
||
}
|
||
} else {
|
||
# imamo subgrid
|
||
$sprLabel = '('.$spr_data['grids'][$grid]['variable'].') '. $spr_data['grids'][$grid]['naslov'];
|
||
}
|
||
|
||
return $sprLabel;
|
||
}
|
||
|
||
/** funkcija vrne seznam primern variabel za break
|
||
*
|
||
*/
|
||
function getBreakDependentVariableList($breakClass) {
|
||
|
||
$variablesList = array();
|
||
|
||
# zloopamo skozi header in dodamo variable (potrebujemo posamezne sekvence)
|
||
foreach ($breakClass->_HEADERS AS $skey => $spremenljivka) {
|
||
|
||
$tip = $spremenljivka['tip'];
|
||
|
||
$_dropdown_condition = (is_numeric($tip) && $tip != 5 && $tip != 8 && $tip != 9) ? true : false;
|
||
if ($_dropdown_condition) {
|
||
|
||
$cnt_all = (int)$spremenljivka['cnt_all'];
|
||
if ( $cnt_all == '1' || in_array($tip, array(1,2,3,4,7,17,18,21,22)) || ($tip == 6 && $spremenljivka['enota'] == 2) ) {
|
||
|
||
# pri tipu radio ali select dodamo tisto variablo ki ni polje "drugo"
|
||
if ($tip == 1 || $tip == 3 ) {
|
||
if (count($spremenljivka['grids']) == 1 ) {
|
||
# če imamo samo en grid ( lahko je več variabel zaradi polja drugo.
|
||
$grid = $spremenljivka['grids'][0];
|
||
if (count ($grid['variables']) > 0) {
|
||
foreach ($grid['variables'] AS $vid => $variable ){
|
||
if ($variable['other'] != 1) {
|
||
# imampo samo eno sekvenco grids[0]variables[0]
|
||
$variablesList[] = array(
|
||
'tip'=>$tip,
|
||
'spr_id'=>$skey,
|
||
'sequence'=>$spremenljivka['grids'][0]['variables'][$vid]['sequence'],
|
||
'variableNaslov'=>'('.$spremenljivka['variable'].') '.strip_tags($spremenljivka['naslov']),
|
||
'canChoose'=>true,
|
||
'sub'=>0);
|
||
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
else {
|
||
# imampo samo eno sekvenco grids[0]variables[0]
|
||
$variablesList[] = array(
|
||
'tip'=>$tip,
|
||
'spr_id'=>$skey,
|
||
'sequence'=>$spremenljivka['grids'][0]['variables'][0]['sequence'],
|
||
'variableNaslov'=>'('.$spremenljivka['variable'].') '.strip_tags($spremenljivka['naslov']),
|
||
'canChoose'=>true,
|
||
'sub'=>0);
|
||
}
|
||
}
|
||
else if ($cnt_all > 1){
|
||
# imamo več skupin ali podskupin, zato zlopamo skozi gride in variable
|
||
if (count($spremenljivka['grids']) > 0 ) {
|
||
$variablesList[] = array(
|
||
'tip'=>$tip,
|
||
|
||
'variableNaslov'=>'('.$spremenljivka['variable'].') '.strip_tags($spremenljivka['naslov']),
|
||
'canChoose'=>false,
|
||
'sub'=>0);
|
||
# ali imamo en grid, ali več (tabele
|
||
if (count($spremenljivka['grids']) == 1 ) {
|
||
# če imamo samo en grid ( lahko je več variabel zaradi polja drugo.
|
||
$grid = $spremenljivka['grids'][0];
|
||
if (count ($grid['variables']) > 0) {
|
||
foreach ($grid['variables'] AS $vid => $variable ){
|
||
if ($variable['other'] != 1) {
|
||
$variablesList[] = array(
|
||
'tip'=>$tip,
|
||
'spr_id'=>$skey,
|
||
'sequence'=>$variable['sequence'],
|
||
'variableNaslov'=>'('.$variable['variable'].') '.strip_tags($variable['naslov']),
|
||
'canChoose'=>true,
|
||
'sub'=>1);
|
||
}
|
||
}
|
||
}
|
||
|
||
} elseif($tip == 6) {
|
||
# imamo več gridov - tabele
|
||
foreach($spremenljivka['grids'] AS $gid => $grid) {
|
||
$sub = 0;
|
||
if ($grid['variable'] != '') {
|
||
$sub++;
|
||
$variablesList[] = array(
|
||
'tip'=>$tip,
|
||
'variableNaslov'=>'('.$grid['variable'].') '.strip_tags($grid['naslov']),
|
||
'canChoose'=>false,
|
||
'sub'=>$sub);
|
||
}
|
||
if (count ($grid['variables']) > 0) {
|
||
$sub++;
|
||
foreach ($grid['variables'] AS $vid => $variable ){
|
||
if ($variable['other'] != 1) {
|
||
$variablesList[] = array(
|
||
'tip'=>$tip,
|
||
'spr_id'=>$skey,
|
||
'sequence'=>$variable['sequence'],
|
||
'variableNaslov'=>'('.$variable['variable'].') '.strip_tags($variable['naslov']),
|
||
'canChoose'=>true,
|
||
'sub'=>$sub);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
} else {
|
||
foreach($spremenljivka['grids'] AS $gid => $grid) {
|
||
$sub = 0;
|
||
if ($grid['variable'] != '') {
|
||
$sub++;
|
||
$variablesList[] = array(
|
||
'tip'=>$tip,
|
||
'spr_id'=>$skey,
|
||
'grd_id'=>$gid,
|
||
'sequence'=>$grid['variables'][0]['sequence'],
|
||
'variableNaslov'=>'('.$grid['variable'].') '.strip_tags($grid['naslov']),
|
||
'canChoose'=>true,
|
||
'sub'=>1);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
return $variablesList;
|
||
}
|
||
|
||
|
||
// Izpisemo komentar elementa
|
||
function displayComment($text){
|
||
global $lang;
|
||
|
||
$this->pdf->setFont('','','6');
|
||
|
||
if($text != ''){
|
||
$this->pdf->Ln(LINE_BREAK);
|
||
$this->pdf->writeHTML($text);
|
||
|
||
/*$this->pdf->setFont('','','7');
|
||
$this->pdf->Write(0, $this->encodeText($text), '', 0, 'l', 1, 1);*/
|
||
}
|
||
}
|
||
|
||
|
||
/*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 drawLine()
|
||
{
|
||
$cy = $this->pdf->getY();
|
||
$this->pdf->Line(15, $cy , 195, $cy , $this->currentStyle);
|
||
}
|
||
|
||
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;
|
||
}
|
||
|
||
|
||
// Ce imamo v porocilu tabelo crosstab ali ttest ali means imamo landscape orientacijo
|
||
function landscapeTest(){
|
||
global $global_user_id;
|
||
|
||
$sql = sisplet_query("SELECT * FROM srv_custom_report WHERE ank_id='$this->ank_id' AND usr_id='$global_user_id' AND profile='$this->creportProfile' AND sub_type='0' AND (type='5' OR type='6' OR type='7' OR type='9')");
|
||
|
||
if(mysqli_num_rows($sql) > 0)
|
||
return true;
|
||
else
|
||
return false;
|
||
}
|
||
|
||
}
|
||
|
||
?>
|