exit;
}
+ $courses = array();
+
if ($course->id == SITEID) {
$courses[0] = '';
- if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname,c.visible')) {
+ if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname')) {
foreach ($ccc as $cc) {
$courses[$cc->id] = $cc->shortname;
}
}
+ } else {
+ $courses[$course->id] = $course->shortname;
}
$totalcount = $logs['totalcount'];
return false;
}
+ $courses = array();
+
if ($course->id == SITEID) {
$courses[0] = '';
if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname')) {
$courses[$cc->id] = $cc->shortname;
}
}
+ } else {
+ $courses[$course->id] = $course->shortname;
}
$count=0;
return false;
}
+ $courses = array();
+
if ($course->id == SITEID) {
$courses[0] = '';
if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname')) {
$courses[$cc->id] = $cc->shortname;
}
}
+ } else {
+ $courses[$course->id] = $course->shortname;
}
$count=0;
return true;
}
+function print_log_ods($course, $user, $date, $order='l.time DESC', $modname,
+ $modid, $modaction, $groupid) {
+
+ global $CFG;
+
+ require_once("$CFG->libdir/odslib.class.php");
+
+ if (!$logs = build_logs_array($course, $user, $date, $order, '', '',
+ $modname, $modid, $modaction, $groupid)) {
+ return false;
+ }
+
+ $courses = array();
+
+ if ($course->id == SITEID) {
+ $courses[0] = '';
+ if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname')) {
+ foreach ($ccc as $cc) {
+ $courses[$cc->id] = $cc->shortname;
+ }
+ }
+ } else {
+ $courses[$course->id] = $course->shortname;
+ }
+
+ $count=0;
+ $ldcache = array();
+ $tt = getdate(time());
+ $today = mktime (0, 0, 0, $tt["mon"], $tt["mday"], $tt["year"]);
+
+ $strftimedatetime = get_string("strftimedatetime");
+
+ $nroPages = ceil(count($logs)/(EXCELROWS-FIRSTUSEDEXCELROW+1));
+ $filename = 'logs_'.userdate(time(),get_string('backupnameformat'),99,false);
+ $filename .= '.ods';
+
+ $workbook = new MoodleODSWorkbook('-');
+ $workbook->send($filename);
+
+ $worksheet = array();
+ $headers = array(get_string('course'), get_string('time'), get_string('ip_address'),
+ get_string('fullname'), get_string('action'), get_string('info'));
+
+ // Creating worksheets
+ for ($wsnumber = 1; $wsnumber <= $nroPages; $wsnumber++) {
+ $sheettitle = get_string('excel_sheettitle', 'logs', $wsnumber).$nroPages;
+ $worksheet[$wsnumber] =& $workbook->add_worksheet($sheettitle);
+ $worksheet[$wsnumber]->set_column(1, 1, 30);
+ $worksheet[$wsnumber]->write_string(0, 0, get_string('savedat').
+ userdate(time(), $strftimedatetime));
+ $col = 0;
+ foreach ($headers as $item) {
+ $worksheet[$wsnumber]->write(FIRSTUSEDEXCELROW-1,$col,$item,'');
+ $col++;
+ }
+ }
+
+ if (empty($logs['logs'])) {
+ $workbook->close();
+ return true;
+ }
+
+ $formatDate =& $workbook->add_format();
+ $formatDate->set_num_format(get_string('log_excel_date_format'));
+
+ $row = FIRSTUSEDEXCELROW;
+ $wsnumber = 1;
+ $myxls =& $worksheet[$wsnumber];
+ foreach ($logs['logs'] as $log) {
+ if (isset($ldcache[$log->module][$log->action])) {
+ $ld = $ldcache[$log->module][$log->action];
+ } else {
+ $ld = get_record('log_display', 'module', $log->module, 'action', $log->action);
+ $ldcache[$log->module][$log->action] = $ld;
+ }
+ if ($ld && !empty($log->info)) {
+ // ugly hack to make sure fullname is shown correctly
+ if (($ld->mtable == 'user') and ($ld->field == sql_concat('firstname', "' '" , 'lastname'))) {
+ $log->info = fullname(get_record($ld->mtable, 'id', $log->info), true);
+ } else {
+ $log->info = get_field($ld->mtable, $ld->field, 'id', $log->info);
+ }
+ }
+
+ // Filter log->info
+ $log->info = format_string($log->info);
+ $log->info = strip_tags(urldecode($log->info)); // Some XSS protection
+
+ if ($nroPages>1) {
+ if ($row > EXCELROWS) {
+ $wsnumber++;
+ $myxls =& $worksheet[$wsnumber];
+ $row = FIRSTUSEDEXCELROW;
+ }
+ }
+
+ $myxls->write($row, 0, $courses[$log->course], '');
+ // Excel counts from 1/1/1900
+ $myxls->write_date($row, 1, $log->time, $formatDate);
+ $myxls->write($row, 2, $log->ip, '');
+ $fullname = fullname($log, has_capability('moodle/site:viewfullnames', get_context_instance(CONTEXT_COURSE, $course->id)));
+ $myxls->write($row, 3, $fullname, '');
+ $myxls->write($row, 4, $log->module.' '.$log->action, '');
+ $myxls->write($row, 5, $log->info, '');
+
+ $row++;
+ }
+
+ $workbook->close();
+ return true;
+}
+
/*
// Relies on $CFG->libdir.'/phpdocwriter/lib/include.php', which is not
// included in the default Moodle distribution.
return $ws;
}
+ /* Create one Moodle Format
+ * @param array $properties array of properties [name]=value;
+ * valid names are set_XXXX existing
+ * functions without the set_ part
+ * i.e: [bold]=1 for set_bold(1)...Optional!
+ */
+ function &add_format($properties = array()) {
+ $format = new MoodleODSFormat($this);
+ return $format;;
+ }
+
/* Close the Moodle Workbook
*/
function close() {
$this->data[$row][$col] = new object();
$this->data[$row][$col]->value = $str;
$this->data[$row][$col]->type = 'string';
+ $this->data[$row][$col]->format = $format;
}
/* Write one number somewhere in the worksheet
$this->data[$row][$col] = new object();
$this->data[$row][$col]->value = $num;
$this->data[$row][$col]->type = 'float';
+ $this->data[$row][$col]->format = $format;
}
/* Write one url somewhere in the worksheet
$this->data[$row][$col] = new object();
$this->data[$row][$col]->value = $url;
$this->data[$row][$col]->type = 'string';
+ $this->data[$row][$col]->format = $format;
+ }
+
+ /* Write one date somewhere in the worksheet
+ * @param integer $row Zero indexed row
+ * @param integer $col Zero indexed column
+ * @param string $url The url to write
+ * @param mixed $format The XF format for the cell
+ */
+ function write_date($row, $col, $date, $format=0) {
+ if (!array_key_exists($row, $this->data)) {
+ $this->data[$row] = array();
+ }
+ $this->data[$row][$col] = new object();
+ $this->data[$row][$col]->value = $date;
+ $this->data[$row][$col]->type = 'date';
+ $this->data[$row][$col]->format = $format;
}
/* Write one blanck somewhere in the worksheet
return $this->write_string($row, $col, $token, $format);
}
}
+
+ /* Sets the height (and other settings) of one row
+ * @param integer $row The row to set
+ * @param integer $height Height we are giving to the row (null to set just format withouth setting the height)
+ * @param mixed $format The optional XF format we are giving to the row
+ * @param bool $hidden The optional hidden attribute
+ * @param integer $level The optional outline level (0-7)
+ */
+ function set_row ($row, $height, $format = 0, $hidden = false, $level = 0) {
+ //not defined yet
+ }
+
+ /* Sets the width (and other settings) of one column
+ * @param integer $firstcol first column on the range
+ * @param integer $lastcol last column on the range
+ * @param integer $width width to set
+ * @param mixed $format The optional XF format to apply to the columns
+ * @param integer $hidden The optional hidden atribute
+ * @param integer $level The optional outline level (0-7)
+ */
+ function set_column ($firstcol, $lastcol, $width, $format = 0, $hidden = false, $level = 0) {
+ //not defined yet
+ }
+
}
+/**
+* Define and operate over one Format.
+*
+* A big part of this class acts as a wrapper over the PEAR
+* Spreadsheet_Excel_Writer_Workbook and OLE libraries
+* maintaining Moodle functions isolated from underlying code.
+*/
+class MoodleODSFormat {
+
+ /* Constructs one Moodle Format.
+ * @param object $workbook The internal PEAR Workbook onject we are creating
+ */
+ function MoodleODSFormat(&$workbook, $properties = array()) {
+ }
+
+ /* Set weight of the format
+ * @param integer $weight Weight for the text, 0 maps to 400 (normal text),
+ * 1 maps to 700 (bold text). Valid range is: 100-1000.
+ * It's Optional, default is 1 (bold).
+ */
+ function set_bold($weight = 1) {
+ }
+
+ /* Set underline of the format
+ * @param integer $underline The value for underline. Possible values are:
+ * 1 => underline, 2 => double underline
+ */
+ function set_underline($underline) {
+ }
+
+ /* Set italic of the format
+ */
+ function set_italic() {
+ }
+
+ /* Set strikeout of the format
+ */
+ function set_strikeout() {
+ }
+
+ /* Set outlining of the format
+ */
+ function set_outline() {
+ }
+
+ /* Set shadow of the format
+ */
+ function set_shadow() {
+ }
+
+ /* Set the script of the text
+ * @param integer $script The value for script type. Possible values are:
+ * 1 => superscript, 2 => subscript
+ */
+ function set_script($script) {
+ }
+
+ /* Set color of the format
+ * @param mixed $color either a string (like 'blue'), or an integer (range is [8...63])
+ */
+ function set_color($color) {
+ }
+
+ /* Set foreground color of the format
+ * @param mixed $color either a string (like 'blue'), or an integer (range is [8...63])
+ */
+ function set_fg_color($color) {
+ }
+
+ /* Set background color of the format
+ * @param mixed $color either a string (like 'blue'), or an integer (range is [8...63])
+ */
+ function set_bg_color($color) {
+ }
+
+ /* Set the fill pattern of the format
+ * @param integer Optional. Defaults to 1. Meaningful values are: 0-18
+ * 0 meaning no background.
+ */
+ function set_pattern($pattern=1) {
+ }
+
+ /* Set text wrap of the format
+ */
+ function set_text_wrap() {
+ }
+
+ /* Set the cell alignment of the format
+ * @param string $location alignment for the cell ('left', 'right', etc...)
+ */
+ function set_align($location) {
+ }
+
+ /* Set the cell horizontal alignment of the format
+ * @param string $location alignment for the cell ('left', 'right', etc...)
+ */
+ function set_h_align($location) {
+ }
+
+ /* Set the cell vertical alignment of the format
+ * @param string $location alignment for the cell ('top', 'vleft', etc...)
+ */
+ function set_v_align($location) {
+ }
+
+ /* Set the top border of the format
+ * @param integer $style style for the cell. 1 => thin, 2 => thick
+ */
+ function set_top($style) {
+ }
+
+ /* Set the bottom border of the format
+ * @param integer $style style for the cell. 1 => thin, 2 => thick
+ */
+ function set_bottom($style) {
+ }
+
+ /* Set the left border of the format
+ * @param integer $style style for the cell. 1 => thin, 2 => thick
+ */
+ function set_left($style) {
+ }
+
+ /* Set the right border of the format
+ * @param integer $style style for the cell. 1 => thin, 2 => thick
+ */
+ function set_right($style) {
+ }
+
+ /**
+ * Set cells borders to the same style
+ * @param integer $style style to apply for all cell borders. 1 => thin, 2 => thick.
+ */
+ function set_border($style) {
+ }
+
+ /* Set the numerical format of the format
+ * It can be date, time, currency, etc...
+ /* Set the numerical format of the format
+ * It can be date, time, currency, etc...
+ * @param integer $num_format The numeric format
+ */
+ function set_num_format($num_format) {
+ }
+}
+
+
+//=============================
+// OpenDocument XML functions
+//=============================
function get_ods_content(&$worksheets) {
/// header
. 'xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0" '
. 'xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0" '
. 'xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0" office:version="1.0">'
+ . 'xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0"'
. '<office:body>'
. '<office:spreadsheet>';
$buffer .= '<table:table-row>';
for($c=0; $c<=$nc; $c++) {
if (isset($ws->data[$r][$c])) {
- $buffer .= '<table:table-cell office:value-type="' . $ws->data[$r][$c]->type . '">'
- . '<text:p>' . htmlspecialchars($ws->data[$r][$c]->value) . '</text:p>'
- . '</table:table-cell>';
+ if ($ws->data[$r][$c]->type == 'date') {
+ $buffer .= '<table:table-cell office:value-type="date" table:style-name="Default" office:date-value="' . strftime('%Y-%m-%dT%H:%M:%S', $ws->data[$r][$c]->value) . '">'
+ . '<text:p>' . htmlspecialchars($ws->data[$r][$c]->value) . '</text:p>'
+ . '</table:table-cell>';
+ } else {
+ $buffer .= '<table:table-cell office:value-type="' . $ws->data[$r][$c]->type . '">'
+ . '<text:p>' . htmlspecialchars($ws->data[$r][$c]->value) . '</text:p>'
+ . '</table:table-cell>';
+ }
} else {
$buffer .= '<table:table-cell/>';
}
. 'xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0" '
. 'xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0" '
. 'xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0" office:version="1.0">'
+ . 'xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0"'
. '<office:font-face-decls>'
. '<style:font-face style:name="Arial Unicode MS" svg:font-family="\'Arial Unicode MS\'" style:font-pitch="variable"/>'
. '<style:font-face style:name="DejaVu Sans1" svg:font-family="\'DejaVu Sans\'" style:font-pitch="variable"/>'
. '<style:font-face style:name="DejaVu Sans" svg:font-family="\'DejaVu Sans\'" style:font-family-generic="swiss" style:font-pitch="variable"/>'
. '</office:font-face-decls>'
. '<office:styles>'
+ . '<style:style style:name="Default" style:family="table-cell" />'
. '<style:default-style style:family="paragraph">'
. '<style:paragraph-properties fo:hyphenation-ladder-count="no-limit" style:text-autospace="ideograph-alpha" style:punctuation-wrap="hanging" style:line-break="strict" style:tab-stop-distance="0.4925in" style:writing-mode="page"/>'
. '<style:text-properties style:use-window-font-color="true" style:font-name="DejaVu Serif" fo:font-size="12pt" fo:language="en" fo:country="US" style:font-name-asian="DejaVu Sans1" style:font-size-asian="12pt" style:language-asian="none" style:country-asian="none" style:font-name-complex="DejaVu Sans1" style:font-size-complex="12pt" style:language-complex="none" style:country-complex="none" fo:hyphenate="false" fo:hyphenation-remain-char-count="2" fo:hyphenation-push-char-count="2"/>'
projects / moodle.git / commitdiff