#Gocha#

<?php

// This file is part of Moodle - http://moodle.org/
//
// Moodle is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Moodle is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.

/** Configurable Reports
  * A Moodle block for creating Configurable Reports
  * @package blocks
  * @author: Juan leyva <http://www.twitter.com/jleyvadelgado>
  * @date: 2009
  */

function cr_print_js_function(){
	?>
		<script type="text/javascript">
			function printDiv(id){
				var cdiv, tmpw;

cdiv = document.getElementById(id);
				tmpw = window.open(" ","Print");

tmpw.document.open();
				tmpw.document.write('<html><body>');
				tmpw.document.write(cdiv.innerHTML);
				tmpw.document.write('</body></html>');
				tmpw.document.close();
				tmpw.print();
				tmpw.close();
			}
		</script>
	<?php
  }

function cr_add_jsdatatables($cssid){
        global $DB, $CFG, $OUTPUT;

echo html_writer::script(false, new moodle_url('/blocks/configurable_reports/js/datatables/media/js/jquery.js'));
        echo html_writer::script(false, new moodle_url('/blocks/configurable_reports/js/datatables/media/js/jquery.dataTables.min.js'));
        echo html_writer::script(false, new moodle_url('/blocks/configurable_reports/js/datatables/extras/FixedHeader/js/FixedHeader.js'));

$script = "$(document).ready(function() {
            var oTable = $('$cssid').dataTable({
                'bAutoWidth': false,
                'sPaginationType': 'full_numbers',
//                'sScrollX': '100%',
//                'sScrollXInner': '110%',
//                'bScrollCollapse': true
            });
            new FixedHeader( oTable );
        } );";
        echo html_writer::script($script);
    }

function cr_add_jsordering($cssid){
	global $DB, $CFG, $OUTPUT;
    echo html_writer::script(false, new moodle_url('/blocks/configurable_reports/js/jquery-latest.js'));
    echo html_writer::script(false, new moodle_url('/blocks/configurable_reports/js/jquery.tablesorter.min.js'));
    $script = '$(document).ready(function() {
        // call the tablesorter plugin
        $("'.$cssid.'").tablesorter();
    });';
    echo html_writer::script($script);
	?>

<?php echo $cssid; ?> th.headerSortUp{
		 background-image:url(<?php echo $OUTPUT->pix_url('asc', 'block_configurable_reports');?>);
		}

<?php echo $cssid; ?> th.headerSortDown{
		 background-image:url(<?php echo $OUTPUT->pix_url('desc', 'block_configurable_reports');?>);
		}
		</style>
	<?php
  }

function urlencode_recursive($var) {
    if (is_object($var)) {
        $new_var = new object();
        $properties = get_object_vars($var);
        foreach($properties as $property => $value) {
            $new_var->$property = urlencode_recursive($value);
        }

} else if (is_array($var)) {
        $new_var = array();
        foreach($var as $property => $value) {
            $new_var[$property] = urlencode_recursive($value);
        }

} else if (is_string($var)) {
        $new_var = urlencode($var);

} else { // nulls, integers, etc.
        $new_var = $var;
    }

return $new_var;
  }

function urldecode_recursive($var) {
    if (is_object($var)) {
        $new_var = new object();
        $properties = get_object_vars($var);
        foreach($properties as $property => $value) {
            $new_var->$property = urldecode_recursive($value);
        }

} else if(is_array($var)) {
        $new_var = array();
        foreach($var as $property => $value) {
            $new_var[$property] = urldecode_recursive($value);
        }

} else if(is_string($var)) {
        $new_var = urldecode($var);

} else {
        $new_var = $var;
    }

return $new_var;
}

