block.module 18.7 KB
Newer Older
Dries's avatar
 
Dries committed
1
<?php
2
// $Id$
Dries's avatar
 
Dries committed
3

Dries's avatar
 
Dries committed
4
function block_help($section = "admin/help#block") {
Dries's avatar
 
Dries committed
5 6 7
  $output = "";

  switch ($section) {
Dries's avatar
 
Dries committed
8
    case 'admin/help#block':
Dries's avatar
 
Dries committed
9 10 11 12
      $output .= "<p>Blocks are the boxes visible in the sidebar(s) of your web site. These are usually generated automatically by modules (e.g. recent forum topics), but you can also create your own blocks using either static HTML or dynamic PHP content.</p>";
      $output .= "<p>The sidebar each block appears in depends on both which theme you're using (some are left-only, some right, some both), and on the settings in block management.</p><p>Whether a block is visible in the first place depends on three things:</p><ul><li>It must have its \"enabled\" box checked in block management.</li><li>If it has its \"custom\" box checked in block management, the user must have chosen to display it in their user preferences.</li><li>If the \"path\" field in block management is set, the visitor must be on a page that matches the path specification (more on this later).</li></ul>";
      $output .= "<p>The block management screen also lets you specify the vertical sort-order of the blocks within a sidebar. You do this by assigning a <b>weight</b> to each block. Lighter blocks (smaller weight) \"float up\" towards the top of the sidebar. Heavier ones \"sink down\" towards the bottom of it. Once you've positioned things just so, you can preview what the layout will look like in different types of themes by clicking the preview placement link in the menu to the left.</p>";
      $output .= "<p>The path setting lets you define the pages on which a specific block is visable. If you leave the path blank it will appear on all pages. The path uses a regular expression syntax so remember to escape special characters!</p>";
Dries's avatar
 
Dries committed
13
      $output .= "<p>In case you do not know what a regular expression is, you should read about them in the PHP manual. The chapter to look at is the one on %pcre.</p>";
Dries's avatar
 
Dries committed
14
      $output .= "<p>However, for basic tasks it is sufficient to look at the following examples:</p>";
Dries's avatar
 
Dries committed
15
      $output .= "<p>If the block should only show up on blog pages, use &lt;/blog&gt;.  To display on all node views use &lt;/node/view&gt;.  The angular brackets are used as delimiters of the regular expression.  To show up on either forum or book pages use &lt;(/forum|/book)&gt;.  The round brackets form a group of expressions, divided by the | character. It matches if any of the expressions in it match.  A more complicated example is &lt;/node/add/(story|blog|image)&gt;. Blocks which have their paths set to this expression will show up on story, block, or image composition pages.  If you want to show a block an all pages, but not the search page, use &lt;(^/$|[^(search)$/]+)&gt;</p>";
Dries's avatar
 
Dries committed
16 17 18 19 20 21 22 23 24
      $output .= "<h3>Custom Blocks</h3>";
      $output .= "<p>A custom block contains admin-supplied HTML, text or PHP content (as opposed to being generated automatically by a module). Each custom block consists of a title, a description, and a body containing text, HTML, or PHP code which can be as long as you wish. The Drupal engine will 'render' the content of the custom block.</p>";
      $output .= "<h4>PHP in custom blocks</h4>";
      $output .= "<p>If you know how to script in PHP, Drupal gives you the power to embed any script you like inside a block. It will be executed when the page is viewed and dynamically embedded into the page. This gives you amazing flexibility and power, but of course with that comes danger and insecurity if you don't write good code. If you are not familiar with PHP, SQL or with the site engine, avoid experimenting with PHP custom blocks because you can corrupt your database or render your site insecure or even unusable! If you don't plan to do fancy stuff with custom blocks then you're probably better off with straight HTML.</p>";
      $output .= "<p>Remember that the code within each PHP custom block must be valid PHP code - including things like correctly terminating statements with a semicolon so that the parser won't die. It is highly recommended that you develop your cusom blocks separately using a simple test script on top of a test database before migrating to your production environment.</p>";
      $output .= "<p>Notes:</p><ul><li>You can use global variables, such as configuration parameters, within the scope of a PHP box but remember that variables which have been given values in a PHP box will retain these values in the engine or module afterwards.</li><li>register_globals is now set to <b>off</b> by default. If you need form information you need to get it from the \"superglobals\" \$_POST, \$_GET, etc.</li><li>You can use the <code>return</code> statement to return the actual content for your block as well.</li></ul>";
      $output .= "<p>A basic example:</p>";
      $output .= "<blockquote><p>You want to have a box with the title \"Welcome\" that you use to greet your visitors. The content for this box could be created by going:</p>";
      $output .= "<pre>
Dries's avatar
 
Dries committed
25 26
  return t(\"Welcome visitor, ... welcome message goes here ...\");
</pre>";
Dries's avatar
 
Dries committed
27 28
      $output .= "<p>If we are however dealing with a registered user, we can customize the message by using:</p>";
      $output .= "<pre>
Dries's avatar
 
Dries committed
29 30 31 32 33
  if (\$user->uid) {
    return t(\"Welcome \$user->name, ... welcome message goes here ...\");
  }
  else {
    return t(\"Welcome visitor, ... welcome message goes here ...\");
Dries's avatar
 
Dries committed
34
  }";
Dries's avatar
 
Dries committed
35 36
      $output .= "</pre></blockquote>";
      $output .= "<p>For more in-depth examples, we recommend that you check the existing boxes and use them as a starting point.</p>";
Dries's avatar
 
Dries committed
37
      $output = t($output, array("%pcre" => "<a href=\"http://php.net/pcre/\">". t("Perl-Compatible Regular Expressions (PCRE)") ."</a>"));
Dries's avatar
 
Dries committed
38
      break;
Dries's avatar
 
Dries committed
39
    case 'admin/system/modules#description':
Dries's avatar
 
Dries committed
40
      $output = t("Controls the boxes that are displayed around the main content.");
Dries's avatar
 
Dries committed
41
      break;
Dries's avatar
 
Dries committed
42
    case 'admin/system/block':
Dries's avatar
 
Dries committed
43
      $output = t("Blocks are the boxes in the left- and right- side bars of the web site, depending on the choosen theme.  They are created by <b>active</b> Drupal modules.  In order to view a block it must be enabled. You can assign the block's placement by giving it a region and a weight. The region specifies which side of the page the block is on, and the weight sorts blocks within a region. Lighter (smaller weight value) blocks \"float up\" towards the top of the page. The path setting lets you define which pages you want a block to be shown on. The custom checkbox lets your users hide the block using their account setting. You can also create your own blocks, where you specify the content of the block rather than its being generated by a module (you can even use PHP in these). You can create one of these by clicking the %createblock link in the menu to the left. Edit and delete links will become active below for these customized blocks.", array("%createblock" => l(t("new block"), "admin/system/block/add")));
Dries's avatar
 
Dries committed
44
      break;
Dries's avatar
 
Dries committed
45
    case 'admin/system/block/add':
Dries's avatar
 
Dries committed
46
      $output = t("Here you can create a custom content block. Once you have created this block you must make it active, and give it a place on the page using %overview. The title is used when displaying the block. The description is used in the \"block\" column on the %overview page. If you are going to place PHP code in the block, and you have <b>create php content</b> permission (see the %permission page) you <b>must</b> change the type to PHP to make your code active.", array("%overview" => l(t("blocks"), "admin/system/block"), "%permission" => l(t("permissions"), "admin/user/permission")));
Dries's avatar
 
Dries committed
47
      break;
Dries's avatar
 
Dries committed
48
    case 'admin/system/block/preview':
Dries's avatar
 
Dries committed
49
      $output = t("This page show you the placement of your blocks in different themes types. The numbers are the weight of each block, which is used to sort them within the sidebars.");
Dries's avatar
 
Dries committed
50 51
      break;
  }
52

Dries's avatar
 
Dries committed
53
  return $output;
Dries's avatar
 
Dries committed
54 55
}

Dries's avatar
 
Dries committed
56
function block_perm() {
Dries's avatar
 
Dries committed
57 58 59 60
  return array("administer blocks");
}

function block_link($type) {
Dries's avatar
 
Dries committed
61
  if ($type == "system" && user_access("administer blocks")) {
Dries's avatar
 
Dries committed
62

Dries's avatar
 
Dries committed
63 64 65 66
    menu("admin/system/block", t("blocks"), "block_admin", 3);
    menu("admin/system/block/add", t("new block"), "block_admin", 2);
    menu("admin/system/block/preview", t("preview placement"), "block_admin", 3);
    menu("admin/system/block/help", t("help"), "block_help", 9);
Dries's avatar
 
Dries committed
67
  }
Dries's avatar
 
Dries committed
68 69
}

Dries's avatar
 
Dries committed
70 71
function block_block($op = "list", $delta = 0) {
  if ($op == "list") {
Dries's avatar
 
Dries committed
72
    $result = db_query("SELECT bid, title, info FROM {boxes} ORDER BY title");
Dries's avatar
 
Dries committed
73
    while ($block = db_fetch_object($result)) {
Dries's avatar
 
Dries committed
74
      $blocks[$block->bid]["info"] = $block->info;
Dries's avatar
 
Dries committed
75 76 77 78
    }
    return $blocks;
  }
  else {
Dries's avatar
 
Dries committed
79
    $block = db_fetch_object(db_query("SELECT * FROM {boxes} WHERE bid = %d", $delta));
Dries's avatar
 
Dries committed
80
    $data["subject"] = $block->title;
Dries's avatar
 
Dries committed
81 82
    $data["content"] = ($block->type == 1) ? eval($block->body) : $block->body;
    return $data;
83 84 85
  }
}

Dries's avatar
 
Dries committed
86
function block_admin_save($edit) {
Dries's avatar
 
Dries committed
87 88
  foreach ($edit as $module => $blocks) {
    foreach ($blocks as $delta => $block) {
Dries's avatar
 
Dries committed
89
      db_query("UPDATE {blocks} SET region = %d, status = %d, custom = %d, path = '%s', weight = %d WHERE module = '%s' AND delta = '%s'",
Dries's avatar
 
Dries committed
90
                $block["region"], $block["status"], $block["custom"], $block["path"], $block["weight"], $module, $delta);
Dries's avatar
 
Dries committed
91
    }
Dries's avatar
 
Dries committed
92
  }
Dries's avatar
 
Dries committed
93

Dries's avatar
 
Dries committed
94
  return t("the block settings have been updated.");
Dries's avatar
 
Dries committed
95 96
}

Dries's avatar
 
Dries committed
97 98
/**
 * update blocks db table with blocks currently exported by modules
Dries's avatar
 
Dries committed
99
 *
Dries's avatar
 
Dries committed
100 101 102 103 104
 * @param   array   $order_by   php array_multisort() style sort ordering, eg. "weight", SORT_ASC, SORT_STRING. see {@link http://www.php.net/manual/en/function.array-multisort.php}
 * @return  array   blocks currently exported by modules, sorted by $order_by
 * @access  private
 */
function _block_rehash($order_by = array("weight")) {
Dries's avatar
 
Dries committed
105
  $result = db_query("SELECT * FROM {blocks} ");
Dries's avatar
 
Dries committed
106 107 108 109
  while ($old_block = db_fetch_object($result)) {
    $old_blocks[$old_block->module][$old_block->delta] = $old_block;
  }

Dries's avatar
 
Dries committed
110
  db_query("DELETE FROM {blocks} ");
Dries's avatar
 
Dries committed
111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130

  foreach (module_list() as $module) {
    $module_blocks = module_invoke($module, "block", "list");
    if ($module_blocks) {
      foreach ($module_blocks as $delta => $block) {
        $block["module"] = $module;
        $block["delta"]  = $delta;
        if ($old_blocks[$module][$delta]) {
          $block["status"] = $old_blocks[$module][$delta]->status;
          $block["weight"] = $old_blocks[$module][$delta]->weight;
          $block["region"] = $old_blocks[$module][$delta]->region;
          $block["path"]   = $old_blocks[$module][$delta]->path;
          $block["custom"] = $old_blocks[$module][$delta]->custom;
        }
        else {
          $block["status"] = $block["weight"] = $block["region"] = $block["custom"] = 0;
          $block["path"]   = "";
        }

        // reinsert blocks into table
Dries's avatar
 
Dries committed
131
        db_query("INSERT INTO {blocks} (module, delta, status, weight, region, path, custom) VALUES ('%s', '%s', %d, %d, %d, '%s', %d)",
Dries's avatar
 
Dries committed
132
                  $block["module"], $block["delta"], $block["status"], $block["weight"], $block["region"], $block["path"], $block["custom"]);
Dries's avatar
 
Dries committed
133 134

        $blocks[] = $block;
Dries's avatar
 
Dries committed
135

Dries's avatar
 
Dries committed
136 137
        // build array to sort on
        $order[$order_by[0]][] = $block[$order_by[0]];
Dries's avatar
 
Dries committed
138 139 140 141
      }
    }
  }

Dries's avatar
 
Dries committed
142 143 144
  // sort
  array_multisort($order[$order_by[0]], $order_by[1] ? $order_by[1] : SORT_ASC, $order_by[2] ? $order_by[2] : SORT_REGULAR, $blocks);

Dries's avatar
 
Dries committed
145 146
  return $blocks;
}
Dries's avatar
 
Dries committed
147

Dries's avatar
 
Dries committed
148
function block_admin_display() {
Dries's avatar
 
Dries committed
149

Dries's avatar
 
Dries committed
150
  $blocks = _block_rehash();
Dries's avatar
 
Dries committed
151

Dries's avatar
 
Dries committed
152
  $header = array(t("block"), t("enabled"), t("custom"), t("weight"), t("region"), t("path"), array("data" => t("operations"), "colspan" => 2));
Dries's avatar
 
Dries committed
153

Dries's avatar
 
Dries committed
154
  foreach ($blocks as $block) {
Dries's avatar
 
Dries committed
155
    if ($block["module"] == "block") {
Dries's avatar
 
Dries committed
156 157
      $edit = l(t("edit"), "admin/system/block/edit/". $block["delta"]);
      $delete = l(t("delete"), "admin/system/block/delete/". $block["delta"]);
158
    }
Dries's avatar
 
Dries committed
159 160 161 162
    else {
      $edit = "";
      $delete = "";
    }
Dries's avatar
 
Dries committed
163

Dries's avatar
 
Dries committed
164
    $rows[] = array($block["info"], array("data" => form_checkbox(NULL, $block["module"]."][".$block["delta"]."][status", 1, $block["status"]), "align" => "center"), array("data" => form_checkbox(NULL, $block["module"]."][".$block["delta"]."][custom", 1, $block["custom"]), "align" => "center"), form_weight(NULL, $block["module"]."][".$block["delta"]."][weight", $block["weight"]), form_select(NULL, $block["module"]."][".$block["delta"]."][region", $block["region"], array(t("left"), t("right"))), form_textfield(NULL, $block["module"]."][".$block["delta"]."][path", $block["path"], 10, 255), $edit, $delete);
Dries's avatar
 
Dries committed
165
  }
Dries's avatar
 
Dries committed
166

Dries's avatar
 
Dries committed
167
  $output = table($header, $rows);
Dries's avatar
 
Dries committed
168
  $output .= form_submit(t("Save blocks"));
Dries's avatar
 
Dries committed
169

Dries's avatar
 
Dries committed
170
  return form($output);
Dries's avatar
 
Dries committed
171 172
}

Dries's avatar
 
Dries committed
173
function block_admin_preview() {
Dries's avatar
 
Dries committed
174

Dries's avatar
 
Dries committed
175
  $result = db_query("SELECT * FROM {blocks} WHERE status > 0 AND region = 0 ORDER BY weight");
Dries's avatar
 
Dries committed
176
  $lblocks .= "<table border=\"0\" cellpadding=\"2\" cellspacing=\"2\">\n";
Dries's avatar
 
Dries committed
177 178 179
  while ($block = db_fetch_object($result)) {
    $block_data = module_invoke($block->module, "block", "list");
    $name = $block_data[$block->delta]["info"];
Dries's avatar
 
Dries committed
180
    $lblocks .= " <tr><td>". ($block->status == 2 ? "<b>$name</b>" : $name) ."</td><td>$block->weight</td></tr>\n";
Dries's avatar
 
Dries committed
181
  }
Dries's avatar
 
Dries committed
182
  $lblocks .= "</table>\n";
Dries's avatar
 
Dries committed
183

Dries's avatar
 
Dries committed
184
  $result = db_query("SELECT * FROM {blocks} WHERE status > 0 AND region = 1 ORDER BY weight");
Dries's avatar
 
Dries committed
185
  $rblocks .= "<table border=\"0\" cellpadding=\"2\" cellspacing=\"2\">\n";
Dries's avatar
 
Dries committed
186 187 188
  while ($block = db_fetch_object($result)) {
    $block_data = module_invoke($block->module, "block", "list");
    $name = $block_data[$block->delta]["info"];
Dries's avatar
 
Dries committed
189
    $rblocks .= " <tr><td>". ($block->status == 2 ? "<b>$name</b>" : $name) ."</td><td>$block->weight</td></tr>\n";
Dries's avatar
 
Dries committed
190
  }
Dries's avatar
 
Dries committed
191
  $rblocks .= "</table>\n";
Dries's avatar
 
Dries committed
192

Dries's avatar
 
Dries committed
193
  $output .= "<h3>". t("Themes with both left and right sidebars") .":</h3>\n";
Dries's avatar
 
Dries committed
194
  $output .= "<table border=\"1\" cellpadding=\"2\" cellspacing=\"2\">\n";
Dries's avatar
 
Dries committed
195
  $output .= " <tr><td colspan=\"3\" style=\"text-align: center;\">". t("header") ."</td></tr>\n";
Dries's avatar
 
Dries committed
196
  $output .= " <tr><td>\n". ($lblocks ? $lblocks : "&nbsp;") ."</td><td style=\"width: 300px;\">&nbsp;</td><td>\n". ($rblocks ? $rblocks : "&nbsp;") ."</td></tr>\n";
Dries's avatar
 
Dries committed
197
  $output .= " <tr><td colspan=\"3\" style=\"text-align: center;\">". t("footer") ."</td></tr>\n";
Dries's avatar
 
Dries committed
198
  $output .= "</table>\n";
Dries's avatar
 
Dries committed
199

Dries's avatar
 
Dries committed
200
  $result = db_query("SELECT * FROM {blocks} WHERE status > 0 ORDER BY weight");
Dries's avatar
 
Dries committed
201
  $blocks .= "<table border=\"0\" cellpadding=\"2\" cellspacing=\"2\">\n";
Dries's avatar
 
Dries committed
202 203 204
  while ($block = db_fetch_object($result)) {
    $block_data = module_invoke($block->module, "block", "list");
    $name = $block_data[$block->delta]["info"];
Dries's avatar
 
Dries committed
205
    $blocks .= " <tr><td>". ($block->status == 2 ? "<b>$name</b>" : $name) ."</td><td>$block->weight</td></tr>\n";
Dries's avatar
 
Dries committed
206
  }
Dries's avatar
 
Dries committed
207 208
  $blocks .= "</table>\n";

Dries's avatar
 
Dries committed
209
  $output .= "<h3>". t("Themes with right-sidebar only") .":</h3>\n";
Dries's avatar
 
Dries committed
210
  $output .= "<table border=\"1\" cellpadding=\"2\" cellspacing=\"2\">\n";
Dries's avatar
 
Dries committed
211
  $output .= " <tr><td colspan=\"2\" style=\"text-align: center;\">". t("header") ."</td></tr>\n";
Dries's avatar
 
Dries committed
212
  $output .= " <tr><td style=\"width: 400px;\">&nbsp;</td><td>\n". ($blocks ? $blocks : "&nbsp;") ."</td></tr>\n";
Dries's avatar
 
Dries committed
213
  $output .= " <tr><td colspan=\"2\" style=\"text-align: center;\">". t("footer") ."</td></tr>\n";
Dries's avatar
 
Dries committed
214 215
  $output .= "</table>\n";

Dries's avatar
 
Dries committed
216
  $output .= "<h3>". t("Themes with left-sidebar only") .":</h3>\n";
Dries's avatar
 
Dries committed
217
  $output .= "<table border=\"1\" cellpadding=\"2\" cellspacing=\"2\">\n";
Dries's avatar
 
Dries committed
218
  $output .= " <tr><td colspan=\"2\" style=\"text-align: center;\">". t("header") ."</td></tr>\n";
Dries's avatar
 
Dries committed
219
  $output .= " <tr><td>\n". ($blocks ? $blocks : "&nbsp;") ."</td><td style=\"width: 400px;\">&nbsp;</td></tr>\n";
Dries's avatar
 
Dries committed
220
  $output .= " <tr><td colspan=\"2\" style=\"text-align: center;\">". t("footer") ."</td></tr>\n";
Dries's avatar
 
Dries committed
221
  $output .= "</table>\n";
Dries's avatar
 
Dries committed
222

Dries's avatar
 
Dries committed
223
  return $output;
Dries's avatar
 
Dries committed
224 225
}

226
function block_box_get($bid) {
Dries's avatar
 
Dries committed
227
  return db_fetch_array(db_query("SELECT * FROM {boxes} WHERE bid = %d", $bid));
228 229 230
}

function block_box_form($edit = array()) {
Dries's avatar
 
Dries committed
231
  $type = array(0 => "HTML", 1 => "PHP");
232

Dries's avatar
 
Dries committed
233 234 235
  $form = form_textfield(t("Title"), "title", $edit["title"], 50, 64);
  $form .= form_textfield(t("Description"), "info", $edit["info"], 50, 64);
  $form .= form_textarea(t("Body"), "body", $edit["body"], 70, 10);
Kjartan's avatar
Kjartan committed
236
  if (user_access("create php content")) {
Dries's avatar
 
Dries committed
237
    $form .= form_select(t("Type"), "type", $edit["type"], $type);
Dries's avatar
 
Dries committed
238
  }
239 240 241 242 243

  if ($edit["bid"]) {
    $form .= form_hidden("bid", $edit["bid"]);
  }

Dries's avatar
 
Dries committed
244
  $form .= form_submit(t("Save block"));
245

Dries's avatar
 
Dries committed
246
  return form($form);
247 248 249
}

function block_box_save($edit) {
250
  if (!user_access("create php content")) {
Dries's avatar
 
Dries committed
251 252 253
    $edit["type"] = 0;
  }

254
  if ($edit["bid"]) {
Dries's avatar
 
Dries committed
255
    db_query("UPDATE {boxes} SET title = '%s', body = '%s', info = '%s', type = %d WHERE bid = %d", $edit["title"], $edit["body"], $edit["info"], $edit["type"], $edit["bid"]);
Dries's avatar
 
Dries committed
256
    return t("the block has been updated.");
257 258
  }
  else {
Dries's avatar
 
Dries committed
259
    db_query("INSERT INTO {boxes} (title, body, info, type) VALUES  ('%s', '%s', '%s', %d)", $edit["title"], $edit["body"], $edit["info"], $edit["type"]);
Dries's avatar
 
Dries committed
260
    return t("the new block has been added.");
261 262 263 264 265
  }
}

function block_box_delete($bid) {
  if ($bid) {
Dries's avatar
 
Dries committed
266
    db_query("DELETE FROM {boxes} WHERE bid = %d", $bid);
Dries's avatar
 
Dries committed
267
    return t("the block has been deleted.");
268 269 270
  }
}

Dries's avatar
 
Dries committed
271
function block_admin() {
Dries's avatar
 
Dries committed
272 273
  $op = $_POST["op"];
  $edit = $_POST["edit"];
Dries's avatar
 
Dries committed
274

Dries's avatar
 
Dries committed
275
  if (user_access("administer blocks")) {
Dries's avatar
 
Dries committed
276

Dries's avatar
 
Dries committed
277
    if (empty($op)) {
Dries's avatar
 
Dries committed
278
      $op = arg(3);
Dries's avatar
 
Dries committed
279 280
    }

Dries's avatar
 
Dries committed
281 282
    switch ($op) {
      case "preview":
Dries's avatar
 
Dries committed
283
        $output = block_admin_preview();
Dries's avatar
 
Dries committed
284
        break;
285
      case "add":
Dries's avatar
 
Dries committed
286
        $output = block_box_form();
287 288
        break;
      case "edit":
Dries's avatar
 
Dries committed
289
        $output = block_box_form(block_box_get(arg(4)));
290 291
        break;
      case "delete":
Dries's avatar
 
Dries committed
292
        $output = status(block_box_delete(arg(4)));
Dries's avatar
 
Dries committed
293
        cache_clear_all();
Dries's avatar
 
Dries committed
294
        $output .= block_admin_display();
295
        break;
Dries's avatar
 
Dries committed
296
      case t("Save block"):
Dries's avatar
 
Dries committed
297
        $output = status(block_box_save($edit));
Dries's avatar
 
Dries committed
298
        cache_clear_all();
Dries's avatar
 
Dries committed
299
        $output .= block_admin_display();
300
        break;
Dries's avatar
 
Dries committed
301
      case t("Save blocks"):
Dries's avatar
 
Dries committed
302
        $output = status(block_admin_save($edit));
Dries's avatar
 
Dries committed
303
        cache_clear_all();
Dries's avatar
 
Dries committed
304 305
        // fall through
      default:
Dries's avatar
 
Dries committed
306
        $output .= block_admin_display();
Dries's avatar
 
Dries committed
307
    }
Dries's avatar
 
Dries committed
308 309

    return $output;
Dries's avatar
 
Dries committed
310 311
  }
  else {
Dries's avatar
 
Dries committed
312
    return message_access();
Dries's avatar
 
Dries committed
313 314
  }
}
Dries's avatar
 
Dries committed
315

316 317
function block_user($type, &$edit, &$user) {
  switch ($type) {
318
    case "register_form":
Dries's avatar
 
Dries committed
319
      $result = db_query("SELECT * FROM {blocks} WHERE custom = %d ORDER BY module, delta", 1);
320 321

      while ($block = db_fetch_object($result)) {
Dries's avatar
 
Dries committed
322
        $form .= form_hidden("block][$block->module][$block->delta", $block->status);
323 324 325
      }

      return $form;
326
    case "edit_form":
Dries's avatar
 
Dries committed
327
      $result = db_query("SELECT * FROM {blocks} WHERE custom = %d ORDER BY module, delta", 1);
328 329

      while ($block = db_fetch_object($result)) {
Dries's avatar
 
Dries committed
330 331
        $data = module_invoke($block->module, "block", "list");
        if ($data[$block->delta]["info"]) {
Dries's avatar
 
Dries committed
332
          $form .= "<tr><td>". $data[$block->delta]["info"] ."</td><td>". form_checkbox(NULL, "block][$block->module][$block->delta", 1, $user->block[$block->module][$block->delta]) ."</td></tr>\n";
Kjartan's avatar
Kjartan committed
333 334 335 336
        }
      }

      if (isset($form)) {
Dries's avatar
 
Dries committed
337
        return form_item(t("Block configuration"), "<table border=\"0\" cellpadding=\"2\" cellspacing=\"2\">". $form ."</table>", t("Enable the blocks you would like to see displayed in the side bars."));
338
      }
Dries's avatar
 
Dries committed
339 340

      break;
341 342 343 344 345
    case "edit_validate":
      if (!$edit["block"]) {
        $edit["block"] = array();
      }
      return $edit;
346 347 348
  }
}

349
?>