function display()
{
    extract($_REQUEST);
    $fields = array();
    $fields["search"] = "";
    extract($fields, EXTR_SKIP);
    $sql = "SELECT supid FROM cubit.suppliers";
    $supp_rslt = db_exec($sql) or errDie("Unable to retrieve suppliers");
    while ($supp_data = pg_fetch_array($supp_rslt)) {
        recalculateLeadTimes($supp_data["supid"]);
    }
    $sql = "SELECT stkcod, stkdes, supname, lead_times.lead_time\n\t\t\t\tFROM cubit.lead_times\n\t\t\t\t\tLEFT JOIN cubit.stock\n\t\t\t\t\t\tON lead_times.stkid = stock.stkid\n\t\t\t\t\tLEFT JOIN cubit.suppliers\n\t\t\t\t\t\tON lead_times.supid = suppliers.supid\n\t\t\tWHERE stkcod ILIKE '{$search}%' OR stkdes ILIKE '{$search}%' OR\n\t\t\t\tsupname ILIKE '{$search}%'\n\t\t\tORDER BY stkcod, supname ASC";
    $lead_rslt = db_exec($sql) or errDie("Unable to retrieve lead_times.");
    $lead_out = "";
    while ($lead_data = pg_fetch_array($lead_rslt)) {
        $lead_out .= "<tr class='" . bg_class() . "'>\n\t\t\t<td>{$lead_data['stkcod']}</td>\n\t\t\t<td>{$lead_data['stkdes']}</td>\n\t\t\t<td>{$lead_data['supname']}</td>\n\t\t\t<td>{$lead_data['lead_time']} Days</td>\n\t\t</tr>";
    }
    if (empty($lead_out)) {
        $lead_out = "\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td colspan='4'><li>No results found.</li></td>\n\t\t\t</tr>";
    }
    $OUTPUT = "\n\t\t<center>\n\t\t<h3>Stock Lead Time Buffer Level Report</h3>\n\t\t<form method='post' action='" . SELF . "'>\n\t\t<table " . TMPL_tblDflts . ">\n\t\t\t<tr>\n\t\t\t\t<th colspan='2'>Search</th>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td><input type='text' name='search' value='{$search}' /></td>\n\t\t\t\t<td><input type='submit' value='Search' /></td>\n\t\t\t</tr>\n\t\t</table>\n\t\t</form>\n\t\t<table " . TMPL_tblDflts . ">\n\t\t\t<tr>\n\t\t\t\t<th>Stock Code</th>\n\t\t\t\t<th>Stock Description</th>\n\t\t\t\t<th>Supplier</th>\n\t\t\t\t<th>Lead Time</th>\n\t\t\t</tr>\n\t\t\t{$lead_out}\n\t\t</table>\n\t\t</center>";
    return $OUTPUT;
}
function getLeadTime($supid, $stkid)
{
    recalculateLeadTimes($supid, $stkid);
    $sql = "SELECT lead_time FROM cubit.lead_times\n\t\t\t\tWHERE supid='{$supid}' AND stkid='{$stkid}'";
    $lt_rslt = db_exec($sql) or errDie("Unable to retrieve lead time.");
    $lead_time = pg_fetch_result($lt_rslt, 0);
    return $lead_time;
}