quickedit.prg

<?php
/**
 * Change History:
 * 05/01/13 mbl - Added fname, lname, decider to monitor_contact table.
 */

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

  if (!CheckPerm($link, $Hu, basename($_SERVER['SCRIPT_NAME']), $_SERVER['REMOTE_ADDR'])) {
    // ** Permissions failed
    // ** redirect to new page
    header("Location: /hcuadm/hcu_noperm.prg");
    exit;
  }
$dms_ok=array('pos'=>'digits','report'=>'digits','title'=>'string',
'recstart'=>'digits','recend'=>'digits','fieldcnt'=>'digits',
'orderby'=>'string','orderdir'=>'string','upd'=>'string','rec'=>'array');

dms_import($dms_ok);

$report = (isset($report) ? $report : 0);

   switch ($report) {

      case 1:
#
# build the query so that the first field in the select list is a unique key
#
         $selqry = "select user_name as \"CU\", ";
         $selqry .= "name as \"Name\", ";
         $selqry .= "dec_31_assets as \"Assets\", ";
         $selqry .= "dec_31_mem as \"Members\", ";
         $selqry .= "ceo_mgr as \"CEO Manager\", ";
         $selqry .= "date_live as \"Date Live\" ";
         $selqry .= "from cuinfo ";
         $selqry .= "where ((system_options & $SYS_TYPE_CLOSED) = 0) ";
                 $prep_fields = "\$rec[\$i][1] = prep_save(\$rec[\$i][1]); ";
                 $prep_fields .= "\$rec[\$i][4] = prep_save(\$rec[\$i][4]); ";
         $updqry = "update cuinfo set name = '{\$rec[\$i][1]}', ";
         $updqry .= "dec_31_assets = {\$rec[\$i][2]}, ";
         $updqry .= "dec_31_mem = {\$rec[\$i][3]}, ";
         $updqry .= "ceo_mgr = '{\$rec[\$i][4]}', ";
         $updqry .= "date_live = case when trim('{\$rec[\$i][5]}') = '' then null else nullif('{\$rec[\$i][5]}','')::date end ";
         $updqry .= "where user_name = '{\$rec[\$i][0]}';";

         $title = "Assets and Members";
      break;

      case 2:
         $selqry = "select m.id as \"ID Num\", ";
         $selqry .= "m.user_name as \"CU\", ";
         $selqry .= "m.fname as \"First Name\", ";
         $selqry .= "m.lname as \"Last Name\", ";
         $selqry .= "m.phone as \"Phone\", ";
         $selqry .= "m.email as \"Email\", ";
         $selqry .= "m.comment as \"Comment\" ";
         $selqry .= "from monitor_contact m ";
         $selqry .= "join cuinfo i on m.user_name = i.user_name ";
         $selqry .= "where ((i.system_options & $SYS_TYPE_CLOSED) = 0) ";
         $selqry .= "and m.role = '10_WEB' ";
         $prep_fields = "\$rec[\$i][2] = prep_save(\$rec[\$i][2]); ";
         $prep_fields .= "\$rec[\$i][3] = prep_save(\$rec[\$i][3]); ";
         $prep_fields .= "\$rec[\$i][4] = prep_save(\$rec[\$i][4]); ";
         $prep_fields .= "\$rec[\$i][5] = prep_save(\$rec[\$i][5]); ";
         $prep_fields .= "\$rec[\$i][6] = prep_save(\$rec[\$i][6]); ";
         $updqry = "update monitor_contact set ";
         $updqry .= "fname = '{\$rec[\$i][2]}', ";
         $updqry .= "lname = '{\$rec[\$i][3]}', ";
         $updqry .= "phone = '{\$rec[\$i][4]}', ";
         $updqry .= "email = '{\$rec[\$i][5]}', ";
         $updqry .= "comment = '{\$rec[\$i][6]}' ";
         $updqry .= "where id = '{\$rec[\$i][0]}';";
         $title = "Web Contact Info";
      break;

      case 3:
         $selqry = "select i.user_name as \"CU\", ";
         $selqry .= "i.ceo_mgr as \"CEO Manager\", ";
         $selqry .= "i.addr1 as \"Address\", i.addr2 as \"Address2\", ";
         $selqry .= "i.city as \"City\", i.state as \"State\", ";
         $selqry .= "i.zip as \"Zip\" ";
         $selqry .= "from cuinfo i ";
         $selqry .= "where ((system_options & $SYS_TYPE_CLOSED) = 0) ";
                 $prep_fields = "\$rec[\$i][1] = prep_save(\$rec[\$i][1]); ";
                 $prep_fields .= "\$rec[\$i][2] = prep_save(\$rec[\$i][2]); ";
                 $prep_fields .= "\$rec[\$i][3] = prep_save(\$rec[\$i][3]); ";
                 $prep_fields .= "\$rec[\$i][4] = prep_save(\$rec[\$i][4]); ";
         $updqry = "update cuinfo set ceo_mgr = '{\$rec[\$i][1]}', ";
         $updqry .= "addr1 = '{\$rec[\$i][2]}', ";
         $updqry .= "addr2 = '{\$rec[\$i][3]}', ";
         $updqry .= "city = '{\$rec[\$i][4]}', ";
         $updqry .= "state = '{\$rec[\$i][5]}', ";
         $updqry .= "zip = '{\$rec[\$i][6]}' ";
         $updqry .= "where user_name = '{\$rec[\$i][0]}';";
         $title = "Address List";
      break;

      case 4:
         $selqry = "select i.user_name as \"CU\", i.date_trained as \"Date Trained\", ";
         $selqry .= "i.date_hb_billed as \"Banking Billed\", ";
         $selqry .= "i.date_ws_billed as \"Website Billed\", ";
         $selqry .= "i.txtbill_date as \"TXT Billed\", ";
         $selqry .= "i.ivrbill_date as \"IVR Billed\" ";
         $selqry .= "from cuinfo i ";
         $selqry .= "where ((system_options & $SYS_TYPE_CLOSED) = 0) ";
                 $prep_fields = "";
         $updqry = "update cuinfo set ";
         $updqry .= "date_trained = case when trim('{\$rec[\$i][1]}') = '' then null else nullif('{\$rec[\$i][1]}','')::date end, ";
         $updqry .= "date_hb_billed = case when trim('{\$rec[\$i][2]}') = '' then null else nullif('{\$rec[\$i][2]}','')::date end, ";
         $updqry .= "date_ws_billed = case when trim('{\$rec[\$i][3]}') = '' then null else nullif('{\$rec[\$i][3]}','')::date end, ";
         $updqry .= "txtbill_date = case when trim('{\$rec[\$i][4]}') = '' then null else nullif('{\$rec[\$i][4]}','')::date end, ";
         $updqry .= "ivrbill_date = case when trim('{\$rec[\$i][5]}') = '' then null else nullif('{\$rec[\$i][5]}','')::date end ";
         $updqry .= "where user_name = '{\$rec[\$i][0]}';";

         $title = "Training and Billing";
      break;

      case 5:
         $selqry = "select user_name as \"CU\", ";
         $selqry .= "name as \"Name\", ";
         $selqry .= "home_page_url as \"Home Page\" ";
         $selqry .= "from cuinfo ";
         $selqry .= "where ((system_options & $SYS_TYPE_CLOSED) = 0) ";
                 $prep_fields = "\$rec[\$i][1] = prep_save(\$rec[\$i][1]); ";
                 $prep_fields .= "\$rec[\$i][2] = prep_save(\$rec[\$i][2]); ";
         $updqry = "update cuinfo set name = '{\$rec[\$i][1]}', ";
         $updqry .= "home_page_url = '{\$rec[\$i][2]}' ";
         $updqry .= "where user_name = '{\$rec[\$i][0]}';";

         $title = "Home Page URLS";
      break;

      case 6:
         $selqry = "select user_name as \"CU\", ";
         $selqry .= "hcuref_name as \"Reference Name\", ";
         $selqry .= "hcuref_email as \"Reference Email\", ";
         $selqry .= "main_phone as \"Telephone\" ";
         $selqry .= "from cuinfo ";
         $selqry .= "where ((system_options & $SYS_TYPE_CLOSED) = 0) ";
                 $prep_fields = "\$rec[\$i][1] = prep_save(\$rec[\$i][1]); ";
                 $prep_fields .= "\$rec[\$i][2] = prep_save(\$rec[\$i][2]); ";
         $updqry = "update cuinfo set hcuref_name = '{\$rec[\$i][1]}', ";
         $updqry .= "hcuref_email = '{\$rec[\$i][2]}', ";
         $updqry .= "main_phone = '{\$rec[\$i][3]}' ";
         $updqry .= "where user_name = '{\$rec[\$i][0]}';";

         $title = "HomeCU References";
      break;

      case 7:
         $selqry = "select user_name as \"CU\", ";
         $selqry .= "charter_number as \"Charter\", ";
         $selqry .= "name as \"Name\", ";
         $selqry .= "dec_31_assets as \"Assets\", ";
         $selqry .= "dec_31_mem as \"Members\", ";
         $selqry .= "date_live as \"Date Live\" ";
         $selqry .= "from cuinfo ";
         $selqry .= "where ((system_options & $SYS_TYPE_CLOSED) = 0) ";
                 $prep_fields = "\$rec[\$i][2] = prep_save(\$rec[\$i][2]); ";
         $updqry = "update cuinfo set charter_number = '{\$rec[\$i][1]}', ";
         $updqry .= "name = '{\$rec[\$i][2]}', ";
         $updqry .= "dec_31_assets = {\$rec[\$i][3]}, ";
         $updqry .= "dec_31_mem = {\$rec[\$i][4]}, ";
         $updqry .= "date_live = case when trim('{\$rec[\$i][5]}') = '' then null else nullif('{\$rec[\$i][5]}','')::date end ";
         $updqry .= "where user_name = '{\$rec[\$i][0]}';";

         $title = "Charters, Assets and Members";
      break;

      case 8:
         $selqry = "select user_name as \"CU\", ";
         $selqry .= "name as \"Name\", ";
         $selqry .= "contract_expires as \"Contract Expires\", ";
         $selqry .= "renewal_term as \"Renewal Months\" ";
         $selqry .= "from cuinfo ";
         $selqry .= "where ((system_options & $SYS_TYPE_CLOSED) = 0) ";
                 $prep_fields = "\$rec[\$i][1] = prep_save(\$rec[\$i][1]); ";
         $updqry = "update cuinfo set name = '{\$rec[\$i][1]}', ";
         $updqry .= "contract_expires = case when trim('{\$rec[\$i][2]}') = '' then null else nullif('{\$rec[\$i][2]}','')::date end, ";
         $updqry .= "renewal_term = case when regexp_replace('{\$rec[\$i][3]}','[^[:digit:]]','','g') = '' or regexp_replace('{\$rec[\$i][3]}','[^[:digit:]]','','g')::integer = 0 then 1 else regexp_replace('{\$rec[\$i][3]}','[^[:digit:]]','','g')::integer end ";
         $updqry .= "where user_name = '{\$rec[\$i][0]}';";

         $title = "Contract Expiration and Renewal";
      break;

      default:
 # show list of selections
header("Expires: Sat 20 May 1995 03:32:38 GMT");
header("Pragma: no-cache");
header("Cache-Control: no-cache, must-revalidate");
cu_header("Choose Data");
print <<<EOF
      <table width='40%' border='0' align='center' cellpadding=3 cellspacing=0 class='dmsbg'><tr><td>
      <table width='100%' border='0' align='center' cellpadding=2 cellspacing=0 bgcolor='white'>
        <tr class='bar'><td align='center'><font size=+1>Please Choose Data</font></td></tr>
        <tr><td><a href="$infourl/hcuadm/cuilist.prg" target="parent">Credit Union List</a></td></tr>
        <tr class='hdr'><td>Administrative Quick Edits</td></tr>
        <tr class='odd'><td>&nbsp;&nbsp;&nbsp;<a href='$PHP_SELF?report=1'>Assets and Members</a></td></tr>
        <tr class='even'><td>&nbsp;&nbsp;&nbsp;<a href='$PHP_SELF?report=2'>Web Contact Info</a></td></tr>
        <tr class='odd'><td>&nbsp;&nbsp;&nbsp;<a href='$PHP_SELF?report=3'>Address List</a></td></tr>
        <tr class='even'><td>&nbsp;&nbsp;&nbsp;<a href='$PHP_SELF?report=4'>Training and Billing</a></td></tr>
        <tr class='odd'><td>&nbsp;&nbsp;&nbsp;<a href='$PHP_SELF?report=5'>Home Page URLS</a></td></tr>
        <tr class='even'><td>&nbsp;&nbsp;&nbsp;<a href='$PHP_SELF?report=6'>HomeCU References</a></td></tr>
        <tr class='odd'><td>&nbsp;&nbsp;&nbsp;<a href='$PHP_SELF?report=7'>Charters, Assets and Members</a></td></tr>
        <tr class='even'><td>&nbsp;&nbsp;&nbsp;<a href='$PHP_SELF?report=8'>Contract Expiration</a></td></tr>
</table>
    </td></tr></table>
EOF;
        exit;

   }

