block.module 6.74 KB
Newer Older
Dries's avatar
 
Dries committed
1
<?php
Dries's avatar
 
Dries committed
2

Dries's avatar
 
Dries committed
3 4
function block_help() {
 ?>
Dries's avatar
 
Dries committed
5 6 7 8
  <P>Blocks are the boxes visible in the side bars on the left- and right-hand side of the website.  They are either exported by the engine or by any of the active modules.  To really get your teeth into a drupal website, you are going to have to deal with blocks and administering blocks in a fairly sophisticated fashion.  This means you will need to understand how the block placement strategy works.</P>
  <P>The placement of blocks is delegated to the administrator. In most cases (i.e., the "custom" blocks), the user has complete control -- using preferences -- over whether or not they are enabled.</P>
  <P>An administrator can lay out and arrange the available blocks to fit in two regions: "left" and "right".  Regions simply contain blocks.  In addition, an administrator can assign each block (within a region) a weight to sort them vertically.  The heavier blocks will sink and the lighter blocks will be positioned nearer the top.</P>
  <P>As mentioned, blocks may be arranged to fit in two regions: left and right.  For theme builders, each region is identified by a corresponding constant: "left" and "right".</P>
Dries's avatar
 
Dries committed
9
 <?php
Dries's avatar
 
Dries committed
10 11
}

Dries's avatar
 
Dries committed
12
function block_perm() {
Dries's avatar
 
Dries committed
13 14 15 16
  return array("administer blocks");
}

function block_link($type) {
Dries's avatar
Dries committed
17
  if ($type == "admin" && user_access("administer blocks")) {
Dries's avatar
 
Dries committed
18 19 20 21
    $links[] = "<a href=\"admin.php?mod=block\">blocks</a>";
  }

  return $links ? $links : array();
Dries's avatar
 
Dries committed
22 23
}

Dries's avatar
 
Dries committed
24 25
function block_admin_save($edit) {
  foreach ($edit as $key=>$value) {
Dries's avatar
 
Dries committed
26
    db_query("UPDATE blocks SET region = '". check_input($value[region]) ."', status = '". check_input($value[status]) ."', weight = '". check_input($value[weight]) ."' WHERE name = '". check_input($key) ."'");
Dries's avatar
 
Dries committed
27 28 29 30
  }
}

