function setMacros()
{
$this->trace(TC_Init, 'setMacros');
if (($this->fMacroBasarName = dbGetParam($this, Theme_All, Param_BasarName)) == '') {
$this->fMacroBasarName = 'InfoBasar';
}
$this->fMacroScriptBase = dbGetParam($this, Theme_All, Param_BaseModule);
dbReadMacros($this, Theme_All, TM_MacroPrefix . TM_StandardMacroPrefix, $this->fMacroReplacementKeys = array(), $this->fMacroReplacementValues = array());
dbReadMacros($this, $this->fUserTheme, TM_MacroPrefix . TM_ThemeMacroPrefix, $this->fMacroReplacementKeys, $this->fMacroReplacementValues);
$this->trace(TC_Init, 'setMacros: ' . count($this->fMacroReplacementKeys));
for ($ii = 0; $ii < count($this->fMacroReplacementKeys); $ii++) {
$this->trace(TC_Session3, $this->fMacroReplacementKeys[$ii] . ' -> ' . $this->fMacroReplacementValues[$ii]);
}
}
function dbGetAndStoreMacroPattern(&$session)
{
$session->trace(TC_Db2, 'dbGetAndStoreMacroPattern:');
$theme = $session->fUserTheme;
$pattern = dbGetParam($session, $theme, Th_MacroPattern);
if (empty($pattern)) {
$row = dbFirstRecord($session, 'select name from ' . dbTable($session, T_Macro) . ' where theme=' . Theme_All . ' or theme=' . ($theme + 0) . ' order by name');
$last_var = null;
$open_parenthesis = false;
while ($row) {
$pos = strpos($row[0], ':');
if ($pos <= 0) {
$val = $row[0];
$var = null;
} else {
$var = substr($row[0], 0, $pos + 1);
$val = substr($row[0], $pos + 1);
}
$session->trace(TC_Db3, 'dbGetAndStoreMacroPattern-2: ' . $pos . ' ' . $var . ' / ' . $val);
if ($var != $last_var) {
$session->trace(TC_Db2, 'dbGetAndStoreMacroPattern-3: ');
if ($open_parenthesis) {
$session->trace(TC_Db2, 'dbGetAndStoreMacroPattern-4: ');
$pattern .= ')';
$open_parenthesis = false;
}
$last_var = $var;
if (!empty($var)) {
$session->trace(TC_Db2, 'dbGetAndStoreMacroPattern-5: ' . $pattern);
$val = $var . '(' . $val;
$open_parenthesis = true;
}
}
$new = '|' . $val;
if (getPos($pattern, $new . '|') < 0) {
$pattern .= $new;
}
$row = dbNextRecord($session);
}
if ($open_parenthesis) {
$pattern .= ')';
}
$id = dbSingleValue($session, 'select id from ' . dbTable($session, T_Param) . ' where theme=' . (0 + $theme) . ' and pos=' . Th_MacroPattern);
if ($id > 0) {
dbUpdateRaw($session, T_Param, $id, 'text=' . dbSqlString($session, $pattern));
$session->trace(TC_Db1, "dbGetAndStoreMacroPattern: Id: {$id} Th: {$theme} P: {$pattern}");
}
}
return $pattern;
}
function baseInfo(&$session)
{
guiStandardHeader($session, 'Infobasar-Info', Th_InfoHeader, null);
guiParagraph($session, '(C) Hamatoma AT gmx DOT de 2004', 0);
echo '<table border="0"><tr><td><b>Gegenstand</b></td>';
echo '<td><b>Version</b></td></tr>' . "\n";
echo '<tr><td>PHP-Klasse:</td><td>';
echo PHP_ClassVersion;
echo '<tr><td>PHP-Basismodul:</td><td>';
echo PHP_ModuleVersion;
echo '</td></tr><tr><td>DB-Schema:</td><td>';
echo htmlentities(dbGetParam($session, Theme_All, Param_DBScheme));
echo '<tr><td>DB-Basisinhalt:</td><td>';
echo htmlentities(dbGetParam($session, Theme_All, Param_DBBaseContent));
echo '<tr><td>DB-Erweiterungen:</td><td>';
echo htmlentities(dbGetParam($session, Theme_All, Param_DBExtensions));
echo '</td></tr></table>' . "\n";
guiStandardBodyEnd($session, Th_InfoBodyEnd);
}