info_reports.prg

<?php
/**
 * Change History:
 * 05/01/13 mbl - Added fname, lname, decider to monitor_contact table.
 * 11/16/15 SPB - updated to Kendo look
 */

$monLibrary = dirname(__FILE__) . "/../library";
$sharedLibrary = dirname(__FILE__) . "/../../shared/library";
require_once("$monLibrary/cu_top.i");
require_once("$monLibrary/ck_hticket.i");
require_once("$monLibrary/monitorView.i");
require_once("$sharedLibrary/reporting.i");
require_once("$sharedLibrary/commonJsFunctions.i");

if (!CheckPerm($dbh, $Hu, basename($_SERVER['SCRIPT_NAME']), $_SERVER['REMOTE_ADDR'])) {
  // ** Permissions failed
  // ** redirect to new page
  header("Location: /hcuadm/hcu_noperm.prg");
  exit;
}

$string = array("filter" => FILTER_SANITIZE_STRING);
$array = array("filter" => FILTER_DEFAULT); // For inputs that require {[]}
$parameters = array();
HCU_ImportVars($parameters, "", array("operation" => $string, "csv" => $string, "report" => $string, "sort" => $array, "filter" => $array));

$operation = HCU_array_key_value("operation", $parameters);
$operation = $operation === false ? "" : trim($operation);
$report = HCU_array_key_value("report", $parameters);
$report = $report === false ? "" : trim($report);
$self = "info_reports.prg";

if ($operation != "") {
  switch ($operation) {
    case "readReport":
      ReadReport($dbh, GetReportList(), GetDefaultDateFormat());
      break;
    case "generateCSV":
      GenerateCSV($dbh, GetReportList(), GetDefaultDateFormat());
      break;
    default: // Won't get here
      header('Content-type: application/json');
      $returnArray = array("error" => array("Operation not specified: '$operation'"), "record" => "", "operation" => "");
      print HCU_JsonEncode($returnArray);
  }
} else if ($report == "") {
  PrintReportList($self);
} else {
  $reportList = GetReportList();
  $reportRecord = $reportList[$report];
  $reportRecord["reportTitle"] = isset($reportRecord["reportTitle"]) ? $reportRecord["reportTitle"] : trim($reportRecord["title"]);
  $title = isset($reportRecord["reportTitle"]) ? trim($reportRecord["reportTitle"]) : (isset($reportRecord["title"]) ? trim($reportRecord["title"]) : trim($report));
  PrintReportPage($reportList, $report, $title, $self);
}
exit;

/**
 * function GetDefaultDateFormat()
 * @return the default date format.
 */
function GetDefaultDateFormat() {
  return "MM/dd/yyyy";
}

/**
 * function GetReportList()
 * @return the configuration for each of the reports.
 */