if ($upd) {
  unset($upd);
  $sql="";

  for ($i = $recstart; $i < $recend; $i++) {
#
# Check the data
#

#
# Build one big sql so we can post it in a transaction
#
        eval("$prep_fields");
    eval("\$sql .= \"$updqry\";");

  }
#
# Post the update
#
$dbh = $link;

if (!$result = db_query($sql,$dbh)) {
   pg_die(pg_errormessage($dbh), $sql, __FILE__, __LINE__);
}
#pg_die("Just Checking... ",$sql, __FILE__, __LINE__);

#echo "$sql";
#
# If the post fails, return to the same page with the old data refreshed
# and an error message showing.
#

#
# If the post works, move to the next requested page (forward or backward)
#

}
$dbh = $link;

$orderby = (trim($orderby)=="" ? "1" : $orderby);
$orderdir = (trim($orderdir)=="" ? "ASC" : $orderdir);
if (!$result = db_query($selqry . " ORDER BY " . $orderby . " " . $orderdir,$dbh)) {
   pg_die(pg_errormessage($dbh), $selqry . " ORDER BY " . $sqlorder . " " . $orderdir, __FILE__, __LINE__);
}
$num_rows = db_num_rows($result);
$num_fields = @pg_numfields($result);

$query = display_form($result);

