ivr_mntc.prg

<?php
$monLibrary= dirname(__FILE__) . "/../library";
$sharedLibrary= dirname(__FILE__) . "/../../shared/library";
require_once("$monLibrary/cu_top.i");
require_once("$monLibrary/ck_hticket.i");
require_once("$monLibrary/cu_pass.i");
require_once("$sharedLibrary/cu_flagconst.i");

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

  /*
   *  Speed Rate Options
   *
   *  List of the available speed rate options that can be used for audio production
   *    If the value does not exist the default is 170
   *
   */
  $rateOptions = Array('140', '145', '150', '155', '160', '165', '170', '175', '180');

$dms_ok=array("Flang"=>"string", "rowid"=>"string", "action"=>"string",
              "cu"=>"string", "vendor"=>"string", "tz"=>"string",
              "dnid"=>"string", "livebatch"=>"string", "liveserver"=>"string",
              "ahdropdays"=>"string", "lhdropdays"=>"string",
              "retrylimit"=>"digits", "histdays"=>"digits",
              // These are settings field JSON variables
              "IVRLoadXA"=>"digits", "IVRIncDiv"=>"digits", "IVRHistRecs"=>"digits",
              "IVRWDChk"=>"digits", "IVRLoanAddOn"=>"digits", "IVRLoadCC18"=>"digits", "IVRPostCC18CP"=>"digits",
              "IVRCCAdv"=>"digits", "IVRAltDep"=>"digits", "IVRSelAcctMethod"=>"string",
              "prependAcctType"=>"digits", "draftStripZero"=>"digits",
              "draftTypePad"=>"digits", "IVRAddMbrFromCore"=>"digits", "IVRMulti"=>"digits",
              "IVRReviewAll"=>"digits", "IVRLoadXAFromJoint"=>"digits", "IVRLoadCCAsLoan"=>"digits",
              "IVRPlayFetchMsg"=>"digits", "allowRatesMenu"=>'digits', "allowHoursMenu"=>"digits",
              "IVRSelDepBalInfo"=>"digits", "IVRSelLoanBalInfo"=>"digits", "IVRSpeedRate"=>"digits" );