function GetReportList() {
  global $SYS_TYPE_CLOSED, $SYS_TYPE_LIVE, $SYS_TYPE_BATCH, $SYS_TYPE_WEBONLY, $SYS_TYPE_UPGRADE, $SYS_TYPE_ASP, $SYS_TYPE_IVR, $SYS_TYPE_VOIP;
  return array(
                "address" => array(
                  "title" => "Address List",
                  "sql" => "select user_name, ceo_mgr, name, addr1, addr2, city, state, zip from cuinfo
                            where ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU" => "string", "CEO" => "string", "Name" => "string", "Address" => "string", "Address2" => "string",
                                  "City" => "string","State" => "string", "Zip" => "string")),
                "assets" => array(
                  "title" => "Assets and Members",
                  "sql" => "select user_name, name, state, dec_31_assets, dec_31_mem, charter_number, ceo_mgr from cuinfo
                            where ((system_options & ($SYS_TYPE_LIVE | $SYS_TYPE_BATCH | $SYS_TYPE_WEBONLY)) <> 0) and ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU" => "string", "Name" => "string", "State" => "string", "Assets" => "number", "Members" => "number",
                                  "NCUA" => "number", "CEO Manager" => "string")
                ),
                "ceo" => array(
                  "title" => "CEO Contact Info",
                  "sql" => "select user_name, ceo_mgr, main_phone, main_email from cuinfo where ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU" => "string", "CEO Manager" => "string", "Main Phone" => "string", "Main Email" => "string")
                ),
                "other" => array(
                  "title" => "Other Contact Info",
                  "sql" => "select m.user_name, case when m.role = '05_CEO' then 'Ceo/Mgr' when m.role = '10_WEB' then 'Web Contact'
                            when m.role = '15_IT' then 'IT Person' when m.role = '20_MKT' then 'Marketing' when m.role = '25_CU' then 'Credit Union'
                            when m.role = '30_FAX' then 'Fax Line' when m.role = '35_EVE' then 'Evening/Night' when m.role = '40_REF' then 'HB Reference'
                            else '' end, case when m.decider = 'Y' then 'Y'
                            else '' end, m.fname || ' ' || m.lname, m.phone, m.email, m.comment
                            from monitor_contact m join cuinfo i on i.user_name = m.user_name where ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU" => "string", "Role" => "string", "Decider" => "boolean", "Name" => "string", "Phone" => "string",
                                  "Email" => "string", "Comment" => "string")
                ),
                "client1" => array(
                  "title" => "Client List",
                  "sql" => "select name, city, state, ceo_mgr, main_phone, vendor, dec_31_assets, dec_31_mem from cuinfo
                            where ((system_options & ($SYS_TYPE_LIVE | $SYS_TYPE_BATCH)) <> 0) and ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU Name" => "string", "City" => "string", "State" => "string", "CEO Manager" => "string", "Telephone" => "string",
                                  "DP Vendor" => "string", "Assets" => "number", "Members" => "number")
                ),
                "alpha" => array(
                  "title" => "Alpha Check List",
                  "sql" => "select user_name, name, vendor, www_server from cuinfo where ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU" => "string", "Org Name" => "string", "Vendor" => "string", "Server" => "string")
                ),
                "training" => array(
                  "title" => "Training and Billing",
                  "sql" => "select user_name, date_trained, date_hb_billed, date_ws_billed, stmnt_date,
                            ivrbill_date, txtbill_date, mobbill_date, iphone_billed, android_billed
                            from cuinfo where ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU" => "string", "Date Trained" => "date", "HCU Billed" => "date", "WEB Billed" => "date",
                                  "E-ST Billed" => "date", "IVR Billed" => "date", "TXT Billed" => "date", "MBL Billed" => "date", "APP Billed" => "date",
                                  "ADA Billed" => "date")
                ),
                "client2" => array(
                  "title" => "Client Reference List", "dateFormat" => "yyyy - MM",
                  "sql" => "select user_name, name, vendor, dec_31_assets, city  || ', ' || state, date_live,
                            case when (system_options & $SYS_TYPE_BATCH) <> 0 then 'Batch / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_LIVE) <> 0 then 'Live / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_ASP) <> 0 then 'ASP / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_IVR) <> 0 then 'IVR / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_VOIP) <> 0 then 'IVR / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_WEBONLY) <> 0 then 'Web only / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_UPGRADE) <> 0 then 'Upgrade / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_CLOSED) <> 0 then 'Closed / ' ELSE ''
                            END from cuinfo
                            where date_live is not null and ((system_options & ($SYS_TYPE_LIVE | $SYS_TYPE_BATCH)) <> 0)
                            and ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU Code" => "string", "Credit Union" => "string", "Core Processor" => "string", "Assets" => "number",
                                  "Location" => "string", "Client Since" => "date", "Type" => "string")
                ),
                "refs" => array(
                  "title" => "HomeCU References", "dateFormat" => "yyyy - MM",
                  "sql" => "select name, main_phone, ceo_mgr, home_page_url, vendor, date_live,
                            case when (system_options & $SYS_TYPE_BATCH) <> 0 then 'Batch / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_LIVE) <> 0 then 'Live / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_ASP) <> 0 then 'ASP / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_IVR) <> 0 then 'IVR / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_VOIP) <> 0 then 'VOIP / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_WEBONLY) <> 0 then 'Web only/ ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_UPGRADE) <> 0 then 'Upgrade / ' ELSE '' END ||
                            case when (system_options & $SYS_TYPE_CLOSED) <> 0 then 'Closed / ' ELSE '' END from cuinfo
                            where date_live is not null and ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("Credit Union" => "string", "Telephone" => "string", "CEO" => "string", "Domain" => "string",
                                  "Core Processor" => "string", "Client Since" => "date", "Type" => "string")),
                "estatement" => array(
                  "title" => "E-Statement Clients",
                  "sql" => "select user_name, name, stmnt_date from cuinfo where stmnt_date is not null and ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU" => "string", "Name" => "string", "Date" => "date")
                ),
                "prods" => array(
                  "title" => "HomeCU Products",
                  "sql" => "select i.user_name, i.name, (select 'B'::char from cuproducts where user_name = i.user_name and home_cu_code = 'HCU'),
                            (select 'L'::char from cuproducts where user_name = i.user_name and home_cu_code = 'HCUL'),
                            (select 'W'::char from cuproducts where user_name = i.user_name and home_cu_code = 'WEBS'),
                            (select 'S'::char from cuproducts where user_name = i.user_name and home_cu_code = 'ESP'),
                            (select 'C'::char from cuproducts where user_name = i.user_name and home_cu_code = 'IMG'),
                            (select 'Q'::char from cuproducts where user_name = i.user_name and home_cu_code = 'WC'),
                            (select 'P'::char from cuproducts where user_name = i.user_name and home_cu_code = 'BP')
                            from cuinfo i where ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU" => "string", "Name" => "string", "Batch" => "string", "Live" => "string", "Website" => "string",
                                  "Stmnt" => "string", "Checks" => "string", "WebCon" => "string", "BillPay" => "string")
                ),
                "converted" => array(
                  "title" => "Converted From",
                  "sql" => "select user_name, name, conv_from from cuinfo where trim(conv_from) > '' and ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU" => "string", "Name" => "string", "Converted" => "string")
                ),
                "corporate" => array(
                  "title" => "Corporate Check Processors",
                  "sql" => "select img, imgdesc, datespec from cuimagevendors ",
                  "cols" => array("Image" => "string", "Corporate" => "string", "Date Required" => "string")
                ),
                "sharetec" => array(
                  "title" => "ShareTec VAR List", "dateFormat" => "yyyy - MM", "dateEmpty" => "Pending",
                  "sql" => "select user_name, name, vendvar, date_live from cuinfo i
                            join cuvendors v on i.vendor = v.vendor
                            where v.venddesc =  'SHARETEC' and ((system_options & ($SYS_TYPE_LIVE | $SYS_TYPE_BATCH)) <> 0)
                            and ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU" => "string", "Name" => "string", "ShareTec VAR" => "string", "Date Live" => "date")
                ),
                /**
                 * @todo: This report is not functioning in Mammoth or Odyssey.
                 * If this is needed, there is some work to move report to new reporting.i (vs old reports.i):
                 * Change #replaceString# functionality with "nonSqlDataFunc."  @see GetRepeatingTransReport in cuReporting.prg.
                 * This report uses mmenu.html to check Spanish usage which was only true in Classic.
                 * Therefore, it won't work on Upgrade Mammoth or in Odyssey.
                 * A better solution to work on both Mammoth and Odyssey: language property in hcuSettings.i.
                 * Futhermore, only Miki has used this report and her last usage was 5 years ago.
                 */

                // "client3" => array(
                //   "title" => "Clients using Spanish",
                //   "sql" => "select name, city, state, ceo_mgr, main_phone, vendor, dec_31_assets, dec_31_mem,
                //             case when (system_options & $SYS_TYPE_BATCH) <> 0 then 'B' when (system_options & $SYS_TYPE_LIVE) <> 0 then 'L' ELSE '' END
                //             from cuinfo where user_name in ('#replace#')",
                //   "replaceString" => "#replace#",
                //   "replaceCode" => 'return implode("\',\'", array_map(\'trim\',array_merge (sehablaCount("www3"), sehablaCount("www5"), sehablaCount("www6"))));',
                //   "cols" => array("CU Name" => "string", "City" => "string", "State" => "string", "CEO Manager" => "string", "Telephone" => "string",
                //                   "DP Vendor" => "string", "Assets" => "number", "Members" => "number", "Interface" => "string")
                // ),
                "callahan" => array(
                  "title" => "Callahan Report",
                  "sql" => "select upper(user_name), state, name, dec_31_assets, dec_31_mem, charter_number,
                            case when exists (select * from cuproducts where user_name = cuinfo.user_name and home_cu_code = 'ESP') then 'ES' else '' end,
                            case when exists (select * from cuproducts where user_name = cuinfo.user_name
                            and home_cu_code in ('MBLLITE','MBLCLS','MBLWEB')) then 'MBL' else '' end,
                            case when exists (select * from cuproducts where user_name = cuinfo.user_name and home_cu_code ='MBLAPP') then 'iPh' else '' end,
                            case when exists (select * from cuproducts where user_name = cuinfo.user_name and home_cu_code ='MBLADA') then 'Andr' else '' end,
                            case when exists (select * from cuproducts where user_name = cuinfo.user_name and home_cu_code ='MDesk') then 'PFM' else '' end,
                            case when exists (select * from cuproducts where user_name = cuinfo.user_name and home_cu_code ='RDC') then 'RDC' else '' end,
                            case when exists (select * from cuproducts where user_name = cuinfo.user_name and home_cu_code ='BP') then 'BillPay' else '' end,
                            case when exists (select * from cuproducts where user_name = cuinfo.user_name and home_cu_code ='MBLTXT') then 'TXT' else '' end
                            from cuinfo
                            where vendor <>  'WEBONLY' and ((system_options & ($SYS_TYPE_LIVE | $SYS_TYPE_BATCH)) <> 0)
                            and ((system_options & $SYS_TYPE_CLOSED) = 0) and date_live is not null ",
                  "cols" => array("CU Code" => "string", "STATE" => "string", "Name" => "string", "Assets" => "number", "Members" => "number",
                                  "Charter" => "number", "ES" => "string", "MBL" => "string", "iPh" => "string", "Andr" => "string", "PFM" => "string",
                                  "RDC" => "string", "BillPay" => "string", "TXT" => "string")
                ),
                "notes" => array(
                  "title" => "Client Notes",
                  "sql" => "select user_name, comments, contract_notes, misc_notes from cuinfo where ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU" => "string", "Comments" => "string", "Contract Notes" => "string", "Implementation Notes" => "string")
                ),
                "contract" => array(
                  "title" => "Contract Expiration",
                  "sql" => "select user_name, name, dec_31_assets, dec_31_mem, contract_expires, renewal_term,
                            (case when renewal_term < 2 or renewal_term is null then 1
                            when renewal_term > 1 and contract_expires > (date_trunc('month', current_date) - '1day'::interval)::date
                            then extract(years from age(date_trunc('month', contract_expires),date_trunc('month', current_date) - '1day'::interval))::int * 12
                            + extract(month from age(date_trunc('month', contract_expires),date_trunc('month', current_date) - '1day'::interval))::int
                            when renewal_term > 1 and contract_expires <= (date_trunc('month', current_date)-'1day'::interval)::date
                            then renewal_term - (abs(extract(years from age(date_trunc('month', contract_expires),
                            date_trunc('month', current_date) - '1day'::interval))::int * 12
                            + extract(month from age(date_trunc('month', contract_expires),
                            date_trunc('month', current_date)-'1day'::interval))::int) % renewal_term) end),
                            case when renewal_term >1 and contract_expires <= (date_trunc('month', current_date)-'1day'::interval)::date
                            then '**' else '' end, web_contract_expires, web_renewal_term, (case when web_renewal_term < 2 or web_renewal_term is null then 1
                            when web_renewal_term > 1 and web_contract_expires > (date_trunc('month', current_date)-'1day'::interval)::date
                            then extract(years from age(date_trunc('month', web_contract_expires),date_trunc('month', current_date) - '1day'::interval))::int * 12
                            + extract(month from age(date_trunc('month', web_contract_expires),date_trunc('month', current_date) - '1day'::interval))::int
                            when web_renewal_term > 1 and web_contract_expires <= (date_trunc('month', current_date) - '1day'::interval)::date
                            then web_renewal_term - (abs(extract(years from age(date_trunc('month', web_contract_expires),
                            date_trunc('month', current_date)-'1day'::interval))::int * 12
                            + extract(month from age(date_trunc('month', web_contract_expires),
                            date_trunc('month', current_date) - '1day'::interval))::int) % web_renewal_term) end),
                            case when web_renewal_term > 1 and web_contract_expires <= (date_trunc('month', current_date) - '1day'::interval)::date
                            then '**' else '' end from cuinfo
                            where ((system_options & $SYS_TYPE_CLOSED) = 0) ",
                  "cols" => array("CU" => "string", "Name" => "string", "Assets" => "number", "Members" => "number", "Banking Contract" => "date",
                                  "Banking Renewal" => "number", "Banking Remaining" => "number", "Banking Renewed" => "string", "Web Contract" => "date",
                                  "Web Renewal" => "number", "Web Remaining" => "number", "Web Renewed" => "string")
                )
              );
}

