Method code for $page_bin_index._show_variables()

[Turn on line numbering]

---

arg obj;
var parent, out, v, s, n;

out = [];
for parent in (obj.data()) {
    if (valid(parent[1])) {
        out += [._make_string_to_display_href(parent[1]) + " variables:"];
        if (parent[1].has_flag('variables, this())) {
            for v in (parent[2]) {
                s = $data_lib.unparse_indent_html(v[2]);
                n = "  " + v[1] + ": ";
                s = [s[1]] + s.subrange(2).prefix(" ".pad(strlen(n)));
                out += [n].affix(s);
            }
        } else {
            out += ["  ** Permission Denied **"];
        }
    } else {
        out += [$object_lib.get_name(parent[1]) + " variables:"];
        for v in (parent[2]) {
            s = $data_lib.unparse_indent_html(v[2]);
            n = "  " + v[1] + ": ";
            s = [s[1]] + s.subrange(2).prefix(" ".pad(strlen(n)));
            out += [n].affix(s);
        }
    }
    refresh();
}
return out;

---

// Brad Roberts
// Bruce Mitchener, Jr.
// Created 16-May-1997 as a part of ColdCore, see: @help Credit