Skip to content

GitLab

Switch branch/tag
Find file Normal viewHistoryPermalink
theme.inc 5.99 KB
Newer Older
Dries's avatar
 
Dries committed
1 
<?php
Kjartan's avatar
- added the CVS keyword $Id$ to all files to make future version tracking  
Kjartan committed
2 
// $Id$
Dries's avatar
Huge update - I don't have time to write everything down but the directory  
Dries committed
3
Kjartan's avatar
Changes  
Kjartan committed
4 
class BaseTheme {
Dries's avatar
 
Dries committed
5
Steven Wittens's avatar
- Updated BaseTheme and the Drupal themes to have header($title = "") as the...  
Steven Wittens committed
6 
  function header($title = "") {
Dries's avatar
 
Dries committed
7 8 9 10 11 12 13 14 15 
    $output .= "<html><head><title>". variable_get(site_name, "drupal") ."</title></head><body>";
    $output .= "<table border=\"0\" cellspacing=\"4\" cellpadding=\"4\"><tr><td valign=\"top\" width=\"170\">";

    print $output;
    $this->box(t("Navigation"), implode("<br />", link_page())); $this->user("all", $this); theme_blocks("all", $this);
    print "</td><td valgin=\"top\">";

  }
Dries's avatar
 
Dries committed
16 17 
  function links($links, $delimiter = " | ") {
    return implode($delimiter, $links);
Dries's avatar
 
Dries committed
18 
  }
Dries's avatar
 
Dries committed
19
Dries's avatar
 
Dries committed
20 21 
  function image($name) {
    return "misc/$name";
Dries's avatar
 
Dries committed
22 
  }
Dries's avatar
 
Dries committed
23
Dries's avatar
 
Dries committed
24 
  function user($region) {
Dries's avatar
 
Dries committed
25 26 27 28 29 
    global $user;

    if ($user->uid) {
      // Display account settings:
Dries's avatar
 
Dries committed
30 
      $output .= "<div style=\"width: 125;\">\n";
Dries's avatar
 
Dries committed
31
Dries's avatar
 
Dries committed
32 33 34 
      foreach (module_list() as $name) {
        if (module_hook($name, "link")) {
          $links = module_invoke($name, "link", "menu");
Dries's avatar
 
Dries committed
35 36 37 
          foreach ($links as $link) {
            $output .= "$link<br />\n";
          }
Dries's avatar
 
Dries committed
38 39 40 41 
        }
      }

      if (user_access("access administration pages")) {
Dries's avatar
 
Dries committed
42 43 
        $output .= "<br />\n";
        $output .= "<a href=\"admin.php\">". strtr(t("administer %a"), array("%a" => variable_get("site_name", "drupal"))) ."</a><BR>\n";
Dries's avatar
 
Dries committed
44 45 
      }
Dries's avatar
 
Dries committed
46 47 
      $output .= "</div>";
Dries's avatar
 
Dries committed
48 
      $this->box($user->name, $output, $region);
Dries's avatar
 
Dries committed
49 50 51 52 53 54 
    }
    else {
      $output .= "<div align=\"center\">\n";
      $output .= " <form action=\"module.php?mod=user&op=login\" method=\"post\">\n";
      $output .= "  <b>". t("Username") .":</b><br /><input name=\"edit[name]\" size=\"15\"><p />\n";
      $output .= "  <b>". t("Password") .":</b><br /><input name=\"edit[pass]\" size=\"15\" TYPE=\"password\"><br />\n";
Dries's avatar
 
Dries committed
55 
      $output .= form_checkbox(t("Remember me"), "remember_me", 1, 0);
Dries's avatar
 
Dries committed
56 
      $output .= "  <input type=\"submit\" value=\"". t("Log in") ."\"><br />\n";
Dries's avatar
 
Dries committed
57 
      if (variable_get("account_register", 1)) $output .= "  <a href=\"module.php?mod=user\" title=\"". t("Create a new user account.") ."\">". t("REGISTER") ."</a>\n";
Dries's avatar
 
Dries committed
58 59 60 
      $output .= " </form>\n";
      $output .= "</div>\n";
Dries's avatar
 
Dries committed
61 62 63 64 65 66 67 68 69 70 71 
      $this->box(t("Log in"), $output, $region);
    }
  }

  function node($node, $main) {
    $output .= "<b>". check_output($node->title) ."</b> by ". format_name($node) ."<br />";
    if ($main && $node->teaser) {
      $output .= strip_tags(check_output($node->teaser, 1));
    }
    else {
      $output .= check_output($node->body, 1);
Dries's avatar
 
Dries committed
72 
    }
Kjartan's avatar
- modified node_save so that revisions are not validated using check_input,  
Kjartan committed
73 74 
    if ($links = link_node($node, $main)) {
      $output .= "<br />[ ". $this->links($links) ." ]";
Dries's avatar
 
Dries committed
75 76 77 78 
    }
    $output .= "<hr />";

    print $output;
Dries's avatar
 
Dries committed
79 80 
  }
Dries's avatar
 
Dries committed
81
Kjartan's avatar
comment.inc  
Kjartan committed
82 
  function comment_controls($threshold = 1, $mode = 3, $order = 1) {
Dries's avatar
 
Dries committed
83 
    return form_item(t("Comment viewing options"), comment_mode($mode) . comment_order($order) . comment_threshold($threshold) ." <input type=\"submit\" name=\"op\" value=\"". t("Update settings") ."\" />", t("Select your prefered way to display the comments and click 'Update settings' to active your changes."));
Kjartan's avatar
comment.inc  
Kjartan committed
84 85 
  }
Dries's avatar
 
Dries committed
86 87 88 89 90 91 92 93 94 95 96 97 
  function comment($comment, $link = 0) {
    $output .= "<a name=\"$comment->cid\"></a>";
    $output .= "<div style=\"border: 1px solid; padding: 10px;\">";
    $output .= "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">";
    $output .= " <tr><td><div style=\"font-size: 110%; font-weight: bold;\">". check_output($comment->subject) ."</div></td><td align=\"right\" rowspan=\"2\" valign=\"top\">". comment_moderation($comment) ."</td></tr>";
    $output .= " <tr><td><div style=\"margin-left: 10px; padding-bottom: 10px; font-size: 90%;\">". sprintf(t("by %s on %s"), format_name($comment), format_date($comment->timestamp)) ."</div></td></tr>";
    $output .= " <tr><td colspan=\"2\">". check_output($comment->comment, 1) ."</td></tr>";
    $output .= " <tr><td align=\"right\" colspan=\"2\">$link</td></tr>";
    $output .= "</table>";
    $output .= "</div><br />";
    print $output;
  }
Dries's avatar
 
Dries committed
98 99 100 101 102 103 104 105 106 107 108 109 