// Data layer
// **************************************


/**
 * function ReadReport($Cu, $dbh, $reportList, $defaultDateFormat)
 * Returns the data needed from the parameters for the report:
 *
 * "report" -- the report to read.  Refers to the $reportKey in the function getReportList().  The frontend sends the variable down as a javascript literal.
 * "initial" -- {true/false}  If initial, then also figure out the boolean DDLs and send those to the frontend to recreate the grid with those parameters.
 * (There is no re-read.)
 * "limit" -- How many records to return.
 * "offset" -- Where to start in the resultset.
 * "newFilter" -- {true/false}  If newFilter, then also find out the count of the resultset.  Also, ignore the offset.  It will get the first page.
 * "sort" -- This is a json encoded string of the current sort in the grid.
 * "filter" -- This is a json encoded string of the current filter in the grid.
 * "printerFriendly" -- printer friendly doesn't have paging.
 *
 * @param $Cu -- the credit union
 * @param $dbh -- the database connection
 * @param $reportList -- the reportList from the getReportList() above.
 * @param $defaultDateFormat -- This is what the date will be formatted as.
 */
function ReadReport($dbh, $reportList, $defaultDateFormat) {
  $parameters = array("a" => array("report" => "", "initial" => "", "limit" => "", "offset" => "", "newFilter" => "", "sort" => "", "filter" => "",
                                   "printerFriendly" => ""));
  $string = array("filter" => HCUFILTER_INPUT_STRING);
  HCU_ImportVars($parameters, "a", array("report" => $string, "initial" => $string, "limit" => $string, "offset" => $string, "newFilter" => $string,
                                         "sort" => $string, "filter" => $string, "printerFriendly" => $string));

  $report = HCU_array_key_exists("report", $parameters["a"]) ? trim($parameters["a"]["report"]) : "";
  $initial = HCU_array_key_exists("initial", $parameters["a"]) ? trim($parameters["a"]["initial"]) == "true" : false;
  $limit = HCU_array_key_exists("limit", $parameters["a"]) ? intval($parameters["a"]["limit"]) : -1;
  $offset = HCU_array_key_exists("offset", $parameters["a"]) ? intval($parameters["a"]["offset"]) : 0;
  $newFilter = HCU_array_key_exists("newFilter", $parameters["a"]) ? trim($parameters["a"]["newFilter"]) == "true" : false;
  $sort = HCU_array_key_exists("sort", $parameters["a"]) ? trim($parameters["a"]["sort"]) : "";
  $filter = HCU_array_key_exists("filter", $parameters["a"]) ? trim($parameters["a"]["filter"]) : "";
  $printerFriendly = HCU_array_key_exists("printerFriendly", $parameters["a"]) ? trim($parameters["a"]["printerFriendly"]) == "true" : false;

  $includeCount = !$printerFriendly && $newFilter;
  $limit = $printerFriendly ? -1 : $limit;
  $offset = $printerFriendly || $newFilter ? 0 : $offset;

  $returnArray = ReadReportData("", $reportList[$report], $dbh, $limit, $offset, $includeCount, false, $initial, false, $sort, $filter, $report, "info_reports");

  header('Content-type: application/json');
  print HCU_JsonEncode($returnArray);
}