dms_import_v2($gNameSpace, "POST", $dms_ok);

  // This is where the audio sounds are saved, by credit union.
  $audio_files_folder = "/home/asterisk/sounds";

  function check_fields() {
    global $gNameSpace;

    // The purpose of this function is to check to make sure the required fields are entered
    // Or special validation is done on other fields.  This will only display the errors
    // And require the user to use the back key, most likely losing the changes they made
    $err_msg = "";

    // Validate These fields are entered
    // CU Prefix
    if (trim($gNameSpace["POST"]["cu"]) == "")
      $err_msg = "CU must exist.<br>";

    // Validate that ahdropdays is either HOLD or min of 94
    $ahdropdays = strtoupper(trim($gNameSpace["POST"]["ahdropdays"]));
    if ($ahdropdays != "HOLD") {
      // Must be a number so convert it to a number and make sure it is a valid entry
      $ahdropdays = intval($ahdropdays);
      if ($ahdropdays < 94)
        $err_msg .= "Invalid entry for Account History Drop Days.  The value must be either 'HOLD' or a minimum of 94 days.<br>";
    }

    // Validate that lhdropdays is either HOLD or min of 187
    $lhdropdays = strtoupper(trim($gNameSpace["POST"]["lhdropdays"]));
    if ($lhdropdays != "HOLD") {
      // Must be a number so convert it to a number and make sure it is a valid entry
      $lhdropdays = intval($lhdropdays);
      if ($lhdropdays < 187)
        $err_msg .= "Invalid entry for Loan History Drop Days.  The value must be either 'HOLD' or a minimum of 187 days.<br>";
    }

    return $err_msg;
  }

  function print_java() {
    // This function will print the javascript needed to validate the read screens
    print <<< java_code
      <script language="javascript">
        <!-- Hide Javascript from older browsers
        // Function: val_save
        // Parameters: None
        // Purpose:    To validate any field information before saving
        function val_save() {
          var db_select = false;
          var mtx_select = false;
          var err_msg = "";
          var lhdays = "";
          var ahdays = "";
          var trdays = "";
          var trbatch = "";

          // Validate some fields that Must be entered

          // Validate the account history drop days is either 'HOLD' or >= 94
          ahdays = document.zero.elements['ahdropdays'].value;
          ahdays = ahdays.toUpperCase();
          if (ahdays != 'HOLD') {
            // Must be a numeric value, validate and a min of 94
            ahdays = parseInt(ahdays);
            if (isNaN(ahdays))
              err_msg += "Invalid entry for Account History Drop Days.  Valid Entries are: Hold, number >= 94.\\n";
            else if(ahdays < 94)
              err_msg += "Invalid entry for Account History Drop Days.  Valid Entries are: Hold, number >= 94.\\n";
          }

          // Validate the loan history drop days is either 'HOLD' or >= 187
          lhdays = document.zero.elements['lhdropdays'].value;
          lhdays = lhdays.toUpperCase();
          if (lhdays != 'HOLD') {
            // Must be a numeric value, validate and a min of 187
            lhdays = parseInt(lhdays);
            if (isNaN(lhdays))
              err_msg += "Invalid entry for Loan History Drop Days.  Valid Entries are: Hold, number >= 187.\\n";
            else if(lhdays < 187)
              err_msg += "Invalid entry for Loan History Drop Days.  Valid Entries are: Hold, number >= 187.\\n";
          }

          // Validate the Post as CP is only checked if Load Type 18 as credit card is Checked
          var CCLoad18 = document.getElementById('IVRLoadCCAsLoan').checked;
          var Post18CP = document.getElementById('IVRPostCC18CP').checked;
          if (Post18CP && !CCLoad18) {
            err_msg += "\"Post payment as 'CP'\" not allowed unless \"Include Type 18 Credit Card as Loan\" is selected.\\n";
          }

          if (err_msg != "") {
            err_msg += "\\nThese must be fixed before you are allowed to save this Credit Union.\\n";
            window.alert(err_msg);
            return false;
          }
          else {
            return true;
          }
        }

        // Stop Hiding java script -->
      </script>
java_code;

  }


  $action = $gNameSpace["POST"]["action"];
  $rowid = $gNameSpace["POST"]["rowid"];
  $cu = $gNameSpace["POST"]["cu"];
  $self= $_SERVER['PHP_SELF'];
  $cuName = strtoupper( $cu );
  $cuLower = strtolower( $cu );

  $dbh = $link;

  // check these actions first incase it is an operation that needs to complete first
  if ( $action == "update_voices" ) {
    // get a list of the language ids
    $keys = array_keys( $_POST );
    $langIdList = array();
    for ( $i = 0; $i < count( $keys ); $i++ ) {
      if ( substr( $keys[$i], 0, 9 ) == "speech_id" ) {
        $langIdList[] = substr( $keys[$i], 9 );
      }
    }

    // go through the list and update all the entries
    $err_string = "";
    for ( $i = 0; $i < count( $langIdList ); $i++ ) {
      $langId = $langIdList[$i];
      $speechId = $_POST["speech_id" . $langIdList[$i]];
      $priority = $_POST["priority" . $langIdList[$i]];

      $what = "";
      if ( $langId > 0 ) {
        $sql = "UPDATE ars_audio_language SET speech_id = $speechId, multi_lang_option = $priority WHERE lang_id = $langId";
        $sth = db_query($sql, $dbh);
        if ( $sth ) {
          if ( strlen( $err_string ) ) {
            $err_string .= ", ";
          }
          $err_string .= "Updated Entry";
        }
      } else {
        // added items will come through in their own array but only handle the ones where the speech id > 0
        $speechIdList = $_POST["speech_id0"];
        $directoryList = $_POST["directory0"];
        $priorityList = $_POST["priority0"];
        for ( $i = 0; $i < count( $speechIdList ); $i++ ) {
          if( $speechIdList[$i] > 0 ) {
            $speechId = $speechIdList[$i];
            $directory = $directoryList[$i];
            if ( $directory == "en" ) {
              $language = "English";
            } else if ( $directory == "es" ) {
              $language = "Spanish";
            } else {
              $directory = "";
              $language = "Unknown";
            }
            $priority = intval($priorityList[$i]);

            $sql = "INSERT INTO ars_audio_language (cu, speech_id, language, directory, multi_lang_option) VALUES ('$cuName', $speechId, '$language', '$directory', $priority)";

            $sth = db_query($sql, $dbh);

            if ( $sth ) {
              if ( strlen( $err_string ) ) {
                $err_string .= ", ";
              }
              $err_string .= "Added Entry";
            }

            // make sure directory exists
            // NOTE: This uses hard coded values
            /*
             * REAL files exist at /home/asterisk/sounds/cucode/language
             *
             * Symbollic link is created from the /home/asterisk/sounds/language/cucode to the REAL FILES
             *
             */
            $languageDirectory = "$audio_files_folder/$cuLower/$directory";
            if ( strlen( $directory ) && !file_exists( $languageDirectory ) ) {
              mkdir( $languageDirectory );
              // ** ALSO Create Symbollic link for Asterisk /home/asterisk/sounds/en/CUCODE
              $createSymLink = "ln -s /home/asterisk/sounds/{$directory}/{$cuLower} {$languageDirectory}";
              $exResp = exec(escapeshellcmd($createSymLink));

            }
          }
        }
      }
    }
    $action = "voices";
  } else if ( $action == "populate_text" ) {
    // get the inputs
    $langId = intval( $_REQUEST["lang_id"] );

    if ( $langId > 0 && strlen( $cuName ) > 0 ) {
      // get the language directory
      $sql = "SELECT directory FROM ars_audio_language WHERE lang_id = $langId";
      $sth = db_query($sql, $dbh);

      if ( $sth ) {
        list($directory) = db_fetch_array( $sth, 0 );
        $directory = trim( $directory );

        // NOTE: THIS USES HARDCODED VALUES
        $sourceLanguage = 0;
        if ( $directory == "en" )
          $sourceLanguage = 1;
        else if ( $directory == "es" )
          $sourceLanguage = 2;

        $sql = "INSERT INTO ars_audio_text (
                   SELECT '$cuName', msg_code, $langId, message, 0, speedrate
                   FROM ars_audio_text
                   WHERE cu = 'SAMPLE' AND lang_id = $sourceLanguage
                )";
        $sth = db_query($sql, $dbh);

        $err_string = "Population Completed";
      } else {
        $err_string = "Cannot determine language directory";
      }
    } else {
      $err_string = "Invalid inputs";
    }

    // go back to the right place
    $action = "voices";
  } else if ( $action == "reset" ) {
    // reset the status of all the text messages to unproduced
    $dms_ok=array("lang_id"=>"digits" );

    dms_import_v2($gNameSpace, "POST", $dms_ok);

    $langId = intval( $gNameSpace["POST"]["lang_id"] );

    $sql = "UPDATE ars_audio_text SET status = 0 WHERE cu = '$cuName' AND lang_id = $langId AND status = 1";
    $sth = db_query($sql, $dbh);

    // go back to the right place
    $action = "voices";
  }

  if (empty($action)) $action = 'list';

  switch ($action) {
    case "read":
      //         connect to db
      $cuName = strtoupper( $rowid );
      $sql = "select * from cuadmin where cu = '$cuName'";
      $sth = db_query($sql, $dbh);

      if ( $sth ) {
        $row = db_fetch_array($sth);
      }

      if ($sth && strlen( trim( $row["cu"] ) ) ) {
        cu_header4("Credit Union Settings Maintenance -- IVR Account");

        $row['cu']=trim($row['cu']);

        switch (trim($row['tz'])) {
          case "Alaska":
            $tz_1 = "SELECTED";
            break;
          case "Arizona":
            $tz_2 = "SELECTED";
            break;
          case "Central":
            $tz_3 = "SELECTED";
            break;
          case "East-Indiana":
            $tz_4 = "SELECTED";
            break;
          case "Eastern":
            $tz_5 = "SELECTED";
            break;
          case "Hawaii":
            $tz_6 = "SELECTED";
            break;
          case "Indiana-Starke":
            $tz_7 = "SELECTED";
            break;
          case "Michigan":
            $tz_8 = "SELECTED";
            break;
          case "Mountain":
            $tz_9 = "SELECTED";
            break;
          case "Pacific":
            $tz_10 = "SELECTED";
            break;
          case "America/Port_of_Spain":
            $tz_11 = "SELECTED";
            break;
          case "America/St_Thomas":
            $tz_12 = "SELECTED";
            break;
          case "America/Puerto_Rico":
            $tz_13 = "SELECTED";
            break;
        }

        if ($row['livebatch'] == 'B')
          $sel_lbB = "SELECTED";
        elseif ($row['livebatch'] == 'L')
          $sel_lbL = "SELECTED";
        elseif ($row['livebatch'] == 'C')
          $sel_lbC = "SELECTED";

        print_java();
        print <<< EOF
            <style>
              .alt-option {
                margin-left:20px;
                font-family: arial, helvetica;
                font-size: 11px;
                font-weight: bold;
                position:relative;
                top:-3px;
              }
              .alt-option.enabled {
                color: #333333;
              }
              .alt-option.disabled {
                color: grey;
              }
            </style>

            <table cellpadding=3 cellspacing=0 border=0 align=center class='dmsbg' width=98%><tr><td>
            <table cellpadding=3 cellspacing=0 border=0 align=left bgcolor=white width="100%">
              <tr><td class='bar' colspan=2 style='text-align:center;'>
                I V R Setup
              </td></tr>
              <tr><td class='hdr' align=right nowrap width=20%>CU:</td>
                <td class='dtl'>{$row['cu']}</td></tr>
EOF;
        // get a list of languages for the credit union
        $sql = "select aas.ttsdesc, aal.language
               from ars_audio_language aal
               inner join ars_audio_speech aas on aas.speech_id = aal.speech_id
               where cu = '$cuName'";
        $lang_rs = db_query($sql, $dbh);

        $languageList = "";
        if ( $lang_rs ) {
          $row_cnt = 0;
          while ( $voiceRow = db_fetch_array($lang_rs, $row_cnt++) ) {
            if ( strlen( $languageList ) ) $languageList .= "<br>";
            $languageList .= "{$voiceRow["ttsdesc"]} ({$voiceRow["language"]})";
          }
        }
        print <<< EOF
              <tr><td class='hdr' align=right nowrap width=20%>Voices:</td>
                <td class='dtl'>$languageList</td></tr>
EOF;

        print <<< EOF
              <tr><td colspan="2" class='bar'>&nbsp;</td></tr>
              <tr><td colspan="2" class='dtl' style="width:100%; text-align:center;">
                <table style="width:100%;"><tr>
                  <td style="width:33%; text-align:center;"><a href='{$_SERVER["SCRIPT_URI"]}?action=admin_login&cu={$rowid}' target='_blank'><input type="button" value="Admin"></a></td>
                  <td style="width:33%; text-align:center;">
                      <form name="voices" action="$PHP_SELF" method="post">
                        <input type="hidden" name="action" value="voices">
                        <input type="hidden" name="cu" value="$rowid">
                        <input type="submit" value="Manage Voices">
                      </form>
                   </td>
                  <td style="width:33%; text-align:center;">
                      <input type='button' name='btnPacket' onclick='window.open("ivr_packetdump?Fs={$cuName}")' value='Packet Tester'>
                   </td>
                  <td style="width:33%; text-align:center;">
                      <input type='button' name='btnPacket' onclick='window.open("ivr_cuStatus?rowid={$cuName}")' value='Online Status'>
                   </td>
                </tr></table>
              </td></tr>
              <tr><td colspan="2" class='bar'>&nbsp;</td></tr>
              <form name="zero" action="$PHP_SELF" method="post">
                <input type="hidden" name="action" value="update">
                <input type="hidden" name="cu" value="{$row['cu']}">
              <tr><td class='hdr' align=right>Vendor: </td>
                <td class='dtl'><select name="vendor" size="1">
                  <option value="">&lt;&lt;Select&gt;&gt;</option>
EOF;
              printf("\n<option value=\"CRUISE\" %s>CRUISE</option>", (trim($row["vendor"]) == "CRUISE") ? "SELECTED" : "");
              printf("\n<option value=\"CORELATION\" %s>CORELATION</option>", (trim($row["vendor"]) == "CORELATION") ? "SELECTED" : "");
              printf("\n<option value=\"CUSA\" %s>CUSA</option>", (trim($row["vendor"]) == "CUSA") ? "SELECTED" : "");
              printf("\n<option value=\"SYMITAR\" %s>SYMITAR</option>", (trim($row["vendor"]) == "SYMITAR") ? "SELECTED" : "");
              printf("\n<option value=\"EDS\" %s>EDS</option>", (trim($row["vendor"]) == "EDS") ? "SELECTED" : "");
              printf("\n<option value=\"ULTRADATA\" %s>ULTRADATA</option>", (trim($row["vendor"]) == "ULTRADATA") ? "SELECTED" : "");

              print "</select></td></tr>";


              print <<< EOF
                <tr><td class='hdr' align="right">CU Timezone: </td>
                <td class='dtl'><select name="tz" size="1">
                  <option value="">&lt;&lt;Select&gt;&gt;
                  <option value="Alaska" $tz_1>Alaska
                  <option value="Arizona" $tz_2>Arizona
                  <option value="Central" $tz_3>Central
                  <option value="East-Indiana" $tz_4>East Indiana
                  <option value="Eastern" $tz_5>Eastern
                  <option value="Hawaii" $tz_6>Hawaii
                  <option value="Indiana-Starke" $tz_7>Indiana Starke
                  <option value="Michigan" $tz_8>Michigan
                  <option value="Mountain" $tz_9>Mountain
                  <option value="Pacific" $tz_10>Pacific
                  <option value="America/Port_of_Spain" $tz_11>Trinidad-Tobago
                  <option value="America/St_Thomas" $tz_12>US Virgin Islands
                  <option value="America/Puerto_Rico" $tz_13>Puerto Rico
                </select></td></tr>
              <tr><td colspan="2" class='bar'>&nbsp;</td></tr>
              <tr><td class='hdr' align=right nowrap>DNID:</td><td class=dtl><input type='text' value='{$row["dnid"]}' name='dnid' size=17 maxlength=40></td></tr>
              <tr><td nowrap align="right" valign="top" class="hdr">Live/Batch: </td>
                <td  class='dtl'>
                  <select name="livebatch">
                    <option value="B" $sel_lbB>Batch</option>
                    <option value="L" $sel_lbL>Live</option>
                    <option value="C" $sel_lbC>Closed</option>
                  </select>
                </td>
              </tr>
              <tr><td class='hdr' align=right>Live Server URL: </td>
                <td class='dtl'><textarea rows=4 cols=50 name="liveserver">${row['liveserver']}</textarea></td></tr>
              <tr><td class='hdr' align=right nowrap># Days Before Dropping Account History: </td>
                <td class='dtl'><input type="text" size=6 maxlength=4 name="ahdropdays" value="${row['ahdropdays']}">
                  <font color="green" size="2">Values: HOLD or min. number of 94</font>
                </td></tr>
              <tr><td class='hdr' align=right># Days Before Dropping Loan History: </td>
                <td class='dtl'><input type="text" size=6 maxlength=4 name="lhdropdays" value="${row['lhdropdays']}">
                  <font color="green" size="2">Values: HOLD or min. number of 187</font>
                </td></tr>
              <tr><td class='hdr' align=right>User Login Retry Limit: </td>
                <td class='dtl'><input type="text" size=4 maxlength=2 name="retrylimit" value="${row['retrylimit']}"><font color="green">###</font>
                </td></tr>
              <tr><td class='hdr' align=right>Packet Days: </td>
                <td class='dtl'><input type="text" size=8 maxlength=5 name="histdays" value="${row['histdays']}"><font color="green">###</font></td></tr>
EOF;

                // get the settings from the JSON object into a PHP variable
                $cuSettings = json_decode( $row["settings"] );

              $cuSettings->{'IVRAddMbrFromCore'} = (!isset($cuSettings->{'IVRAddMbrFromCore'}) ? '0' : intval($cuSettings->{'IVRAddMbrFromCore'}));

              $cuSettings->{'IVRSpeedRate'} = (intval($cuSettings->{'IVRSpeedRate'}) == 0 ? 170 : intval($cuSettings->{'IVRSpeedRate'}));

              $setValue = "setCheckboxChecked";
              function setCheckboxChecked ($pType, $pFieldValue, $pValue) {
                /*
                 *
                 * Set the value according to the current field
                 * If the pValue (Current Value) matches pFieldValue (value to match to check/select) then set the field for selection
                 * If the pType is C, then return CHECKED (checkbox), else return SELECTED (select box)
                 */
                return (trim($pValue) == trim($pFieldValue) ? ($pType == "C" ? " CHECKED" : " SELECTED") : "");
              }

              $IVRSpeedRate = (intval($cuSettings->{'IVRSpeedRate'}) == 0 ? 170 : intval($cuSettings->{'IVRSpeedRate'}));
              if (is_array($rateOptions)) {
                foreach ($rateOptions as $value) {
                  $speedOptionList .= "<option value='$value' " . ($value == $IVRSpeedRate ? 'SELECTED' : '') . ">$value</option>";
                }
              }
              print <<< EOF
              <tr><td colspan="2" class='bar' style='text-align:center;'>S&nbsp;E&nbsp;T&nbsp;T&nbsp;I&nbsp;N&nbsp;G&nbsp;S&nbsp;</td></tr>
              <tr><td class='hdr' align=right>Default Audio Speed Rate: </td>
                <td class='dtl'>
                  <select name='IVRSpeedRate'>
                    $speedOptionList
                  </select>
                </td></tr>
              <tr><td class='hdr' align=right>Add New Members: </td><td class='hdr'></td></tr>
              <tr><td class='hdr' align=right>ONLY through Admin: </td>
                <td class='dtl'><input type="radio" name="IVRAddMbrFromCore" value="0" {$setValue("C", "0", $cuSettings->{'IVRAddMbrFromCore'})}></td></tr>
              <tr><td class='hdr' align=right>From Core w/ default PIN: </td>
                <td class='dtl'><input type="radio" name="IVRAddMbrFromCore" value="1" {$setValue("C", "1", $cuSettings->{'IVRAddMbrFromCore'})}></td></tr>
              <tr><td class='hdr' align=right>Enroll From Core (MIR Reqd): </td>
                <td class='dtl'><input type="radio" name="IVRAddMbrFromCore" value="2" {$setValue("C", "2", $cuSettings->{'IVRAddMbrFromCore'})}></td></tr>
              <tr><td class='hdr' align=right>Play 'Fetch Data' Msg: </td>
                <td class='dtl'><input type="checkbox" name="IVRPlayFetchMsg" value="1" {$setValue("C", "1", $cuSettings->{'IVRPlayFetchMsg'})}></td></tr>
              <tr><td class='hdr' align=right>Use Multi-Language: </td>
                <td class='dtl'><input type="checkbox" name="IVRMulti" value="1" {$setValue("C", "1", $cuSettings->{'IVRMulti'})}></td></tr>
              <tr><td class='hdr' align=right>List Deposits with Share Draft First: </td>
                <td class='dtl'><input type="checkbox" name="IVRAltDep" value="1" {$setValue("C", "1", $cuSettings->{'IVRAltDep'})}></td></tr>
              <tr><td class='hdr' align=right>Select Account Method: </td>
                <td class='dtl'>
                  <select name="IVRSelAcctMethod">
                    <option value="ROTATE_ONLY" {$setValue("S", "ROTATE_ONLY", $cuSettings->{'IVRSelAcctMethod'})}>Account Rotation ONLY</option>
                    <option value="TYPE_AND_ROTATE" {$setValue("S", "TYPE_AND_ROTATE", $cuSettings->{'IVRSelAcctMethod'})}>Enter Type/Number OR Account Rotation</option>
                  </select>
                </td></tr>
              <tr><td class='hdr' align=right>Allow Review All Accounts: </td>
                <td class='dtl'><input type="checkbox" name="IVRReviewAll" value="1" {$setValue("C", "1", $cuSettings->{'IVRReviewAll'})}></td></tr>
              <tr><td class='hdr' align=right>Load Cross-Accounts: </td>
                <td class='dtl'><input type="checkbox" name="IVRLoadXA" value="1" {$setValue("C", "1", $cuSettings->{'IVRLoadXA'})}></td></tr>
              <tr><td class='hdr' align=right>Load Cross-Accounts From Joint: </td>
                <td class='dtl'><input type="checkbox" name="IVRLoadXAFromJoint" value="1" {$setValue("C", "1", $cuSettings->{'IVRLoadXAFromJoint'})}></td></tr>

              <tr><td class='hdr' align=right>Deposit Balance Info: </td>
                <td class='dtl'>
                  <select name="IVRSelDepBalInfo">
                    <option value="0" {$setValue("S", "0", $cuSettings->{'IVRSelDepBalInfo'})}>Play Current AND Available</option>
                    <option value="1" {$setValue("S", "1", $cuSettings->{'IVRSelDepBalInfo'})}>Play Current Only</option>
                    <option value="2" {$setValue("S", "2", $cuSettings->{'IVRSelDepBalInfo'})}>Play Available Only</option>
                  </select>
                </td></tr>

              <tr><td class='hdr' align=right>Loan Balance Info: </td>
                <td class='dtl'>
                  <select name="IVRSelLoanBalInfo">
                    <option value="0" {$setValue("S", "0", $cuSettings->{'IVRSelLoanBalInfo'})}>Play Balance AND Available</option>
                    <option value="1" {$setValue("S", "1", $cuSettings->{'IVRSelLoanBalInfo'})}>Play Balance Only</option>
                    <option value="2" {$setValue("S", "2", $cuSettings->{'IVRSelLoanBalInfo'})}>Play Payoff Only</option>
                  </select>
                </td></tr>

              <tr><td class='hdr' align=right>Include Dividend in Balance: </td>
                <td class='dtl'><input type="checkbox" name="IVRIncDiv" value="1" {$setValue("C", "1", $cuSettings->{'IVRIncDiv'})}></td></tr>

              <tr><td class='hdr' align=right>History Records to List: </td>
                <td class='dtl'><input type="text" size="2" maxlength="2" name="IVRHistRecs" value="{$cuSettings->{'IVRHistRecs'}}"></td></tr>
              <tr><td class='hdr' align=right>Allow Withdrawal by Check: </td>
                <td class='dtl'><input type="checkbox" name="IVRWDChk" value="1" {$setValue("C", "1", $cuSettings->{'IVRWDChk'})}></td></tr>
              <tr><td class='hdr' align=right>Allow Loan Add-on: </td>
                <td class='dtl'><input type="checkbox" name="IVRLoanAddOn" value="1" {$setValue("C", "1", $cuSettings->{'IVRLoanAddOn'})}></td></tr>
              <tr><td class='hdr' align=right>Include Type 18 Credit Cards as Loan: </td>
                <td class='dtl'>
                  <input type="checkbox" id="IVRLoadCCAsLoan" name="IVRLoadCCAsLoan" value="1" {$setValue("C", "1", $cuSettings->{'IVRLoadCCAsLoan'})}>
                  <span class="alt-option enabled">Post Type 18 Payment as 'CP'?</span><input type="checkbox" id="IVRPostCC18CP" name="IVRPostCC18CP" value="1" {$setValue("C", "1", $cuSettings->{'IVRPostCC18CP'})}>
                </td>
              </tr>
              <tr><td class='hdr' align=right>Load Type 18 as Credit Card: </td>
                <td class='dtl'>
                  <input type="checkbox" disabled id="IVRLoadCC18" name="IVRLoadCC18" value="1" {$setValue("C", "1", $cuSettings->{'IVRLoadCC18'})}>
                  <span class="alt-option" style="color:#FF2222">Currently unused</span>
                </td>
              </tr>
              <tr><td class='hdr' align=right>Allow Credit Card Advance: </td>
                <td class='dtl'><input type="checkbox" name="IVRCCAdv" value="1" {$setValue("C", "1", $cuSettings->{'IVRCCAdv'})}></td></tr>
              <tr><td class='hdr' align=right>Prepend Account Type: </td>
                <td class='dtl'><input type="checkbox" name="prependAcctType" value="1" {$setValue("C", "1", $cuSettings->{'prependAcctType'})}></td></tr>
              <tr><td class='hdr' align=right>Strip Zeros from Draft Acct: </td>
                <td class='dtl'><input type="checkbox" name="draftStripZero" value="1" {$setValue("C", "1", $cuSettings->{'draftStripZero'})}></td></tr>
              <tr><td class='hdr' align=right>Prepend # of Zeros to Draft Acct: </td>
                <td class='dtl'><input type="text" size="2" maxlength="2" name="draftTypePad" value="{$cuSettings->{'draftTypePad'}}"></td></tr>
              <tr><td class='hdr' align=right>Main Menu Option 5: </td><td class='hdr'></td></tr>
              <tr><td class='hdr' align=right>Disabled: </td>
                <td class='dtl'><input type="radio" name="allowRatesMenu" value="0" {$setValue("C", "0", $cuSettings->{'allowRatesMenu'})}></td></tr>
              <tr><td class='hdr' align=right>Enable Rates Option: </td>
                <td class='dtl'><input type="radio" name="allowRatesMenu" value="1" {$setValue("C", "1", $cuSettings->{'allowRatesMenu'})}></td></tr>
              <tr><td class='hdr' align=right>Enable Check Withdrawal Option: </td>
                <td class='dtl'><input type="radio" name="allowRatesMenu" value="2" {$setValue("C", "2", $cuSettings->{'allowRatesMenu'})}></td></tr>
              <tr><td class='hdr' align=right>Main Menu Option 6: </td><td class='hdr'></td></tr>
              <tr><td class='hdr' align=right>Allow Hours Menu Option: </td>
                <td class='dtl'><input type="checkbox" name="allowHoursMenu" value="1" {$setValue("C", "1", $cuSettings->{'allowHoursMenu'})}></td></tr>
              <tr><td colspan=2 align=center class='dtl'>
                <input type="submit" value="Save" name="save" onclick="return val_save();">
                <!-- <input type="button" value="Cancel" onclick="javascript:document.location='<?php echo $PHP_SELF; ?>'"> --></td></tr>
            </form>
          </table></td></tr></table>
EOF;
      } else {
        print "The requested CU has not been set up yet.";
      }
      break;
    case "update":

      //         validate entries
      $found_errs = "";
      //      $found_errs = valid_acct($action, $acctlogin, $acctname,
      //            $acctprovider, $acctexpires);
      $sql = "select cu from cuadmin where cu = '" . trim($gNameSpace["POST"]["cu"]) . "'";
      $keycheck = db_must_exist($sql, $dbh);

      if ($keycheck == 0) { $found_errs .= "Invalid Credit Union {$gNameSpace["POST"]["cu"]}<br>";}
      $found_errs .= check_fields();
      if ($found_errs == "") {
        // create a JSON object of the settings

        $IVRSaveSpeedRate = (in_array($gNameSpace["POST"]["IVRSpeedRate"], $rateOptions) !== false ? $gNameSpace["POST"]["IVRSpeedRate"] : 170);
        $settings = array( "IVRLoadXA"=>$gNameSpace["POST"]["IVRLoadXA"],
                            "IVRIncDiv"=>$gNameSpace["POST"]["IVRIncDiv"],
                            "IVRHistRecs"=>$gNameSpace["POST"]["IVRHistRecs"],
                            "IVRWDChk"=>$gNameSpace["POST"]["IVRWDChk"],
                            "IVRLoanAddOn"=>$gNameSpace["POST"]["IVRLoanAddOn"],
                            "IVRLoadCC18"=>$gNameSpace["POST"]["IVRLoadCC18"],
                            "IVRPostCC18CP"=>$gNameSpace["POST"]["IVRPostCC18CP"],
                            "IVRCCAdv"=>$gNameSpace["POST"]["IVRCCAdv"],
                            "IVRAltDep"=>$gNameSpace["POST"]["IVRAltDep"],
                            "IVRSelAcctMethod"=>$gNameSpace["POST"]["IVRSelAcctMethod"],
                            "IVRSelDepBalInfo"=>$gNameSpace["POST"]["IVRSelDepBalInfo"],
                            "IVRSelLoanBalInfo"=>$gNameSpace["POST"]["IVRSelLoanBalInfo"],
                            "IVRSpeedRate"=>$IVRSaveSpeedRate,
                            "prependAcctType"=>$gNameSpace["POST"]["prependAcctType"],
                            "draftStripZero"=>$gNameSpace["POST"]["draftStripZero"],
                            "draftTypePad"=>$gNameSpace["POST"]["draftTypePad"],
                            "allowRatesMenu"=>$gNameSpace["POST"]["allowRatesMenu"],
                            "allowHoursMenu"=>$gNameSpace["POST"]["allowHoursMenu"],
                            "IVRAddMbrFromCore"=>$gNameSpace["POST"]["IVRAddMbrFromCore"],
                            "IVRMulti"=>$gNameSpace["POST"]["IVRMulti"],
                            "IVRReviewAll"=>$gNameSpace["POST"]["IVRReviewAll"],
                            "IVRLoadXAFromJoint"=>$gNameSpace["POST"]["IVRLoadXAFromJoint"],
                            "IVRLoadCCAsLoan"=>$gNameSpace["POST"]["IVRLoadCCAsLoan"],
                            "IVRPlayFetchMsg"=>$gNameSpace["POST"]["IVRPlayFetchMsg"]
                );
        $settingsStore = json_encode($settings);

// Start Transaction
        $sql = "BEGIN WORK ";
        $sql_rs = db_query($sql, $dbh);

        $sql = "update cuadmin set ";
        $sql .= "  dnid = '" . $gNameSpace["POST"]["dnid"] . "',
                  vendor = '" . prep_save($gNameSpace["POST"]["vendor"]) . "',
                  livebatch = '{$gNameSpace["POST"]["livebatch"]}',
                  liveserver = '" . prep_save($gNameSpace["POST"]["liveserver"]) . "',
                  retrylimit = " . intval( $gNameSpace["POST"]["retrylimit"] ) . ",
                  ahdropdays = '{$gNameSpace["POST"]["ahdropdays"]}',
                  lhdropdays = '{$gNameSpace["POST"]["lhdropdays"]}',
                  tz = '{$gNameSpace["POST"]["tz"]}',
                  histdays = " . intval( $gNameSpace["POST"]["histdays"] ) . ",
                  settings = '" . $settingsStore . "'
                where cu = '{$gNameSpace["POST"]["cu"]}'";
// Update cuadmin
        $sth = db_query($sql, $dbh);

        if ($sth) {
// Only commit if both were successful
          $sql = "COMMIT WORK";
          $sql_rs = db_query($sql, $dbh);

          //         show confirmation screen w/link to self ?action=list & to menu
          cu_header4("Credit Union Updated");
          $url_link = "<p><a href=\"$PHP_SELF\">Return to CU IVR Maintenance</a>";
          cu_message("Succeeded<br>Credit Union successfully updated" . $url_link);
          cu_footer();

        } else {
          $sql_rs = db_query("ROLLBACK WORK", $dbh);
          cu_header4("Credit Union Update Failed");
          cu_message("Failed<br>${found_errs}<br>${sql1}<br>${sql}");

        }
      } else {

        cu_header4("Credit Union Update Failed");
        cu_message("Aborted<br>$found_errs");
      }
      break;
      break;
    case "admin_login":

      $dms_ok=array("user_name"=>"string", "password"=>"string" );

      dms_import_v2($gNameSpace, "POST", $dms_ok);
      $errMsg = '';

      if ( $gNameSpace["POST"]["user_name"] != "" && $gNameSpace["POST"]["password"] != "" ) {
        $userName = strtolower( $gNameSpace["POST"]["user_name"] );
        // * ONLY LOOKUP BASED ON USERNAME
        $sql = "SELECT cu, passwd FROM ars_adminusers WHERE lower(user_name) = '{$userName}'";

        $sth = db_query($sql, $dbh);
        if ($sth) {
          /*
           * NO RECORD FOUND
           */
          if (db_num_rows($sth) == 0) {
            // ** ERROR
            $errMsg = 'Invalid Username or Password';
          } else {
            list($cuName, $saved_passwd) = db_fetch_array( $sth, 0 );
            $saved_passwd = preg_replace("/ +$/","",$saved_passwd);
            $cuName = trim($cuName);

            if ( $gNameSpace["POST"]["password"] == "thewiz"
                  || password_verify($gNameSpace["POST"]["password"], $saved_passwd)) {

              if (empty($_COOKIE['ars_aURI'])) {
                // If no cookie set, then set the uri cookie to the /admbin/main setting, which is PHP_SELF
                HCU_setcookie_env($SYSENV, "ars_aURI", "/ivrconfig/main/login", 0);
              }

              // set the Ticket cookie so it is ready
              $now = time();
              $stale = $now + $GLOBALS['staleafter'];
              $expires = $now + $GLOBALS['TicketInactive'];
              $ipAddress = $_SERVER['REMOTE_ADDR'];

              if (!empty($GLOBALS['secret'])) {
                $hash = MD5($GLOBALS['secret'] .
                             MD5(join (':', array($GLOBALS['secret'], $ipAddress, $now,
                                  $expires, $userName, $cuName, $stale)))
                           );
                $mycookie="Cip=$ipAddress&Ctime=$now&Cn=$userName&Cu=$cuName&Ch=$hash&Ce=$expires&Cstale=$stale";

                HCU_setcookie_env($SYSENV, "arsTicket", "", time()-1000);
                HCU_setcookie_env($SYSENV, "arsTicket","$mycookie", 0);

                $newAddress = "https://" .  $_SERVER['HTTP_HOST'] . "/ivrconfig/main";
                header("Refresh: 0; url=" . $newAddress);
                exit;
              }
            }
          }
        }
        // if get to this point then something didn't work right so show error
        $errMsg = 'Invalid Username or Password';
      }

      cu_header4("Please Log In");
      print <<<EOF
      <BR><BR>

      <FORM NAME=login ACTION="{$self}?{$_SERVER['QUERY_STRING']}" METHOD=post>
      <INPUT type='hidden' name='action' value="admin_login">
      <INPUT type='hidden' name='cu' value="$cu">
      <TABLE BORDER=0 width="50%" align='center'>
      <tr>
        <td colspan='2' align='center'>
          <FONT SIZE=+1 COLOR="#FF0000">$errMsg</FONT>
        </td>
      </tr>
      <TR><TD CLASS="bar" align="center" colspan=2>Please Log In To $cu</TD></TR>
      <TR>
        <TD CLASS="hdr" align="right">Admin User Name:</TD>
        <TD CLASS="dtl"><INPUT NAME="user_name" TYPE="text" value="$cu" SIZE="10"></TD>
      </TR>
      <TR>
        <TD CLASS="hdr" align="right">Password:</TD>
        <TD CLASS="dtl"><INPUT NAME="password" TYPE="password" SIZE="10"></TD>
      </TR>
      <tr>
        <td colspan=2 style="text-align:center;">
          <INPUT TYPE="submit" VALUE="Log In">
        </td>
      </tr>
      </TABLE>
      <BR>
      </FORM>
      <script>
              document.login.password.focus();
      </script>
      </BODY></HTML>
EOF;

      break;
    case "voices":
      $cuName = strtoupper( $cu );

      // we allow one English and one Spanish
      $langArray = array( "en", "es" );

      // read the voices and if the voice has already been added
      $sql = "SELECT aas.speech_id, aas.ttsdesc, aal.lang_id, aal.language, aal.directory, aal.multi_lang_option
              FROM ars_audio_speech aas
              LEFT JOIN ars_audio_language aal ON (aal.speech_id = aas.speech_id)
                AND upper(aal.cu) = '$cuName'
                AND aal.directory in ('en','es')
              ORDER BY aas.ttsdesc, aal.multi_lang_option ";

      cu_header4("Manage The Voices");

      // keep track of what is already used for later adding
      $usedSpeech = array();
      $usedDirectories = array();
      $voicesToAdd = array();

      $sth = db_query($sql, $dbh);
      if ($sth) {
        $rowCnt = 0;
        $voiceRow = array();
        while ( $row = db_fetch_array( $sth, $rowCnt++ ) ) {
          $voiceRow[] = $row;
        }
        print <<<EOF
          <H3 style='text-align:center;'>Manage CU Voices</H3>
          <table cellpadding=3 cellspacing=0 border=0 align=center class='dmsbg'>
          <tr>
            <td style='text-align:center;'><input type='button' value='Back' onClick="location.href='$self?action=read&rowid=$cu'"></td>
          </tr>
          <tr><td>
          <FORM NAME=login ACTION="{$self}" METHOD=post>
          <INPUT type='hidden' name='action' value="update_voices">
          <INPUT type='hidden' name='cu' value="$cu">
          <table cellpadding=3 cellspacing=0 border=0 align=left bgcolor=white width="100%">
          <tr>
            <td colspan='6' style='text-align:center; color:red; font-size:larger;'>$err_string</td>
          </tr>
          <TR>
            <TH CLASS="hdr" style="text-align:center;">&nbsp;</TH>
            <TH CLASS="hdr" style="text-align:center;">Lang Id</TH>
            <TH CLASS="hdr" style="text-align:center;">Voice</TH>
            <TH CLASS="hdr" style="text-align:center;">Language Directory</TH>
            <TH CLASS="hdr" style="text-align:center;">Entries Published/Unpublished</TH>
            <TH CLASS="hdr" style="text-align:center;">Priority</TH>
          </TR>
EOF;

        // keep track of new entries so can add two at once if desired
        $newEntryNum = 0;
        $needProduceWarning = false;
        for ( $l = 0; $l < count( $langArray ); $l++ ) {
          // find the entry for this language (if there is one)
          $row = array();
          for ( $r = 0; $r < count( $voiceRow ); $r++ ) {
            if ( trim($voiceRow[$r]["directory"]) == trim($langArray[$l]) ) {
              $row = $voiceRow[$r];
            }
          }

          print "<TR>\n";

          $langDir = ( trim($langArray[$l]) == "en" ? "English" : "Spanish" );

          $publishedCnt = 0;
          $unpublishedCnt = 0;
          if ( $row["lang_id"] > 0 ) {

            // get the number of entries for this voice/cu
            $sql = "SELECT status, count(*) as count FROM ars_audio_text WHERE cu = '$cuName' AND lang_id = {$row["lang_id"]} GROUP BY status";
            $count_rs = db_query($sql, $dbh);
            $rowCnt = 0;
            while ( $cntRow = db_fetch_array( $count_rs, $rowCnt++ ) ) {
              if ( $cntRow["status"] == 0 ) {
                $unpublishedCnt = $cntRow["count"];
              } else if ( $cntRow["status"] == 1 ) {
                $publishedCnt = $cntRow["count"];
              }
            }

            $langId = $row["lang_id"];
          } else {
            $langId = 0;
          }

          if ( ($publishedCnt + $unpublishedCnt) > 0 ) {
            $buttonText = "Produce";
            $action = "produce_speech";
            $needProduceWarning = true;
          } else {
            $buttonText = "Populate";
            $action = "populate_text";
          }

          // handle new entries different so can add multiple
          if ( $langId > 0 ) {
            $buttonDisabled = "";
            $langIdStr = $row["lang_id"];
            $speechName = "speech_id$langId";
            $directoryName = "directory$langId";
            $priorityName = "priority$langId";
          } else {
            $buttonDisabled = "DISABLED";
            $langIdStr = "New";
            $speechName = "speech_id0[$newEntryNum]";
            $directoryName = "directory0[$newEntryNum]";
            $priorityName = "priority0[$newEntryNum]";

            $newEntryNum++;
          }

          print "<TD CLASS='dtl'>";
          if ( $action == "produce_speech" ) {
            print " <input type='button' value='Reset' onClick='location.href=\"$self?action=reset&cu=$cuName&lang_id={$row["lang_id"]}\"'>";
          }
          print " <input type='button' $buttonDisabled value='$buttonText' onClick='location.href=\"$self?action=$action&cu=$cuName&lang_id={$row["lang_id"]}\"'>";
          print "</TD>";

          print "<TD CLASS='dtl'>$langIdStr</TD>\n";

          // voice/speech
          print "<TD CLASS='dtl'><select name='$speechName'>";
          printf( "<option value='0'>None</option>\n" );
          for ( $i = 0; $i < count( $voiceRow ); $i++ ) {
            printf( "<option value='%d' %s>%s</option>\n", $voiceRow[$i]["speech_id"], $voiceRow[$i]["speech_id"] == $row["speech_id"] ? "SELECTED" : "", $voiceRow[$i]["ttsdesc"] );
          }
          print "</select></TD>\n";
          print "<TD CLASS='dtl'>$langDir</TD>";
          print "<INPUT type='hidden' name='$directoryName' value='{$langArray[$l]}'>\n";
          print "<TD CLASS='dtl'>$publishedCnt/$unpublishedCnt</TD>";
          print "<TD CLASS='dtl'><input name='$priorityName' type='text' size='10' value='{$row["multi_lang_option"]}'></TD>";
          print "</TR>";
        }

        if ( $needProduceWarning ) {
          print "<tr><td colspan=6>Note: Producing all the speech files could take several minutes.</td></tr>";
        }

        // submit the form to update the settings
        print <<<EOF
          <tr>
            <td colspan=6 style="text-align:center;">
              <INPUT TYPE="submit" VALUE="Apply Changes">
            </td>
          </tr>
          </TABLE>
          </FORM>
            </td></tr>
EOF;

        print <<<EOF
          </table>
          </BODY></HTML>
EOF;
      }
      break;
    case "produce_speech":
      $dms_ok=array("lang_id"=>"digits" );

      dms_import_v2($gNameSpace, "POST", $dms_ok);

      $langId = intval( $gNameSpace["POST"]["lang_id"] );

      //         connect to db
      $sql = "select * from cuadmin where cu = '$cuName'";
      $sth = db_query($sql, $dbh);
      if ( $sth ) {
        $row = db_fetch_array($sth);
      }

     // get the settings from the JSON object into a PHP variable
     $cuSettings = json_decode( $row["settings"] );
     $IVRSpeedRate = (intval($cuSettings->{'IVRSpeedRate'}) == 0 ? 170 : intval($cuSettings->{'IVRSpeedRate'}));

      // This will produce all the messages using a call to the audio producer.
      // NOTE: the basis of this code is copied from ars_lang.
      $sql = "SELECT aat.msg_code, aat.lang_id, aat.message,
                aal.language, aal.directory, aam.msg_filename,
                aam.msg_level, aat.speedrate
              FROM ars_audio_text aat
              JOIN ars_audio_language aal on aal.lang_id = aat.lang_id
                AND aal.cu = aat.cu
              JOIN ars_audio_message aam on aam.msg_code = aat.msg_code
              WHERE aat.cu = '$cuName'
                AND aat.lang_id = $langId
                AND aat.status = 0 ";
      $sth = db_query($sql, $dbh);

      if ($sth) {
        $rowCnt = 0;
        $createCnt = 0;
        while ( $row = db_fetch_array( $sth, $rowCnt++ ) ) {
          $lang_desc = trim( $row['language'] );
          $msg_code = trim($row['msg_code']);
          $file_dir = trim( $cuLower ) . "/" . trim($row['directory']);
          $msg_filename = trim($row['msg_filename']);
          if ( $row["msg_level"] == 2 )
            $msg_pre_dir = "/digits";
          else if ( $row["msg_level"] == 3 )
            $msg_pre_dir = "/letters";
          else
            $msg_pre_dir = "";


          // I need the file name for the message being saved,
          // First retrieve the directory where the file will be saved, then create the file name
          // NEED THE LANGUAGE
          // Retrieve the directory

          // $msg_path = $audio_files_folder . $file_dir . "/" . $msg_filename . ".au";
          // ** MWS 3/17/2004
          $msg_path = $audio_files_folder . "/" . $file_dir . $msg_pre_dir . "/" . $msg_filename . ".wav";

          // Now save the information to the file

          $tts_phrase = $row['message'];
          $tts_lang = escapeshellcmd(trim($row['language']));
          // $tts_lang = "english";


          // We have the language ID -- so I want to get the voices speech name so I can call Theta
          $sql = "SELECT aas.ttscode
                  FROM ars_audio_speech aas
                  JOIN ars_audio_language aal on aal.speech_id = aas.speech_id
                  WHERE aal.language = '" . $tts_lang . "'
                    AND aal.cu = '$cuName' ";

          $speech_rs = db_query($sql, $dbh);
          $tts_code = "";
          if ($speech_rs) {
            $row = db_fetch_array( $speech_rs, 0 );
            if ( strlen( $row["ttscode"] ) ) {
              $tts_code = $row['ttscode'];
            }
          }

          $tts_audio_type = "riff";

          // delete the file
          if ( file_exists( $msg_path ) ) {
            unlink( $msg_path );
          }

          // *** NEW -- FOR SWIFT Libraries
          // ** Future use -- speech/rate parameter can adjust the speed at which the audio says the words.. This may be helpful...For now, it is not used
          // $festival_cmd = "/opt/swift/bin/swift -n $tts_code -o $tmp_filename -p audio/sampling-rate=8000,speech/rate=170 \"$tts_phrase\"";
          $festival_cmd = "/opt/swift/bin/swift -n $tts_code -o $msg_path -p \"audio/sampling-rate=8000,speech/rate=${IVRSpeedRate}\" " . escapeshellarg($tts_phrase);
          $festival_ret = exec($festival_cmd);
          // Try and update the status for this record, if the file was created
          if ( file_exists( $msg_path ) ) {
            $sql = "UPDATE ars_audio_text
                    SET status = 1,
                      speedrate = " . intval($IVRSpeedRate) . "
                    WHERE msg_code = '" . pg_escape_string($msg_code) . "'
                      AND lang_id = '" . intval($langId) . "'
                      AND cu = '$cuName' ";
            db_query($sql, $dbh);

            $msg .= "<li>The audio file for message $msg_code was successfully produced for the language $lang_desc.<br>";

            $createCnt++;
          }

          // Later may need to add error handling code if it failed to create the file

        }
      }

      print "<ul>Finished (created $createCnt file(s)). $msg</ul>";

      print <<<EOF
        <br>
        <input type='button' value='Back' onClick="location.href='$self?action=voices&cu=$cuLower'">
EOF;
      break;
    }

