2 // +----------------------------------------------------------------------+
 
   3 // | Anuko Time Tracker
 
   4 // +----------------------------------------------------------------------+
 
   5 // | Copyright (c) Anuko International Ltd. (https://www.anuko.com)
 
   6 // +----------------------------------------------------------------------+
 
   7 // | LIBERAL FREEWARE LICENSE: This source code document may be used
 
   8 // | by anyone for any purpose, and freely redistributed alone or in
 
   9 // | combination with other software, provided that the license is obeyed.
 
  11 // | There are only two ways to violate the license:
 
  13 // | 1. To redistribute this code in source form, with the copyright
 
  14 // |    notice or license removed or altered. (Distributing in compiled
 
  15 // |    forms without embedded copyright notices is permitted).
 
  17 // | 2. To redistribute modified versions of this code in *any* form
 
  18 // |    that bears insufficient indications that the modifications are
 
  19 // |    not the work of the original author(s).
 
  21 // | This license applies to this document only, not any other software
 
  22 // | that it may be combined with.
 
  24 // +----------------------------------------------------------------------+
 
  26 // | https://www.anuko.com/time_tracker/credits.htm
 
  27 // +----------------------------------------------------------------------+
 
  29 require_once('initialize.php');
 
  31 import('form.ActionForm');
 
  32 import('ttReportHelper');
 
  35 if (!ttAccessCheck(right_view_reports)) {
 
  36   header('Location: access_denied.php');
 
  40 // Use custom fields plugin if it is enabled.
 
  41 if ($user->isPluginEnabled('cf')) {
 
  42   require_once('plugins/CustomFields.class.php');
 
  43   $custom_fields = new CustomFields($user->team_id);
 
  46 // Report settings are stored in session bean before we get here.
 
  47 $bean = new ActionForm('reportBean', new Form('reportForm'), $request);
 
  49 // This file handles 2 types of export to a file:
 
  52 // Export to pdf is handled separately in topdf.php.
 
  53 $type = $request->getParameter('type');
 
  55 // Also, there are 2 variations of report: totals only, or normal. Totals only means that the report
 
  56 // is grouped by (either date, user, client, project, task, or cf_1) and user only needs to see subtotals by group.
 
  57 $totals_only = $bean->getAttribute('chtotalsonly');
 
  61   $subtotals = ttReportHelper::getSubtotals($bean);
 
  63   $items = ttReportHelper::getItems($bean);
 
  65 // Build a string to use as filename for the files being downloaded.
 
  66 $filename = strtolower($i18n->getKey('title.report')).'_'.$bean->mValues['start_date'].'_'.$bean->mValues['end_date'];
 
  68 header('Pragma: public'); // This is needed for IE8 to download files over https.
 
  69 header('Content-Type: text/html; charset=utf-8');
 
  70 header('Last-Modified: '.gmdate('D, d M Y H:i:s').' GMT');
 
  71 header('Cache-Control: no-store, no-cache, must-revalidate');
 
  72 header('Cache-Control: post-check=0, pre-check=0', false);
 
  73 header('Cache-Control: private', false);
 
  75 // Handle 2 cases of possible exports individually.
 
  77 // 1) entries exported to xml
 
  79   header('Content-Type: application/xml');
 
  80   header('Content-Disposition: attachment; filename="'.$filename.'.xml"');
 
  82   print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
 
  85   $group_by = $bean->getAttribute('group_by');
 
  87     // Totals only report. Print subtotals.
 
  88     foreach ($subtotals as $subtotal) {
 
  90       print "\t<".$group_by."><![CDATA[".$subtotal['name']."]]></".$group_by.">\n";
 
  91       if ($bean->getAttribute('chduration')) {
 
  92         $val = $subtotal['time'];
 
  93         if($val && defined('EXPORT_DECIMAL_DURATION') && isTrue(EXPORT_DECIMAL_DURATION))
 
  94           $val = time_to_decimal($val);
 
  95         print "\t<duration><![CDATA[".$val."]]></duration>\n";
 
  97       if ($bean->getAttribute('chcost')) {
 
  98         print "\t<cost><![CDATA[";
 
  99         if ($user->canManageTeam() || $user->isClient())
 
 100           print $subtotal['cost'];
 
 102           print $subtotal['expenses'];
 
 103         print "]]></cost>\n";
 
 109     foreach ($items as $item) {
 
 112       print "\t<date><![CDATA[".$item['date']."]]></date>\n";
 
 113       if ($user->canManageTeam() || $user->isClient()) print "\t<user><![CDATA[".$item['user']."]]></user>\n"; 
 
 114       if ($bean->getAttribute('chclient')) print "\t<client><![CDATA[".$item['client']."]]></client>\n";
 
 115       if ($bean->getAttribute('chproject')) print "\t<project><![CDATA[".$item['project']."]]></project>\n";
 
 116       if ($bean->getAttribute('chtask')) print "\t<task><![CDATA[".$item['task']."]]></task>\n";
 
 117       if ($bean->getAttribute('chcf_1')) print "\t<cf_1><![CDATA[".$item['cf_1']."]]></cf_1>\n";
 
 118       if ($bean->getAttribute('chstart')) print "\t<start><![CDATA[".$item['start']."]]></start>\n";
 
 119       if ($bean->getAttribute('chfinish')) print "\t<finish><![CDATA[".$item['finish']."]]></finish>\n";
 
 120       if ($bean->getAttribute('chduration')) {
 
 121         $duration = $item['duration'];
 
 122         if($duration && defined('EXPORT_DECIMAL_DURATION') && isTrue(EXPORT_DECIMAL_DURATION))
 
 123           $duration = time_to_decimal($duration);
 
 124           print "\t<duration><![CDATA[".$duration."]]></duration>\n";
 
 126       if ($bean->getAttribute('chnote')) print "\t<note><![CDATA[".$item['note']."]]></note>\n";
 
 127       if ($bean->getAttribute('chcost')) {
 
 128         print "\t<cost><![CDATA[";
 
 129         if ($user->canManageTeam() || $user->isClient())
 
 132           print $item['expense'];
 
 133         print "]]></cost>\n";
 
 135       if ($bean->getAttribute('chpaid')) print "\t<paid><![CDATA[".$item['paid']."]]></paid>\n";
 
 136       if ($bean->getAttribute('chinvoice')) print "\t<invoice><![CDATA[".$item['invoice']."]]></invoice>\n";
 
 145 // 2) entries exported to csv
 
 146 if ('csv' == $type) {
 
 147   header('Content-Type: application/csv');
 
 148   header('Content-Disposition: attachment; filename="'.$filename.'.csv"');
 
 150   // Print UTF8 BOM first to identify encoding.
 
 151   $bom = chr(239).chr(187).chr(191); // 0xEF 0xBB 0xBF in the beginning of the file is UTF8 BOM.
 
 152   print $bom; // Without this Excel does not display UTF8 characters properly.
 
 154   $group_by = $bean->getAttribute('group_by');
 
 156     // Totals only report.
 
 158     // Determine group_by header.
 
 159     if ('cf_1' == $group_by)
 
 160       $group_by_header = $custom_fields->fields[0]['label'];
 
 162       $key = 'label.'.$group_by;
 
 163       $group_by_header = $i18n->getKey($key);
 
 167     print '"'.$group_by_header.'"';
 
 168     if ($bean->getAttribute('chduration')) print ',"'.$i18n->getKey('label.duration').'"';
 
 169     if ($bean->getAttribute('chcost')) print ',"'.$i18n->getKey('label.cost').'"';
 
 173     foreach ($subtotals as $subtotal) {
 
 174       print '"'.$subtotal['name'].'"';
 
 175       if ($bean->getAttribute('chduration')) {
 
 176         $val = $subtotal['time'];
 
 177         if($val && defined('EXPORT_DECIMAL_DURATION') && isTrue(EXPORT_DECIMAL_DURATION))
 
 178           $val = time_to_decimal($val);
 
 181       if ($bean->getAttribute('chcost')) {
 
 182         if ($user->canManageTeam() || $user->isClient())
 
 183           print ',"'.$subtotal['cost'].'"';
 
 185           print ',"'.$subtotal['expenses'].'"';
 
 190     // Normal report. Print headers.
 
 191     print '"'.$i18n->getKey('label.date').'"';
 
 192     if ($user->canManageTeam() || $user->isClient()) print ',"'.$i18n->getKey('label.user').'"';
 
 193     if ($bean->getAttribute('chclient')) print ',"'.$i18n->getKey('label.client').'"';
 
 194     if ($bean->getAttribute('chproject')) print ',"'.$i18n->getKey('label.project').'"';
 
 195     if ($bean->getAttribute('chtask')) print ',"'.$i18n->getKey('label.task').'"';
 
 196     if ($bean->getAttribute('chcf_1')) print ',"'.$custom_fields->fields[0]['label'].'"';
 
 197     if ($bean->getAttribute('chstart')) print ',"'.$i18n->getKey('label.start').'"';
 
 198     if ($bean->getAttribute('chfinish')) print ',"'.$i18n->getKey('label.finish').'"';
 
 199     if ($bean->getAttribute('chduration')) print ',"'.$i18n->getKey('label.duration').'"';
 
 200     if ($bean->getAttribute('chnote')) print ',"'.$i18n->getKey('label.note').'"';
 
 201     if ($bean->getAttribute('chcost')) print ',"'.$i18n->getKey('label.cost').'"';
 
 202     if ($bean->getAttribute('chpaid')) print ',"'.$i18n->getKey('label.paid').'"';
 
 203     if ($bean->getAttribute('chinvoice')) print ',"'.$i18n->getKey('label.invoice').'"';
 
 207     foreach ($items as $item) {
 
 208       print '"'.$item['date'].'"';
 
 209       if ($user->canManageTeam() || $user->isClient()) print ',"'.str_replace('"','""',$item['user']).'"';
 
 210       if ($bean->getAttribute('chclient')) print ',"'.str_replace('"','""',$item['client']).'"';
 
 211       if ($bean->getAttribute('chproject')) print ',"'.str_replace('"','""',$item['project']).'"';
 
 212       if ($bean->getAttribute('chtask')) print ',"'.str_replace('"','""',$item['task']).'"';
 
 213       if ($bean->getAttribute('chcf_1')) print ',"'.str_replace('"','""',$item['cf_1']).'"';
 
 214       if ($bean->getAttribute('chstart')) print ',"'.$item['start'].'"';
 
 215       if ($bean->getAttribute('chfinish')) print ',"'.$item['finish'].'"';
 
 216       if ($bean->getAttribute('chduration')) {
 
 217         $val = $item['duration'];
 
 218         if($val && defined('EXPORT_DECIMAL_DURATION') && isTrue(EXPORT_DECIMAL_DURATION))
 
 219           $val = time_to_decimal($val);
 
 222       if ($bean->getAttribute('chnote')) print ',"'.str_replace('"','""',$item['note']).'"';
 
 223       if ($bean->getAttribute('chcost')) {
 
 224         if ($user->canManageTeam() || $user->isClient())
 
 225           print ',"'.$item['cost'].'"';
 
 227           print ',"'.$item['expense'].'"';
 
 229       if ($bean->getAttribute('chpaid')) print ',"'.$item['paid'].'"';
 
 230       if ($bean->getAttribute('chinvoice')) print ',"'.str_replace('"','""',$item['invoice']).'"';