/**
 * function GenerateCSV($dbh, $reportList, $defaultDateFormat)
 * Returns the CSV needed from the parameters for the report:
 *
 * "report" -- the report to read.  Refers to the $reportKey in the function getReportList().  The frontend sends the variable down as a javascript literal.
 * "sort" -- This is a json encoded string of the current sort in the grid.
 * "filter" -- This is a json encoded string of the current filter in the grid.
 * "title" -- This is an overwrite for the filename returned.  Otherwise, it is the $title attribute in the getReportList() function.
 *
 * @param $Cu -- the credit union
 * @param $dbh -- the database connection
 * @param $reportList -- the reportList from the getReportList() above.
 * @param $defaultDateFormat -- This is what the date will be formatted as.
 */
function GenerateCSV($dbh, $reportList, $defaultDateFormat) {
  $parameters = array("a" => array("report" => "", "sort" => "", "filter" => "", "title" => ""));
  $string = array("filter" => HCUFILTER_INPUT_STRING);
  HCU_ImportVars($parameters, "a", array("report" => $string, "sort" => $string, "filter" => $string, "title" => $string));

  $report = HCU_array_key_exists("report", $parameters["a"]) ? trim($parameters["a"]["report"]) : "";
  $sort = HCU_array_key_exists("sort", $parameters["a"]) ? trim($parameters["a"]["sort"]) : "";
  $filter = HCU_array_key_exists("filter", $parameters["a"]) ? trim($parameters["a"]["filter"]) : "";
  $title = HCU_array_key_exists("title", $parameters["a"]) ? trim($parameters["a"]["title"]) : "";

  $reportValues = ReadReportData("", $reportList[$report], $dbh, -1, 0, true, true, false, false, $sort, $filter, $report, "info_reports");
  $reportData = $reportValues["reportData"]["data"];

  PrintCSVData($reportData, $report, $title, $reportList, $defaultDateFormat);
}

