<?php

/* 
 * Longitudinal Reports Plugin
 * Luke Stevens, Murdoch Childrens Research Institute https://www.mcri.edu.au
 * Version date 16-Nov-2015 
 */
require_once dirname(__FILE__) . '/config.php';
// Validate id
if (!isset($_POST['report_id'])) {
    exit('0');
}
$report_id = $_POST['report_id'];
$success = LongitudinalReports::deleteReport($report_id);
if ($success) {
    REDCap::logEvent("Delete longitudinal report", "report_id = {$report_id}");
}
print $success === false ? '0' : '1';
<?php

/* 
 * Longitudinal Reports Plugin
 * Luke Stevens, Murdoch Childrens Research Institute https://www.mcri.edu.au
 * Version date 16-Nov-2015 
 */
require_once dirname(__FILE__) . '/config.php';
// Get html report table
list($report_table, $num_results_returned) = LongitudinalReports::doReport($_POST['report_id'], 'report', 'html', false, false, false, false, false, false, false, false, false, false, false, isset($_GET['instruments']) ? explode(',', $_GET['instruments']) : array(), isset($_GET['events']) ? explode(',', $_GET['events']) : array());
// Display report and title and other text
print "<div id='report_div' style='margin:10px 0 20px;'>" . RCView::div(array('style' => ''), RCView::div(array('class' => 'hide_in_print', 'style' => 'float:left;width:350px;'), RCView::div(array('style' => 'font-weight:bold;'), $lang['custom_reports_02'] . RCView::span(array('style' => 'margin-left:5px;color:#800000;font-size:15px;'), User::number_format_user($num_results_returned))) . RCView::div(array('style' => ''), $lang['custom_reports_03'] . RCView::span(array('style' => 'margin-left:5px;'), User::number_format_user(LongitudinalRecords::getRecordCount())) . (!$longitudinal ? "" : RCView::div(array('style' => 'margin-top:3px;color:#888;font-size:11px;font-family:tahoma,arial;'), $lang['custom_reports_09'])))) . RCView::div(array('class' => 'hide_in_print', 'style' => 'float:left;'), ($user_rights['data_export_tool'] == '0' ? '' : RCView::button(array('class' => 'report_btn jqbuttonmed', 'onclick' => "showExportFormatDialog('{$_POST['report_id']}');", 'style' => 'font-size:11px;padding:1px 4px 0px !important;'), RCView::img(array('src' => 'go-down.png', 'style' => 'vertical-align:middle;')) . RCView::span(array('style' => 'vertical-align:middle;'), $lang['custom_reports_12']))) . RCView::SP . RCView::button(array('class' => 'report_btn jqbuttonmed', 'onclick' => "window.print();", 'style' => 'font-size:11px;padding:1px 4px 0px !important;'), RCView::img(array('src' => 'printer.png', 'style' => 'vertical-align:middle;')) . RCView::span(array('style' => 'vertical-align:middle;'), $lang['custom_reports_13'])) . RCView::SP . ($_POST['report_id'] == 'ALL' || $_POST['report_id'] == 'SELECTED' || !$user_rights['reports'] ? '' : RCView::button(array('class' => 'report_btn jqbuttonmed', 'onclick' => "window.location.href = '" . APP_PATH_WEBROOT . LR_PATH_FROM_WEBROOT . "index.php?pid=" . PROJECT_ID . "&report_id={$_POST['report_id']}&addedit=1';", 'style' => 'font-size:11px;padding:1px 4px 0px !important;'), RCView::img(array('src' => 'pencil_small.png', 'style' => 'vertical-align:middle;')) . RCView::span(array('style' => 'vertical-align:middle;'), $lang['custom_reports_14'])))) . RCView::div(array('class' => 'clear'), '')) . RCView::div(array('id' => 'this_report_title', 'style' => 'margin:40px 0 8px;padding:5px 3px;color:#800000;font-size:18px;font-weight:bold;'), LongitudinalReports::getReportNames($_POST['report_id'])) . $report_table . "</div>";
db_query($sql);*/
// Loop through report_ids and set new report_order
$report_order = 1;
$import = array();
foreach ($new_report_ids as $this_report_id) {
    /*	$sql = "update redcap_reports set report_order = ".$report_order++." 
    			where project_id = $project_id and report_id = $this_report_id";
    	db_query($sql);*/
    $rpt = array();
    $rpt['report_id'] = $this_report_id;
    $rpt['report_order'] = $report_order++;
    $import[] = $rpt;
}
// Deal with orphaned report_ids added simultaneously by other user while this user reorders
foreach ($append_report_ids as $this_report_id) {
    /*	$sql = "update redcap_reports set report_order = ".$report_order++." 
    			where project_id = $project_id and report_id = $this_report_id";
    	db_query($sql);*/
    $rpt = array();
    $rpt['report_id'] = $this_report_id;
    $rpt['report_order'] = $report_order++;
    $import[] = $rpt;
}
$success = LongitudinalReports::save($import);
if (!$success) {
    exit('0');
}
// Logging
REDCap::logEvent("Reorder longitudinal reports", "report_id = " . $_POST['report_ids']);
// Return Value: If there are some extra reports that exist that are not currently in the list, then refresh the user's page
print !empty($append_report_ids) ? '2' : '1';
$reportData['advanced_logic'] = $_POST['advanced_logic'];
$reportData['filter_dags'] = json_encode($filter_dags);
$reportData['orderby_field1'] = $orderby_field1;
$reportData['orderby_sort1'] = $orderby_sort1;
$reportData['orderby_field2'] = $orderby_field2;
$reportData['orderby_sort2'] = $orderby_sort2;
$reportData['orderby_field3'] = $orderby_field3;
$reportData['orderby_sort3'] = $orderby_sort3;
$reportData['update_by'] = $userid;
$reportData['update_at'] = $now->format('Y-m-d H:i:s');
$reportData['report_complete'] = '2';
$success = true;
$data = array();
$data[] = $reportData;
// Can handle multiple records - not needed here
$success = LongitudinalReports::save($data);
// If there are errors, then roll back all changes
if (!$success) {
    //$errors > 0) {
    // Errors occurred, so undo any changes made
    //	db_query("ROLLBACK");
    // Return '0' for error
    exit('0');
} else {
    // Logging
    $log_descrip = $_GET['report_id'] != 0 ? "Edit longitudinal report" : "Create longitudinal report";
    REDCap::logEvent($log_descrip, "report_id = {$report_id}: " . print_r($reportData, true));
    // Commit changes
    //	db_query("COMMIT");
    // Response
    $dialog_title = RCView::img(array('src' => 'tick.png', 'style' => 'vertical-align:middle')) . RCView::span(array('style' => 'color:green;vertical-align:middle'), $lang['report_builder_01']);
 /**
  * GET DATA FOR RECORDS
  * [@param int $project_id - (optional) Manually supplied project_id for this project.]
  * @param string $returnFormat - Default 'array'. Return record data in specified format (array, csv, json, xml).
  * @param string/array $records - if provided as a string, will convert to an array internally.
  * @param string/array $fields - if provided as a string, will convert to an array internally.
  * @param string/array $events - if provided as a string, will convert to an array internally.
  * @param string/array $groups - if provided as a string, will convert to an array internally.
  * @param bool $combine_checkbox_values is only an option for $returnFormat csv, json, and xml, in which it determines whether 
  * checkbox option values are returned as multiple fields with triple underscores or as a combined single field with all *checked* 
  * options as comma-delimited (e.g., "1,3,4" if only choices 1, 3, and 4 are checked off).
  * NOTE: 'array' returnFormat will always have event_id as 2nd key and will always have checkbox options as a sub-array 
  * for each given checkbox field.
  */
 public static function getData()
 {
     global $salt, $reserved_field_names, $lang, $user_rights, $redcap_version, $datetime_format;
     // Get function arguments
     $args = func_get_args();
     // Make sure we have a project_id
     if (!is_numeric($args[0]) && !defined("PROJECT_ID")) {
         throw new Exception('No project_id provided!');
     }
     // If first parameter is numerical, then assume it is $project_id and that second parameter is $returnFormat
     if (is_numeric($args[0])) {
         $project_id = $args[0];
         $returnFormat = isset($args[1]) ? $args[1] : 'array';
         $records = isset($args[2]) ? $args[2] : array();
         $fields = isset($args[3]) ? $args[3] : array();
         $events = isset($args[4]) ? $args[4] : array();
         $groups = isset($args[5]) ? $args[5] : array();
         $combine_checkbox_values = isset($args[6]) ? $args[6] : false;
         $outputDags = isset($args[7]) ? $args[7] : false;
         $outputSurveyFields = isset($args[8]) ? $args[8] : false;
         $filterLogic = isset($args[9]) ? $args[9] : false;
         $outputAsLabels = isset($args[10]) ? $args[10] : false;
         $outputCsvHeadersAsLabels = isset($args[11]) ? $args[11] : false;
         $hashRecordID = isset($args[12]) ? $args[12] : false;
         $dateShiftDates = isset($args[13]) ? $args[13] : false;
         $dateShiftSurveyTimestamps = isset($args[14]) ? $args[14] : false;
         $sortArray = isset($args[15]) ? $args[15] : array();
         $removeLineBreaksInValues = isset($args[16]) ? $args[16] : false;
         $replaceFileUploadDocId = isset($args[17]) ? $args[17] : false;
         $returnIncludeRecordEventArray = isset($args[18]) ? $args[18] : false;
         $orderFieldsAsSpecified = isset($args[19]) ? $args[19] : false;
         $outputSurveyIdentifier = isset($args[20]) ? $args[20] : $outputSurveyFields;
         $outputCheckboxLabel = isset($args[21]) ? $args[21] : false;
         $outputScheduleDates = isset($args[22]) ? $args[22] : false;
         $outputSurveyUrls = isset($args[23]) ? $args[23] : false;
         // Instantiate object containing all project information
         $Proj = new Project($project_id);
         $longitudinal = $Proj->longitudinal;
         $table_pk = $Proj->table_pk;
     } else {
         $project_id = PROJECT_ID;
         $returnFormat = isset($args[0]) ? $args[0] : 'array';
         $records = isset($args[1]) ? $args[1] : array();
         $fields = isset($args[2]) ? $args[2] : array();
         $events = isset($args[3]) ? $args[3] : array();
         $groups = isset($args[4]) ? $args[4] : array();
         $combine_checkbox_values = isset($args[5]) ? $args[5] : false;
         $outputDags = isset($args[6]) ? $args[6] : false;
         $outputSurveyFields = isset($args[7]) ? $args[7] : false;
         $filterLogic = isset($args[8]) ? $args[8] : false;
         $outputAsLabels = isset($args[9]) ? $args[9] : false;
         $outputCsvHeadersAsLabels = isset($args[10]) ? $args[10] : false;
         $hashRecordID = isset($args[11]) ? $args[11] : false;
         $dateShiftDates = isset($args[12]) ? $args[12] : false;
         $dateShiftSurveyTimestamps = isset($args[13]) ? $args[13] : false;
         $sortArray = isset($args[14]) ? $args[14] : array();
         $removeLineBreaksInValues = isset($args[15]) ? $args[15] : false;
         $replaceFileUploadDocId = isset($args[16]) ? $args[16] : false;
         $returnIncludeRecordEventArray = isset($args[17]) ? $args[17] : false;
         $orderFieldsAsSpecified = isset($args[18]) ? $args[18] : false;
         $outputSurveyIdentifier = isset($args[19]) ? $args[19] : $outputSurveyFields;
         $outputCheckboxLabel = isset($args[20]) ? $args[20] : false;
         $outputScheduleDates = isset($args[21]) ? $args[21] : false;
         $outputSurveyUrls = isset($args[22]) ? $args[22] : false;
         // Get existing values since Project object already exists in global scope
         global $Proj, $longitudinal, $table_pk;
     }
     // Get current memory limit in bytes
     $memory_limit = str_replace("M", "", ini_get('memory_limit')) * 1024 * 1024;
     // Set array of valid $returnFormat values
     $validReturnFormats = array('html', 'csv', 'xml', 'json', 'array');
     // Set array of valid MC field types (don't include "checkbox" because it gets dealt with on its own)
     $mc_field_types = array("radio", "select", "yesno", "truefalse", "sql");
     // If $returnFormat is not valid, set to default 'csv'
     if (!in_array($returnFormat, $validReturnFormats)) {
         $returnFormat = 'csv';
     }
     // Cannot use $outputAsLabels for 'array' output
     if ($returnFormat == 'array') {
         $outputAsLabels = false;
     }
     // Can only use $outputCsvHeadersAsLabels for 'csv' output
     if ($returnFormat != 'csv') {
         $outputCsvHeadersAsLabels = false;
     }
     // If surveys are not enabled, then set $outputSurveyFields to false
     if (!$Proj->project['surveys_enabled'] || empty($Proj->surveys)) {
         $outputSurveyFields = false;
     }
     // Use for replacing strings in labels (if needed)
     $orig = array("\"", "\r\n", "\n", "\r");
     $repl = array("'", "  ", "  ", "");
     // Determine if we should apply sortArray
     $applySortFields = is_array($sortArray) && !empty($sortArray);
     ## Set all input values
     // Get unique event names (with event_id as key)
     $unique_events = $Proj->getUniqueEventNames();
     // Create array of formatted event labels
     if ($longitudinal && $outputAsLabels) {
         $event_labels = array();
         foreach (array_keys($unique_events) as $this_event_id) {
             $event_labels[$this_event_id] = str_replace($orig, $repl, strip_tags(label_decode($Proj->eventInfo[$this_event_id]['name_ext'])));
         }
     }
     // If $fields is a string, convert to array
     if (!is_array($fields) && $fields != null) {
         $fields = array($fields);
     }
     // If $fields is empty, replace it with array of ALL fields.
     $removeTablePk = false;
     if (empty($fields)) {
         foreach (array_keys($Proj->metadata) as $this_field) {
             // Make sure field is not a descriptive field (because those will never have data)
             if ($Proj->metadata[$this_field]['element_type'] != 'descriptive') {
                 $fields[] = $this_field;
             }
         }
         $checkFieldNameEachLoop = true;
     } else {
         // If only returning the record-event array (as the subset record list for a report),
         // then make sure the record ID is added, or else it'll break some things downstream (not ideal solution but works as quick patch).
         // Also do this for longitudinal projects because if we don't, it might not pull data for an entire event if data doesn't exist
         // for any fields here except the record ID field. NOTE: Make sure we remove the record ID field in the end though (so it doesn't get returned
         if (($Proj->longitudinal || $returnIncludeRecordEventArray) && !in_array($Proj->table_pk, $fields)) {
             $fields = array_merge(array($Proj->table_pk), $fields);
             $removeTablePk = true;
         }
         // Validate all field names and order fields according to metadata field order
         $field_order = array();
         foreach ($fields as $this_key => $this_event_field) {
             $this_field = LongitudinalReports::getFieldFromEventField($this_event_field);
             // Make sure field exists AND is not a descriptive field (because those will never have data)
             if (isset($Proj->metadata[$this_field]) && $Proj->metadata[$this_field]['element_type'] != 'descriptive') {
                 // Put in array for sorting
                 $field_order[] = $Proj->metadata[$this_field]['field_order'];
             } else {
                 // Remove any invalid field names
                 unset($fields[$this_key]);
             }
         }
         // Sort fields by metadata field order (unless passing a flag to prevent reordering)
         if (!$orderFieldsAsSpecified) {
             array_multisort($field_order, SORT_NUMERIC, $fields);
         }
         unset($field_order);
         // If we're querying more than 25% of the project's fields, then don't put field names in query but check via PHP each loop.
         $checkFieldNameEachLoop = count($fields) / count($Proj->metadata) > 0.25;
     }
     // Create array of fields with field name as key
     $fieldsKeys = array_fill_keys($fields, true);
     // If $events is a string, convert to array
     if (!is_array($events) && $events != null) {
         $events = array($events);
     }
     // If $events is empty, replace it with array of ALL fields.
     if (empty($events)) {
         $events = array_keys($Proj->eventInfo);
     } else {
         // If $events has unique event name (instead of event_ids), then convert all to event_ids
         $events_temp = array();
         foreach ($events as $this_key => $this_event) {
             // If numeric, validate event_id
             if (is_numeric($this_event)) {
                 if (!isset($Proj->eventInfo[$this_event])) {
                     // Remove invalid event_id
                     unset($events[$this_key]);
                 } else {
                     // Valid event_id
                     $events_temp[] = $this_event;
                 }
             } else {
                 // Get array key of unique event name provided
                 $event_id_key = array_search($this_event, $unique_events);
                 if ($event_id_key !== false) {
                     // Valid event_id
                     $events_temp[] = $event_id_key;
                 }
             }
         }
         // Now swap out $events_temp for $events
         $events = $events_temp;
         unset($events_temp);
     }
     // Get array of all DAGs
     $allDags = $Proj->getUniqueGroupNames();
     // Validate DAGs
     if (empty($allDags)) {
         // If no DAGs exist, then automatically set array as empty
         $groups = array();
         // Automatically set $outputDags as false (in case was set to true mistakenly)
         $outputDags = false;
     } else {
         // If $groups is a string, convert to array
         if (!is_array($groups) && $groups != null) {
             $groups = array($groups);
         }
         // If $groups is not empty, replace it with array of ALL data access group IDs.
         if (!empty($groups)) {
             // If $groups has unique group name (instead of group_ids), then convert all to group_ids
             $groups_temp = array();
             foreach ($groups as $this_key => $this_group) {
                 // If numeric, validate group_id
                 if (is_numeric($this_group)) {
                     if (!isset($allDags[$this_group])) {
                         // Check to see if its really the unique group name (and not the group_id) // LS Patched: https://iwg.devguard.com/trac/redcap/changeset/7747#file0
                         $group_id_key = array_search($this_group, $allDags);
                         if ($group_id_key !== false) {
                             // Valid group_id
                             $groups_temp[] = $group_id_key;
                         } else {
                             // Remove invalid group_id
                             unset($groups[$this_key]);
                         }
                     } else {
                         // Valid group_id
                         $groups_temp[] = $this_group;
                     }
                 } else {
                     // Get array key of unique group name provided
                     $group_id_key = array_search($this_group, $allDags);
                     if ($group_id_key !== false) {
                         // Valid group_id
                         $groups_temp[] = $group_id_key;
                     }
                 }
             }
             // Now swap out $groups_temp for $groups
             $groups = $groups_temp;
             unset($groups_temp);
         }
     }
     ## RECORDS
     // If $records is a string, convert to array
     if (!is_array($records) && $records != null) {
         $records = array($records);
     }
     // If $records is empty, replace it with array of ALL records.
     $recordsEmpty = false;
     $recordCount = null;
     if (empty($records)) {
         $records = self::getRecordList($project_id);
         // Set flag that $records was originally passed as empty
         $recordsEmpty = true;
         $checkRecordNameEachLoop = true;
     } else {
         // If we're querying more than 25% of the project's records, then don't put field names in query but check via PHP each loop.
         if ($recordCount == null) {
             $recordCount = self::getRecordCount();
         }
         $checkRecordNameEachLoop = count($records) / $recordCount > 0.25;
     }
     // Create array of fields with field name as key
     $recordsKeys = array_fill_keys($records, true);
     ## DAG RECORDS: If pulling data for specific DAGs, get list of records in DAGs specified and replace $records with them
     $hasDagRecords = false;
     if (!empty($groups)) {
         // Collect all DAG records into array
         $dag_records = array();
         $sql = "select distinct record from redcap_data where project_id = {$project_id}\n\t\t\t\t\tand field_name = '__GROUPID__' and value in (" . prep_implode($groups) . ")";
         if (!$checkRecordNameEachLoop) {
             $sql .= " and record in (" . prep_implode($records) . ")";
         }
         $q = db_query($sql);
         while ($row = db_fetch_assoc($q)) {
             // If we need to validate the record name in each loop, then check.
             if ($checkRecordNameEachLoop && !isset($recordsKeys[$row['record']])) {
                 continue;
             }
             // Add to array
             $dag_records[] = $row['record'];
         }
         // Set flag if returned some DAG records
         $hasDagRecords = !empty($dag_records);
         // Replace $records array
         $records = $dag_records;
         unset($dag_records);
         // If we're querying more than 25% of the project's records, then don't put field names in query but check via PHP each loop.
         if ($recordCount == null) {
             $recordCount = self::getRecordCount();
         }
         $checkRecordNameEachLoop = count($records) / $recordCount > 0.25;
         // Create array of fields with field name as key
         $recordsKeys = array_fill_keys($records, true);
     }
     ## APPLY FILTERING LOGIC: Get records-events where filter logic is true
     $filterResults = false;
     $filterReturnedEmptySet = false;
     if ($filterLogic != '') {
         // Get array of applicable record-events (only pass $project_id if already passed explicitly to getData)
         $record_events_filtered = self::applyFilteringLogic($filterLogic, $records, is_numeric($args[0]) ? $project_id : null);
         $filterResults = $record_events_filtered !== false;
         // If logic returns zero record/events, then manually set $records to ''/blank
         if ($filterResults) {
             if (empty($record_events_filtered)) {
                 $records = array('');
                 $checkRecordNameEachLoop = false;
                 $filterReturnedEmptySet = true;
             } else {
                 // Replace headers
                 $records = array_keys($record_events_filtered);
                 // If we're querying more than 25% of the project's records, then don't put field names in query but check via PHP each loop.
                 if ($recordCount == null) {
                     $recordCount = self::getRecordCount();
                 }
                 $checkRecordNameEachLoop = count($records) / $recordCount > 0.25;
                 // Create array of fields with field name as key
                 $recordsKeys = array_fill_keys($records, true);
             }
         }
     }
     ## SORTING IN REPORTS: If the sort fields are NOT in $fields (i.e. should be returned as data),
     // then temporarily add them to $fields and then remove them later when performing sorting.
     if ($applySortFields) {
         $sortArrayRemoveFromData = array();
         foreach (array_keys($sortArray) as $this_field) {
             if (!in_array($this_field, $fields)) {
                 $sortArrayRemoveFromData[] = $fields[] = $this_field;
             }
         }
     }
     ## PIPING (only for exporting labels OR for displaying reports)
     $piping_receiver_fields = array();
     $do_label_piping = false;
     if ($outputAsLabels || $returnFormat == 'html') {
         // If any dropdowns, radios, or checkboxes are using piping in their option labels, then get data for those and then inject them
         $piping_transmitter_fields = $piping_record_data = array();
         foreach ($fields as $this_field) {
             $this_field = LongitudinalReports::getFieldFromEventField($this_field);
             if (in_array($Proj->metadata[$this_field]['element_type'], array('dropdown', 'select', 'radio', 'checkbox'))) {
                 $this_field_enum = $Proj->metadata[$this_field]['element_enum'];
                 // If has at least one left and right square bracket
                 if ($this_field_enum != '' && strpos($this_field_enum, '[') !== false && strpos($this_field_enum, ']') !== false) {
                     // If has at least one field piped
                     $these_piped_fields = array_keys(getBracketedFields($this_field_enum, true, true, true));
                     if (!empty($these_piped_fields)) {
                         $piping_receiver_fields[] = $this_field;
                         $piping_transmitter_fields = array_merge($piping_transmitter_fields, $these_piped_fields);
                     }
                 }
             }
         }
         if (!empty($piping_receiver_fields)) {
             // Get data for piping fields
             $piping_record_data = self::getData('array', $records, $piping_transmitter_fields);
             // Remove unneeded variables
             unset($piping_transmitter_fields, $potential_piping_fields);
             // Set flag
             $do_label_piping = true;
         }
     }
     ## GATHER DEFAULT VALUES
     // Get default values for all records (all fields get value '', except Form Status and checkbox fields get value 0)
     $default_values = $mc_choice_labels = array();
     $prev_form = null;
     $fieldsNoEventRef = array();
     foreach ($fields as $this_field) {
         //LongitudinalReports: make array of field names without event ref for reading from redcap_data
         $this_field = LongitudinalReports::getFieldFromEventField($this_field);
         if (array_search($this_field, $fieldsNoEventRef) === false) {
             $fieldsNoEventRef[] = $this_field;
         }
         // Get field's field type
         $field_type = $Proj->metadata[$this_field]['element_type'];
         // If exporting labels for multiple choice questions, store codes/labels in array for later use when replacing
         if ($outputAsLabels && ($field_type == 'checkbox' || in_array($field_type, $mc_field_types))) {
             if ($field_type == "yesno") {
                 $mc_choice_labels[$this_field] = parseEnum("1, Yes \\n 0, No");
             } elseif ($field_type == "truefalse") {
                 $mc_choice_labels[$this_field] = parseEnum("1, True \\n 0, False");
             } else {
                 $enum = $field_type == "sql" ? getSqlFieldEnum($Proj->metadata[$this_field]['element_enum']) : $Proj->metadata[$this_field]['element_enum'];
                 foreach (parseEnum($enum) as $this_value => $this_label) {
                     // Decode (just in case)
                     $this_label = html_entity_decode($this_label, ENT_QUOTES);
                     // Replace double quotes with single quotes
                     $this_label = str_replace("\"", "'", $this_label);
                     // Replace line breaks with two spaces
                     $this_label = str_replace("\r\n", "  ", $this_label);
                     // Add to array
                     $mc_choice_labels[$this_field][$this_value] = $this_label;
                 }
             }
         }
         // Loop through all designated events so that each event
         foreach (array_keys($Proj->eventInfo) as $this_event_id) {
             // If event_id isn't in list of event_ids provided, then skip
             if (!in_array($this_event_id, $events)) {
                 continue;
             }
             // Get the form_name of this field
             $this_form = $Proj->metadata[$this_field]['form_name'];
             $current_event_field = "[{$Proj->getUniqueEventNames($this_event_id)}][{$this_field}]";
             if (array_search($current_event_field, $fields) !== false || $this_field == $Proj->table_pk && $this_event_id == $Proj->firstEventId) {
                 // If we're starting a new survey, then add its Timestamp field as the first field in the instrument
                 if ($outputSurveyFields && $this_field != $table_pk && isset($Proj->forms[$this_form]['survey_id'])) {
                     $current_event_field = "[{$Proj->getUniqueEventNames($this_event_id)}][{$this_field}_timestamp]";
                     $default_values[$current_event_field] = '';
                     //$default_values[$this_event_id][$this_form.'_timestamp'] = '';
                 }
                 // If longitudinal, is this form designated for this event
                 $validFormEvent = !$longitudinal || $longitudinal && in_array($this_form, $Proj->eventsForms[$this_event_id]);
                 // Check a checkbox or Form Status field
                 if ($Proj->isCheckbox($this_field)) {
                     // Loop through all choices and set each as 0
                     foreach (array_keys(parseEnum($Proj->metadata[$this_field]['element_enum'])) as $choice) {
                         // Set default value as 0 (unchecked)
                         if (!$validFormEvent || $outputAsLabels && $outputCheckboxLabel) {
                             $default_values[$current_event_field][$choice] = '';
                             //$default_values[$this_event_id][$this_field][$choice] = '';
                         } elseif ($outputAsLabels) {
                             $default_values[$current_event_field][$choice] = 'Unchecked';
                             //$default_values[$this_event_id][$this_field][$choice] = 'Unchecked';
                         } else {
                             $default_values[$current_event_field][$choice] = '0';
                             //$default_values[$this_event_id][$this_field][$choice] = '0';
                         }
                     }
                 } elseif ($this_field == $this_form . "_complete") {
                     // Set default Form Status as 0
                     if (!$validFormEvent) {
                         $default_values[$current_event_field] = '';
                         //$default_values[$this_event_id][$this_field] = '';
                     } elseif ($outputAsLabels) {
                         $default_values[$current_event_field] = 'Incomplete';
                         //$default_values[$this_event_id][$this_field] = 'Incomplete';
                     } else {
                         $default_values[$current_event_field] = '0';
                         //$default_values[$this_event_id][$this_field] = '0';
                     }
                 } else {
                     // Set as ''
                     $default_values[$current_event_field] = '';
                     //$default_values[$this_event_id][$this_field] = '';
                     // If this is the Record ID field and we're exporting DAG names and/or survey fields, them add them.
                     // If the Record ID field is not included in the report, then add DAG names and/or survey fields if not already added.
                     if ($this_field == $table_pk || !in_array($table_pk, $fields)) {
                         // DAG field
                         if ($outputDags && !isset($default_values['redcap_data_access_group'])) {
                             $default_values['redcap_data_access_group'] = '';
                         }
                         if ($outputSurveyIdentifier && !isset($default_values['redcap_survey_identifier'])) {
                             // Survey Identifier field
                             $default_values['redcap_survey_identifier'] = '';
                             // Survey Timestamp field (first instrument only - for other instruments, it's doing this same thing above in the loop)
                             // if ($prev_form == null && isset($Proj->forms[$this_form]['survey_id'])) {
                             // $default_values[$this_event_id][$this_form.'_timestamp'] = '';
                             // }
                         }
                         // Event schedule dates selected
                         if (is_array($outputScheduleDates) && count($outputScheduleDates) > 0) {
                             foreach ($outputScheduleDates as $outputDateEventId) {
                                 $default_values["[{$Proj->getUniqueEventNames($outputDateEventId)}][___schedule_date]"] = '';
                             }
                         }
                         // Survey URLs selected
                         if (is_array($outputSurveyUrls) && count($outputSurveyUrls) > 0) {
                             foreach ($outputSurveyUrls as $outputSurveyEventIdSurveyId) {
                                 //Event id/survey form stored as pipe-separated pair e.g. 2365|my_survey
                                 $eventsurvey = explode('|', $outputSurveyEventIdSurveyId);
                                 $eventRef = $Proj->getUniqueEventNames($eventsurvey[0]);
                                 $default_values["[{$eventRef}][{$eventsurvey['1']}___url]"] = '';
                             }
                         }
                     }
                 }
             }
             // Set for next loop
             $prev_form = $this_form;
         }
     }
     ## QUERY DATA TABLE
     // Set main query
     $sql = "select record, event_id, field_name, value from redcap_data\n\t\t\t\twhere project_id = " . $project_id . " and record != ''";
     if (!empty($events)) {
         $sql .= " and event_id in (" . prep_implode($events) . ")";
     }
     if (!$checkFieldNameEachLoop && !empty($fields)) {
         // $sql .= " and field_name in (" . prep_implode($fields) . ")";
         $sql .= " and field_name in (" . prep_implode($fieldsNoEventRef) . ")";
     }
     if (!$checkRecordNameEachLoop && !empty($records)) {
         $sql .= " and record in (" . prep_implode($records) . ")";
     }
     // If we are to return records for specific DAG(s) but those DAGs contain no records, then cause the query to return nothing.
     if (!$hasDagRecords && !empty($groups)) {
         $sql .= " and 1 = 2";
     }
     // Order query results by record name if constant has been defined
     if (defined("EXPORT_WRITE_TO_FILE")) {
         $sql .= " order by record";
     }
     //print "<br><b>MySQL Error:</b> ".db_error()."<br><b>Query:</b> $sql<br><br>";
     // Use unbuffered query method
     $q = db_query($sql, null, MYSQLI_USE_RESULT);
     // Return database query error to super users
     if (defined('SUPER_USER') && SUPER_USER && db_error() != '') {
         print "<br><b>MySQL Error:</b> " . db_error() . "<br><b>Query:</b> {$sql}<br><br>";
     }
     // Set flag is record ID field is a display field
     $recordIdInFields = in_array($Proj->table_pk, $fields);
     // Remove unnecessary things for memory usage purposes
     //		unset($fields, $events);
     // Set intial values
     $num_rows_returned = 0;
     $event_id = 0;
     $record = "";
     $record_data = array();
     $days_to_shift = array();
     $record_data_tmp_line = array();
     $record_line = 1;
     // If writing data to a file instead to memory, create temp file
     if (defined("EXPORT_WRITE_TO_FILE")) {
         $record_data_tmp_file = tmpfile();
     }
     // Loop through data one record at a time
     while ($row = db_fetch_assoc($q)) {
         // If value is blank, then skip
         if ($row['value'] == '') {
             continue;
         }
         // If we need to validate the record name in each loop, then check.
         if ($checkRecordNameEachLoop && !isset($recordsKeys[$row['record']])) {
             continue;
         }
         // If we need to validate the field name in each loop, then check.
         if ($checkFieldNameEachLoop && !isset($fieldsKeys["[{$Proj->getUniqueEventNames($row['event_id'])}][{$row['field_name']}]"])) {
             continue;
         }
         //			// If filtering the results using a logic string, then skip this record-event if doesn't match valid logic
         //			if ($filterResults && !isset($record_events_filtered[$row['record']][$row['event_id']])) continue;
         // Add initial default data for this record-event
         if (!isset($record_data[$row['record']])) {
             // [$row['event_id']])) {
             /* 
             // If we're close to running out of memory, then set contstant and call this method recursively
             // to start over and write data to file instead of to memory (to allow full data export w/o hitting memory limits).
             if (!defined("EXPORT_WRITE_TO_FILE") && memory_get_usage() >= $memory_limit*0.8) {
             	// Define the constant
             	define("EXPORT_WRITE_TO_FILE", true);
             	// Unset variables to clear up memory
             	unset($record_data, $records, $recordsKeys, $fieldsKeys, $record_events_filtered);
             	// Close the unbuffered query
             	db_free_result($q);
             	// Call this function with constant defined to start over while writing data to file
             	return call_user_func_array('Records::getData', $args);
             } elseif (defined("EXPORT_WRITE_TO_FILE") && $event_id > 0) {
             	// Add data to file and clear from array
             	fwrite($record_data_tmp_file, serialize(array($record=>array($event_id=>$record_data[$record][$event_id])))."\n");
             	// Add this to record line
             	$record_data_tmp_line[$record][$event_id] = $record_line++;
             	// Clear array for next record-event
             	$record_data = array();
             }
             */
             // Add default data
             //				$record_data[$row['record']][$row['event_id']] = $default_values[$row['event_id']];
             $record_data[$row['record']] = $default_values;
             // Get date shift amount for this record (if applicable)
             if ($dateShiftDates) {
                 $days_to_shift[$row['record']] = self::get_shift_days($row['record'], $Proj->project['date_shift_max'], $Proj->project['__SALT__']);
             }
         }
         // Decode the value
         $row['value'] = html_entity_decode($row['value'], ENT_QUOTES);
         // Set values for this loop
         $event_id = $row['event_id'];
         $record = $row['record'];
         // Add the value into the array (double check to make sure the event_id still exists)
         // - but only if it is an event/field we're interested in for Longitudinal Report
         if (isset($unique_events[$event_id])) {
             $current_event_field = "[{$Proj->getUniqueEventNames($event_id)}][{$row['field_name']}]";
             if (array_search($current_event_field, $fields) !== false || $row['field_name'] == $Proj->table_pk && $event_id == $Proj->firstEventId) {
                 // Get field's field type
                 $field_type = $Proj->metadata[$row['field_name']]['element_type'];
                 if ($field_type == 'checkbox') {
                     // Make sure that this checkbox option still exists
                     //if (isset($default_values[$event_id][$row['field_name']][$row['value']])) {
                     if (isset($default_values[$current_event_field][$row['value']])) {
                         // Add checkbox field value
                         if ($outputAsLabels) {
                             // If using $outputCheckboxLabel API flag, then output the choice label
                             if ($outputCheckboxLabel) {
                                 // Get MC option label
                                 $this_mc_label = $mc_choice_labels[$row['field_name']][$row['value']];
                                 // PIPING (if applicable)
                                 if ($do_label_piping && in_array($row['field_name'], $piping_receiver_fields)) {
                                     $this_mc_label = strip_tags(Piping::replaceVariablesInLabel($this_mc_label, $record, $event_id, $piping_record_data));
                                 }
                                 // Add option label
                                 //$record_data[$record][$event_id][$row['field_name']][$row['value']] = $this_mc_label;
                                 $record_data[$record][$current_event_field][$row['value']] = $this_mc_label;
                             } else {
                                 //$record_data[$record][$event_id][$row['field_name']][$row['value']] = 'Checked';
                                 $record_data[$record][$current_event_field][$row['value']] = 'Checked';
                             }
                         } else {
                             //$record_data[$record][$event_id][$row['field_name']][$row['value']] = '1';
                             $record_data[$record][$current_event_field][$row['value']] = '1';
                         }
                     }
                 } else {
                     // Non-checkbox field value
                     // When outputting labels for MULTIPLE CHOICE questions (excluding checkboxes), add choice labels to answers_labels
                     if ($outputAsLabels && isset($mc_choice_labels[$row['field_name']])) {
                         // Get MC option label
                         $this_mc_label = $mc_choice_labels[$row['field_name']][$row['value']];
                         // PIPING (if applicable)
                         if ($do_label_piping && in_array($row['field_name'], $piping_receiver_fields)) {
                             $this_mc_label = strip_tags(Piping::replaceVariablesInLabel($this_mc_label, $record, $event_id, $piping_record_data));
                         }
                         // Add option label
                         //$record_data[$record][$event_id][$row['field_name']] = $this_mc_label;
                         $record_data[$record][$current_event_field] = $this_mc_label;
                     } else {
                         // Shift all date[time] fields, when applicable
                         if ($dateShiftDates && $field_type == 'text' && (substr($Proj->metadata[$row['field_name']]['element_validation_type'], 0, 8) == 'datetime' || in_array($Proj->metadata[$row['field_name']]['element_validation_type'], array('date', 'date_ymd', 'date_mdy', 'date_dmy')))) {
                             //$record_data[$record][$event_id][$row['field_name']] = Records::shift_date_format($row['value'], $days_to_shift[$record]);
                             $record_data[$record][$current_event_field] = Records::shift_date_format($row['value'], $days_to_shift[$record]);
                         } elseif ($replaceFileUploadDocId && $field_type == 'file') {
                             //$record_data[$record][$event_id][$row['field_name']] = '[document]';
                             $record_data[$record][$current_event_field] = '[document]';
                         } else {
                             // Check if we should replace any line breaks with spaces or double quotes with single quotes
                             if ($removeLineBreaksInValues) {
                                 $row['value'] = str_replace($orig, $repl, $row['value']);
                             }
                             // Add value
                             //$record_data[$record][$event_id][$row['field_name']] = $row['value'];
                             $record_data[$record][$current_event_field] = $row['value'];
                         }
                     }
                 }
             }
         }
         // Increment row counter
         $num_rows_returned++;
     }
     db_free_result($q);
     // If query returns 0 rows, then simply put default values for $record_data as placeholder for blanks and other defaults.
     // If DAGs were specified as input parameters but there are no records in those DAGs, then output NOTHING but a blank array.
     if ($num_rows_returned < 1 && !($hasDagRecords && !empty($groups))) {
         if ($recordsEmpty) {
             // Loop through ALL records and add default values for each
             foreach ($records as $this_record) {
                 $record_data[$this_record] = $default_values;
             }
         } else {
             // Validate the records passed in $records and loop through them and add default values for each
             foreach (array_intersect($records, self::getRecordList($project_id)) as $this_record) {
                 $record_data[$this_record] = $default_values;
             }
         }
     }
     /* 
     		print memory_get_usage()/1024/1024;
     		//print_array($record_data);
     		print_array($record_data_tmp_line);
     		fseek($record_data_tmp_file, 0);
     		echo stream_get_contents($record_data_tmp_file);
     */
     // REPORTS ONLY: If the Record ID field is included in the report, then also display the Custom Record Label
     $extra_record_labels = array();
     if ($returnFormat == 'html' && $recordIdInFields) {
         $extra_record_labels = Records::getCustomRecordLabelsSecondaryFieldAllRecords($records, false, 'all');
     }
     // Sort by record and event name ONLY if we are NOT sorting by other fields
     if (empty($sortArray)) {
         ## SORT RECORDS BY RECORD NAME (i.e., array keys) using case insensitive natural sort
         natcaseksort($record_data);
         /*			## SORT EVENTS WITHIN EACH RECORD (LONGITUDINAL ONLY)
         			if ($longitudinal) {
         				// Create array of event_id's in order by arm_num, then by event order
         				$event_order = array_keys($Proj->eventInfo);
         				// Loop through each record and reorder the events (if has more than one event of data per record)
         				foreach ($record_data as $this_record=>&$these_events) {
         					// Set array to collect the data for this record in reordered form
         					$this_record_data_reordered = array();
         					// Skip if there's only one event with data
         					if (count($these_events) == 1) continue;
         					// Loop through all existing PROJECT events in their proper order
         					foreach (array_intersect($event_order, array_keys($these_events)) as $this_event_id) {
         						// Add this event's data to reordered data array
         						$this_record_data_reordered[$this_event_id] = $these_events[$this_event_id];
         					}
         					// Replace old data with reordered data
         					$record_data[$this_record] = $this_record_data_reordered;
         				}
         				// Remove unnecessary things for memory usage purposes
         				unset($this_record_data_reordered, $these_events, $event_order);
         			}*/
     }
     ## ADD DATA ACCESS GROUP NAMES (IF APPLICABLE)
     if ($outputDags) {
         // If exporting labels, then create array of DAG labels
         if ($outputAsLabels) {
             $allDagLabels = $Proj->getGroups();
         }
         // Get all DAG values for the records
         $sql = "select distinct record, value from redcap_data \n\t\t\t\t\twhere project_id = {$project_id} and field_name = '__GROUPID__'";
         if (!$checkRecordNameEachLoop) {
             // For performance reasons, don't use "record in ()" unless we really need to
             $sql .= " and record in (" . prep_implode($records, false) . ")";
         }
         $q = db_query($sql);
         while ($row = db_fetch_assoc($q)) {
             // Validate record name and DAG group_id value
             if (isset($allDags[$row['value']]) && isset($record_data[$row['record']])) {
                 // Add unique DAG name to every event for this record
                 //					foreach (array_keys($record_data[$row['record']]) as $dag_event_id) {
                 // Add DAG name or unique DAG name
                 //$record_data[$row['record']][$dag_event_id]['redcap_data_access_group']
                 $record_data[$row['record']]['redcap_data_access_group'] = $outputAsLabels ? $allDagLabels[$row['value']] : $allDags[$row['value']];
                 //					}
             }
         }
         unset($allDagLabels);
     }
     ## ADD DATES FROM SCHEDULE IF REQURIED
     if (isset($outputScheduleDates) && count($outputScheduleDates) > 0) {
         $sql = "select event_id, record, event_date, event_time, event_status " . "from redcap_events_calendar " . "where project_id = {$project_id} ";
         if (!$checkRecordNameEachLoop) {
             // For performance reasons, don't use "record in ()" unless we really need to
             $sql .= " and r.record in (" . prep_implode($records, false) . ")";
         }
         $q = db_query($sql);
         while ($row = db_fetch_assoc($q)) {
             // Process further only if record is in our array
             if (!isset($record_data[$row['record']])) {
                 continue;
             }
             if (array_search($row['event_id'], $outputScheduleDates) !== false) {
                 $record_data[$row['record']]["[{$Proj->getUniqueEventNames($row['event_id'])}][___schedule_date]"] = trim("{$row['event_date']} {$row['event_time']}");
             }
         }
     }
     ## ADD SURVEY IDENTIFIER AND TIMESTAMP FIELDS FOR ALL SURVEYS
     /* TODO Longitudinal Reports: include survey timestamps/urls/returncodes/survey queue links          */
     if ($outputSurveyFields || isset($outputSurveyUrls) && count($outputSurveyUrls) > 0) {
         $sql = "select r.record, r.first_submit_time, r.completion_time, p.participant_identifier, s.form_name, p.event_id, p.hash, r.return_code " . "from redcap_surveys s, redcap_surveys_response r, redcap_surveys_participants p, redcap_events_metadata a  " . "where p.participant_id = r.participant_id and s.project_id = {$project_id} and s.survey_id = p.survey_id " . "and p.event_id = a.event_id ";
         //and r.first_submit_time is not null";
         if (!$checkRecordNameEachLoop) {
             // For performance reasons, don't use "record in ()" unless we really need to
             $sql .= " and r.record in (" . prep_implode($records, false) . ")";
         }
         $q = db_query($sql);
         while ($row = db_fetch_assoc($q)) {
             // Make sure we have this record-event in array first
             //if (!isset($record_data[$row['record']][$row['event_id']])) continue;
             if (!isset($record_data[$row['record']])) {
                 continue;
             }
             /*				// Add participant identifier
             				if ($row['participant_identifier'] != "" && isset($default_values[$row['event_id']]['redcap_survey_identifier'])) {
             					$record_data[$row['record']][$row['event_id']]['redcap_survey_identifier'] = html_entity_decode($row['participant_identifier'], ENT_QUOTES);
             				}
             				// If response exists but is not completed, note this in the export
             				if ($dateShiftSurveyTimestamps && $row['completion_time'] != "") {
             					// Shift the survey timestamp, if applicable
             					$row['completion_time'] = Records::shift_date_format($row['completion_time'], $days_to_shift[$row['record']]);
             				} elseif ($row['completion_time'] == "") {
             					// Replace with text "[not completed]" if survey wasn't completed
             					$row['completion_time'] = "[not completed]";
             				}
             				// Add to record_data array
             				if (isset($record_data[$row['record']][$row['event_id']][$row['form_name'].'_timestamp'])) {
             					$record_data[$row['record']][$row['event_id']][$row['form_name'].'_timestamp'] = $row['completion_time'];
             				}*/
             $frm = $row['form_name'];
             $evt = $row['event_id'];
             if (array_search("{$evt}|{$frm}", $outputSurveyUrls) !== false) {
                 // Found a record/survey we want to include
                 $url = $row['completion_time'] == "" ? APP_PATH_WEBROOT_FULL . "surveys/?s=" . $row['hash'] : $row['completion_time'];
                 $record_data[$row['record']]["[{$Proj->getUniqueEventNames($evt)}][{$frm}___url]"] = $url;
             }
         }
     }
     unset($days_to_shift);
     ## HASH THE RECORD ID (replace record names with hash value)
     if ($hashRecordID) {
         foreach ($record_data as $this_record => $eattr) {
             // Hash the record name using a system-level AND project-level salt
             $this_new_record = md5($salt . $this_record . $Proj->project['__SALT__']);
             // Add new record name
             $record_data[$this_new_record] = $record_data[$this_record];
             // Remove the old one
             unset($record_data[$this_record]);
             // If Record ID field exists in the report, then set it too at the value level
             foreach ($eattr as $this_event_id => $attr) {
                 if (isset($attr[$Proj->table_pk])) {
                     //$record_data[$this_new_record][$this_event_id][$Proj->table_pk] = $this_new_record;
                     $record_data[$this_new_record][$Proj->table_pk] = $this_new_record;
                 }
             }
         }
         unset($eattr, $attr);
     }
     // Remove unnecessary things for memory usage purposes
     unset($records, $default_values, $fieldsKeys, $recordsKeys, $record_events_filtered);
     db_free_result($q);
     //      		// If we need to remove the record ID field, then loop through all events of data and remove it
     // If we need to remove the record ID field, then loop through all records of data and remove it
     if ($removeTablePk) {
         foreach ($record_data as $this_record => &$these_fields) {
             //&$these_events) {
             //				foreach ($these_events as $this_event_id=>&$these_fields) {
             if (isset($these_fields[$Proj->table_pk])) {
                 //unset($record_data[$this_record][$this_event_id][$Proj->table_pk]);
                 unset($record_data[$this_record][$Proj->table_pk]);
             }
             //				}
         }
     }
     ## RETURN DATA IN SPECIFIED FORMAT
     // ARRAY format
     if ($returnFormat == 'array') {
         // Return as-is (already in array format)
         return $record_data;
     } else {
         ## For non-array formats, reformat data array (e.g., add unique event names, separate check options)
         // HEADERS: Do initial loop through array to build headers (do JUST one loop)
         $headers = $checkbox_choice_labels = array();
         /*			foreach ($record_data as $this_record=>&$field_data) { // &$event_data) {
         				// Loop through events in this record
         				foreach ($event_data as $this_event_id=>&$field_data) {
         					// Create array of all forms
         					$all_forms = array_keys($Proj->forms);
         					// Loop through fields in this event
         					foreach ($field_data as $this_field=>$this_value) {
         						// Skip the Record ID field since it will be redundant
         						//if ($this_field == $table_pk) continue;
         						// If field is only a sorting field and not a real data field to return, then skip it
         						if ($applySortFields && in_array($this_field, $sortArrayRemoveFromData)) continue;
         
                                                         $this_field = LongitudinalReports::getFieldFromEventField($this_field);
                                                                 
                                                         // If a checkbox split into multiple fields
         						if (is_array($this_value) && !$combine_checkbox_values) {
         							// If exporting labels, get labels for this field
         							if ($outputCsvHeadersAsLabels) {
         								$this_field_enum = parseEnum($Proj->metadata[$this_field]['element_enum']);
         							}
         							// Loop through all checkbox choices and add as separate "fields"
         							foreach ($this_value as $this_code=>$this_checked_value) {
         								// Store original code before formatting
         								$this_code_orig = $this_code;
         								// If coded value is not numeric, then format to work correct in variable name (no spaces, caps, etc)
         								$this_code = (Project::getExtendedCheckboxCodeFormatted($this_code));
         								// Add choice to header
         								$headers[] = ($outputCsvHeadersAsLabels) 
         									? str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$this_field]['element_label'])))." (choice=".str_replace(array("'","\""),array("",""),$this_field_enum[$this_code_orig]).")" 
         									: $this_field."___".$this_code;
         							}
         						// If a normal field or DAG/Survey fields
         						} else {
         							// Get this field's form
         							$this_form = $Proj->metadata[$this_field]['form_name'];
         							// If the record ID field
         							if ($this_field == $table_pk) {
         								$headers[] = ($outputCsvHeadersAsLabels) ? str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$table_pk]['element_label']))) : $table_pk;
         								// If longitudinal, add unique event name to line
         								if ($longitudinal) {
         									$headers[] = ($outputCsvHeadersAsLabels) ? 'Event Name' : 'redcap_event_name';
         								}
         							}
         							// Check if a special field or a normal field
         							elseif (!$outputCsvHeadersAsLabels) {
         								// Add field to header array
         								$headers[] = $this_field;
         								// Add checkbox labels to array (only for $combine_checkbox_values=TRUE)
         								if (is_array($this_value) && $combine_checkbox_values) {
         									foreach (parseEnum($Proj->metadata[$this_field]['element_enum']) as $raw_coded_value=>$checkbox_label) {
         										$checkbox_choice_labels[$raw_coded_value] = $checkbox_label;
         									}
         								}
         							// Output labels for normal field or DAG/Survey fields
         							} elseif ($this_field == 'redcap_data_access_group') {
         								$headers[] = 'Data Access Group';
         							} elseif ($this_field == 'redcap_survey_identifier') {
         								$headers[] = 'Survey Identifier';
         							} elseif (substr($this_field, -10) == '_timestamp' && in_array(substr($this_field, 0, -10), $all_forms)) {
         								$headers[] = 'Survey Timestamp';							
         							} else {
         								$headers[] = str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$this_field]['element_label'])));
         							}
         						}
         					}
         					unset($all_forms);
         					// Stop after we have all the fields for the first event listed (that's all we need)
         					break; // 2;
         //				}
         			} */
         // Loop through fields in order specified in LongitudinalReport spec
         foreach ($fields as $this_eventfield) {
             // If field is only a sorting field and not a real data field to return, then skip it
             if ($applySortFields && in_array($this_eventfield, $sortArrayRemoveFromData)) {
                 continue;
             }
             $this_eventref = LongitudinalReports::getEventFromEventField($this_eventfield);
             $this_field = LongitudinalReports::getFieldFromEventField($this_eventfield);
             // If a checkbox split into multiple fields
             //                                if (is_array($this_value) && !$combine_checkbox_values) {
             if ($Proj->isCheckbox($this_field) && !$combine_checkbox_values) {
                 // If exporting labels, get labels for this field
                 //if ($outputCsvHeadersAsLabels) {
                 $this_field_enum = parseEnum($Proj->metadata[$this_field]['element_enum']);
                 //}
                 // Loop through all checkbox choices and add as separate "fields"
                 foreach ($this_field_enum as $this_code => $this_checked_value) {
                     // Store original code before formatting
                     $this_code_orig = $this_code;
                     // If coded value is not numeric, then format to work correct in variable name (no spaces, caps, etc)
                     $this_code = Project::getExtendedCheckboxCodeFormatted($this_code);
                     // Add choice to header
                     //                                                $headers[] = ($outputCsvHeadersAsLabels)
                     //                                                        ? str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$this_field]['element_label'])))." (choice=".str_replace(array("'","\""),array("",""),$this_field_enum[$this_code_orig]).")"
                     //                                                        : $this_field."___".$this_code;
                     if ($outputCsvHeadersAsLabels) {
                         // Longitudinal Reports - also include event name in header labels/ref
                         $event_id = $Proj->getEventIdUsingUniqueEventName($this_eventref);
                         $event_name = REDCap::getEventNames(false, true, $event_id);
                         $hdr_display = str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$this_field]['element_label']))) . " ({$event_name})" . " (choice=" . str_replace(array("'", "\""), array("", ""), $this_field_enum[$this_code_orig]) . ")";
                         $headers[] = $hdr_display;
                     } else {
                         $headers[] = "[{$this_eventref}][{$this_field}___{$this_code}]";
                     }
                 }
                 // If a normal field or DAG/Survey fields
             } else {
                 // Get this field's form
                 $this_form = $Proj->metadata[$this_field]['form_name'];
                 // If the record ID field
                 if ($this_field == $table_pk) {
                     $headers[] = $outputCsvHeadersAsLabels ? str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$table_pk]['element_label']))) : $table_pk;
                     //								// If longitudinal, add unique event name to line
                     //								if ($longitudinal) {
                     //									$headers[] = ($outputCsvHeadersAsLabels) ? 'Event Name' : 'redcap_event_name';
                     //								}
                 } elseif (!$outputCsvHeadersAsLabels) {
                     // Add field to header array
                     $headers[] = $this_eventfield;
                     // $this_field;
                     // Add checkbox labels to array (only for $combine_checkbox_values=TRUE)
                     //if (is_array($this_value) && $combine_checkbox_values) {
                     if ($combine_checkbox_values && $Proj->isCheckbox($this_field)) {
                         foreach (parseEnum($Proj->metadata[$this_field]['element_enum']) as $raw_coded_value => $checkbox_label) {
                             $checkbox_choice_labels[$raw_coded_value] = $checkbox_label;
                         }
                     }
                     /*                                        // Output labels for normal field or DAG/Survey fields
                                                             } elseif ($this_field == 'redcap_data_access_group') {
                                                                     $headers[] = 'Data Access Group';
                                                             } elseif ($this_field == 'redcap_survey_identifier') {
                                                                     $headers[] = 'Survey Identifier';
                                                             } elseif (substr($this_field, -10) == '_timestamp' && in_array(substr($this_field, 0, -10), $all_forms)) {
                                                                     $headers[] = 'Survey Timestamp';							*/
                 } else {
                     //                                                $headers[] = str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$this_field]['element_label'])));
                     // Longitudinal Reports - also include event name in header labels/ref
                     $event_id = $Proj->getEventIdUsingUniqueEventName($this_eventref);
                     $event_name = REDCap::getEventNames(false, true, $event_id);
                     $hdr_display = str_replace($orig, $repl, strip_tags(label_decode($Proj->metadata[$this_field]['element_label']))) . " ({$event_name})";
                     $headers[] = $hdr_display;
                 }
             }
         }
         // Add other fields at the end (DAG, survey stuff...)
         if ($outputDags) {
             $headers[] = $outputCsvHeadersAsLabels ? 'Data Access Group' : 'redcap_data_access_group';
         }
         if ($outputSurveyFields) {
             $headers[] = 'Survey Identifier';
             $headers[] = 'Survey Timestamp';
         }
         if (isset($outputScheduleDates) && count($outputScheduleDates) > 0) {
             foreach ($outputScheduleDates as $evt) {
                 if ($outputCsvHeadersAsLabels) {
                     $headers[] = "Schedule Date ({$Proj->eventInfo[$evt]['name_ext']})";
                 } else {
                     $headers[] = "[{$Proj->getUniqueEventNames($evt)}][___schedule_date]";
                 }
             }
         }
         if (isset($outputSurveyUrls) && count($outputSurveyUrls) > 0) {
             foreach ($outputSurveyUrls as $evtSurv) {
                 //Event id/survey form stored as pipe-separated pair e.g. 2365|my_survey
                 $es = explode('|', $evtSurv);
                 if ($outputCsvHeadersAsLabels) {
                     $headers[] = label_decode(strip_tags($Proj->forms[$es[1]]['menu'])) . " URL ({$Proj->eventInfo[$evt]['name_ext']})";
                 } else {
                     $headers[] = "[{$Proj->getUniqueEventNames($es[0])}][{$es['1']}___url]";
                 }
             }
         }
         // Place formatted data into $record_data_formatted
         $record_data_formatted = array();
         // Set line/item number for each record/event
         //$recordEventNum = 0;
         $recordNum = 0;
         // If no results were returned (empty array with no values), then output row with message stating that
         if (!$filterReturnedEmptySet) {
             // Loop through array and output line as CSV
             foreach ($record_data as $this_record => &$field_data) {
                 // &$event_data) {
                 // Loop through events in this record
                 //					foreach ($event_data as $this_event_id=>&$field_data) {
                 //						// Loop through fields in this event
                 // Loop through fields in order specified in setup
                 foreach ($fields as $this_eventfield) {
                     $this_eventref = LongitudinalReports::getEventFromEventField($this_eventfield);
                     $this_field = LongitudinalReports::getFieldFromEventField($this_eventfield);
                     $this_value = $field_data[$this_eventfield];
                     // Is value an array? (i.e. a checkbox)
                     $value_is_array = is_array($this_value);
                     // Check field type
                     if ($value_is_array && !$combine_checkbox_values) {
                         // Loop through all checkbox choices and add as separate "fields"
                         foreach ($this_value as $this_code => $this_checked_value) {
                             // If coded value is not numeric, then format to work correct in variable name (no spaces, caps, etc)
                             $this_code = Project::getExtendedCheckboxCodeFormatted($this_code);
                             //$record_data_formatted[$recordEventNum][$this_field."___".$this_code] = $this_checked_value;
                             $record_data_formatted[$recordNum]["[{$this_eventref}][{$this_field}" . "___" . "{$this_code}]"] = $this_checked_value;
                         }
                     } elseif ($value_is_array && $combine_checkbox_values) {
                         // Loop through all checkbox choices and create comma-delimited list of all *checked* options as value of single field
                         $checked_off_options = array();
                         foreach ($this_value as $this_code => $this_checked_value) {
                             // If value is 0 (unchecked), then skip it here. (Also skip if blank, which means that this form not designated for this event.)
                             if ($this_checked_value == '0' || $this_checked_value == '' || $this_checked_value == 'Unchecked') {
                                 continue;
                             }
                             // If coded value is not numeric, then format to work correct in variable name (no spaces, caps, etc)
                             // $this_code = (Project::getExtendedCheckboxCodeFormatted($this_code));
                             // Add checked off option code to array of checked off options
                             $checked_off_options[] = $outputAsLabels ? $checkbox_choice_labels[$this_code] : $this_code;
                         }
                         // Add checkbox as single field
                         //$record_data_formatted[$recordEventNum][$this_field] = implode(",", $checked_off_options);
                         $record_data_formatted[$recordNum]["[{$this_eventref}][{$this_field}]"] = implode(",", $checked_off_options);
                     } else {
                         // Add record name to line
                         if ($this_field == $table_pk) {
                             //$record_data_formatted[$recordEventNum][$table_pk] = $this_record;
                             $record_data_formatted[$recordNum][$table_pk] = $this_record;
                             //									// If longitudinal, add unique event name to line
                             //									if ($longitudinal) {
                             //										if ($outputAsLabels) {
                             //											$record_data_formatted[$recordEventNum]['redcap_event_name'] = $event_labels[$this_event_id];
                             //										} else {
                             //											$record_data_formatted[$recordEventNum]['redcap_event_name'] = $unique_events[$this_event_id];
                             //										}
                             //									}
                         } else {
                             // Add field and its value
                             //$record_data_formatted[$recordEventNum][$this_field] = $this_value;
                             $record_data_formatted[$recordNum]["[{$this_eventref}][{$this_field}]"] = $this_value;
                         }
                     }
                 }
                 // Add data for other fields at the end (DAG, survey stuff...)
                 if ($outputDags) {
                     $record_data_formatted[$recordNum]["redcap_data_access_group"] = $field_data["redcap_data_access_group"];
                 }
                 if ($outputSurveyFields) {
                     $record_data_formatted[$recordNum]["Survey Identifier"] = "_";
                     $record_data_formatted[$recordNum]["Survey Timestamp"] = "_";
                 }
                 if (isset($outputScheduleDates) && count($outputScheduleDates) > 0) {
                     foreach ($outputScheduleDates as $evt) {
                         $colRef = "[{$Proj->getUniqueEventNames($evt)}][___schedule_date]";
                         $record_data_formatted[$recordNum][$colRef] = $field_data[$colRef];
                     }
                 }
                 if (isset($outputSurveyUrls) && count($outputSurveyUrls) > 0) {
                     foreach ($outputSurveyUrls as $evtSurv) {
                         //Event id/survey form stored as pipe-separated pair e.g. 2365|my_survey
                         $es = explode('|', $evtSurv);
                         $colRef = "[{$Proj->getUniqueEventNames($es[0])}][{$es['1']}___url]";
                         //$url = ($returnFormat == 'html')
                         //        ? "<a href=\"{$field_data[$colRef]}\" target=\"_blank\">{$field_data[$colRef]}</a>"
                         //        : $field_data[$colRef];
                         $record_data_formatted[$recordNum][$colRef] = $field_data[$colRef];
                     }
                 }
                 // Increment item counter
                 //$recordEventNum++;
                 $recordNum++;
                 //}
                 // Remove record from array to free up memory as we go
                 unset($record_data[$this_record]);
             }
         }
         unset($record_data);
         // APPLY MULTI-FIELD SORTING
         if ($applySortFields) {
             // Move array keys to array with them as values
             $sortFields = array_keys($sortArray);
             $sortTypes = array_values($sortArray);
             // Determine if any of the sort fields are numerical fields (number, integer, calc, slider)
             $sortFieldIsNumber = array();
             foreach ($sortFields as $this_sort_field) {
                 $this_sort_field = LongitudinalReports::getFieldFromEventField($this_sort_field);
                 $field_type = $Proj->metadata[$this_sort_field]['element_type'];
                 $val_type = $Proj->metadata[$this_sort_field]['element_validation_type'];
                 $sortFieldIsNumber[] = $this_sort_field == $Proj->table_pk && $Proj->project['auto_inc_set'] || $val_type == 'float' || $val_type == 'int' || $field_type == 'calc' || $field_type == 'slider';
             }
             // Loop through each record/event and build separate array for each sort field
             $sortFieldValues = array();
             foreach ($record_data_formatted as &$line) {
                 foreach ($sortFields as $key => $this_sort_field) {
                     // Add value to array as lower case (since we need to do case insensitive sorting)
                     $sortFieldValues[$key][] = strtolower($line[$this_sort_field]);
                 }
             }
             // print_array($sortFieldValues);
             // Sort the data array
             if (count($sortFieldValues) == 1) {
                 // One sort field
                 array_multisort($sortFieldValues[0], $sortTypes[0] == 'ASC' ? SORT_ASC : SORT_DESC, $sortFieldIsNumber[0] ? SORT_NUMERIC : SORT_STRING, $record_data_formatted);
             } elseif (count($sortFieldValues) == 2) {
                 // Two sort fields
                 array_multisort($sortFieldValues[0], $sortTypes[0] == 'ASC' ? SORT_ASC : SORT_DESC, $sortFieldIsNumber[0] ? SORT_NUMERIC : SORT_STRING, $sortFieldValues[1], $sortTypes[1] == 'ASC' ? SORT_ASC : SORT_DESC, $sortFieldIsNumber[1] ? SORT_NUMERIC : SORT_STRING, $record_data_formatted);
             } else {
                 // Three sort fields
                 array_multisort($sortFieldValues[0], $sortTypes[0] == 'ASC' ? SORT_ASC : SORT_DESC, $sortFieldIsNumber[0] ? SORT_NUMERIC : SORT_STRING, $sortFieldValues[1], $sortTypes[1] == 'ASC' ? SORT_ASC : SORT_DESC, $sortFieldIsNumber[1] ? SORT_NUMERIC : SORT_STRING, $sortFieldValues[2], $sortTypes[2] == 'ASC' ? SORT_ASC : SORT_DESC, $sortFieldIsNumber[2] ? SORT_NUMERIC : SORT_STRING, $record_data_formatted);
             }
             // If any sorting fields did NOT exist in $fields originally (but were added so their data could be obtained for
             // sorting purposes only), then remove them now.
             if (!empty($sortArrayRemoveFromData)) {
                 foreach ($sortArrayRemoveFromData as $this_field) {
                     foreach ($record_data_formatted as &$this_item) {
                         // Remove field from this record-event
                         unset($this_item[$this_field]);
                     }
                 }
             }
             // Remove vars to save memory
             unset($sortFieldValues);
         }
         ## HTML format (i.e., report)
         if ($returnFormat == 'html') {
             // Build array of events with unique event name as key and full event name as value
             $eventsUniqueFullName = $eventsUniqueEventId = array();
             if ($longitudinal) {
                 foreach ($unique_events as $this_event_id => $this_unique_name) {
                     // Arrays event name and event_id with unique event name as key
                     $eventsUniqueFullName[$this_unique_name] = str_replace($orig, $repl, strip_tags(label_decode($Proj->eventInfo[$this_event_id]['name_ext'])));
                     $eventsUniqueEventId[$this_unique_name] = $this_event_id;
                 }
             }
             // Build array of DAGs with unique DAG names as key and
             $dagUniqueFullName = array();
             foreach ($Proj->getUniqueGroupNames() as $this_group_id => $this_unique_dag) {
                 $dagUniqueFullName[$this_unique_dag] = str_replace($orig, $repl, strip_tags(label_decode($Proj->getGroups($this_group_id))));
             }
             // Set number of results
             $num_results_returned = count($record_data_formatted);
             // If we're JUST returning Records/Events array and NOT the html report, then collect all records/event_ids and return
             if ($returnIncludeRecordEventArray) {
                 // Collect records/event_ids in array
                 $includeRecordsEvents = array();
                 foreach ($record_data_formatted as $key => $item) {
                     // Add record/event
                     $this_event_id = $longitudinal ? $eventsUniqueEventId[$item['redcap_event_name']] : $Proj->firstEventId;
                     $includeRecordsEvents[$item[$Proj->table_pk]][$this_event_id] = true;
                     // Remove each as we go to save memory
                     unset($record_data_formatted[$key]);
                 }
                 // Return array of the whole table, number of results returned, and total number of items queried
                 return array($includeRecordsEvents, $num_results_returned);
             }
             // PAGING FOR REPORTS: If has more than $num_per_page results, then page it $num_per_page per page
             // (only do this for pre-defined reports though)
             $num_per_page = LR_RESULTS_PER_PAGE;
             $limit_begin = 0;
             if (isset($_GET['pagenum']) && is_numeric($_GET['pagenum'])) {
                 $limit_begin = ($_GET['pagenum'] - 1) * $num_per_page;
             } elseif (!isset($_GET['pagenum'])) {
                 $_GET['pagenum'] = 1;
             } else {
                 $_GET['pagenum'] = 'ALL';
             }
             $pageNumDropdown = "";
             //if (isset($_POST['report_id']) && !is_numeric($_POST['report_id']) && $num_results_returned > $num_per_page)
             if ($num_results_returned > $num_per_page) {
                 // Build drop-down list of page numbers
                 $num_pages = ceil($num_results_returned / $num_per_page);
                 // Only display drop-down if we have more than one page
                 if ($num_pages > 1) {
                     // Initialize array of options for drop-down
                     $pageNumDropdownOptions = array('ALL' => '-- ' . $lang['docs_44'] . ' --');
                     // Loop through pages
                     for ($i = 1; $i <= $num_pages; $i++) {
                         $end_num = $i * $num_per_page;
                         $begin_num = $end_num - $num_per_page + 1;
                         $value_num = $end_num - $num_per_page;
                         if ($end_num > $num_results_returned) {
                             $end_num = $num_results_returned;
                         }
                         // If Record ID field not included in report, then use "results 1 through 100" instead of "A101 through B203" using record names
                         if (isset($record_data_formatted[0][$Proj->table_pk])) {
                             $resultNamePrefix = $lang['data_entry_177'] . " ";
                             $resultName1 = "\"" . $record_data_formatted[$begin_num - 1][$Proj->table_pk] . "\"";
                             $resultName2 = "\"" . $record_data_formatted[$end_num - 1][$Proj->table_pk] . "\"";
                         } else {
                             $resultNamePrefix = $lang['report_builder_112'] . " ";
                             $resultName1 = $begin_num;
                             $resultName2 = $end_num;
                         }
                         $pageNumDropdownOptions[$i] = "{$resultName1} {$lang['data_entry_216']} {$resultName2}";
                     }
                     // Create HTML for pagenum drop-down
                     $pageNumDropdown = RCView::div(array('class' => 'chklist hide_in_print report_pagenum_div'), (!(isset($_GET['pagenum']) && is_numeric($_GET['pagenum'])) ? '' : RCView::span(array('style' => 'font-weight:bold;margin-right:7px;font-size:13px;'), "{$lang['survey_132']} {$_GET['pagenum']} {$lang['survey_133']} {$num_pages}{$lang['colon']}")) . $resultNamePrefix . RCView::select(array('class' => 'x-form-text x-form-field', 'style' => 'font-size:11px;margin-left:6px;margin-right:4px;padding-right:0;padding-top:1px;height:19px;', 'onchange' => "loadReportNewPage(this.value);"), $pageNumDropdownOptions, $_GET['pagenum'], 500) . $lang['survey_133'] . RCView::span(array('style' => 'font-weight:bold;margin:0 4px;font-size:13px;'), User::number_format_user($num_results_returned)) . $lang['report_builder_113']);
                     unset($pageNumDropdownOptions);
                 }
                 // Filter the results down to just a single page
                 if (is_numeric($_GET['pagenum'])) {
                     $record_data_formatted = array_slice($record_data_formatted, $limit_begin, $num_per_page, true);
                 }
             }
             // Set extra set of reserved field names for survey timestamps and return codes pseudo-fields
             $reserved_field_names2 = explode(',', implode("_timestamp,", array_keys($Proj->forms)) . "_timestamp" . "," . implode("_return_code,", array_keys($Proj->forms)) . "_return_code");
             $reserved_field_names2 = $reserved_field_names + array_fill_keys($reserved_field_names2, 'Survey Timestamp');
             // Place all html in $html
             $html = $pageNumDropdown . "<table id='report_table' class='dt2' style='margin:0;font-family:Verdana;font-size:11px;'>";
             $mc_choices = array();
             // Array to store fields to which user has no form-level access
             $fields_no_access = array();
             // Add form fields where user has no access
             foreach ($user_rights['forms'] as $this_form => $this_access) {
                 if ($this_access == '0') {
                     $fields_no_access[$this_form . "_timestamp"] = true;
                 }
             }
             // Loop through header fields and build HTML row
             $datetime_convert = array();
             $row = "";
             foreach ($headers as $this_hdr_ef) {
                 $this_hdr_ev = LongitudinalReports::getEventFromEventField($this_hdr_ef);
                 $this_hdr = LongitudinalReports::getFieldFromEventField($this_hdr_ef);
                 // Set original field name
                 $this_hdr_orig = $this_hdr;
                 // Determine if a checkbox
                 $isCheckbox = false;
                 $checkbox_label_append = "";
                 if (!isset($Proj->metadata[$this_hdr]) && strpos($this_hdr, "___") !== false) {
                     // Set $this_hdr as the true field name
                     list($this_hdr, $raw_coded_value_formatted) = explode("___", $this_hdr, 2);
                     $isCheckbox = $Proj->isCheckbox($this_hdr);
                     // Obtain the label for this checkbox choice
                     foreach (parseEnum($Proj->metadata[$this_hdr]['element_enum']) as $raw_coded_value => $checkbox_label) {
                         if ($this_hdr_orig == Project::getExtendedCheckboxFieldname($this_hdr, $raw_coded_value)) {
                             $checkbox_label_append = " (Choice = '" . strip_tags(label_decode($checkbox_label)) . "')";
                             // If user does not have form-level access to this field's form
                             if ($user_rights['forms'][$Proj->metadata[$this_hdr]['form_name']] == '0') {
                                 $fields_no_access[$this_hdr_orig] = true;
                             }
                             break;
                         }
                     }
                 }
                 // If user does not have form-level access to this field's form
                 if (isset($Proj->metadata[$this_hdr]) && $this_hdr != $Proj->table_pk && $user_rights['forms'][$Proj->metadata[$this_hdr]['form_name']] == '0') {
                     $fields_no_access[$this_hdr] = true;
                 }
                 // If field is a reserved field name (redcap_event_name, redcap_data_access_group)
                 if (!isset($Proj->metadata[$this_hdr_orig]) && !$isCheckbox) {
                     if (isset($reserved_field_names2[$this_hdr_orig])) {
                         $field_type = '';
                         $field_label_display = strip_tags(label_decode($reserved_field_names2[$this_hdr_orig]));
                     } else {
                         if ($this_hdr_orig == "___schedule_date") {
                             $field_label_display = "Schedule Date";
                         } else {
                             if (strpos($this_hdr_orig, "___url") !== false) {
                                 $frm = str_replace("___url", "", $this_hdr_orig);
                                 $field_label_display = "{$Proj->forms[$frm]['menu']} URL";
                             }
                         }
                     }
                 } else {
                     $field_type = $Proj->metadata[$this_hdr]['element_type'];
                     $field_label = strip_tags(label_decode($Proj->metadata[$this_hdr]['element_label']));
                     if (strlen($field_label) > 100) {
                         $field_label = substr($field_label, 0, 67) . " ... " . substr($field_label, -30);
                     }
                     $field_label_display = $field_label . $checkbox_label_append;
                 }
                 // Longitudinal Reports - also include event name in header labels/ref (unless lone pk field)
                 if ($this_hdr_ev !== '') {
                     $event_id = $Proj->getEventIdUsingUniqueEventName($this_hdr_ev);
                     $event_name = REDCap::getEventNames(false, true, $event_id);
                     $field_label_display .= "<div style='font-weight:normal;color:#800000;margin:3px 0;'>{$event_name}</div>";
                 }
                 // Add field to header html row
                 $row .= "<th" . (isset($fields_no_access[$this_hdr]) ? " class=\"form_noaccess\"" : '') . ">" . "{$field_label_display}<div class=\"rprthdr\">" . str_replace('][', ']<br>[', implode("_<wbr>", explode("_", $this_hdr_ef))) . "</div></th>";
                 // Place only MC fields into array to reference
                 if (in_array($field_type, array('yesno', 'truefalse', 'sql', 'select', 'radio', 'advcheckbox', 'checkbox'))) {
                     // Convert sql field types' query result to an enum format
                     $enum = $field_type == "sql" ? getSqlFieldEnum($Proj->metadata[$this_hdr]['element_enum']) : $Proj->metadata[$this_hdr]['element_enum'];
                     // Add to array
                     if ($isCheckbox) {
                         // Reformat checkboxes to export format field name
                         foreach (parseEnum($enum) as $raw_coded_value => $checkbox_label) {
                             $this_hdr_chkbx = $Proj->getExtendedCheckboxFieldname($this_hdr, $raw_coded_value);
                             $mc_choices[$this_hdr_chkbx] = array('0' => "Unchecked", '1' => "Checked");
                         }
                     } else {
                         $mc_choices[$this_hdr] = parseEnum($enum);
                     }
                 }
                 // Put all date/time fields into array for quick converting of their value to desired date format
                 if (!$isCheckbox) {
                     $val_type = $Proj->metadata[$this_hdr]['element_validation_type'];
                     if (substr($val_type, 0, 4) == 'date' && (substr($val_type, -4) == '_mdy' || substr($val_type, -4) == '_dmy')) {
                         // Add field name as key to array with 'mdy' or 'dmy' as value
                         $datetime_convert[$this_hdr] = substr($val_type, -3);
                     }
                     if ($this_hdr_orig == '___schedule_date') {
                         // Include event schedule dates for date formatting as per user pref
                         $formatPref = 'ymd';
                         if (substr($datetime_format, 0, 1) == "D") {
                             $formatPref = 'dmy';
                         } else {
                             if (substr($datetime_format, 0, 1) == "M") {
                                 $formatPref = 'mdy';
                             }
                         }
                         $datetime_convert[$this_hdr_orig] = 'dmy';
                     }
                 }
             }
             $html .= "<thead><tr class=\"hdr2\">{$row}</tr></thead>";
             // If no data, then output row with message noting this
             if (empty($record_data_formatted)) {
                 $html .= RCView::tr(array('class' => 'odd'), RCView::td(array('style' => 'color:#777;', 'colspan' => count($headers)), $lang['report_builder_87']));
             }
             // If record ID is in report for a classic project and will thus be displayed as a link, then get
             // the user's first form based on their user rights (so we don't point to a form that they don't have access to.)
             if ($recordIdInFields && !$longitudinal) {
                 foreach (array_keys($Proj->forms) as $this_form) {
                     if ($user_rights['forms'][$this_form] == '0') {
                         continue;
                     }
                     $first_form = $this_form;
                     break;
                 }
             }
             // DATA: Loop through each row of data (record-event) and output to html
             $j = 1;
             foreach ($record_data_formatted as $key => &$line) {
                 // Set row class
                 $class = $j % 2 == 1 ? "odd" : "even";
                 $row = "";
                 // Loop through each element in row
                 foreach ($line as $this_eventfieldname => $this_value) {
                     $this_eventname = LongitudinalReports::getEventFromEventField($this_eventfieldname);
                     $this_fieldname = LongitudinalReports::getFieldFromEventField($this_eventfieldname);
                     // Check for form-level user access to this field
                     if (isset($fields_no_access[$this_fieldname])) {
                         // User has no rights to this field
                         $row .= "<td class=\"form_noaccess\">-</td>";
                     } else {
                         // If redcap_event_name field
                         if ($this_fieldname == 'redcap_event_name') {
                             $cell = $eventsUniqueFullName[$this_value];
                         } elseif ($this_fieldname == 'redcap_data_access_group') {
                             $cell = $dagUniqueFullName[$this_value];
                         } elseif (strpos($this_fieldname, "___url") !== false) {
                             if (filter_var($this_value, FILTER_VALIDATE_URL)) {
                                 $hash = substr($this_value, -10);
                                 if (strpos($hash, '=') !== false) {
                                     $hash = substr($this_value, -6);
                                 }
                                 $cell = RCView::a(array('href' => $this_value, 'target' => '_blank', 'style' => 'margin-right:10px;'), RCView::img(array('src' => 'link.png', 'style' => 'vertical-align:middle;'))) . RCView::a(array('href' => 'javascript:;', 'onclick' => "getAccessCode('{$hash}');"), !gd2_enabled() ? RCView::img(array('src' => 'ticket_arrow.png', 'style' => 'vertical-align:middle;')) : RCView::img(array('src' => 'access_qr_code.gif', 'style' => 'vertical-align:middle;')));
                             } else {
                                 // Show completion timestamp
                                 $cell = DateTimeRC::datetimeConvert(substr($this_value, 0, 16), 'ymd', DateTimeRC::get_user_format_base());
                             }
                         } elseif (isset($mc_choices[$this_fieldname])) {
                             // Get option label
                             $cell = $mc_choices[$this_fieldname][$this_value];
                             // PIPING (if applicable)
                             if ($do_label_piping && in_array($this_fieldname, $piping_receiver_fields)) {
                                 $cell = strip_tags(Piping::replaceVariablesInLabel($cell, $line[$Proj->table_pk], $longitudinal ? $Proj->getEventIdUsingUniqueEventName($line['redcap_event_name']) : $Proj->firstEventId, $piping_record_data));
                             }
                             // Append raw coded value
                             if (trim($this_value) != "") {
                                 $cell .= " <span class=\"ch\">({$this_value})</span>";
                             }
                         } elseif (substr($this_fieldname, -10) == '_timestamp' && isset($reserved_field_names2[$this_fieldname])) {
                             // Convert datetime to user's preferred date format
                             if ($this_value == "[not completed]") {
                                 $cell = $this_value;
                             } else {
                                 $cell = DateTimeRC::datetimeConvert(substr($this_value, 0, 16), 'ymd', DateTimeRC::get_user_format_base());
                             }
                         } else {
                             // If a date/time field, then convert value to its designated date format (YMD, MDY, DMY)
                             if (isset($datetime_convert[$this_fieldname])) {
                                 $cell = DateTimeRC::datetimeConvert($this_value, 'ymd', $datetime_convert[$this_fieldname]);
                             } else {
                                 $cell = nl2br(htmlspecialchars($this_value, ENT_QUOTES));
                             }
                         }
                         // If record name, then convert it to a link (unless project is archived/inactive)
                         if ($Proj->project['status'] < 2 && $this_fieldname == $Proj->table_pk) {
                             // Link URL
                             $this_arm = $Proj->longitudinal ? $Proj->eventInfo[$eventsUniqueEventId[$line['redcap_event_name']]]['arm_num'] : $Proj->firstArmNum;
                             if ($longitudinal) {
                                 $this_url = "grid.php?pid={$Proj->project_id}&id=" . removeDDEending($this_value) . "&arm={$this_arm}";
                             } else {
                                 $this_url = "index.php?pid={$Proj->project_id}&id=" . removeDDEending($this_value) . "&page=" . $first_form;
                             }
                             // If has custom record label, then display it
                             $this_custom_record_label = isset($extra_record_labels[$this_arm][$this_value]) ? "&nbsp; " . $extra_record_labels[$this_arm][$this_value] : '';
                             // Wrap record name with link HTML
                             $cell = RCView::a(array('href' => APP_PATH_WEBROOT . "DataEntry/{$this_url}", 'class' => 'rl'), removeDDEending($cell)) . $this_custom_record_label;
                         }
                         // Add cell to row
                         $row .= "<td>{$cell}</td>";
                     }
                 }
                 // Add row
                 $html .= "<tr class=\"{$class}\">{$row}</tr>";
                 // Remove line from array to free up memory as we go
                 unset($record_data_formatted[$key]);
                 $j++;
             }
             unset($row);
             // Build entire HTML table
             $html .= "</table>" . $pageNumDropdown;
             // Return array of the whole table, number of results returned, and total number of items queried
             return array($html, $num_results_returned);
         } elseif ($returnFormat == 'csv') {
             // Open connection to create file in memory and write to it
             $fp = fopen('php://memory', "x+");
             // Add header row to CSV
             fputcsv($fp, $headers);
             // Loop through array and output line as CSV
             foreach ($record_data_formatted as $key => &$line) {
                 // Write this line to CSV file
                 fputcsv($fp, $line);
                 // Remove line from array to free up memory as we go
                 unset($record_data_formatted[$key]);
             }
             // Open file for reading and output to user
             fseek($fp, 0);
             $csv_file_contents = stream_get_contents($fp);
             fclose($fp);
             // Return CSV string
             return $csv_file_contents;
         } elseif ($returnFormat == 'xml') {
             // Convert all data into XML string
             $xml = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n<records>\n";
             // Loop through array and add to XML string
             foreach ($record_data_formatted as $key => &$item) {
                 // Begin item
                 $xml .= "<item>";
                 // Loop through all fields/values
                 foreach ($item as $this_field => $this_value) {
                     // If ]]> is found inside this value, then "escape" it (cannot really escape it but can do clever replace with "]]]]><![CDATA[>")
                     if (strpos($this_value, "]]>") !== false) {
                         $this_value = str_replace("]]>", "]]]]><![CDATA[>", $this_value);
                     }
                     // Add value
                     $xml .= "<{$this_field}><![CDATA[{$this_value}]]></{$this_field}>";
                 }
                 // End item
                 $xml .= "</item>\n";
                 // Remove line from array to free up memory as we go
                 unset($record_data_formatted[$key]);
             }
             // End XML string
             $xml .= "</records>";
             // Return XML string
             return $xml;
         } elseif ($returnFormat == 'json') {
             // Convert all data into JSON string (do record by record to preserve memory better)
             $json = '';
             foreach ($record_data_formatted as $key => &$item) {
                 // Loop through each record and encode
                 $json .= "," . json_encode($item);
                 // Remove line from array to free up memory as we go
                 unset($record_data_formatted[$key]);
             }
             return '[' . substr($json, 1) . ']';
         }
     }
 }
