321 lines
12 KiB
PHP
321 lines
12 KiB
PHP
|
<?php
|
||
|
|
/***************************************
|
||
|
|
* Description:
|
||
|
|
* Autor: Robert Šmalc
|
||
|
|
* Created date: 22.05.2017
|
||
|
|
*****************************************/
|
||
|
|
|
||
|
|
namespace Hierarhija;
|
||
|
|
|
||
|
|
use Hierarhija\Model\HierarhijaOnlyQuery;
|
||
|
|
use Hierarhija\Model\HierarhijaQuery;
|
||
|
|
use SurveyDataFile;
|
||
|
|
use SurveyInfo;
|
||
|
|
|
||
|
|
class HierarhijaPorocilaClass
|
||
|
|
{
|
||
|
|
// Konstante do direktorijev
|
||
|
|
const tempFolder = "admin/survey/modules/mod_hierarhija/porocila/temp/";
|
||
|
|
const scriptFolder = "admin/survey/modules/mod_hierarhija/porocila/R/";
|
||
|
|
const resultFolder = "admin/survey/modules/mod_hierarhija/porocila/results/";
|
||
|
|
|
||
|
|
public function __construct($anketa = null)
|
||
|
|
{
|
||
|
|
if (is_null($anketa))
|
||
|
|
return 'Ni izbrane ankete';
|
||
|
|
|
||
|
|
$this->anketa = $anketa;
|
||
|
|
|
||
|
|
global $site_path;
|
||
|
|
$this->site_path = $site_path;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
public function izvoz($vrsta = 'word')
|
||
|
|
{
|
||
|
|
if (!empty($_GET['t']) && in_array($_GET['t'], ['word', 'pdf']))
|
||
|
|
$vrsta = $_GET['t'];
|
||
|
|
|
||
|
|
// Samo za debug
|
||
|
|
if (false && $admin_type == 0) {
|
||
|
|
|
||
|
|
// R parametri za PDF
|
||
|
|
if ($vrsta == 'pdf') {
|
||
|
|
$script = $this->site_path . self::scriptFolder . 'test_1ka_pdf.R';
|
||
|
|
$content_type = 'text/x-csv; charset=utf-8';
|
||
|
|
$file_name = 'test.pdf';
|
||
|
|
}else{
|
||
|
|
// R parametri, za DOC,DOCX
|
||
|
|
$script = $this->site_path . self::scriptFolder . 'test_1ka.R';
|
||
|
|
$content_type = 'application/octet-stream';
|
||
|
|
$file_name = 'test.docx';
|
||
|
|
}
|
||
|
|
|
||
|
|
$out = exec('Rscript ' . $script . ' 2>&1', $output, $return_var);
|
||
|
|
|
||
|
|
// Testiranje - izpis errorjev
|
||
|
|
echo '<div>';
|
||
|
|
echo 'Rscript ' . $script;
|
||
|
|
//echo '<br />'.$out.'<br />';
|
||
|
|
var_dump($output);
|
||
|
|
echo '</div>';
|
||
|
|
|
||
|
|
|
||
|
|
// Pripravimo file za download
|
||
|
|
if (file_exists($this->site_path . self::resultFolder . $file_name)) {
|
||
|
|
|
||
|
|
$file = $this->site_path . self::resultFolder . $file_name;
|
||
|
|
|
||
|
|
header('Content-Description: File Transfer');
|
||
|
|
header('Content-Disposition: attachment; filename=' . basename($file_name));
|
||
|
|
header('Content-Type: '.$content_type);
|
||
|
|
header("Content-Transfer-Encoding: Binary");
|
||
|
|
header('Expires: 0');
|
||
|
|
header('Cache-Control: must-revalidate, post-check=0, pre-check=0');
|
||
|
|
header('Pragma: public');
|
||
|
|
header('Content-Length: ' . filesize($file));
|
||
|
|
|
||
|
|
ob_clean();
|
||
|
|
flush();
|
||
|
|
|
||
|
|
readfile($file);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
// Pripravi CSV s podatki
|
||
|
|
$this->pripraviCSV();
|
||
|
|
$this->pripraviCSVuciteljev();
|
||
|
|
|
||
|
|
// R parametri, za DOC,DOCX
|
||
|
|
$script = $this->site_path . self::scriptFolder . 'Hierarhija_1ka.R';
|
||
|
|
$content_type = 'application/octet-stream';
|
||
|
|
//Ime ankete
|
||
|
|
$ime = slug(SurveyInfo::getSurveyTitle(), '_');
|
||
|
|
$file_name = 'SAMOEVALVACIJSKO_POROCILO__' . $ime . '.docx';
|
||
|
|
|
||
|
|
// R parametri za PDF
|
||
|
|
if ($vrsta == 'pdf') {
|
||
|
|
$script = $this->site_path . self::scriptFolder . 'Hierarhija_1ka_pdf.R';
|
||
|
|
$content_type = 'text/x-csv; charset=utf-8';
|
||
|
|
$file_name = 'SAMOEVALVACIJSKO_POROCILO_' . $ime . '.pdf';
|
||
|
|
}
|
||
|
|
|
||
|
|
$shrani_id = HierarhijaQuery::getOptions($this->anketa, 'srv_hierarhija_shrani_id');
|
||
|
|
$logo = sisplet_query("SELECT logo FROM srv_hierarhija_shrani WHERE id='" . $shrani_id . "' AND anketa_id='" . $this->anketa . "'", "obj")->logo;
|
||
|
|
|
||
|
|
// 1 - odgovori v anketami
|
||
|
|
// 2 - seznam uciteljev in predmetov
|
||
|
|
// 3 - ime datoteke v katero shranimo (pdf, docx)
|
||
|
|
// 4 - logo
|
||
|
|
$param = 'hierarhija_' . $this->anketa . '.csv hierarhija_ucitelji_' . $this->anketa . '.csv '. $file_name . ' ' . $logo;
|
||
|
|
|
||
|
|
$out = exec('Rscript ' . $script . ' ' . $param . ' 2>&1', $output, $return_var);
|
||
|
|
|
||
|
|
// Testiranje - izpis errorjev
|
||
|
|
if ($admin_type == 0) {
|
||
|
|
echo '<div>';
|
||
|
|
echo 'Rscript ' . $script;
|
||
|
|
//echo '<br />'.$out.'<br />';
|
||
|
|
var_dump($output);
|
||
|
|
echo '</div>';
|
||
|
|
}
|
||
|
|
|
||
|
|
// Pripravimo file za download
|
||
|
|
if (file_exists($this->site_path . self::resultFolder . $file_name)) {
|
||
|
|
|
||
|
|
$file = $this->site_path . self::resultFolder . $file_name;
|
||
|
|
|
||
|
|
header('Content-Description: File Transfer');
|
||
|
|
header('Content-Disposition: attachment; filename=' . basename($file_name));
|
||
|
|
header('Content-Type: '.$content_type);
|
||
|
|
header("Content-Transfer-Encoding: Binary");
|
||
|
|
header('Expires: 0');
|
||
|
|
header('Cache-Control: must-revalidate, post-check=0, pre-check=0');
|
||
|
|
header('Pragma: public');
|
||
|
|
header('Content-Length: ' . filesize($file));
|
||
|
|
|
||
|
|
ob_clean();
|
||
|
|
flush();
|
||
|
|
|
||
|
|
readfile($file);
|
||
|
|
}
|
||
|
|
|
||
|
|
// Na koncu pobrisemo zacasne datoteke
|
||
|
|
$this->deleteTemp();
|
||
|
|
|
||
|
|
// Ugasnemo skripto:)
|
||
|
|
die();
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Pripravimo CSV izvoz vseh podatkov
|
||
|
|
*/
|
||
|
|
private function pripraviCSV()
|
||
|
|
{
|
||
|
|
$temp_folder = $this->site_path . self::tempFolder;
|
||
|
|
|
||
|
|
$SDF = SurveyDataFile::get_instance();
|
||
|
|
$SDF->init($this->anketa);
|
||
|
|
$_headFileName = $SDF->getHeaderFileName();
|
||
|
|
$_dataFileName = $SDF->getDataFileName();
|
||
|
|
$_fileStatus = $SDF->getStatus();
|
||
|
|
|
||
|
|
if(count(file($_dataFileName)) < 3){
|
||
|
|
global $site_url;
|
||
|
|
echo 'Premalo podatkov';
|
||
|
|
redirect($site_url . 'admin/survey/index.php?anketa=' . $this->anketa . '&a=' . A_HIERARHIJA_SUPERADMIN . '&m=' . M_ANALIZE.'&error=invalid');
|
||
|
|
die();
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($_headFileName != null && $_headFileName != '') {
|
||
|
|
$_HEADERS = unserialize(file_get_contents($_headFileName));
|
||
|
|
} else {
|
||
|
|
echo 'Error! Empty file name!';
|
||
|
|
}
|
||
|
|
|
||
|
|
// Zaenkrat dopuscamo samo status 6 in brez lurkerjev
|
||
|
|
$status_filter = '(' . STATUS_FIELD . ' ~ /6|5/)&&(' . LURKER_FIELD . '==0)';
|
||
|
|
//$status_filter = '('.STATUS_FIELD.'==6)&&('.LURKER_FIELD.'==0)';
|
||
|
|
|
||
|
|
//$start_sequence = $_HEADERS['_settings']['dataSequence'];
|
||
|
|
$start_sequence = 2;
|
||
|
|
$end_sequence = $_HEADERS['_settings']['metaSequence'] - 1;
|
||
|
|
|
||
|
|
$field_delimit = ';';
|
||
|
|
|
||
|
|
// Pridobi filtre
|
||
|
|
// $hierarhija_analize = (new \HierarhijaAnalysis($this->anketa));
|
||
|
|
// $hierarhija_filter = $hierarhija_analize->filterHierarhijeIzTekstovneDatoteke();
|
||
|
|
// $ucitelj_filter = $hierarhija_analize->filterHierarhijeZaSpecificnegaUciteljaIzDatoteke();
|
||
|
|
// (!empty($ucitelj_filter) ? $ucitelj_filter : $hierarhija_filter) // preveri izpis conzole
|
||
|
|
|
||
|
|
// Filtriramo podatke po statusu in jih zapisemo v temp folder
|
||
|
|
$out = shell_exec('awk -F"|" \'BEGIN {{OFS=","} {ORS="\n"}} ' . $status_filter . '\' ' . $_dataFileName . ' | cut -d \'|\' -f ' . $start_sequence . '-' . $end_sequence . ' >> ' . $temp_folder . 'temp_data_' . $this->anketa . '.dat');
|
||
|
|
// dump('awk -F"|" \'BEGIN {{OFS=","} {ORS="\n"}} '.$status_filter.'\' '.$_dataFileName.' | cut -d \'|\' -f '.$start_sequence.'-'.$end_sequence.' >> '.$temp_folder.'temp_data_'.$this->anketa.'.dat');
|
||
|
|
|
||
|
|
|
||
|
|
// Ustvarimo koncni CSV
|
||
|
|
if ($fd = fopen($temp_folder . 'temp_data_' . $this->anketa . '.dat', "r")) {
|
||
|
|
|
||
|
|
$fd2 = fopen($temp_folder . 'hierarhija_' . $this->anketa . '.csv', "w+");
|
||
|
|
|
||
|
|
$convertType = 1; // kateri tip konvertiranja uporabimo
|
||
|
|
$convertTypes[1] = array('charSet' => 'windows-1250',
|
||
|
|
'delimit' => ';',
|
||
|
|
'newLine' => "\n",
|
||
|
|
'BOMchar' => "\xEF\xBB\xBF");
|
||
|
|
# dodamo boomchar za utf-8
|
||
|
|
fwrite($fd2, $convertTypes[$convertType]['BOMchar']);
|
||
|
|
|
||
|
|
# naredimo header row
|
||
|
|
foreach ($_HEADERS AS $spid => $spremenljivka) {
|
||
|
|
if (count($spremenljivka['grids']) > 0) {
|
||
|
|
foreach ($spremenljivka['grids'] AS $gid => $grid) {
|
||
|
|
foreach ($grid['variables'] AS $vid => $variable) {
|
||
|
|
if ($spremenljivka['tip'] !== 'sm' && !($variable['variable'] == 'uid' && $variable['naslov'] == 'User ID')) {
|
||
|
|
$output1 .= strip_tags($variable['variable']) . $field_delimit;
|
||
|
|
$output2 .= '"' . strip_tags($variable['naslov']) . '"' . $field_delimit;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
fwrite($fd2, $output1 . "\r\n");
|
||
|
|
fwrite($fd2, $output2 . "\r\n");
|
||
|
|
|
||
|
|
while ($line = fgets($fd)) {
|
||
|
|
|
||
|
|
$temp = array();
|
||
|
|
$temp = explode('|', $line);
|
||
|
|
|
||
|
|
// Zamenjamo številke z vrednostmi predmetov hierarhije
|
||
|
|
$grupaId = HierarhijaOnlyQuery::getGrupaId($this->anketa);
|
||
|
|
|
||
|
|
// Pripravimo polje po katerem iščemo nivoje
|
||
|
|
$stRavni = sisplet_query("SELECT count('id') as st FROM srv_hierarhija_ravni WHERE anketa_id = '" . $this->anketa . "'", "obj")->st;
|
||
|
|
$isci_po_polju = "'nivo1'";
|
||
|
|
for ($i = 2; $i <= $stRavni; $i++) {
|
||
|
|
$isci_po_polju .= ",'nivo" . $i . "'";
|
||
|
|
}
|
||
|
|
|
||
|
|
$elementi_hierarhije = sisplet_query("SELECT id, variable FROM srv_spremenljivka WHERE gru_id='" . $grupaId . "' AND variable IN (" . $isci_po_polju . ") ORDER BY vrstni_red", "obj");
|
||
|
|
|
||
|
|
// od 8 elementa v txt datoteki se začne naprej hierarhija
|
||
|
|
$line_explode = explode('|', $line);
|
||
|
|
// številka prvega elementa, ki ga bomo zamenjali - vloga
|
||
|
|
$st = 9;
|
||
|
|
foreach ($elementi_hierarhije as $element) {
|
||
|
|
$ime_strukture = sisplet_query("SELECT naslov FROM srv_vrednost WHERE spr_id='" . $element->id . "' AND variable='" . $line_explode[$st] . "'", "obj")->naslov;
|
||
|
|
$line_explode[$st] = $ime_strukture;
|
||
|
|
$st++;
|
||
|
|
}
|
||
|
|
|
||
|
|
$line = join('|', $line_explode);
|
||
|
|
$line = '"' . str_replace(array("\r", "\n", "\"", "|"), array("", "", "", '";"'), $line) . '"';
|
||
|
|
|
||
|
|
|
||
|
|
// Spremenimo encoding v windows-1250
|
||
|
|
//$line = iconv("UTF-8","Windows-1250//TRANSLIT", $line);
|
||
|
|
|
||
|
|
fwrite($fd2, $line);
|
||
|
|
fwrite($fd2, "\r\n");
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
fclose($fd2);
|
||
|
|
}
|
||
|
|
fclose($fd);
|
||
|
|
|
||
|
|
|
||
|
|
// Na koncu pobrisemo temp datoteke
|
||
|
|
if (file_exists($temp_folder . '/temp_data_' . $this->anketa . '.dat')) {
|
||
|
|
unlink($temp_folder . '/temp_data_' . $this->anketa . '.dat');
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Izvoz hierarhije učiteljev z imenomin priimkom ter elektronskim naslovom
|
||
|
|
*/
|
||
|
|
private function pripraviCSVuciteljev(){
|
||
|
|
$ucitelji = HierarhijaIzvoz::getInstance($this->anketa)->csvIzvozStruktureZaObdelavo(true);
|
||
|
|
|
||
|
|
$temp_folder = $this->site_path . self::tempFolder;
|
||
|
|
$file = fopen($temp_folder . 'hierarhija_ucitelji_' . $this->anketa . '.csv', "w+");
|
||
|
|
|
||
|
|
$convertType = 1; // kateri tip konvertiranja uporabimo
|
||
|
|
$convertTypes[1] = array('charSet' => 'windows-1250',
|
||
|
|
'delimit' => ';',
|
||
|
|
'newLine' => "\n",
|
||
|
|
'BOMchar' => "\xEF\xBB\xBF");
|
||
|
|
# dodamo boomchar za utf-8
|
||
|
|
fwrite($file, $convertTypes[$convertType]['BOMchar']);
|
||
|
|
|
||
|
|
foreach($ucitelji as $ucitelj){
|
||
|
|
fputcsv($file, $ucitelj);
|
||
|
|
}
|
||
|
|
|
||
|
|
fclose($file);
|
||
|
|
}
|
||
|
|
|
||
|
|
private function deleteTemp()
|
||
|
|
{
|
||
|
|
$temp_folder = $this->site_path . self::tempFolder;
|
||
|
|
|
||
|
|
// Pobriše CSV datoteko
|
||
|
|
if (file_exists($temp_folder . '/hierarhija' . $this->anketa . '.csv'))
|
||
|
|
unlink($temp_folder . '/hierarhija' . $this->anketa . '.csv');
|
||
|
|
|
||
|
|
// Pobriše CSV datoteko uciteljev
|
||
|
|
if (file_exists($temp_folder . '/hierarhija_ucitelji_' . $this->anketa . '.csv'))
|
||
|
|
unlink($temp_folder . '/hierarhija_ucitelji_' . $this->anketa . '.csv');
|
||
|
|
|
||
|
|
// Pobrisemo še vse v rezultatih
|
||
|
|
$files = glob($this->site_path . self::resultFolder . '*');
|
||
|
|
foreach ($files as $file) {
|
||
|
|
if (is_file($file))
|
||
|
|
unlink($file);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|