/**
 * @todo: This report is not functioning in Mammoth or Odyssey.
 * If this is needed, there is some work to move report to new reporting.i (vs old reports.i):
 * Change #replaceString# functionality with "nonSqlDataFunc."  @see GetRepeatingTransReport in cuReporting.prg.
 * This report uses mmenu.html to check Spanish usage which was only true in Classic.
 * Therefore, it won't work on Upgrade Mammoth or in Odyssey.
 * A better solution to work on both Mammoth and Odyssey: language property in hcuSettings.i.
 * Futhermore, only Miki has used this report and her last usage was 5 years ago.
 */

// function SehablaCount($pServer) {

//   $response = Array(); // Reset the array

//   $cmd = "https://nobody:no1home@{$pServer}.homecu.net/hcuadm/sehabla.pl";
//   $cmd = "/usr/bin/curl " . escapeshellarg("-b HCUTicket=" . urlencode($_COOKIE['HCUTicket'])) . " " . escapeshellarg("$cmd");
//   // ** Now pass the command to the command line
//   // ** Take the command -- open a pipe -- then retrieve the information -- stuff into an array

//   if ($handle = popen($cmd, 'r')) {
//     while (!feof ($handle)) {
//       $getLine = fgets($handle, 4096);
//       if (trim($getLine) != "") {
//         $response[] = $getLine;
//       }
//     }

