3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.5 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2014 |
7 +--------------------------------------------------------------------+
8 | This file is a part of CiviCRM. |
10 | CiviCRM is free software; you can copy, modify, and distribute it |
11 | under the terms of the GNU Affero General Public License |
12 | Version 3, 19 November 2007 and the CiviCRM Licensing Exception. |
14 | CiviCRM is distributed in the hope that it will be useful, but |
15 | WITHOUT ANY WARRANTY; without even the implied warranty of |
16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
17 | See the GNU Affero General Public License for more details. |
19 | You should have received a copy of the GNU Affero General Public |
20 | License and the CiviCRM Licensing Exception along |
21 | with this program; if not, contact CiviCRM LLC |
22 | at info[AT]civicrm[DOT]org. If you have questions about the |
23 | GNU Affero General Public License or the licensing of CiviCRM, |
24 | see the CiviCRM license FAQ at http://civicrm.org/licensing |
25 +--------------------------------------------------------------------+
29 * Class CRM_Core_Report_Excel
31 class CRM_Core_Report_Excel
{
34 * Code copied from phpMyAdmin (v2.6.1-pl3)
35 * File: PHPMYADMIN/libraries/export/csv.php
36 * Function: PMA_exportData
38 * Outputs a result set with a given header
39 * in the string buffer result
41 * @param string $header (reference ) column headers
42 * @param string $rows (reference ) result set rows
43 * @param null $titleHeader
44 * @param boolean $print should the output be printed
46 * @param bool $outputHeader
48 * @return mixed empty if output is printed, else output
53 static function makeCSVTable(&$header, &$rows, $titleHeader = NULL, $print = TRUE, $outputHeader = TRUE) {
60 $config = CRM_Core_Config
::singleton();
61 $seperator = $config->fieldSeparator
;
64 $add_character = "\015\012";
67 foreach ($header as $field) {
68 if ($enclosed == '') {
69 $schema_insert .= stripslashes($field);
72 $schema_insert .= $enclosed . str_replace($enclosed, $escaped . $enclosed, stripslashes($field)) . $enclosed;
74 $schema_insert .= $seperator;
79 // need to add PMA_exportOutputHandler functionality out here, rather than
80 // doing it the moronic way of assembling a buffer
81 $out = trim(substr($schema_insert, 0, -1)) . $add_character;
90 $fields_cnt = count($header);
91 foreach ($rows as $row) {
95 foreach ($row as $j => $value) {
96 if (!isset($value) ||
is_null($value)) {
99 elseif ($value == '0' ||
$value != '') {
100 // loic1 : always enclose fields
101 //$value = ereg_replace("\015(\012)?", "\012", $value);
102 $value = preg_replace("/\015(\012)?/", "\012", $value);
103 if ($enclosed == '') {
104 $schema_insert .= $value;
107 if ((substr($value, 0, 1) == CRM_Core_DAO
::VALUE_SEPARATOR
) &&
108 (substr($value, -1, 1) == CRM_Core_DAO
::VALUE_SEPARATOR
)
111 $strArray = explode(CRM_Core_DAO
::VALUE_SEPARATOR
, $value);
113 foreach ($strArray as $key => $val) {
114 if (trim($val) == '') {
115 unset($strArray[$key]);
119 $str = implode($seperator, $strArray);
123 $schema_insert .= $enclosed . str_replace($enclosed, $escaped . $enclosed, $value) . $enclosed;
127 $schema_insert .= '';
130 if ($colNo < $fields_cnt - 1) {
131 $schema_insert .= $seperator;
137 $out = $schema_insert . $add_character;
158 * @param null $titleHeader
159 * @param bool $outputHeader
161 function writeHTMLFile($fileName, &$header, &$rows, $titleHeader = NULL, $outputHeader = TRUE) {
163 CRM_Utils_System
::download(CRM_Utils_String
::munge($fileName),
164 'application/vnd.ms-excel',
165 CRM_Core_DAO
::$_nullObject,
171 echo "<table><thead><tr>";
172 foreach ($header as $field) {
173 echo "<th>$field</th>";
175 echo "</tr></thead><tbody>";
177 foreach ($rows as $row) {
181 foreach ($row as $j => $value) {
182 echo "<td>" . htmlentities($value, ENT_COMPAT
, 'UTF-8') . "</td>";
187 echo "</tbody></table>";
191 * Write a CSV file to the browser output
193 * @param string $fileName - the name of the file that will be downloaded (this is sent to the browser)
194 * @param array $header - an array of the headers
195 * @param array $rows - an array of arrays of the table contents
196 * @param string $titleHeader - if set this will be the title in the CSV
197 * @param boolean $outputHeader - should we output the header row
198 * @param boolean $saveFile -
204 static function writeCSVFile($fileName, &$header, &$rows, $titleHeader = NULL, $outputHeader = TRUE, $saveFile = NULL) {
205 if ($outputHeader && !$saveFile) {
206 CRM_Utils_System
::download(CRM_Utils_String
::munge($fileName),
208 CRM_Core_DAO
::$_nullObject,
219 return self
::makeCSVTable( $header, $rows, $titleHeader, $print, $outputHeader );