function cr_get_my_reports($courseid, $userid, $allcourses=true){
	global $DB;

$reports = array();
    if ($courseid == SITEID){
        $context = context_system::instance();
    } else {
        $context = context_course::instance($courseid);
    }

if(has_capability('block/configurable_reports:managereports', $context, $userid)){
		if($courseid == SITEID && $allcourses)
			$reports = $DB->get_records('block_configurable_reports',null,'name ASC');
		else
			$reports = $DB->get_records('block_configurable_reports',array('courseid' => $courseid),'name ASC');
	}
	else{
		$reports = $DB->get_records_select('block_configurable_reports','ownerid = ? AND courseid = ? ORDER BY name ASC',array($userid,$courseid));
	}
	return $reports;
}

function cr_serialize($var){
	return serialize(urlencode_recursive($var));
 }

function cr_unserialize($var){
	return urldecode_recursive(unserialize($var));
 }

function cr_check_report_permissions($report, $userid, $context){
	global $DB, $CFG;

require_once($CFG->dirroot.'/blocks/configurable_reports/report.class.php');
	require_once($CFG->dirroot.'/blocks/configurable_reports/reports/'.$report->type.'/report.class.php');

$classn = 'report_'.$report->type;
	$classi = new $classn($report->id);
	return $classi->check_permissions($userid, $context);
 }

function cr_get_report_plugins($courseid){

$pluginoptions = array();
	$context = ($courseid == SITEID)? context_system::instance() : context_course::instance($courseid);
	$plugins = get_list_of_plugins('blocks/configurable_reports/reports');

if($plugins)
		foreach($plugins as $p){
			if($p == 'sql' && !has_capability('block/configurable_reports:managesqlreports',$context))
				continue;
			$pluginoptions[$p] = get_string('report_'.$p,'block_configurable_reports');
		}
	return $pluginoptions;
 }

function cr_get_export_plugins(){

$exportoptions = array();
	$plugins = get_list_of_plugins('blocks/configurable_reports/export');

if($plugins)
		foreach($plugins as $p){
			$pluginoptions[$p] = get_string('export_'.$p,'block_configurable_reports');
		}
	return $pluginoptions;
 }

