Method code for $page_bin_index._show_variables()

[Turn off line numbering]

---

  1: arg obj;
  2: var parent, out, v, s, n;
  3: 
  4: out = [];
  5: for parent in (obj.data()) {
  6:     if (valid(parent[1])) {
  7:         out += [._make_string_to_display_href(parent[1]) + " variables:"];
  8:         if (parent[1].has_flag('variables, this())) {
  9:             for v in (parent[2]) {
 10:                 s = $data_lib.unparse_indent_html(v[2]);
 11:                 n = "  " + v[1] + ": ";
 12:                 s = [s[1]] + s.subrange(2).prefix(" ".pad(strlen(n)));
 13:                 out += [n].affix(s);
 14:             }
 15:         } else {
 16:             out += ["  ** Permission Denied **"];
 17:         }
 18:     } else {
 19:         out += [$object_lib.get_name(parent[1]) + " variables:"];
 20:         for v in (parent[2]) {
 21:             s = $data_lib.unparse_indent_html(v[2]);
 22:             n = "  " + v[1] + ": ";
 23:             s = [s[1]] + s.subrange(2).prefix(" ".pad(strlen(n)));
 24:             out += [n].affix(s);
 25:         }
 26:     }
 27:     refresh();
 28: }
 29: return out;

---

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