function bt_r_tag($barr = NULL, $args = NULL)
{
global $wgScriptPath;
// load Style class implementing call.type
$no = 1;
$out = "";
$sty = "default";
$sty_src = "sty/" . $sty . ".php";
if (isset($args["style"])) {
$sty = bt_str($args["style"]);
$sty_src = "sty/" . $sty . ".php";
}
$dirname = dirname(__FILE__);
// basic access check
if (!is_readable($dirname . "/" . $sty_src)) {
return wfMsg("style_error") . ": " . $sty_src;
}
// hook general css
$bibtech_css = "Bibtech.css";
$bibtech_sty_css = "sty/" . $sty . ".css";
if (!is_readable($dirname . "/" . $bibtech_css)) {
return wfMsg("style_error") . " " . $bibtech_css;
} else {
$__url = $wgScriptPath . "/extensions/Bibtech/" . $bibtech_css;
$out .= '<link rel="stylesheet" type="text/css" href="' . $__url . '" />' . "\n";
}
// hook style css
if (is_readable($dirname . "/" . $bibtech_sty_css)) {
$__url = $wgScriptPath . "/extensions/Bibtech/" . $bibtech_sty_css;
$out .= '<link rel="stylesheet" type="text/css" href="' . $__url . '" />' . "\n";
}
// begin styling
require_once $sty_src;
// EXECUTE {begin.bib}
$out .= bt_r_tag_begin($args);
if ($barr == NULL) {
$out .= bt_r_frm_err(wfMsg("internal_err"));
} else {
// ITERATE {call.type$}
foreach ($barr as $ckey => $arr) {
$ckey = bt_str($ckey);
$out .= bt_r_entry_begin($ckey, $arr, $args);
$out .= bt_r_entry($ckey, $arr, $args);
$out .= bt_r_entry_end($ckey, $arr, $args);
}
}
// EXECUTE {end.bib}
$out .= bt_r_tag_end($args);
// finish styling
return $out;
}
function bt_r_entry_missing($arr)
{
return bt_r_frm_err(wfMsg("missing") . ": " . $arr["ckey"]);
}