function cr_print_table($table, $return=false) {
    global $COURSE;

$output = '';

if (isset($table->align)) {
        foreach ($table->align as $key => $aa) {
            if ($aa) {
                $align[$key] = ' text-align:'. fix_align_rtl($aa) .';';  // Fix for RTL languages
            } else {
                $align[$key] = '';
            }
        }
    }
    if (isset($table->size)) {
        foreach ($table->size as $key => $ss) {
            if ($ss) {
                $size[$key] = ' width:'. $ss .';';
            } else {
                $size[$key] = '';
            }
        }
    }
    if (isset($table->wrap)) {
        foreach ($table->wrap as $key => $ww) {
            if ($ww) {
                $wrap[$key] = ' white-space:nowrap;';
            } else {
                $wrap[$key] = '';
            }
        }
    }

if (empty($table->width)) {
        $table->width = '80%';
    }

if (empty($table->tablealign)) {
        $table->tablealign = 'center';
    }

if (!isset($table->cellpadding)) {
        $table->cellpadding = '5';
    }

if (!isset($table->cellspacing)) {
        $table->cellspacing = '1';
    }

if (empty($table->class)) {
        $table->class = 'generaltable';
    }

$tableid = empty($table->id) ? '' : 'id="'.$table->id.'"';
    $output .= '<form action="send_emails.php" method="post" id="sendemail">';
    $output .= '<table width="'.$table->width.'" ';
    if (!empty($table->summary)) {
        $output .= " summary=\"$table->summary\"";
    }
    $output .= " cellpadding=\"$table->cellpadding\" cellspacing=\"$table->cellspacing\" class=\"$table->class boxalign$table->tablealign\" $tableid>\n";

$countcols = 0;
    $isuserid = -1;

if (!empty($table->head)) {
        $countcols = count($table->head);
        $output .= '<thead><tr>';
        $keys=array_keys($table->head);
        $lastkey = end($keys);
        foreach ($table->head as $key => $heading) {
            if ($heading == 'sendemail') {
                $isuserid = $key;
            }
            if (!isset($size[$key])) {
                $size[$key] = '';
            }
            if (!isset($align[$key])) {
                $align[$key] = '';
            }
            if ($key == $lastkey) {
                $extraclass = ' lastcol';
            } else {
                $extraclass = '';
            }

$output .= '<th style="vertical-align:top;'. $align[$key].$size[$key] .';white-space:normal;" class="header c'.$key.$extraclass.'" scope="col">'. $heading .'</th>';
        }
        $output .= '</tr></thead>'."\n";
    }

if (!empty($table->data)) {
        $oddeven = 1;
        $keys=array_keys($table->data);
        $lastrowkey = end($keys);
        foreach ($table->data as $key => $row) {
            $oddeven = $oddeven ? 0 : 1;
            if (!isset($table->rowclass[$key])) {
                $table->rowclass[$key] = '';
            }
            if ($key == $lastrowkey) {
                $table->rowclass[$key] .= ' lastrow';
            }
            $output .= '<tr class="r'.$oddeven.' '.$table->rowclass[$key].'">'."\n";
            if ($row == 'hr' and $countcols) {
                $output .= '<td colspan="'. $countcols .'"><div class="tabledivider"></div></td>';
            } else {  /// it's a normal row of data
                $keys2=array_keys($row);
                $lastkey = end($keys2);
                foreach ($row as $key => $item) {
                    if (!isset($size[$key])) {
                        $size[$key] = '';
                    }
                    if (!isset($align[$key])) {
                        $align[$key] = '';
                    }
                    if (!isset($wrap[$key])) {
                        $wrap[$key] = '';
                    }
                    if ($key == $lastkey) {
                      $extraclass = ' lastcol';
                    } else {
                      $extraclass = '';
                    }
                    if ($key == $isuserid) {
                        $output .= '<td style="'. $align[$key].$size[$key].$wrap[$key] .'" class="cell c'.$key.$extraclass.'"><input name="userids[]" type="checkbox" value="'.$item.'"></td>';
                    } else {
                        $output .= '<td style="'. $align[$key].$size[$key].$wrap[$key] .'" class="cell c'.$key.$extraclass.'">'. $item .'</td>';
                    }

}
            }
            $output .= '</tr>'."\n";
        }
    }
    $output .= '</table>'."\n";
    $output .= '<input type="hidden" name="courseid" value="'.$COURSE->id.'">';
    if ($isuserid != -1) {
        $output .= '<input type="submit" value="send emails">';
    }
    $output .= '</form>';

if ($return) {
        return $output;
    }

echo $output;
    return true;
}

function table_to_excel($filename,$table){
    global $DB, $CFG;

require_once($CFG->dirroot.'/lib/excellib.class.php');

if (!empty($table->head)) {
        $countcols = count($table->head);
        $keys=array_keys($table->head);
        $lastkey = end($keys);
        foreach ($table->head as $key => $heading) {
                $matrix[0][$key] = str_replace("\n",' ',htmlspecialchars_decode(strip_tags(nl2br($heading))));
        }
    }

if (!empty($table->data)) {
        foreach ($table->data as $rkey => $row) {
            foreach ($row as $key => $item) {
                $matrix[$rkey + 1][$key] = str_replace("\n",' ',htmlspecialchars_decode(strip_tags(nl2br($item))));
            }
        }
    }

$downloadfilename = clean_filename($filename);
    /// Creating a workbook
    $workbook = new MoodleExcelWorkbook("-");
    /// Sending HTTP headers
    $workbook->send($downloadfilename);
    /// Adding the worksheet
    $myxls =& $workbook->add_worksheet($filename);

foreach($matrix as $ri=>$col){
        foreach($col as $ci=>$cv){
            $myxls->write_string($ri,$ci,$cv);
        }
    }

$workbook->close();
    exit;
}

/**
 * Returns contexts in deprecated and current modes
 *
 * @param  int $context The context
 * @param  int $id      The context id
 * @param  int $flags   The flags to be used
 * @return stdClass     An object instance
 */