<?php

/* 
 * Longitudinal Reports Plugin
 * Luke Stevens, Murdoch Childrens Research Institute https://www.mcri.edu.au
 * Version date 16-Nov-2015 
 */
require_once dirname(__FILE__) . '/config.php';
// Create array of all field validation types and their attributes
$allValTypes = getValTypes();
// Operator drop-down list (>, <, =, etc.)
print LongitudinalReports::outputLimiterOperatorDropdown($_POST['field_name'], '', $allValTypes);
// Value text box OR drop-down list (if multiple choice)
print LongitudinalReports::outputLimiterValueTextboxOrDropdown($_POST['field_name'], '');
// Surveys/automated_invitations_check_logic.php from LongitudinalReports.js function saveReport()
var redcap_csrf_token = '<?php 
echo getCsrfToken();
?>
';
$(function(){ appendCsrfTokenToForm(); });

</script>
<?php 
// Tabs
LongitudinalReports::renderTabs();
// Output content
print $html;
// If displaying the "add/edit report" table, do direct Print to page because $html might get very big
if (isset($_GET['addedit'])) {
    LongitudinalReports::outputCreateReportTable($_GET['report_id']);
}
// Footer
include APP_PATH_DOCROOT . 'ProjectGeneral/footer.php';
// Classes for backward-compatibility with versions < 6.13.0
if (version_compare($redcap_version, '6.13.0', '<')) {
    ?>
<style type='text/css'>
.labelrc {
	font-family: "Helvetica Neue",Helvetica,Arial,Helvetica,sans-serif;
	font-size: 12px;
        background: #F0F0F0 url(../images/label-bg.gif) repeat-x scroll 0 0;
	padding: 2px; border: 1px solid #CCCCCC; font-weight: bold; padding-left: 5px; padding-right: 5px; 
}
.labelrc a:link, .labelrc a:visited, .labelrc a:active, .labelrc a:hover {
	text-decoration: underline;
	$pathway_mapper =  "<div style='padding-bottom:5px;'>
							<a href='".APP_PATH_WEBROOT."DataExport/sas_pathway_mapper.php?pid=$project_id'
							><img src='".APP_PATH_IMAGES."download_pathway_mapper.gif'></a> &nbsp; 
						</div>";
}
*/
## NOTICES FOR CITATIONS (GRANT AND/OR SHARED LIBRARY) AND DATE-SHIFT NOTICE
//Do not display grant statement unless $grant_cite has been set for this project.
$citationText = "";
if ($grant_cite != "") {
    $citationText .= "{$lang['data_export_tool_77']} {$site_org_type} {$lang['data_export_tool_78']} <b>({$grant_cite})</b> \n\t\t\t\t\t   {$lang['data_export_tool_79']}\n\t\t\t\t\t   <div style='padding:8px 0 0;'>{$lang['data_export_tool_80']}";
} else {
    $citationText .= "<div>" . $lang['data_export_tool_81'];
}
$citationText .= " " . $lang['data_export_tool_82'] . " <a href='http://projectredcap.org/cite.php' target='_blank' style='text-decoration:underline;'>{$lang['data_export_tool_83']}</a>){$lang['period']}</div>";
// If instruments have been downloaded from the Shared Library, provide citatation
if ($Proj->formsFromLibrary()) {
    $citationText .= "<div style='padding:8px 0 0;'>\n\t\t\t\t\t\t{$lang['data_export_tool_144']}\n\t\t\t\t\t\t<a href='javascript:;' style='text-decoration:underline;' onclick=\"simpleDialog(null,null,'rsl_cite',550);\">{$lang['data_export_tool_145']}</a>\n\t\t\t\t\t  </div>";
}
if ($citationText != '') {
    $citationText = RCView::fieldset(array('style' => 'margin-top:10px;padding-left:8px;background-color:#FFFFD3;border:1px solid #FFC869;color:#800000;'), RCView::legend(array('style' => 'font-weight:bold;'), $lang['data_export_tool_147']) . RCView::div(array('style' => 'padding:5px 8px 8px 2px;'), $citationText));
}
// If dates were date-shifted, give note of that.
$dateShiftText = "";
if ($dateShiftDates) {
    $dateShiftText = RCView::fieldset(array('class' => 'red', 'style' => 'margin-top:10px;padding:0 0 0 8px;max-width:1000px;'), RCView::legend(array('style' => 'font-weight:bold;'), $lang['global_03']) . RCView::div(array('style' => 'padding:5px 8px 8px 2px;'), "{$lang['data_export_tool_85']} {$date_shift_max} {$lang['data_export_tool_86']}"));
}
// RESPONSE
$dialog_title = RCView::img(array('src' => 'tick.png', 'style' => 'vertical-align:middle')) . RCView::span(array('style' => 'color:green;vertical-align:middle;font-size:15px;'), $lang['data_export_tool_05']);
$dialog_content = RCView::div(array('style' => 'margin-bottom:20px;'), $lang['data_export_tool_183'] . $citationText . $dateShiftText) . RCView::div(array('style' => 'background-color:#F0F0F0;border:1px solid #888;padding:10px 5px;margin-bottom:10px;'), RCView::table(array('style' => 'border-collapse:collapse;width:100%;table-layout:fixed;'), RCView::tr(array(), RCView::td(array('rowspan' => '3', 'valign' => 'top', 'style' => 'padding-left:10px;width:70px;'), RCView::img(array('src' => $docs_logo, 'title' => $docs_header))) . RCView::td(array('rowspan' => '3', 'valign' => 'top', 'style' => 'line-height:14px;border-right:1px solid #ccc;font-family:Verdana;font-size:11px;padding-right:20px;'), RCView::div(array('style' => 'font-size:14px;font-weight:bold;margin-bottom:10px;'), $docs_header) . $instr) . RCView::td(array('valign' => 'top', 'class' => 'nowrap', 'style' => 'color:#666;font-size:11px;padding:0 5px 0 10px;width:125px;'), $lang['data_export_tool_184'])) . RCView::tr(array(), RCView::td(array('valign' => 'top', 'class' => 'nowrap', 'style' => 'padding:10px 0 0 20px;'), RCView::SP . RCView::SP . RCView::SP . RCView::a(array('href' => APP_PATH_WEBROOT . "FileRepository/file_download.php?pid={$project_id}&id={$data_edoc_id}" . ($outputFormat == 'r' ? '&exporttype=R' : ($outputFormat == 'stata' ? '&exporttype=STATA' : ''))), trim(LongitudinalReports::getDownloadIcon($syntax_edoc_id == null ? $outputFormat : '', $dateShiftDates))) . $pathway_mapper)) . RCView::tr(array(), RCView::td(array('valign' => 'bottom', 'style' => 'padding-left:20px;'), $senditLinks))));
print json_encode(array('title' => $dialog_title, 'content' => $dialog_content));
$selectAllStyle = 'float:right;display:inline-block;color:#777;margin:5px 0;font-weight:normal;font-size:12px;';
$selectAllStyle .= LR_SHOW_QUICK_ADD_ALL_PROJECT_FIELDS ? '' : 'visibility:hidden;';
// Validate checked_fields, if is not empty
$checked_fields = explode(",", $_POST['checked_fields']);
foreach ($checked_fields as $key => $this_field) {
    $this_field = LongitudinalReports::getFieldFromEventField($this_field);
    // remvoe square brackets and event ref
    if (!isset($Proj->metadata[$this_field])) {
        unset($checked_fields[$key]);
    }
}
// Set fields as keys in array
$checked_fields = array_flip(array_unique($checked_fields));
// Loop through all fields and build HTML table (exclude Descriptive fields)
$t = "";
$rc_field_dropdown_options = LongitudinalReports::getFieldDropdownOptions();
//Form::getFieldDropdownOptions();
$select = RCView::a(array('href' => 'javascript:;', 'style' => 'font-size:11px;margin:0 3px;text-decoration:underline;font-weight:normal;', 'onclick' => "reportQuickAddForm('all',true);"), $lang['data_export_tool_52']);
$deselect = RCView::a(array('href' => 'javascript:;', 'style' => 'font-size:11px;margin:0 3px;text-decoration:underline;font-weight:normal;', 'onclick' => "reportQuickAddForm('all',false);"), $lang['data_export_tool_53']);
$t .= RCView::tr(array(), RCView::td(array('class' => 'header', 'valign' => 'bottom', 'style' => 'color:#800000;font-size:14px;'), RCView::div(array('style' => 'font-weight:bold;font-style:italic;'), "Events / Fields") . RCView::div(array('style' => $selectAllStyle), " ({$select}/{$deselect})")));
//$rc_field_dropdown_options = $indexCompleted;
$accordion = "";
foreach ($rc_field_dropdown_options as $eventFieldGroup => $eventFields) {
    if ($eventFieldGroup !== '') {
        // Only show Select All / Deselect All if count of fields in group is less than threshold
        $selectAllInGroupStyle = 'color:#777;margin:5px 0;font-weight:normal;font-size:11px;';
        if (count($eventFields) < 2 || count($eventFields) > LR_SHOW_QUICK_ADD_ALL_GROUP_THRESHOLD) {
            $selectAllInGroupStyle .= 'visibility:hidden;';
        }
        $eventFieldRef = preg_replace("/[^a-z0-9_]/", "", strtolower($eventFieldGroup));
        $select = RCView::a(array('href' => 'javascript:;', 'style' => 'display:inline-block;text-decoration:underline;font-weight:normal;padding:0 3px;', 'onclick' => "reportQuickAddForm('{$eventFieldRef}',true);"), $lang['data_export_tool_52']);
<?php

/* 
 * Longitudinal Reports Plugin
 * Luke Stevens, Murdoch Childrens Research Institute https://www.mcri.edu.au
 * Version date 16-Nov-2015 
 */
require_once dirname(__FILE__) . '/config.php';
// Validate id
if (!isset($_POST['report_id'])) {
    exit('0');
}
$report_id = $_POST['report_id'];
//$report = LongitudinalReports::getReports($report_id);
//if (empty($report)) exit('0');
// Copy the report and return the new report_id
$new_report_id = LongitudinalReports::copyReport($report_id);
if ($new_report_id === false) {
    exit('0');
}
REDCap::logEvent("Copy longitudinal report", "report_id = {$report_id}, new_report_id = {$new_report_id}");
// Return HTML of updated report list and report_id
print json_encode(array('new_report_id' => $new_report_id, 'html' => LongitudinalReports::renderReportList()));
<?php

/* 
 * Longitudinal Reports Plugin
 * Luke Stevens, Murdoch Childrens Research Institute https://www.mcri.edu.au
 * Version date 16-Nov-2015 
 */
require_once dirname(__FILE__) . '/config.php';
// Display list of usernames who would have access
$content = LongitudinalReports::displayReportAccessUsernames($_POST);
// Output JSON
print json_encode(array('content' => $content, 'title' => $lang['report_builder_108']));