  function box($subject, $content, $region = "main") {
    $output .= "<b>". check_output($subject) ."</b><br />". check_output($content) ."<p />";
    print $output;
  }

  function footer() {
    $output .= "</td></tr></table>";
    $output .= "</body></html>";
    print $output;
  }
Kjartan's avatar
Changes  
Kjartan committed
110 111 
}
Dries's avatar
 
Dries committed
112 
function theme_init() {
Dries's avatar
 
Dries committed
113 114 115 
  global $user, $themes;

  if ($user->theme && file_exists($themes[$user->theme][0])) {
Dries's avatar
 
Dries committed
116 
    include_once $themes[$user->theme][0];
Dries's avatar
 
Dries committed
117 118 
  }
  else {
Dries's avatar
 
Dries committed
119 
    include_once $themes[variable_get("theme_default", key($themes))][0];
Dries's avatar
 
Dries committed
120 121 122 123 
  }
  return new Theme();
}
Dries's avatar
 
Dries committed
124 
function theme_blocks($region, &$theme) {
Kjartan's avatar
- added a path field to the blocks. Its a regexp to define which pages you  
Kjartan committed
125 
  global $id, $PHP_SELF, $REQUEST_URI, $user;
Dries's avatar
 
Dries committed
126
Dries's avatar
 
Dries committed
127 
  switch (strrchr($PHP_SELF, "/")) {
Dries's avatar
 
Dries committed
128 
    case "/node.php":
Dries's avatar
 
Dries committed
129 
      if ($region != "left") {
Dries's avatar
 
Dries committed
130 
        if ($user->uid) $node = db_fetch_object(db_query("SELECT * FROM node WHERE nid = '$id'"));
Dries's avatar
 
Dries committed
131 
        if ($node->moderate == 1) theme_moderation_results($theme, $node, $region);
Dries's avatar
 
Dries committed
132 
      }
Kjartan's avatar
- added a path field to the blocks. Its a regexp to define which pages you  
Kjartan committed
133 134 
    default:
      if ($user->uid) $result = db_query("SELECT * FROM blocks b LEFT JOIN layout l ON b.name = l.block WHERE (b.status = 2 OR (b.status = 1 AND l.uid = '$user->uid'))". (($region == "left" OR $region == "right") ? ($region == "left" ? " AND b.region = 0" : " AND b.region = 1") : "") ." AND (b.path = '' OR '". strrchr($REQUEST_URI, "/") ."' RLIKE b.path) ORDER BY weight");
Dries's avatar
 
Dries committed
135 
      else $result = db_query("SELECT * FROM blocks WHERE status = 2". (($region == "left" OR $region == "right") ? ($region == "left" ? " AND region = 0" : " AND region = 1") : "") ." ORDER BY weight");
Dries's avatar
 
Dries committed
136 
      while ($result && ($block = db_fetch_object($result))) {
Dries's avatar
 
Dries committed
137 
        $blocks = module_invoke($block->module, "block");
Kjartan's avatar
- blocks will now show up again if 'Enabled: always'  
Kjartan committed
138 
        if ($blocks[$block->delta]["content"])
Dries's avatar
 
Dries committed
139 
          $theme->box(t($blocks[$block->delta]["subject"]), $blocks[$block->delta]["content"], $region);
Dries's avatar
 
Dries committed
140 141 
      }
      break;
Dries's avatar
 
Dries committed
142 143 144 
  }
}
Dries's avatar
 
Dries committed
145 
function theme_moderation_results(&$theme, $node, $region) {
Dries's avatar
- Changed field_set(), field_get() and field_merge() to use ',' and  
Dries committed
146 
  foreach (explode(",", $node->users) as $vote) {
Dries's avatar
 
Dries committed
147 
    if ($vote) {
Dries's avatar
- Changed field_set(), field_get() and field_merge() to use ',' and  
Dries committed
148 
      $data = explode("=", $vote);
Dries's avatar
 
Dries committed
149 150 
      $account = user_load(array("uid" => $data[0]));
      $output .= format_name($account) ." voted '$data[1]'.<br />";
Dries's avatar
 
Dries committed
151 152 
    }
  }
Dries's avatar
 
Dries committed
153
Steven Wittens's avatar
Update of the box function in themes to allow a difference in...  
Steven Wittens committed
154 
  $theme->box(t("Moderation results"), ($output ? $output : t("This node has not been moderated yet.")), $region);
Dries's avatar
 
Dries committed
155 
}
Kjartan's avatar
- added a path field to the blocks. Its a regexp to define which pages you  
Kjartan committed
156
Dries's avatar
 
Dries committed
157 
?>