//     // ** Be sure to close the handle
//     pclose($handle);
//   }

//   return $response;
// }

/**
 * function MakeReportDDL()
 * @return a list of reports with links for the top bar.
 */
function MakeReportDDL() {
  $reports = GetReportTitles();

  $reportDDL = array();
  $reportMenuDDL = array();
  foreach($reports as $value => $text) {
    $reportDDL[] = array("value" => $value, "text" => $text);

    $reportMenuDDL[$text] = array("url" => "info_reports.prg?report=" . $value);
  }
  $reportMenuDDL = array("REDIRECT" => array("list" => array("Report List" => array("url" => "info_reports.prg"))),
                         "Other Reports" => array("list" => $reportMenuDDL), "Download CSV" => array("id" => "downloadCSVBtn"),
                         "Help &nbsp;<img src=\"/monitor/images/q1.gif\" border=\"0\" alt=\"View Help\" align=\"top\">" => array("id" => "helpBtn"));
  return $reportMenuDDL;
}

/**
 * function PrintReportList($self)
 * This prints out the main page with the report lists.
 *
 * @param $self -- reference to the URL of this script.
 */
function PrintReportList($self) {
  $title = "Select Info Report";
  printMonitorPageTop($title, "", "", "", "", true);
  printMonitorPageMiddle($title); ?>

  <div class="list-group">
    <?php foreach(GetReportTitles() as $key => $value) { ?>
      <a class="list-group-item list-group-item-action" href="<?php echo $self; ?>?report=<?php echo $key; ?>"><?php echo $value; ?></a>
    <?php } ?>
  </div>
<?php }

