function adminDataBase($dbAr)
{
$z = extract($dbAr);
//echo "<p>Database= $database</p>\n";
$gofor = $_REQUEST['gofor'] ? $_REQUEST['gofor'] : '';
if (!$gofor) {
openFormA('', '', $pageref, 'POST', '', '', '');
echo "<p><strong>Table: ";
radioInput('admintab', 'bldinfo');
echo "Variable information ";
radioInput('admintab', 'persons');
echo "Authorized users ";
echo "</p>\n";
closeForm('Administrator', '', '');
} else {
$table = $_REQUEST['admintab'] ? $_REQUEST['admintab'] : $table;
if ($table == 'bldinfo') {
$indx = 'vid';
$display = "ctrlname||'_'||var AS row";
} elseif ($table == 'persons') {
$indx = 'pid';
$display = 'wsuid';
} else {
$indx = '';
}
$tabl = new Listing6($database, $table, $indx, $display, array(), true);
$tabl->updateBuildInfo('ctrlname', 99, '', 'Mode', 0, "values=manage\tsubmit");
$tabl->updateBuildInfo('var', 12, '', 'Variable name', 0, '');
$tabl->manageListing($pageref, array('admintab' => $table));
}
return 2;
}
function qList($var, $dyn)
{
//echo "<p>SQL:\n";
$sql = $this->fetchQuery($var);
//echo "$sql</p>\n";
$xSet = 'XSet' . $dyn;
echo "<p id=\"{$xSet}\"><strong>", $this->getVarTitle($var), "</strong>\n";
hiddenInput('VarX' . $dyn, $var);
if ($dyn > 1) {
radioInput('BoolX' . $dyn, 'AND');
echo "AND\n";
radioInput('BoolX' . $dyn, 'OR');
echo "OR\n";
}
if ($sql) {
$rX = $this->xQuery($sql, 1);
selectFromQuery($rX, 'SelX' . $dyn, $this->getQParmName($var, 'key'), '', $this->getQParmName($var, 'var'), '', '', '');
killResult($rX);
} else {
$arOpts = $this->getItemOpts($var);
if ($arOpts['dated']) {
$currTime = time();
$dayOfWeek = date('N', $t);
if ($dayOfWeek > 6) {
$dayOfWeek = 0;
}
$Sunday = $currTime - 24 * 3600 * $dayOfWeek;
$nextSunday = $currTime + (7 - $dayOfWeek) * 24 * 3600;
$Saturday = 6 * 24 * 3600 + $Sunday;
$nextSaturday = 6 * 24 * 3600 + $nextSunday;
$thisMonth = date('Y-m-01', $currTime) . '_' . date('Y-m-t', $currTime);
$thisWeek = date('Y-m-d', $Sunday) . '_' . date('Y-m-d', $Saturday);
$nextWeek = date('Y-m-d', $nextSunday) . '_' . date('Y-m-d', $nextSaturday);
$today = date('Y-m-d');
selectFromArray('SelX' . $dyn, array("__lt{$today}", "__eq{$today}", "__rg{$thisWeek}", "__rg{$nextWeek}", "__rg{$thisMonth}", "__gt{$today}"), '', array('Before today', 'Today', 'This week', 'Next week', 'This month', 'After today'), '', '', '');
} elseif ($arOpts['specify']) {
echo " like <input type=\"text\" id=\"SelX{$dyn}\" name =\"SelX{$dyn}\" size=\"16\" />\n";
} else {
selectFromArray('SelX' . $dyn, '', '', explode('\\t', $arOpts['values']), '', '', '');
}
}
echo "<span style=\"color: #600;\" onClick=\"removeOpt('{$dyn}');\" >Scratch</span>\n";
echo "</p>\n";
}
function radioButtonChain($name, $arr, $current, $stacked)
{
foreach ($arr as $k => $v) {
if ($k == $current) {
radioInputCk($name, $k);
} else {
radioInput($name, $k);
}
echo $v;
if ($stacked) {
echo "<br />";
}
echo "\n";
}
return 0;
}