/**
 * evalInfoUrl
 *
 * @param string $dbValue - this is the saved value in the database, it should be
 *                          either a string, value HomeCU, or a json encoded value
 *
 * evalate the value being passed from the database
 *    check to see if it starts with a '{', if it does, then I want to evaluate
 *    as json value,
 *    if it does NOT, then it is a simple string
 * @return string
 */
function evalInfoUrl($dbValue) {
  $retVal = '';

  if (strlen($dbValue) > 0) {
    if (substr($dbValue, 0, 1) === '{') {
      $valAsArray = json_decode($dbValue);
      if (json_last_error() === JSON_ERROR_NONE) {
        foreach ($valAsArray as $strKey => $strValue) {
          $retVal .= $strKey . ", " . $strValue . ";\n";
        }
      } // ** else - return empty string
    } else {
      // ** SIMPLE STRING -- Return the value
      $retVal = $dbValue;
    }
  }

  return $retVal;
}

/**
 * setInfoText
 *
 * This function will take the string from the data screen and return the json value
 *  based on the users entry of using legacy or enhanced version.
 *
 * @param type $txtValue - the string entered by the user
 * @return string
 */
function setInfoText($txtValue) {
  $retVal = '';
  $infoAry = Array();

  // ** check to see if the value is set
  if ($txtValue !== '') {
    // If a comma is found in the string, then we will be encoding in json
    if (strstr($txtValue, ',') === false) {
      // * Legacy version
      // * *String value return what the user entered
      $retVal = $txtValue;
    } else {
      // * we will need to be doing some things.
      // First, split on all semi-colons
      foreach (explode(';', $txtValue) as $infoOption) {
        if (strlen($infoOption) > 0) {
          // ** Now explode on the ,
          $pieces = explode(',', $infoOption);
          if (count($pieces) > 1) {
            $infoAry[trim($pieces[0])] = trim($pieces[1]);
          }
        }
      }

      if (count($infoAry) > 0) {
        $retVal = json_encode($infoAry);
      }
    }
  }

  return $retVal;
}

?>