function display_form ($dt_result) {
    global $infourl, $pos, $dbh, $selqry, $orderby, $orderdir, $report, $title, $PHP_SELF;

$cfgQuotes="\"";
$cfgBorder=0;
$cfgMaxRows=20;
$cfgMaxPages=5;
$cfgMaxText=255;
$cfgOrder="DESC";
$strShowingRecords = "Showing records ";
$strTotal = "total";
$strPrevious = "Previous";
$strNext = "Next";
$strPos1 = "Begin";
$strEnd = "End";
$strMore = "More";
$strEmptySet = "No records found";

    if (!isset($pos))
        $pos = 0;

    $pos_next = $pos + $cfgMaxRows;
    $pos_prev = $pos - $cfgMaxRows;

    $num_rows = @pg_numrows($dt_result);

    $num_fields = @pg_numfields($dt_result);

    $iNumRows = $num_rows;
    if ($num_rows < $pos_next) {
        $pos_next = $num_rows;
    }

    $strNavigation .= "<table border=0 cellpadding=2 cellspacing=0 ><tr>\n";
    $strNavigation .=  "<td align=left class='dtl'>";
    if ($pos >= $cfgMaxRows) {
        //doj added link to beginning of results
        $strNavigation .= "<a href=\"javascript:submitform('0','$orderby','$orderdir');\">&lt;&lt; $strPos1 </a> | ";

        $strNavigation .= " <a href=\"javascript:submitform('$pos_prev','$orderby','$orderdir');\">&lt; $strPrevious </a> | ";
    } else {
        $strNavigation .= "&nbsp;";
    }
    $strNavigation .= "</td>\n";

    $strNavigation .= "<td align=center class='dtl'>\n";

    //doj now only the previous and next $cfgMaxPages pages will be shown
    if (empty($cfgMaxPages)) {
        $cfgMaxPages = 5;
    }

    $iCount = $pos - ($cfgMaxRows * $cfgMaxPages);
    if ($iCount < 0)
        $iCount = 0;

    $iPageCnt = (int)($iCount / $cfgMaxRows);
    $iPageStop = $pos + ($cfgMaxRows * ($cfgMaxPages + 1));

    for (; $iCount < $iNumRows && $iCount < $iPageStop; $iCount += $cfgMaxRows) {
      //doj until here
        $iPageCnt++;
        if ($iCount != $pos) {
            $strPages .= "<a href=\"javascript:submitform('$iCount','$orderby','$orderdir');\">$iPageCnt</a> | ";
        } else {
            if ($iNumRows > $cfgMaxRows) {
                $strPages .= "$iPageCnt | ";
            }
        }
    }
    $strNavigation .= preg_replace("/ \| $/", "", $strPages);

    $strNavigation .= "</td>\n";

    $strNavigation .= "<td align=right class='dtl'>";
    if ($pos_next < $num_rows) {
        $strNavigation .= " | <a href=\"javascript:submitform('$pos_next','$orderby','$orderdir');\"> $strNext &gt;</a>";

        //doj link to end of results
        $pos_end = $num_rows - $cfgMaxRows;
        $strNavigation .= " | <a href=\"javascript:submitform('$pos_end','$orderby','$orderdir');\"> $strEnd &gt;&gt;</a>";
    } else {
        $strNavigation .= "&nbsp;";
    }
    $strNavigation .= "</td>\n";
    $strNavigation .= "</tr></table>\n";

header("Expires: Sat 20 May 1995 03:32:38 GMT");
header("Pragma: no-cache");
header("Cache-Control: no-cache, must-revalidate");
cu_header("$title");
print <<<EOF
 <script>
    function submitform(npos, nsort, ndir)
        {
        document.listform.pos.value=npos;
        document.listform.orderby.value=nsort;
        document.listform.orderdir.value=ndir;
        document.listform.submit();
        }
  </script>
    <table border=0 align=center width='90%' cellpadding=3 cellspacing=0 class='dmsbg'>
    <tr><td class='bar' align='center'><font size="+1">$title</font></td></tr>
    <tr><td>
    <table border=$cfgBorder align=center width='100%' cellpadding=2 cellspacing=0 bgcolor=white>
        <tr><td class='dtl' align='left'>
        <a href='$infourl/hcuadm/cuilist.prg'>Credit Union List</a>&nbsp;&nbsp;&nbsp;
        <a href='$PHP_SELF?report=0'>Menu</a>&nbsp;&nbsp;&nbsp;</td>
        <td class='dtl' align='right'>&nbsp;
EOF;
    if ($num_rows > 1) {
        echo "$strShowingRecords " . strval($pos + 1) . " - $pos_next ($num_rows $strTotal)";
    }
        echo "</td></tr></table>";

    echo $strNavigation;
    echo "<table border=$cfgBorder align=center width='100%' cellpadding=2 cellspacing=0 bgcolor=white>";
    echo "<tr>";
    //echo "<tr><td class='hdr' colspan='$num_fields' align='center'>$title</td></tr><tr>";

    for ($i_field = 0; $i_field < $num_fields; $i_field++) {
        $field_name = pg_fieldname($dt_result, $i_field);
        if (@pg_numrows($dt_result) > 1) {

            $sort_order = ($i_field+1);
            $sort_dir = "ASC";
            $sort_img = "";
            if ($sort_order == $orderby) {
              $sort_dir = ($orderdir == "ASC" ? "DESC" : "ASC");
              $sort_img = ($orderdir == "ASC" ? "<img src='/monitor/images/sortu.gif'>" : "<img src='/monitor/images/sortd.gif'>");
            }
            echo "<th class='small'><A HREF=\"javascript:submitform('$pos','$sort_order','$sort_dir');\">$field_name</a>$sort_img</th>\n";
        } else {
            echo "<th>$field_name</th>";
        }
    }
    echo "</tr>\n";
        if ((@pg_numrows($dt_result)) < 1) {
           echo "<tr class='odd'><td colspan='$num_fields'>$strEmptySet</td></tr>";
        } else {
    echo "<form name='listform' action='$PHP_SELF' method='POST'>
              <input type=hidden name='pos' value='$pos'>
              <input type=hidden name='report' value='$report'>
              <input type=hidden name='title' value='$title'>
              <input type=hidden name='recstart' value='$pos'>
              <input type=hidden name='recend' value='$pos_next'>
              <input type=hidden name='fieldcnt' value='$num_fields'>
              <input type=hidden name='orderby' value='$orderby'>
              <input type=hidden name='orderdir' value='$orderdir'>
              <input type=hidden name='upd' value='upd'>";
    for ($i_row = $pos; $i_row < $pos_next; $i_row++) {
        $row = pg_fetch_row($dt_result, $i_row);
        $i_row % 2  ? $rbg="odd_small" : $rbg = "even_small";
        echo "<tr class=$rbg>";
#
            if (!isset($row[0]))
                unset($row[0]);
            $field_type = pg_fieldtype($dt_result, 0);
            $field_name = pg_fieldname($dt_result, 0);
            if (preg_match("/(int|numeric)/i", $field_type)) {
                echo "<td align=right valign=top>&nbsp;$row[0]&nbsp;";
            } elseif ($cfgShowBlob == false && preg_match("/BLOB/i", $field_type)) {
                echo "<td align=right valign=top>&nbsp;[BLOB]&nbsp;";
            } elseif (preg_match("/(text|char)/i", $field_type)) {
                // If the text is longer than $cfgMaxText characters, let's cut it short
                if (strlen($row[0]) > $cfgMaxText && !empty($cfgMaxText)) {
                    $strLgText =  nl2br(htmlspecialchars(substr($row[0], 0, $cfgMaxText))) . " <br><b>... $strMore ...</b>";
                } else {
                    $strLgText = nl2br(htmlspecialchars($row[0]));
                }
                echo "<td valign=top>&nbsp;$strLgText";
            } elseif ($field_type == "bool") {
                echo "<td valign=top>&nbsp;", bool_YesNo($row[0]), "&nbsp;";
            } else {
                echo "<td valign=top>&nbsp;", nl2br(htmlspecialchars($row[0])), "&nbsp;";
            }
      echo "<input type=hidden name=rec[$i_row][0] value=\"$row[0]\"></td>\n";
#
        for ($i_field = 1; $i_field < pg_numfields($dt_result); $i_field++) {
            if (!isset($row[$i_field]))
                unset($row[$i_field]);
            $field_type = pg_fieldtype($dt_result, $i_field);
            $field_name = pg_fieldname($dt_result, $i_field);
            if (preg_match("/(int|numeric)/i", $field_type)) {
                echo "<td align=right valign=top>&nbsp;<input type=text name=rec[$i_row][$i_field] value=\"" . trim($row[$i_field]) . "\">&nbsp;</td>\n";
            } elseif ($cfgShowBlob == false && preg_match("/BLOB/i", $field_type)) {
                echo "<td align=right valign=top>&nbsp;[BLOB]&nbsp;</td>\n";
            } elseif (preg_match("/(text|char)/i", $field_type)) {
                echo "<td valign=top>&nbsp;<input type=text name=rec[$i_row][$i_field] value=\"" . dms_disphtml($row[$i_field]) . "\" maxsize='" . pg_fieldsize($dt_result, $i_field) . "'></td>\n";
            } elseif (preg_match("/date/i", $field_type)) {
                echo "<td valign=top>&nbsp;<input type=text name=rec[$i_row][$i_field] value=\"" . trim($row[$i_field]) . "\" size='12' maxsize='10'></td>\n";
            } elseif ($field_type == "bool") {
                echo "<td valign=top>&nbsp;", bool_YesNo($row[$i_field]), "&nbsp;</td>\n";
            } else {
                echo "<td valign=top>&nbsp;", nl2br(htmlspecialchars($row[$i_field])), "&nbsp;</td>\n";
            }
        }

    }
}

echo "<tr><td><input type='submit' name='upd' value='Update'></form>";
    echo "</tr></table>\n";
    echo $strNavigation;
    echo "</td></tr></table>";
    return $query;
}
// Function:    pg_die($error, $query)
// Params:      $error -- The displayable error text.  Usually passed as pg_errormessage()
//              $query -- The query which was attempted
function pg_die($error = "", $query = "", $err_file = __FILE__, $err_line = __LINE__) {
    global $strError,$strMySQLSaid, $strBack, $selqry, $link, $db, $table, $cfgDebug, $server;

    echo "<b><font face=\"arial,helvetican,sans-serif\" color=\"red\">$strError - $err_file -- Line: $err_line</font></b><p>";
    if (empty($error)) {
        $error = @pg_errormessage();
    }
    echo "<font face=\"arial,helvetican,sans-serif\" color=\"red\">", $strMySQLSaid . $error;
    if (empty($query)) {
        $query = $selqry;
    }
    if (!empty($query)) {
        echo "<br>Your query: <br><b>",  nl2br(htmlentities($query)), "</b>";
    }
    echo "<br><a href=\"javascript:history.back()\">$strBack</a></font>";

    if ($cfgDebug) {
        echo "<br>Link: $link<br>DB: $db<br>Table: $table<br>Server: $server";
    }

    echo "<p>";
    exit;
}
?>