/**
 * function PrintReportPage($reportList, $report, $title, $self)
 * Prints out the page for a report that is found.
 *
 * @param $reportList -- the reportList in getReportList().
 * @param $csv -- If it is print, then do a printerFriendly version.
 * @param $report -- the $reportKey in the function getReportList().
 * @param $title -- the title of the report.
 * @param $self -- the URL of this script.  (&report=$report is appended for all calls.)
 */
function PrintReportPage($reportList, $report, $title, $self) {
  $reportSelf = "$self?report=$report";
  printMonitorPageTop($title, "", "", "", "", true);
  printMonitorPageMiddle($title, MakeReportDDL());
  ?>

  <script type="text/javascript">

    <?php
    getShowWaitFunctions();
    GetIsFilterChanged();

    $pageSize    = 30;
    $pagesToShow = 10;

    InitReport($reportSelf, $report, $reportList, getDefaultDateFormat(), "true", $pageSize, false, "", "", "info_reports"); ?>

    var pageVariables = { <?php echo "skip: 0, page: 1, count: -1, numPages: -1, pageSize: " . $pageSize . ", pagesToShow: " . $pagesToShow ?> };

    <?php
    /**
     * function ShowNote()
     * This shows the note for help
     */
    ?>
    function ShowNote() {
        var notification = $("#notification").kendoNotification({
        position: {
            pinned: true,
            top: 118,
            left: 128
        },
        show: function () {
            notificationIsShown = true;
        },
        hide: function () {
            notificationIsShown = false;
        }
        }).data("kendoNotification");

        var notifificationIsShown = false;
        notification.info($("#noteTemplate").html());
    }

    $(document).ready(function () {
      $.homecuValidator.setup({formValidate: 'infoReportingDiv', formStatusField: 'formValidateMainDiv'});
      InitReport();

      $("#helpBtn").click(function () {
        ShowNote();
        return false;
      });
    });
  </script>

  <?php
  /**
   * @var noteTemplate
   * This is the template for the help note.
   */
  ?>
  <script id="noteTemplate" type="x/kendo-template">
    <span class="k-icon k-i-filter"></span>
    <b>To Filter: </b>Click on the (<span class="k-icon k-i-filter"></span>) icon in a column that you want to filter.
    A dialog will pop up with filter value and options.<br>
    <span class="k-icon k-i-arrow-n"></span>
    <b>To Sort:</b> Click on a column (not on the (<span class="k-icon k-i-filter"></span>) icon).
    That column will sort ascending.<br>
    Column will show with the (<span class="k-icon k-i-arrow-n"></span>) icon.  Click again and it will sort descending.<br>
    Column will show with the (<span class="k-icon k-i-arrow-s"></span>) icon. A third click will clear the sort.
  </script>

  <div class="container hcu-all-100 vsgPrimary" id="infoReportingDiv">

    <div id="notification"></div>

    <div class="row hcuSpacer">
      <div class="col-xs-12">
        <div id="formValidateMainDiv" style="display:none;"></div>
      </div>
    </div>

    <div class="row hcuSpacer">
      <div class="col-xs-12">
        <div class="reportGridOverflow">
          <div id="reportGrid" class="hcu-no-td-border"></div>
        </div>
      </div>
    </div>

    <iframe name="hiddenFrame" class="hide"></iframe>
    <form id="downloadCSVForm" action="<?php echo $reportSelf; ?>&operation=generateCSV" method="post" target="hiddenFrame" style="display:none;">
      <input name="title" value="<?php echo $title; ?>">
    </form>
    <form id="printForm" target="_blank" action="<?php echo $reportSelf; ?>&csv=print&title=<?php echo $title; ?>" method="post" style="display:none;">
      <input name="report" value="<?php echo $report; ?>">
    </form>
  </div>

<?php printMonitorPageBottom();
}