function block_admin_display() {
Dries's avatar
 
Dries committed
31
  $result = db_query("SELECT * FROM blocks ORDER BY module");
Dries's avatar
 
Dries committed
32

Dries's avatar
 
Dries committed
33 34 35
  // Generate output:
  $output .= "<FORM ACTION=\"admin.php?mod=block\" METHOD=\"post\">\n";
  $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"2\" CELLSPACING=\"2\">\n";
Dries's avatar
 
Dries committed
36
  $output .= " <TR><TH>block</TH><TH>module</TH><TH>status</TH><TH>weight</TH><TH>region</TH></TR>\n";
Dries's avatar
 
Dries committed
37

Dries's avatar
 
Dries committed
38
  while ($block = db_fetch_object($result)) {
Dries's avatar
 
Dries committed
39
    $module = module_hook($block->module, "admin") ? "<A HREF=\"admin.php?mod=$block->module\">$block->module</A>" : $block->module;
Dries's avatar
 
Dries committed
40

Dries's avatar
 
Dries committed
41
    $status .= "<SELECT NAME=\"edit[$block->name][status]\">\n";
Dries's avatar
 
Dries committed
42 43
    $status .= " <OPTION VALUE=\"2\"". (($block->status == 2) ? " SELECTED" : "") .">enabled: always</OPTION>\n";
    $status .= " <OPTION VALUE=\"1\"". (($block->status == 1) ? " SELECTED" : "") .">enabled: custom</OPTION>\n";
Dries's avatar
 
Dries committed
44 45 46
    $status .= " <OPTION VALUE=\"0\"". (($block->status == 0) ? " SELECTED" : "") .">disabled</OPTION>\n";
    $status .= "</SELECT>\n";

Dries's avatar
 
Dries committed
47 48 49 50 51 52 53 54 55 56 57 58
    $weight .= "<SELECT NAME=\"edit[$block->name][weight]\">\n";
    for ($count = 0; $count < 10; $count++) {
      $weight .= "<OPTION VALUE=\"$count\"". (($block->weight == $count) ? " SELECTED" : "") .">$count</OPTION>\n";
    }
    $weight .= "</SELECT>\n";

    $region .= "<SELECT NAME=\"edit[$block->name][region]\">\n";
    $region .= " <OPTION VALUE=\"0\"". (($block->region == 0) ? " SELECTED" : "") .">left</OPTION>\n";
    $region .= " <OPTION VALUE=\"1\"". (($block->region == 1) ? " SELECTED" : "") .">right</OPTION>\n";
    $region .= "</SELECT>\n";

    $output .= " <TR><TD>". $block->name ."</TD><TD ALIGN=\"center\">$module</TD><TD>$status</TD><TD>$weight</TD><TD>$region</TD></TR>\n";
Dries's avatar
 
Dries committed
59

Dries's avatar
 
Dries committed
60
    unset($status);
Dries's avatar
 
Dries committed
61 62
    unset($weight);
    unset($region);
Dries's avatar
 
Dries committed
63
  }
Dries's avatar
 
Dries committed
64

Dries's avatar
 
Dries committed
65 66 67 68 69 70 71
  $output .= "</TABLE>\n";
  $output .= "<INPUT NAME=\"op\" TYPE=\"submit\" VALUE=\"Save blocks\">\n";
  $output .= "</FORM>\n";

  print $output;
}

Dries's avatar
 
