/lib/odslib.class.php
PHP | 1491 lines | 1047 code | 109 blank | 335 comment | 156 complexity | 8d8ead476ebb13569d69bc8e00fbb0f7 MD5 | raw file
Possible License(s): Apache-2.0, LGPL-2.1, BSD-3-Clause, MIT, GPL-3.0
Large files files are truncated, but you can click here to view the full file
- <?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/>.
- /**
- * ODS file writer.
- * The xml used here is derived from output of LibreOffice 3.6.4
- *
- * The design is based on Excel writer abstraction by Eloy Lafuente and others.
- *
- * @package core
- * @copyright 2006 Petr Skoda {@link http://skodak.org}
- * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
- */
- defined('MOODLE_INTERNAL') || die();
- /**
- * ODS workbook abstraction.
- *
- * @package core
- * @copyright 2006 Petr Skoda {@link http://skodak.org}
- * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
- */
- class MoodleODSWorkbook {
- protected $worksheets = array();
- protected $filename;
- public function __construct($filename) {
- $this->filename = $filename;
- }
- /**
- * Create one Moodle Worksheet.
- *
- * @param string $name Name of the sheet
- * @return MoodleODSWorksheet
- */
- public function add_worksheet($name = '') {
- $ws = new MoodleODSWorksheet($name, $this->worksheets);
- $this->worksheets[] = $ws;
- 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!
- * @return MoodleODSFormat
- */
- public function add_format($properties = array()) {
- return new MoodleODSFormat($properties);
- }
- /**
- * Close the Moodle Workbook.
- */
- public function close() {
- global $CFG;
- require_once($CFG->libdir . '/filelib.php');
- $writer = new MoodleODSWriter($this->worksheets);
- $contents = $writer->get_file_content();
- send_file($contents, $this->filename, 0, 0, true, true, $writer->get_ods_mimetype());
- }
- /**
- * Not required to use.
- * @param string $filename Name of the downloaded file
- */
- public function send($filename) {
- $this->filename = $filename;
- }
- }
- /**
- * ODS Cell abstraction.
- *
- * @package core
- * @copyright 2013 Petr Skoda {@link http://skodak.org}
- * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
- */
- class MoodleODSCell {
- public $value;
- public $type;
- public $format;
- public $formula;
- }
- /**
- * ODS Worksheet abstraction.
- *
- * @package core
- * @copyright 2006 Petr Skoda {@link http://skodak.org}
- * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
- */
- class MoodleODSWorksheet {
- public $data = array();
- public $columns = array();
- public $rows = array();
- public $showgrid = true;
- public $name;
- /**
- * Constructs one Moodle Worksheet.
- *
- * @param string $name The name of the file
- * @param array $worksheets existing worksheets
- */
- public function __construct($name, array $worksheets) {
- // Replace any characters in the name that Excel cannot cope with.
- $name = strtr($name, '[]*/\?:', ' ');
- if ($name === '') {
- // Name is required!
- $name = 'Sheet'.(count($worksheets)+1);
- }
- $this->name = $name;
- }
- /**
- * Write one string somewhere in the worksheet.
- *
- * @param integer $row Zero indexed row
- * @param integer $col Zero indexed column
- * @param string $str The string to write
- * @param mixed $format The XF format for the cell
- */
- public function write_string($row, $col, $str, $format = null) {
- if (!isset($this->data[$row][$col])) {
- $this->data[$row][$col] = new MoodleODSCell();
- }
- if (is_array($format)) {
- $format = new MoodleODSFormat($format);
- }
- $this->data[$row][$col]->value = $str;
- $this->data[$row][$col]->type = 'string';
- $this->data[$row][$col]->format = $format;
- $this->data[$row][$col]->formula = null;
- }
- /**
- * Write one number somewhere in the worksheet.
- *
- * @param integer $row Zero indexed row
- * @param integer $col Zero indexed column
- * @param float $num The number to write
- * @param mixed $format The XF format for the cell
- */
- public function write_number($row, $col, $num, $format = null) {
- if (!isset($this->data[$row][$col])) {
- $this->data[$row][$col] = new MoodleODSCell();
- }
- if (is_array($format)) {
- $format = new MoodleODSFormat($format);
- }
- $this->data[$row][$col]->value = $num;
- $this->data[$row][$col]->type = 'float';
- $this->data[$row][$col]->format = $format;
- $this->data[$row][$col]->formula = null;
- }
- /**
- * Write one url 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
- */
- public function write_url($row, $col, $url, $format = null) {
- if (!isset($this->data[$row][$col])) {
- $this->data[$row][$col] = new MoodleODSCell();
- }
- if (is_array($format)) {
- $format = new MoodleODSFormat($format);
- }
- $this->data[$row][$col]->value = $url;
- $this->data[$row][$col]->type = 'string';
- $this->data[$row][$col]->format = $format;
- $this->data[$row][$col]->formula = null;
- }
- /**
- * Write one date somewhere in the worksheet.
- *
- * @param integer $row Zero indexed row
- * @param integer $col Zero indexed column
- * @param string $date The url to write
- * @param mixed $format The XF format for the cell
- */
- public function write_date($row, $col, $date, $format = null) {
- if (!isset($this->data[$row][$col])) {
- $this->data[$row][$col] = new MoodleODSCell();
- }
- if (is_array($format)) {
- $format = new MoodleODSFormat($format);
- }
- $this->data[$row][$col]->value = $date;
- $this->data[$row][$col]->type = 'date';
- $this->data[$row][$col]->format = $format;
- $this->data[$row][$col]->formula = null;
- }
- /**
- * Write one formula somewhere in the worksheet.
- *
- * @param integer $row Zero indexed row
- * @param integer $col Zero indexed column
- * @param string $formula The formula to write
- * @param mixed $format The XF format for the cell
- */
- public function write_formula($row, $col, $formula, $format = null) {
- if (!isset($this->data[$row][$col])) {
- $this->data[$row][$col] = new MoodleODSCell();
- }
- if (is_array($format)) {
- $format = new MoodleODSFormat($format);
- }
- $this->data[$row][$col]->formula = $formula;
- $this->data[$row][$col]->format = $format;
- $this->data[$row][$col]->value = null;
- $this->data[$row][$col]->format = null;
- }
- /**
- * Write one blank somewhere in the worksheet.
- *
- * @param integer $row Zero indexed row
- * @param integer $col Zero indexed column
- * @param mixed $format The XF format for the cell
- */
- public function write_blank($row, $col, $format = null) {
- if (is_array($format)) {
- $format = new MoodleODSFormat($format);
- }
- $this->write_string($row, $col, '', $format);
- }
- /**
- * Write anything somewhere in the worksheet,
- * type will be automatically detected.
- *
- * @param integer $row Zero indexed row
- * @param integer $col Zero indexed column
- * @param mixed $token What we are writing
- * @param mixed $format The XF format for the cell
- */
- public function write($row, $col, $token, $format = null) {
- // Analyse what are we trying to send.
- if (preg_match("/^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/", $token)) {
- // Match number
- return $this->write_number($row, $col, $token, $format);
- } elseif (preg_match("/^[fh]tt?p:\/\//", $token)) {
- // Match http or ftp URL
- return $this->write_url($row, $col, $token, '', $format);
- } elseif (preg_match("/^mailto:/", $token)) {
- // Match mailto:
- return $this->write_url($row, $col, $token, '', $format);
- } elseif (preg_match("/^(?:in|ex)ternal:/", $token)) {
- // Match internal or external sheet link
- return $this->write_url($row, $col, $token, '', $format);
- } elseif (preg_match("/^=/", $token)) {
- // Match formula
- return $this->write_formula($row, $col, $token, $format);
- } elseif (preg_match("/^@/", $token)) {
- // Match formula
- return $this->write_formula($row, $col, $token, $format);
- } elseif ($token == '') {
- // Match blank
- return $this->write_blank($row, $col, $format);
- } else {
- // Default: match string
- 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 without setting the height)
- * @param mixed $format The optional format we are giving to the row
- * @param bool $hidden The optional hidden attribute
- * @param integer $level The optional outline level (0-7)
- */
- public function set_row($row, $height, $format = null, $hidden = false, $level = 0) {
- if (is_array($format)) {
- $format = new MoodleODSFormat($format);
- }
- if ($level < 0) {
- $level = 0;
- } else if ($level > 7) {
- $level = 7;
- }
- if (!isset($this->rows[$row])) {
- $this->rows[$row] = new stdClass();
- }
- if (isset($height)) {
- $this->rows[$row]->height = $height;
- }
- $this->rows[$row]->format = $format;
- $this->rows[$row]->hidden = $hidden;
- $this->rows[$row]->level = $level;
- }
- /**
- * 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 (null to set just format without setting the width)
- * @param mixed $format The optional format to apply to the columns
- * @param bool $hidden The optional hidden attribute
- * @param integer $level The optional outline level (0-7)
- */
- public function set_column($firstcol, $lastcol, $width, $format = null, $hidden = false, $level = 0) {
- if (is_array($format)) {
- $format = new MoodleODSFormat($format);
- }
- if ($level < 0) {
- $level = 0;
- } else if ($level > 7) {
- $level = 7;
- }
- for($i=$firstcol; $i<=$lastcol; $i++) {
- if (!isset($this->columns[$i])) {
- $this->columns[$i] = new stdClass();
- }
- if (isset($width)) {
- $this->columns[$i]->width = $width*6.15; // 6.15 is a magic constant here!
- }
- $this->columns[$i]->format = $format;
- $this->columns[$i]->hidden = $hidden;
- $this->columns[$i]->level = $level;
- }
- }
- /**
- * Set the option to hide gridlines on the printed page.
- */
- public function hide_gridlines() {
- // Not implemented - always off.
- }
- /**
- * Set the option to hide gridlines on the worksheet (as seen on the screen).
- */
- public function hide_screen_gridlines() {
- $this->showgrid = false;
- }
- /**
- * Insert a 24bit bitmap image in a worksheet.
- *
- * @param integer $row The row we are going to insert the bitmap into
- * @param integer $col The column we are going to insert the bitmap into
- * @param string $bitmap The bitmap filename
- * @param integer $x The horizontal position (offset) of the image inside the cell.
- * @param integer $y The vertical position (offset) of the image inside the cell.
- * @param integer $scale_x The horizontal scale
- * @param integer $scale_y The vertical scale
- */
- public function insert_bitmap($row, $col, $bitmap, $x = 0, $y = 0, $scale_x = 1, $scale_y = 1) {
- // Not implemented.
- }
- /**
- * Merges the area given by its arguments.
- *
- * @param integer $first_row First row of the area to merge
- * @param integer $first_col First column of the area to merge
- * @param integer $last_row Last row of the area to merge
- * @param integer $last_col Last column of the area to merge
- */
- public function merge_cells($first_row, $first_col, $last_row, $last_col) {
- if ($first_row > $last_row or $first_col > $last_col) {
- return;
- }
- if (!isset($this->data[$first_row][$first_col])) {
- $this->data[$first_row][$first_col] = new MoodleODSCell();
- }
- $this->data[$first_row][$first_col]->merge = array('rows'=>($last_row-$first_row+1), 'columns'=>($last_col-$first_col+1));
- }
- }
- /**
- * ODS cell format abstraction.
- *
- * @package core
- * @copyright 2006 Petr Skoda {@link http://skodak.org}
- * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
- */
- class MoodleODSFormat {
- public $id;
- public $properties = array();
- /**
- * Constructs one Moodle Format.
- *
- * @param array $properties
- */
- public function __construct($properties = array()) {
- static $fid = 1;
- $this->id = $fid++;
- foreach($properties as $property => $value) {
- if (method_exists($this, "set_$property")) {
- $aux = 'set_'.$property;
- $this->$aux($value);
- }
- }
- }
- /**
- * Set the size of the text in the format (in pixels).
- * By default all texts in generated sheets are 10pt.
- *
- * @param integer $size Size of the text (in points)
- */
- public function set_size($size) {
- $this->properties['size'] = $size;
- }
- /**
- * 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).
- */
- public function set_bold($weight = 1) {
- if ($weight == 1) {
- $weight = 700;
- }
- $this->properties['bold'] = ($weight > 400);
- }
- /**
- * Set underline of the format.
- *
- * @param integer $underline The value for underline. Possible values are:
- * 1 => underline, 2 => double underline
- */
- public function set_underline($underline = 1) {
- if ($underline == 1) {
- $this->properties['underline'] = 1;
- } else if ($underline == 2) {
- $this->properties['underline'] = 2;
- } else {
- unset($this->properties['underline']);
- }
- }
- /**
- * Set italic of the format.
- */
- public function set_italic() {
- $this->properties['italic'] = true;
- }
- /**
- * Set strikeout of the format
- */
- public function set_strikeout() {
- $this->properties['strikeout'] = true;
- }
- /**
- * Set outlining of the format.
- */
- public function set_outline() {
- // Not implemented.
- }
- /**
- * Set shadow of the format.
- */
- public function set_shadow() {
- // Not implemented.
- }
- /**
- * Set the script of the text.
- *
- * @param integer $script The value for script type. Possible values are:
- * 1 => superscript, 2 => subscript
- */
- public function set_script($script) {
- if ($script == 1) {
- $this->properties['super_script'] = true;
- unset($this->properties['sub_script']);
- } else if ($script == 2) {
- $this->properties['sub_script'] = true;
- unset($this->properties['super_script']);
- } else {
- unset($this->properties['sub_script']);
- unset($this->properties['super_script']);
- }
- }
- /**
- * Set color of the format.
- *
- * @param mixed $color either a string (like 'blue'), or an integer (range is [8...63])
- */
- public function set_color($color) {
- $this->properties['color'] = $this->parse_color($color);
- }
- /**
- * Not used.
- *
- * @param mixed $color
- */
- public function set_fg_color($color) {
- // Not implemented.
- }
- /**
- * Set background color of the cell.
- *
- * @param mixed $color either a string (like 'blue'), or an integer (range is [8...63])
- */
- public function set_bg_color($color) {
- $this->properties['bg_color'] = $this->parse_color($color);
- }
- /**
- * Set the cell fill pattern.
- *
- * @deprecated use set_bg_color() instead.
- * @param integer
- */
- public function set_pattern($pattern=1) {
- if ($pattern > 0) {
- if (!isset($this->properties['bg_color'])) {
- $this->properties['bg_color'] = $this->parse_color('black');
- }
- } else {
- unset($this->properties['bg_color']);
- }
- }
- /**
- * Set text wrap of the format
- */
- public function set_text_wrap() {
- $this->properties['wrap'] = true;
- }
- /**
- * Set the cell alignment of the format.
- *
- * @param string $location alignment for the cell ('left', 'right', 'justify', etc...)
- */
- public function set_align($location) {
- if (in_array($location, array('left', 'centre', 'center', 'right', 'fill', 'merge', 'justify', 'equal_space'))) {
- $this->set_h_align($location);
- } else if (in_array($location, array('top', 'vcentre', 'vcenter', 'bottom', 'vjustify', 'vequal_space'))) {
- $this->set_v_align($location);
- }
- }
- /**
- * Set the cell horizontal alignment of the format.
- *
- * @param string $location alignment for the cell ('left', 'right', 'justify', etc...)
- */
- public function set_h_align($location) {
- switch ($location) {
- case 'left':
- $this->properties['align'] = 'start';
- break;
- case 'center':
- case 'centre':
- $this->properties['align'] = 'center';
- break;
- case 'right':
- $this->properties['align'] = 'end';
- break;
- }
- }
- /**
- * Set the cell vertical alignment of the format.
- *
- * @param string $location alignment for the cell ('top', 'bottom', 'center', 'justify')
- */
- public function set_v_align($location) {
- switch ($location) {
- case 'top':
- $this->properties['v_align'] = 'top';
- break;
- case 'vcentre':
- case 'vcenter':
- case 'centre':
- case 'center':
- $this->properties['v_align'] = 'middle';
- break;
- default:
- $this->properties['v_align'] = 'bottom';
- }
- }
- /**
- * Set the top border of the format.
- *
- * @param integer $style style for the cell. 1 => thin, 2 => thick
- */
- public function set_top($style) {
- if ($style == 1) {
- $style = 0.2;
- } else if ($style == 2) {
- $style = 0.5;
- } else {
- return;
- }
- $this->properties['border_top'] = $style;
- }
- /**
- * Set the bottom border of the format.
- *
- * @param integer $style style for the cell. 1 => thin, 2 => thick
- */
- public function set_bottom($style) {
- if ($style == 1) {
- $style = 0.2;
- } else if ($style == 2) {
- $style = 0.5;
- } else {
- return;
- }
- $this->properties['border_bottom'] = $style;
- }
- /**
- * Set the left border of the format.
- *
- * @param integer $style style for the cell. 1 => thin, 2 => thick
- */
- public function set_left($style) {
- if ($style == 1) {
- $style = 0.2;
- } else if ($style == 2) {
- $style = 0.5;
- } else {
- return;
- }
- $this->properties['border_left'] = $style;
- }
- /**
- * Set the right border of the format.
- *
- * @param integer $style style for the cell. 1 => thin, 2 => thick
- */
- public function set_right($style) {
- if ($style == 1) {
- $style = 0.2;
- } else if ($style == 2) {
- $style = 0.5;
- } else {
- return;
- }
- $this->properties['border_right'] = $style;
- }
- /**
- * Set cells borders to the same style
- * @param integer $style style to apply for all cell borders. 1 => thin, 2 => thick.
- */
- public function set_border($style) {
- $this->set_top($style);
- $this->set_bottom($style);
- $this->set_left($style);
- $this->set_right($style);
- }
- /**
- * Set the numerical format of the format.
- * It can be date, time, currency, etc...
- *
- * @param mixed $num_format The numeric format
- */
- public function set_num_format($num_format) {
- $numbers = array();
- $numbers[1] = '0';
- $numbers[2] = '0.00';
- $numbers[3] = '#,##0';
- $numbers[4] = '#,##0.00';
- $numbers[11] = '0.00E+00';
- $numbers[12] = '# ?/?';
- $numbers[13] = '# ??/??';
- $numbers[14] = 'mm-dd-yy';
- $numbers[15] = 'd-mmm-yy';
- $numbers[16] = 'd-mmm';
- $numbers[17] = 'mmm-yy';
- $numbers[22] = 'm/d/yy h:mm';
- $numbers[49] = '@';
- if ($num_format !== 0 and in_array($num_format, $numbers)) {
- $flipped = array_flip($numbers);
- $this->properties['num_format'] = $flipped[$num_format];
- }
- if (!isset($numbers[$num_format])) {
- return;
- }
- $this->properties['num_format'] = $num_format;
- }
- /**
- * Standardise colour name.
- *
- * @param mixed $color name of the color (i.e.: 'blue', 'red', etc..), or an integer (range is [8...63]).
- * @return string the RGB color value
- */
- protected function parse_color($color) {
- if (strpos($color, '#') === 0) {
- // No conversion should be needed.
- return $color;
- }
- if ($color > 7 and $color < 53) {
- $numbers = array(
- 8 => 'black',
- 12 => 'blue',
- 16 => 'brown',
- 15 => 'cyan',
- 23 => 'gray',
- 17 => 'green',
- 11 => 'lime',
- 14 => 'magenta',
- 18 => 'navy',
- 53 => 'orange',
- 33 => 'pink',
- 20 => 'purple',
- 10 => 'red',
- 22 => 'silver',
- 9 => 'white',
- 13 => 'yellow',
- );
- if (isset($numbers[$color])) {
- $color = $numbers[$color];
- } else {
- $color = 'black';
- }
- }
- $colors = array(
- 'aqua' => '00FFFF',
- 'black' => '000000',
- 'blue' => '0000FF',
- 'brown' => 'A52A2A',
- 'cyan' => '00FFFF',
- 'fuchsia' => 'FF00FF',
- 'gray' => '808080',
- 'grey' => '808080',
- 'green' => '00FF00',
- 'lime' => '00FF00',
- 'magenta' => 'FF00FF',
- 'maroon' => '800000',
- 'navy' => '000080',
- 'orange' => 'FFA500',
- 'olive' => '808000',
- 'pink' => 'FAAFBE',
- 'purple' => '800080',
- 'red' => 'FF0000',
- 'silver' => 'C0C0C0',
- 'teal' => '008080',
- 'white' => 'FFFFFF',
- 'yellow' => 'FFFF00',
- );
- if (isset($colors[$color])) {
- return('#'.$colors[$color]);
- }
- return('#'.$colors['black']);
- }
- }
- /**
- * ODS file writer.
- *
- * @package core
- * @copyright 2013 Petr Skoda {@link http://skodak.org}
- * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
- */
- class MoodleODSWriter {
- protected $worksheets;
- public function __construct(array $worksheets) {
- $this->worksheets = $worksheets;
- }
- /**
- * Fetch the file ocntnet for the ODS.
- *
- * @return string
- */
- public function get_file_content() {
- $dir = make_request_directory();
- $filename = $dir . '/result.ods';
- $files = [
- 'mimetype' => [$this->get_ods_mimetype()],
- 'content.xml' => [$this->get_ods_content($this->worksheets)],
- 'meta.xml' => [$this->get_ods_meta()],
- 'styles.xml' => [$this->get_ods_styles()],
- 'settings.xml' => [$this->get_ods_settings()],
- 'META-INF/manifest.xml' => [$this->get_ods_manifest()],
- ];
- $packer = get_file_packer('application/zip');
- $packer->archive_to_pathname($files, $filename);
- $contents = file_get_contents($filename);
- remove_dir($dir);
- return $contents;
- }
- protected function get_ods_content() {
- // Find out the size of worksheets and used styles.
- $formats = array();
- $formatstyles = '';
- $rowstyles = '';
- $colstyles = '';
- foreach($this->worksheets as $wsnum=>$ws) {
- $this->worksheets[$wsnum]->maxr = 0;
- $this->worksheets[$wsnum]->maxc = 0;
- foreach($ws->data as $rnum=>$row) {
- if ($rnum > $this->worksheets[$wsnum]->maxr) {
- $this->worksheets[$wsnum]->maxr = $rnum;
- }
- foreach($row as $cnum=>$cell) {
- if ($cnum > $this->worksheets[$wsnum]->maxc) {
- $this->worksheets[$wsnum]->maxc = $cnum;
- }
- if (!empty($cell->format)) {
- if (!array_key_exists($cell->format->id, $formats)) {
- $formats[$cell->format->id] = $cell->format;
- }
- }
- }
- }
- foreach($ws->rows as $rnum=>$row) {
- if (!empty($row->format)) {
- if (!array_key_exists($row->format->id, $formats)) {
- $formats[$row->format->id] = $row->format;
- }
- }
- if ($rnum > $this->worksheets[$wsnum]->maxr) {
- $this->worksheets[$wsnum]->maxr = $rnum;
- }
- // Define all column styles.
- if (!empty($ws->rows[$rnum])) {
- $rowstyles .= '<style:style style:name="ws'.$wsnum.'ro'.$rnum.'" style:family="table-row">';
- if (isset($row->height)) {
- $rowstyles .= '<style:table-row-properties style:row-height="'.$row->height.'pt"/>';
- }
- $rowstyles .= '</style:style>';
- }
- }
- foreach($ws->columns as $cnum=>$col) {
- if (!empty($col->format)) {
- if (!array_key_exists($col->format->id, $formats)) {
- $formats[$col->format->id] = $col->format;
- }
- }
- if ($cnum > $this->worksheets[$wsnum]->maxc) {
- $this->worksheets[$wsnum]->maxc = $cnum;
- }
- // Define all column styles.
- if (!empty($ws->columns[$cnum])) {
- $colstyles .= '<style:style style:name="ws'.$wsnum.'co'.$cnum.'" style:family="table-column">';
- if (isset($col->width)) {
- $colstyles .= '<style:table-column-properties style:column-width="'.$col->width.'pt"/>';
- }
- $colstyles .= '</style:style>';
- }
- }
- }
- foreach($formats as $format) {
- $textprop = '';
- $cellprop = '';
- $parprop = '';
- $dataformat = '';
- foreach($format->properties as $pname=>$pvalue) {
- switch ($pname) {
- case 'size':
- if (!empty($pvalue)) {
- $textprop .= ' fo:font-size="'.$pvalue.'pt"';
- }
- break;
- case 'bold':
- if (!empty($pvalue)) {
- $textprop .= ' fo:font-weight="bold"';
- }
- break;
- case 'italic':
- if (!empty($pvalue)) {
- $textprop .= ' fo:font-style="italic"';
- }
- break;
- case 'underline':
- if (!empty($pvalue)) {
- $textprop .= ' style:text-underline-color="font-color" style:text-underline-style="solid" style:text-underline-width="auto"';
- if ($pvalue == 2) {
- $textprop .= ' style:text-underline-type="double"';
- }
- }
- break;
- case 'strikeout':
- if (!empty($pvalue)) {
- $textprop .= ' style:text-line-through-style="solid"';
- }
- break;
- case 'color':
- if ($pvalue !== false) {
- $textprop .= ' fo:color="'.$pvalue.'"';
- }
- break;
- case 'bg_color':
- if ($pvalue !== false) {
- $cellprop .= ' fo:background-color="'.$pvalue.'"';
- }
- break;
- case 'align':
- $parprop .= ' fo:text-align="'.$pvalue.'"';
- break;
- case 'v_align':
- $cellprop .= ' style:vertical-align="'.$pvalue.'"';
- break;
- case 'wrap':
- if ($pvalue) {
- $cellprop .= ' fo:wrap-option="wrap"';
- }
- break;
- case 'border_top':
- $cellprop .= ' fo:border-top="'.$pvalue.'pt solid #000000"';
- break;
- case 'border_left':
- $cellprop .= ' fo:border-left="'.$pvalue.'pt solid #000000"';
- break;
- case 'border_bottom':
- $cellprop .= ' fo:border-bottom="'.$pvalue.'pt solid #000000"';
- break;
- case 'border_right':
- $cellprop .= ' fo:border-right="'.$pvalue.'pt solid #000000"';
- break;
- case 'num_format':
- $dataformat = ' style:data-style-name="NUM'.$pvalue.'"';
- break;
- }
- }
- if (!empty($textprop)) {
- $textprop = '
- <style:text-properties'.$textprop.'/>';
- }
- if (!empty($cellprop)) {
- $cellprop = '
- <style:table-cell-properties'.$cellprop.'/>';
- }
- if (!empty($parprop)) {
- $parprop = '
- <style:paragraph-properties'.$parprop.'/>';
- }
- $formatstyles .= '
- <style:style style:name="format'.$format->id.'" style:family="table-cell"'.$dataformat.'>'.$textprop.$cellprop.$parprop.'
- </style:style>';
- }
- // The text styles may be breaking older ODF validators.
- $scriptstyles ='
- <style:style style:name="T1" style:family="text">
- <style:text-properties style:text-position="33% 58%"/>
- </style:style>
- <style:style style:name="T2" style:family="text">
- <style:text-properties style:text-position="-33% 58%"/>
- </style:style>
- ';
- // Header.
- $buffer =
- '<?xml version="1.0" encoding="UTF-8"?>
- <office:document-content xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0"
- xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0"
- xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0"
- xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0"
- xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0"
- xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0"
- xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:dc="http://purl.org/dc/elements/1.1/"
- xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0"
- xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0"
- xmlns:presentation="urn:oasis:names:tc:opendocument:xmlns:presentation:1.0"
- xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0"
- xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0"
- xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0"
- xmlns:math="http://www.w3.org/1998/Math/MathML"
- xmlns:form="urn:oasis:names:tc:opendocument:xmlns:form:1.0"
- xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0"
- xmlns:ooo="http://openoffice.org/2004/office" xmlns:ooow="http://openoffice.org/2004/writer"
- xmlns:oooc="http://openoffice.org/2004/calc" xmlns:dom="http://www.w3.org/2001/xml-events"
- xmlns:xforms="http://www.w3.org/2002/xforms" xmlns:xsd="http://www.w3.org/2001/XMLSchema"
- xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
- xmlns:rpt="http://openoffice.org/2005/report"
- xmlns:of="urn:oasis:names:tc:opendocument:xmlns:of:1.2"
- xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:grddl="http://www.w3.org/2003/g/data-view#"
- xmlns:tableooo="http://openoffice.org/2009/table"
- xmlns:calcext="urn:org:documentfoundation:names:experimental:calc:xmlns:calcext:1.0"
- xmlns:field="urn:openoffice:names:experimental:ooo-ms-interop:xmlns:field:1.0"
- xmlns:formx="urn:openoffice:names:experimental:ooxml-odf-interop:xmlns:form:1.0"
- xmlns:css3t="http://www.w3.org/TR/css3-text/" office:version="1.2">
- <office:scripts/>
- <office:font-face-decls>
- <style:font-face style:name="Arial" svg:font-family="Arial" style:font-family-generic="swiss"
- style:font-pitch="variable"/>
- <style:font-face style:name="Arial Unicode MS" svg:font-family="'Arial Unicode MS'"
- style:font-family-generic="system" style:font-pitch="variable"/>
- <style:font-face style:name="Tahoma" svg:font-family="Tahoma" style:font-family-generic="system"
- style:font-pitch="variable"/>
- </office:font-face-decls>
- <office:automatic-styles>';
- $buffer .= $this->get_num_styles();
- $buffer .= '
- <style:style style:name="ta1" style:family="table" style:master-page-name="Standard1">
- <style:table-properties table:display="true"/>
- </style:style>';
- $buffer .= $formatstyles;
- $buffer .= $rowstyles;
- $buffer .= $colstyles;
- $buffer .= $scriptstyles;
- $buffer .= '
- </office:automatic-styles>
- <office:body>
- <office:spreadsheet>
- ';
- foreach($this->worksheets as $wsnum=>$ws) {
- // Worksheet header.
- $buffer .= '<table:table table:name="' . htmlspecialchars($ws->name, ENT_QUOTES, 'utf-8') . '" table:style-name="ta1">'."\n";
- // Define column properties.
- $level = 0;
- for($c=0; $c<=$ws->maxc; $c++) {
- if (array_key_exists($c, $ws->columns)) {
- $column = $ws->columns[$c];
- if ($column->level > $level) {
- while ($column->level > $level) {
- $buffer .= '<table:table-column-group>';
- $level++;
- }
- } else if ($column->level < $level) {
- while ($column->level < $level) {
- $buffer .= '</table:table-column-group>';
- $level--;
- }
- }
- $extra = '';
- if (!empty($column->format)) {
- $extra .= ' table:default-cell-style-name="format'.$column->format->id.'"';
- }
- if ($column->hidden) {
- $extra .= ' table:visibility="collapse"';
- }
- $buffer .= '<table:table-column table:style-name="ws'.$wsnum.'co'.$c.'"'.$extra.'/>'."\n";
- } else {
- while ($level > 0) {
- $buffer .= '</table:table-column-group>';
- $level--;
- }
- $buffer .= '<table:table-column/>'."\n";
- }
- }
- while ($level > 0) {
- $buffer .= '</table:table-column-group>';
- $level--;
- }
- // Print all rows.
- $level = 0;
- for($r=0; $r<=$ws->maxr; $r++) {
- if (array_key_exists($r, $ws->rows)) {
- $row = $ws->rows[$r];
- if ($row->level > $level) {
- while ($row->level > $level) {
- $buffer .= '<table:table-row-group>';
- $level++;
- }
- } else if ($row->level < $level) {
- while ($row->level < $level) {
- $buffer .= '</table:table-row-group>';
- $level--;
- }
- }
- $extra = '';
- if (!empty($row->format)) {
- $extra .= ' table:default-cell-style-name="format'.$row->format->id.'"';
- }
- if ($row->hidden) {
- $extra .= ' table:visibility="collapse"';
- }
- $buffer .= '<table:table-row table:style-name="ws'.$wsnum.'ro'.$r.'"'.$extra.'>'."\n";
- } else {
- while ($level > 0) {
- $buffer .= '</table:table-row-group>';
- $level--;
- }
- $buffer .= '<table:table-row>'."\n";
- }
- for($c=0; $c<=$ws->maxc; $c++) {
- if (isset($ws->data[$r][$c])) {
- $cell = $ws->data[$r][$c];
- $extra = '';
- if (!empty($cell->format)) {
- $extra .= ' table:style-name="format'.$cell->format->id.'"';
- }
- if (!empty($cell->merge)) {
- $extra .= ' table:number-columns-spanned="'.$cell->merge['columns'].'" table:number-rows-spanned="'.$cell->merge['rows'].'"';
- }
- $pretext = '<text:p>';
- $posttext = '</text:p>';
- if (!empty($cell->format->properties['sub_script'])) {
- $pretext = $pretext.'<text:span text:style-name="T2">';
- $posttext = '</text:span>'.$posttext;
- } else if (!empty($cell->format->properties['super_script'])) {
- $pretext = $pretext.'<text:span text:style-name="T1">';
- $posttext = '</text:span>'.$posttext;
- }
- if (isset($cell->formula)) {
- $buffer .= '<table:table-cell table:formula="of:'.$cell->formula.'"'.$extra.'></table:table-cell>'."\n";
- } else if ($cell->type == 'date') {
- $buffer .= '<table:table-cell office:value-type="date" office:date-value="' . strftime('%Y-%m-%dT%H:%M:%S', $cell->value) . '"'.$extra.'>'
- . $pretext . strftime('%Y-%m-%dT%H:%M:%S', $cell->value) . $posttext
- . '</table:table-cell>'."\n";
- } else if ($cell->type == 'float') {
- $buffer .= '<table:table-cell office:value-type="float" office:value="' . htmlspecialchars($cell->value, ENT_QUOTES, 'utf-8') . '"'.$extra.'>'
- . $pretext . htmlspecialchars($cell->value, ENT_QUOTES, 'utf-8') . $posttext
- . '</table:table-cell>'."\n";
- } else if ($cell->type == 'string') {
- $buffer .= '<table:table-cell office:value-type="string"'.$extra.'>'
- . $pretext . htmlspecialchars($cell->value, ENT_QUOTES, 'utf-8') . $posttext
- . '</table:table-cell>'."\n";
- } else {
- $buffer .= '<table:table-cell office:value-type="string"'.$extra.'>'
- . $pretext . '!!Error - unknown type!!' . $posttext
- . '</table:table-cell>'."\n";
- }
- } else {
- $buffer .= '<table:table-cell/>'."\n";
- }
- }
- $buffer .= '</table:table-row>'."\n";
- }
- while ($level > 0) {
- $buffer .= '</table:table-row-group>';
- $level--;
- }
- $buffer .= '</table:table>'."\n";
- }
- // Footer.
- $buffer .= '
- </office:spreadsheet>
- </office:body>
- </office:document-content>';
- return $buffer;
- }
- public function get_ods_mimetype() {
- return 'application/vnd.oasis.opendocument.spreadsheet';
- }
- protected function get_ods_settings() {
- $buffer =
- '<?xml version="1.0" encoding="UTF-8"?>
- <office:document-settings xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0"
- xmlns:xlink="http://www.w3.org/1999/xlink"
- xmlns:config="urn:oasis:names:tc:opendocument:xmlns:config:1.0"
- xmlns:ooo="http://openoffice.org/2004/office" office:version="1.2">
- <office:settings>
- <config:config-item-set config:name="ooo:view-settings">
- <config:config-item config:name="VisibleAreaTop" config:type="int">0</config:config-item>
- <config:config-item config:name="VisibleAreaLeft" config:type="int">0</config:config-item>
- <config:config-item-map-indexed config:name="Views">
- <config:config-item-map-entry>
- <config:config-item config:name="ViewId" config:type="string">view1</config:config-item>
- <config:config-item-map-named config:name="Tables">
- ';
- foreach ($this->worksheets as $ws) {
- $buffer .= ' <config:config-item-map-entry config:name="'.htmlspecialchars($ws->name, ENT_QUOTES, 'utf-8').'">'."\n";
- $buffer .= ' <config:config-item config:name="ShowGrid" config:type="boolean">'.($ws->showgrid ? 'true' : 'false').'</config:config-item>'."\n";
- $buffer .= ' </config:config-item-map-entry>."\n"';
- }
- $buffer .=
- ' </config:config-item-map-named>
- </config:config-item-map-entry>
- </config:config-item-map-indexed>
- </config:config-item-set>
- <config:config-item-set config:name="ooo:configuration-settings">
- <config:config-item config:name="ShowGrid" config:type="boolean">true</config:config-item>
- </config:config-item-set>
- </office:settings>
- </office:document-settings>';
- return $buffer;
- }
- protected function get_ods_meta() {
- global $CFG, $USER;
- return
- '<?xml version="1.0" encoding="UTF-8"?>
- <office:document-meta xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0"
- xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:dc="http://purl.org/dc/elements/1.1/"
- xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0"
- xmlns:ooo="http://openoffice.org/2004/office" xmlns:grddl="http://www.w3.org/2003/g/data-view#"
- office:version="1.2">
- <office:meta>
- <meta:generator>Moodle '.$CFG->release.'</meta:generator>
- <meta:initial-creator>' . htmlspecialchars(fullname($USER, true), ENT_QUOTES, 'utf-8') . '</meta:initial-creator>
- <meta:creation-date>'.strftime('%Y-%m-%dT%H:%M:%S').'</meta:creation-date>
- <meta:document-statistic meta:table-count="1" meta:cell-count="0" meta:object-count="0"/>
- </office:meta>
- </office:document-meta>';
- }
- protected function get_ods_styles() {
- return
- '<?xml version="1.0" encoding="UTF-8"?>
- <office:document-styles xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0"
- xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0"
- xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0"
- xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0"
- xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0"
- xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0"
- xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:dc="http://purl.org/dc/elements/1.1/"
- xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0"
- xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0"
- xmlns:presentation="urn:oasis:names:tc:opendocument:xmlns:presentation:1.0"
- xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0"
- xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0"
- xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0"
- xmlns:math="http://www.w3.org/1998/Math/MathML"
- xmlns:form="urn:oasis:names:tc:opendocument:xmlns:form:1.0"
- xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0"
- xmlns:ooo="http://openoffice.org/2004/office" xmlns:ooow="http://openoffice.org/2004/writer"
- xmlns:oooc="http://openoffice.org/2004/calc" xmlns:dom="http://www.w3.org/2001/xml-events"
- xmlns:rpt="http://openoffice.org/2005/report"
- xmlns:of="urn:oasis:names:tc:opendocument:xmlns:of:1.2"
- xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:grddl="http://www.w3.org/2003/g/data-view#"
- xmlns:tableooo="http://openoffice.org/2009/table"
- xmlns:calcext="urn:org:documentfoundation:names:experimental:calc:xmlns:calcext:1.0"
- xmlns:css3t="http://www.w3.org/TR/css3-text/" office:version="1.2">
- <office:font-face-decls>
- <style:font-face style:name="Arial" svg:font-family="Arial" style:font-family-generic="swiss"
- style:font-pitch="variable"/>
- <style:font-face style:name="Arial Unicode MS" svg:font-family="'Arial Unicode MS'"
- style:font-family-generic="system" style:font-pitch="variable"/>
- <style:font-face style:name="Tahoma" svg:font-family="Tahoma" style:font-family-generic="system"
- style:font-pitch="variable"/>
- </office:font-face-decls>
- <office:styles>
- <style:default-style style:family="table-cell">
- <style:paragraph-properties style:tab-stop-distance="1.25cm"/>
- </style:default-style>
- <number:number-style style:name="N0">
- <number:number number:min-integer-digits="1"/>
- </number:number-style>
- <style:style style:name="Default" style:family="table-cell">
- <style:text-p…
Large files files are truncated, but you can click here to view the full file