b4aed5ee2acc07021213db6c251806a0ebcfe817
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 +--------------------------------------------------------------------+
27 class CRM_Core_Report_Excel
{
30 * Code copied from phpMyAdmin (v2.6.1-pl3)
31 * File: PHPMYADMIN/libraries/export/csv.php
32 * Function: PMA_exportData
34 * Outputs a result set with a given header
35 * in the string buffer result
37 * @param string $header (reference ) column headers
38 * @param string $rows (reference ) result set rows
39 * @param null $titleHeader
40 * @param boolean $print should the output be printed
42 * @param bool $outputHeader
44 * @return mixed empty if output is printed, else output
49 static function makeCSVTable(&$header, &$rows, $titleHeader = NULL, $print = TRUE, $outputHeader = TRUE) {
56 $config = CRM_Core_Config
::singleton();
57 $seperator = $config->fieldSeparator
;
60 $add_character = "\015\012";
63 foreach ($header as $field) {
64 if ($enclosed == '') {
65 $schema_insert .= stripslashes($field);
68 $schema_insert .= $enclosed . str_replace($enclosed, $escaped . $enclosed, stripslashes($field)) . $enclosed;
70 $schema_insert .= $seperator;
75 // need to add PMA_exportOutputHandler functionality out here, rather than
76 // doing it the moronic way of assembling a buffer
77 $out = trim(substr($schema_insert, 0, -1)) . $add_character;
86 $fields_cnt = count($header);
87 foreach ($rows as $row) {
91 foreach ($row as $j => $value) {
92 if (!isset($value) ||
is_null($value)) {
95 elseif ($value == '0' ||
$value != '') {
96 // loic1 : always enclose fields
97 //$value = ereg_replace("\015(\012)?", "\012", $value);
98 $value = preg_replace("/\015(\012)?/", "\012", $value);
99 if ($enclosed == '') {
100 $schema_insert .= $value;
103 if ((substr($value, 0, 1) == CRM_Core_DAO
::VALUE_SEPARATOR
) &&
104 (substr($value, -1, 1) == CRM_Core_DAO
::VALUE_SEPARATOR
)
107 $strArray = explode(CRM_Core_DAO
::VALUE_SEPARATOR
, $value);
109 foreach ($strArray as $key => $val) {
110 if (trim($val) == '') {
111 unset($strArray[$key]);
115 $str = implode($seperator, $strArray);
119 $schema_insert .= $enclosed . str_replace($enclosed, $escaped . $enclosed, $value) . $enclosed;
123 $schema_insert .= '';
126 if ($colNo < $fields_cnt - 1) {
127 $schema_insert .= $seperator;
133 $out = $schema_insert . $add_character;
150 function writeHTMLFile($fileName, &$header, &$rows, $titleHeader = NULL, $outputHeader = TRUE) {
152 CRM_Utils_System
::download(CRM_Utils_String
::munge($fileName),
153 'application/vnd.ms-excel',
154 CRM_Core_DAO
::$_nullObject,
160 echo "<table><thead><tr>";
161 foreach ($header as $field) {
162 echo "<th>$field</th>";
164 echo "</tr></thead><tbody>";
166 foreach ($rows as $row) {
170 foreach ($row as $j => $value) {
171 echo "<td>" . htmlentities($value, ENT_COMPAT
, 'UTF-8') . "</td>";
176 echo "</tbody></table>";
180 * Write a CSV file to the browser output
182 * @param string $fileName - the name of the file that will be downloaded (this is sent to the browser)
183 * @param array $header - an array of the headers
184 * @param array $rows - an array of arrays of the table contents
185 * @param string $titleHeader - if set this will be the title in the CSV
186 * @param boolean $outputHeader - should we output the header row
187 * @param boolean $saveFile -
193 static function writeCSVFile($fileName, &$header, &$rows, $titleHeader = NULL, $outputHeader = TRUE, $saveFile = NULL) {
194 if ($outputHeader && !$saveFile) {
195 CRM_Utils_System
::download(CRM_Utils_String
::munge($fileName),
197 CRM_Core_DAO
::$_nullObject,
208 return self
::makeCSVTable( $header, $rows, $titleHeader, $print, $outputHeader );