Dries committed
72
function block_admin_preview() {
Dries's avatar
 
Dries committed
73 74 75 76 77 78 79 80 81 82

  $result = db_query("SELECT * FROM blocks WHERE status > 0 AND region = 0 ORDER BY weight");
  $lblocks .= "<TABLE BORDER=\"0\" CELLPADDING=\"2\" CELLSPACING=\"2\">\n";
  while ($block = db_fetch_object($result)) $lblocks .= " <TR><TD NOWRAP>". ($block->status == 2 ? "<B>$block->name</B>" : $block->name) ."</TD><TD>$block->weight</TD></TR>\n";
  $lblocks .= "</TABLE>\n";

  $result = db_query("SELECT * FROM blocks WHERE status > 0 AND region = 1 ORDER BY weight");
  $rblocks .= "<TABLE BORDER=\"0\" CELLPADDING=\"2\" CELLSPACING=\"2\">\n";
  while ($block = db_fetch_object($result)) $rblocks .= " <TR><TD NOWRAP>". ($block->status == 2 ? "<B>$block->name</B>" : $block->name) ."</TD><TD>$block->weight</TD></TR>\n";
  $rblocks .= "</TABLE>\n";
Dries's avatar
 
Dries committed
83

Dries's avatar
 
Dries committed
84
  $output .= "<H3>layout scheme #1:</H3>\n";
Dries's avatar
 
Dries committed
85
  $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"2\" CELLSPACING=\"2\">\n";
Dries's avatar
 
Dries committed
86
  $output .= " <TR><TD ALIGN=\"center\" COLSPAN=\"3\">header</TD></TR>\n";
Dries's avatar
 
Dries committed
87
  $output .= " <TR><TD>\n". ($lblocks ? $lblocks : "&nbsp;") ."</TD><TD WIDTH=\"300\">&nbsp;</TD><TD>\n". ($rblocks ? $rblocks : "&nbsp;") ."</TD></TR>\n";
Dries's avatar
 
Dries committed
88
  $output .= " <TR><TD ALIGN=\"center\" COLSPAN=\"3\">footer</TD></TR>\n";
Dries's avatar
 
Dries committed
89 90 91 92 93 94 95
  $output .= "</TABLE>\n";

  $result = db_query("SELECT * FROM blocks WHERE status > 0 ORDER BY weight");
  $blocks .= "<TABLE BORDER=\"0\" CELLPADDING=\"2\" CELLSPACING=\"2\">\n";
  while ($block = db_fetch_object($result)) $blocks .= " <TR><TD NOWRAP>". ($block->status == 2 ? "<B>$block->name</B>" : $block->name) ."</TD><TD>$block->weight</TD></TR>\n";
  $blocks .= "</TABLE>\n";

Dries's avatar
 
Dries committed
96
  $output .= "<H3>layout scheme #2:</H3>\n";
Dries's avatar
 
Dries committed
97
  $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"2\" CELLSPACING=\"2\">\n";
Dries's avatar
 
Dries committed
98
  $output .= " <TR><TD ALIGN=\"center\" COLSPAN=\"2\">header</TD></TR>\n";
Dries's avatar
 
Dries committed
99
  $output .= " <TR><TD WIDTH=\"400\">&nbsp;</TD><TD>\n". ($blocks ? $blocks : "&nbsp;") ."</TD></TR>\n";
Dries's avatar
 
Dries committed
100
  $output .= " <TR><TD ALIGN=\"center\" COLSPAN=\"2\">footer</TD></TR>\n";
Dries's avatar
 
Dries committed
101 102
  $output .= "</TABLE>\n";

Dries's avatar
 
Dries committed
103
  $output .= "<H3>layout scheme #3:</H3>\n";
Dries's avatar
 
Dries committed
104
  $output .= "<TABLE BORDER=\"1\" CELLPADDING=\"2\" CELLSPACING=\"2\">\n";
Dries's avatar
 
Dries committed
105
  $output .= " <TR><TD ALIGN=\"center\" COLSPAN=\"2\">header</TD></TR>\n";
Dries's avatar
 
Dries committed
106
  $output .= " <TR><TD>\n". ($blocks ? $blocks : "&nbsp;") ."</TD><TD WIDTH=\"400\">&nbsp;</TD></TR>\n";
Dries's avatar
 
Dries committed
107
  $output .= " <TR><TD ALIGN=\"center\" COLSPAN=\"2\">footer</TD></TR>\n";
Dries's avatar
 
Dries committed
108 109 110 111 112
  $output .= "</TABLE>\n";

  print $output;
}

Dries's avatar
 
Dries committed
113 114 115 116 117 118 119 120 121 122 123
function block_init() {
  $result = db_query("SELECT * FROM modules");
  while ($module = db_fetch_object($result)) {
    module_rehash($module->name);
  }

  foreach (module_list() as $name) {
    module_rehash($name);
  }
}

Dries's avatar
 
Dries committed
124
function block_admin() {
Dries's avatar
 
Dries committed
125
  global $op, $edit;
Dries's avatar
 
Dries committed
126

Dries's avatar
 
Dries committed
127
  if (user_access("administer blocks")) {
Dries's avatar
 
Dries committed
128

Dries's avatar
 
Dries committed
129 130
    print "<SMALL><A HREF=\"admin.php?mod=block\">configure</A> | <A HREF=\"admin.php?mod=block&op=preview\">preview</A> | <A HREF=\"admin.php?mod=block&op=help\">help</A></SMALL><HR>\n";

Dries's avatar
 
Dries committed
131 132
    block_init();

Dries's avatar
 
Dries committed
133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148
    switch ($op) {
      case "help":
        block_help();
        break;
      case "preview":
        block_admin_preview();
        break;
      case "Save blocks":
        block_admin_save($edit);
        // fall through
      default:
        block_admin_display();
    }
  }
  else {
    print message_access();
Dries's avatar
 
Dries committed
149 150 151 152
  }
}

?>