function cr_get_context($context, $id = null, $flags = null) {

if ($context == CONTEXT_SYSTEM) {
        if (class_exists('context_system')) {
            return context_system::instance();
        } else {
            return get_context_instance(CONTEXT_SYSTEM);
        }
    } else if ($context == CONTEXT_COURSE) {
        if (class_exists('context_course')) {
            return context_course::instance($id, $flags);
        } else {
            return get_context_instance($context, $id, $flags);
        }
    } else if ($context == CONTEXT_COURSECAT) {
        if (class_exists('context_coursecat')) {
            return context_coursecat::instance($id, $flags);
        } else {
            return get_context_instance($context, $id, $flags);
        }
    } else if ($context == CONTEXT_BLOCK) {
        if (class_exists('context_block')) {
            return context_block::instance($id, $flags);
        } else {
            return get_context_instance($context, $id, $flags);
        }
    } else if ($context == CONTEXT_MODULE) {
        if (class_exists('context_module')) {
            return get_context_instance::instance($id, $flags);
        } else {
            return get_context_instance($context, $id, $flags);
        }
    } else if ($context == CONTEXT_USER) {
        if (class_exists('context_user')) {
            return context_user::instance($id, $flags);
        } else {
            return get_context_instance($context, $id, $flags);
        }
    }

return get_context_instance($context, $id, $flags);
}

function cr_make_categories_list(&$list, &$parents, $requiredcapability = '',
        $excludeid = 0, $category = NULL, $path = "") {
    global $CFG, $DB;
    require_once($CFG->libdir.'/coursecatlib.php');

// For categories list use just this one function:
    if (empty($list)) {
        $list = array();
    }
    $list += coursecat::cr_make_categories_list($requiredcapability, $excludeid);

// Building the list of all parents of all categories in the system is highly undesirable and hardly ever needed.
    // Usually user needs only parents for one particular category, in which case should be used:
    // coursecat::get($categoryid)->get_parents()
    if (empty($parents)) {
        $parents = array();
    }
    $all = $DB->get_records_sql('SELECT id, parent FROM {course_categories} ORDER BY sortorder');
    foreach ($all as $record) {
        if ($record->parent) {
            $parents[$record->id] = array_merge($parents[$record->parent], array($record->parent));
        } else {
            $parents[$record->id] = array();
        }
    }
}

function cr_import_xml($xml, $course) {
    global $CFG, $DB, $USER;

require_once($CFG->dirroot.'/lib/xmlize.php');
    $data = xmlize($xml, 1, 'UTF-8');

if(isset($data['report']['@']['version'])){
        $newreport = new stdclass;
        foreach($data['report']['#'] as $key=>$val){
            if($key == 'components') {
                $val[0]['#'] = base64_decode(trim($val[0]['#']));
                // fix url_encode " and ' when importing SQL queries
                $temp_components = cr_unserialize($val[0]['#']);
                $temp_components['customsql']['config']->querysql = str_replace("\'","'",$temp_components['customsql']['config']->querysql);
                $temp_components['customsql']['config']->querysql = str_replace('\"','"',$temp_components['customsql']['config']->querysql);
                $val[0]['#'] = cr_serialize($temp_components);
            }
            $newreport->{$key} = trim($val[0]['#']);
        }
        $newreport->courseid = $course->id;
        $newreport->ownerid = $USER->id;
        $newreport->name .= " (" . userdate(time()) . ")";

if(!$DB->insert_record('block_configurable_reports',$newreport)) {
            return false;
        }
        return true;
    }
    return false;
}

// For avoid warnings in versions minor than 2.7
function cr_add_to_log($courseid, $module, $action, $url='', $info='', $cm=0, $user=0) {
    global $CFG;

if ($CFG->version < 2014051200) {
        add_to_log($courseid, $module, $action, $url, $info, $cm, $user);
    }
}