blog.module 16 KB
Newer Older
Dries's avatar
 
Dries committed
1 2 3 4 5 6 7 8 9 10
<?php

class Blog {
  function Blog($blog) {
    global $user;

    $this = new Node($blog);
    $this->title = $blog[title];
    $this->body = $blog[body];
    $this->userid = $blog[userid] ? $blog[userid] : $user->userid;
Dries's avatar
 
Dries committed
11
    $this->timestamp = $blog[timestamp] ? $blog[timestamp] : time();
Dries's avatar
 
Dries committed
12 13 14 15 16 17 18 19 20 21 22 23 24
  }
}

function blog_help() {
 ?>
  <p>Drupal's blog module allows registered users to maintain an online blog or diary.  It provides easy-to-write and easy-to-read online diaries or journals that can be filled with daily thoughts, poetry, boneless blabber, spiritual theories, intimate details, valuable experiences, cynical rants, semi-coherent comments, writing experiments, artistic babblings, critics on current facts, fresh insights, diverse dreams, chronicles and mumbling madness available for public consumption.</p>
 <?php
}

function blog_perm() {
  return array("administer blogs", "access blogs", "post blogs");
}

Dries's avatar
 
Dries committed
25 26
function blog_status() {
  return array(dumped, posted);
Dries's avatar
 
Dries committed
27 28
}

Dries's avatar
 
Dries committed
29 30 31 32
function blog_summary($node) {
  return $node->body;
}

Dries's avatar
 
Dries committed
33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
function blog_feed_user($name = 0, $date = 0) {
  global $user;

  $name = check_input($name ? $name : $user->userid);
  $date = check_input($date ? $date : time());

  $result = db_query("SELECT n.nid, n.title, n.timestamp, b.body FROM blog b LEFT JOIN node n ON b.nid = n.nid LEFT JOIN users u ON n.author = u.id WHERE u.userid = '$name' AND n.timestamp > '". ($date - 2592000) ."' ORDER BY b.lid DESC LIMIT 15");
  while ($blog = db_fetch_object($result)) {
    $items .= format_rss_item($blog->title, path_uri() ."node.php?id=$blog->nid", $blog->body);
  }

  $output .= "<?xml version=\"1.0\" encoding=\"ISO-8859-1\" ?>\n";
  $output .= "<rss version=\"0.91\">\n";
  $output .= format_rss_channel("$name's blog", path_uri() ."module.php?mod=blog&op=view&name=". urlencode($name), "$name's blog", $items);
  $output .= "</rss>\n";

  print $output;

}

function blog_feed_last() {
  $result = db_query("SELECT n.nid, n.title, n.timestamp, b.body, u.userid FROM blog b LEFT JOIN node n ON b.nid = n.nid LEFT JOIN users u ON n.author = u.id ORDER BY b.lid DESC LIMIT 15");
  while ($blog = db_fetch_object($result)) {
    $items .= format_rss_item($blog->title, path_uri() ."module.php?mod=blog&op=view&name=". urlencode($blog->userid), $blog->body);
  }

  $output .= "<?xml version=\"1.0\" encoding=\"ISO-8859-1\" ?>\n";
  $output .= "<rss version=\"0.91\">\n";
  $output .= format_rss_channel(variable_get("site_name", "drupal") .": user blogs", path_uri() ."module.php?mod=blog", "Recently updated blogs.", $items);
  $output .= "</rss>\n";

  print $output;

}

Dries's avatar
 
Dries committed
68
function blog_page_user($name = 0, $date = 0) {
Dries's avatar
 
Dries committed
69 70
  global $theme, $user;

Dries's avatar
 
Dries committed
71 72
  $name = check_input($name ? $name : $user->userid);
  $date = check_input($date ? $date : time());
Dries's avatar
 
Dries committed
73

Dries's avatar
Dries committed
74
  $result = db_query("SELECT n.nid, n.timestamp, b.body FROM blog b LEFT JOIN node n ON b.nid = n.nid LEFT JOIN users u ON n.author = u.id WHERE u.userid = '$name' AND n.timestamp > '". ($date - 2592000) ."' ORDER BY b.lid DESC LIMIT 20");
Dries's avatar
 
Dries committed
75

Dries's avatar
 
Dries committed
76 77 78 79 80 81 82 83 84 85
  $output .= "<table border=\"0\" cellpadding=\"4\" cellspacing=\"4\">";
  while ($blog = db_fetch_object($result)) {
    if ($date != date("dny", $blog->timestamp)) {
      $date = date("dny", $blog->timestamp);
      if ($user->id && $user->userid == $name) {
        $links = array("<a href=\"submit.php?mod=blog&op=edit&id=$blog->nid\">". t("edit") ."</a>");
        $output .= "<tr><td><b>". format_date($blog->timestamp, custom, "d M Y") .":</b></td><td align=\"right\">". $theme->links($links) ."</td></tr>";
      }
      else {
        $output .= "<tr><td colspan=\"2\"><b>". format_date($blog->timestamp, custom, "d M Y") .":</b></td></tr>";
Dries's avatar
 
Dries committed
86 87
      }
    }
Dries's avatar
 
Dries committed
88
    $output .= "<tr><td colspan=\"2\" style=\"margin-left: 20px;\">". check_output($blog->body, 1) ."</td></tr>";
Dries's avatar
 
Dries committed
89
  }
Dries's avatar
 
Dries committed
90
  $output .= "</table>";
Dries's avatar
 
Dries committed
91
  $output .= "<a href=\"module.php?mod=blog&op=feed&name=". urlencode($name) ."\"><img src=\"". $theme->image("xml.gif") ."\" width=\"36\" height=\"14\" align=\"right\" border=\"0\" /></a>\n";
Dries's avatar
 
Dries committed
92 93

  $theme->box(strtr(t("%a's blog"), array("%a" => $name)), $output, "main");
Dries's avatar
 
Dries committed
94 95
}

Dries's avatar
Dries committed
96
function blog_page_last() {
Dries's avatar
 
Dries committed
97
  global $theme;
Dries's avatar
 
Dries committed
98

Dries's avatar
Dries committed
99
  $result = db_query("SELECT n.nid, n.title, n.timestamp, b.body, u.userid FROM blog b LEFT JOIN node n ON b.nid = n.nid LEFT JOIN users u ON n.author = u.id ORDER BY b.lid DESC LIMIT 20");
Dries's avatar
 
Dries committed
100

Dries's avatar
 
Dries committed
101
  $output .= "<table border=\"0\" cellpadding=\"4\" cellspacing=\"4\">";
Dries's avatar
 
Dries committed
102
  while ($blog = db_fetch_object($result)) {
Dries's avatar
 
Dries committed
103 104 105
    $links[] = "<a href=\"module.php?mod=blog&op=view&name=". urlencode($blog->userid) ."\">". strtr(t("%a's blog"), array("%a" => $blog->userid)) ."</a>";
    $links[] = "<a href=\"submit.php?mod=blog&type=blog&id=$blog->nid\">". t("blog") ."</a>";
    $links[] = "<a href=\"node.php?id=$blog->nid\">". t("discuss") ."</a>";
Dries's avatar
 
Dries committed
106

Dries's avatar
 
Dries committed
107
    $output .= "<tr><td><b>". check_output($blog->title) ."</b></td><td align=\"right\">". $theme->links($links) ."</td></tr>";
Dries's avatar
Dries committed
108
    $output .= "<tr><td colspan=\"2\"><div style=\"margin-left: 20px;\">". check_output($blog->body, 1) ."</div><br /></td></tr>";
Dries's avatar
 
Dries committed
109
    unset($links);
Dries's avatar
 
Dries committed
110
  }
Dries's avatar
 
Dries committed
111
  $output .= "</table>";
Dries's avatar
 
Dries committed
112
  $output .= "<a href=\"module.php?mod=blog&op=feed\"><img src=\"". $theme->image("xml.gif") ."\" width=\"36\" height=\"14\" align=\"right\" border=\"0\" /></a>\n";
Dries's avatar
 
Dries committed
113

Dries's avatar
 
Dries committed
114
  $theme->box(t("User blogs"), $output, "main");
Dries's avatar
 
Dries committed
115 116 117 118 119
}

function blog_remove($nid) {
  global $status, $user;

Dries's avatar
 
Dries committed
120 121 122 123 124
  $blog = node_get_object(array(nid => $nid, type => "blog"));

  if ($blog && $blog->author == $user->id) {
    node_save(array(nid => $nid), array(status => $status[dumped]));
    node_del(array(type => "blog", nid => $nid));
Dries's avatar
 
Dries committed
125 126 127
  }
}

Dries's avatar
 
Dries committed
128
function blog_view($node, $main = 0) {
Dries's avatar
 
Dries committed
129
  global $theme;
Dries's avatar
 
Dries committed
130

Dries's avatar
 
Dries committed
131
  $theme->node($node, $main);
Dries's avatar
 
Dries committed
132 133 134
}

function blog_form($edit = array()) {
Dries's avatar
 
Dries committed
135
  global $REQUEST_URI, $id, $mod, $type, $user, $theme;
Dries's avatar
 
Dries committed
136

Dries's avatar
 
Dries committed
137
  if ($user->id && (user_access("administer blogs") || user_access("post blogs"))) {
Dries's avatar
 
Dries committed
138
    if ($mod == "node" || $edit[type] == "blog") {
Dries's avatar
 
Dries committed
139
      // do nothing
Dries's avatar
 
Dries committed
140 141 142 143
    }
    else if ($type == "blog") {
      $item = node_get_object(array(type => "blog", nid => $id));
      $edit["title"] = $item->title;
Dries's avatar
 
Dries committed
144
      $edit["body"] = "<i>". $item->body ."</i> [<a href=\"module.php?mod=blog&name=". urlencode($item->userid) ."&date=$item->timestamp\">$item->userid</a>]";
Dries's avatar
 
Dries committed
145 146 147 148
    }
    else if ($type == "import") {
      $item = db_fetch_object(db_query("SELECT i.*, f.title as ftitle, f.link as flink FROM item i, feed f WHERE i.iid = '". check_input($id) ."' AND i.fid = f.fid"));
      $edit["title"] = $item->title;
Dries's avatar
 
Dries committed
149
      $edit["body"] = "<a href=\"$item->link\">$item->title</a> - <i>". check_output($item->description) ."</i> [<a href=\"$item->flink\">$item->ftitle</a>]\n";
Dries's avatar
 
Dries committed
150
    }
Dries's avatar
 
Dries committed
151

Dries's avatar
 
Dries committed
152
    if ($edit["title"]) {
Dries's avatar
 
Dries committed
153 154
      $form .= blog_view(new Blog(node_preview($edit)));
    }
Dries's avatar
 
Dries committed
155

Dries's avatar
 
Dries committed
156 157 158 159
    $form .= form_textfield(t("Subject"), "title", $edit["title"], 50, 64);
    $form .= form_textarea(t("Body"), "body", $edit["body"], 70, 15, t("Allowed HTML tags") .": ". htmlspecialchars(variable_get("allowed_html", "")));

    $form .= form_hidden("type", "blog");
Dries's avatar
 
Dries committed
160

Dries's avatar
 
Dries committed
161 162 163
    if ($edit["nid"] > 0) {
      $form .= form_hidden("nid", $edit["nid"]);
    }
Dries's avatar
 
Dries committed
164

Dries's avatar
 
Dries committed
165 166 167 168
    if (!$edit) {
      $form .= form_submit(t("Preview"));
    }
    else if ($edit && !$edit["title"]) {
Dries's avatar
 
Dries committed
169 170 171 172 173 174 175 176 177 178 179
      $form .= "<font color=\"red\">". t("Warning: you did not supply a subject.") ."</font><p>\n";
      $form .= form_submit(t("Preview"));
    }
    else if ($edit && !$edit["body"]) {
      $form .= "<font color=\"red\">". t("Warning: you did not supply any text.") ."</font><p>\n";
      $form .= form_submit(t("Preview"));
    }
    else {
      $form .= form_submit(t("Preview"));
      $form .= form_submit(t("Submit"));
    }
Dries's avatar
 
Dries committed
180

Dries's avatar
 
Dries committed
181
    return form($REQUEST_URI, $form);
Dries's avatar
 
Dries committed
182 183
  }
  else {
Dries's avatar
 
Dries committed
184
    return message_access();
Dries's avatar
 
Dries committed
185 186 187 188 189 190
  }
}

function blog_save($edit) {
  global $status, $user;

Dries's avatar
 
Dries committed
191
  if ($user->id && (user_access("administer blogs") || user_access("post blogs"))) {
Dries's avatar
 
Dries committed
192 193
    if ($edit["nid"]) {
      node_save($edit, array(title, body, type => "blog"));
Dries's avatar
 
Dries committed
194 195
    }
    else {
Dries's avatar
 
Dries committed
196
      node_save($edit, array(attributes => node_attributes_save("blog", $edit), author => $user->id, body, comment => variable_get("blog_comment", 0), moderate => variable_get("blog_moderate", ""), promote => variable_get("blog_promote", 0), score => 0, status => variable_get("blog_status", $status[posted]), timestamp => time(), title, type => "blog", votes => 0));
Dries's avatar
 
Dries committed
197
    }
Dries's avatar
 
Dries committed
198 199 200 201 202 203
  }
}

function blog_edit_history($nid) {
  global $user;

Dries's avatar
 
Dries committed
204
  $result = db_query("SELECT n.nid, n.title, n.timestamp, b.body FROM blog b LEFT JOIN node n ON b.nid = n.nid WHERE n.author = '". check_input($user->id) ."' AND n.nid <= '". check_input($nid) ."' ORDER BY b.lid DESC LIMIT 15");
Dries's avatar
 
Dries committed
205 206 207 208 209 210 211 212 213 214 215

  $output .= "<table cellpadding=\"3\" cellspacing=\"3\" border=\"0\" width=\"100%\">";
  while ($blog = db_fetch_object($result)) {
    $output .= "<tr><td><b>". check_output($blog->title) ."</b><br />". check_output($blog->body, 1) ."</td><td><a href=\"submit.php?mod=blog&op=edit&id=$blog->nid\">". t("edit") ."</a></td><td><a href=\"submit.php?mod=blog&op=delete&id=$blog->nid\">". t("delete") ."</a></td></tr>\n";
  }
  $output .= "</table>";

  return $output;
}

function blog_page() {
Dries's avatar
Dries committed
216 217
  global $theme, $op, $name, $date;

Dries's avatar
 
Dries committed
218 219

  if (user_access("access blogs")) {
Dries's avatar
 
Dries committed
220 221 222 223 224 225 226 227 228 229
    switch ($op) {
      case "feed":
        if ($name) {
          blog_feed_user($name, $date);
        }
        else {
          blog_feed_last();
        }
        break;
      default:
Dries's avatar
Dries committed
230
        $theme->header();
Dries's avatar
 
Dries committed
231 232 233 234 235 236
        if ($name) {
          blog_page_user($name, $date);
        }
        else {
          blog_page_last();
        }
Dries's avatar
Dries committed
237
        $theme->footer();
Dries's avatar
 
Dries committed
238 239
    }
  }
Dries's avatar
 
Dries committed
240
  else {
Dries's avatar
Dries committed
241
    $theme->header();
Dries's avatar
Dries committed
242
    $theme->box(t("Access denied"), message_access());
Dries's avatar
Dries committed
243
    $theme->footer();
Dries's avatar
 
Dries committed
244
  }
Dries's avatar
Dries committed
245

Dries's avatar
 
Dries committed
246 247 248
}

function blog_user() {
Dries's avatar
 
Dries committed
249
  global $op, $id, $edit, $theme, $user;
Dries's avatar
 
Dries committed
250 251 252 253 254

  if (user_access("post blogs")) {
    switch ($op) {
      case "delete":
        blog_remove($id);
Dries's avatar
 
Dries committed
255
        blog_page_user($user->userid, time());
Dries's avatar
 
Dries committed
256 257
        break;
      case "edit":
Dries's avatar
 
Dries committed
258 259
        $theme->box(t("Submit a blog"), blog_form(node_get_array(array("nid" => $id, "type" => "blog"))), "main");
        $theme->box(t("Older blogs"), blog_edit_history($id), "main");
Dries's avatar
 
Dries committed
260 261
        break;
      case t("Preview"):
Dries's avatar
 
Dries committed
262
        $theme->box(t("Preview Blog"), blog_form($edit), "main");
Dries's avatar
 
Dries committed
263 264 265
        break;
      case t("Submit"):
        blog_save($edit);
Dries's avatar
 
Dries committed
266
        blog_page_user($user->userid, time());
Dries's avatar
 
Dries committed
267 268
        break;
      default:
Dries's avatar
 
Dries committed
269
        $theme->box(t("Submit a blog"), blog_form($edit), "main");
Dries's avatar
 
Dries committed
270 271 272 273 274
    }
  }
}


Dries's avatar
 
Dries committed
275
function blog_link($type, $node = 0) {
Dries's avatar
 
Dries committed
276 277 278
  global $user;

  if ($type == "page" && user_access("access blogs")) {
Dries's avatar
 
Dries committed
279
    $links[] = "<a href=\"module.php?mod=blog\">". t("user blogs") ."</a>";
Dries's avatar
 
Dries committed
280 281 282
  }

  if ($type == "menu" && user_access("post blogs")) {
Dries's avatar
 
Dries committed
283
    $links[] = "<a href=\"submit.php?mod=blog\">". t("add blog entry") ."</a>";
Dries's avatar
 
Dries committed
284
    $links[] = "<a href=\"module.php?mod=blog&op=view&name=". urlencode($user->userid) ."\">". t("view your blog") ."</a>";
Dries's avatar
 
Dries committed
285 286
  }

Dries's avatar
 
Dries committed
287
  if ($type == "node" && $node->type == "blog") {
Dries's avatar
 
Dries committed
288 289 290
    $links[] = "<a href=\"module.php?mod=blog&op=view&name=". urlencode($node->userid) ."\">". strtr(t("%a's blog"), array("%a" => $node->userid)) ."</a>";
  }

Dries's avatar
 
Dries committed
291 292 293 294 295 296 297 298 299 300 301 302
  return $links ? $links : array();
}


function blog_block() {
  global $name, $date, $user, $mod;

  $result = db_query("SELECT u.userid, n.timestamp, n.title, n.nid FROM node n LEFT JOIN users u ON n.author = u.id WHERE n.type = 'blog' ORDER BY n.nid DESC LIMIT 10");
  while ($node = db_fetch_object($result)) {
    $output .= "<a href=\"module.php?mod=blog&op=view&name=". urlencode($node->userid) ."\">". check_output($node->title) ."<br />\n";
  }

Dries's avatar
 
Dries committed
303
  $block[0]["subject"] = "<a href=\"module.php?mod=blog\">". t("User blogs") ."</a>";
Dries's avatar
 
Dries committed
304
  $block[0]["content"] = $output;
Dries's avatar
 
Dries committed
305
  $block[0]["info"] = t("User blogs");
Dries's avatar
 
Dries committed
306 307
  $block[0]["link"] = "module.php?mod=blog";

Kjartan's avatar
Kjartan committed
308
  $date = $date ? $date : time();
Dries's avatar
 
Dries committed
309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424
  $userid = $name ? $name : $user->userid;

  if (($mod == "blog") || ($mod == "block")) {
       // Only show this block on "blog pages" and in the admin block section.
    $calendar = new BlogCalendar($userid, $date);
    $block[1]["subject"] = "<a href=\"module.php?mod=blog&name=". urlencode($userid) ."\">" . t("Browse blog") . "</a>";
    $block[1]["content"] = $calendar->display();
    $block[1]["info"] = t("Calendar to browse blogs");
  }

  return $block;
}


function blog_search($keys) {
  global $status, $user;
  $result = db_query("SELECT n.*, b.* FROM blog b LEFT JOIN node n ON n.nid = b.nid AND n.lid = b.lid WHERE (n.title LIKE '%$keys%' OR b.body LIKE '%$keys%') ORDER BY n.timestamp DESC LIMIT 20");
  while ($blog = db_fetch_object($result)) {
    $find[$i++] = array("title" => check_output($blog->title), "link" => (user_access("administer nodes") ? "admin.php?mod=node&type=blog&op=edit&id=$blog->nid" : "node.php?id=$blog->nid"), "user" => $blog->userid, "date" => $blog->timestamp);
  }
  return $find;
}

class BlogCalendar {
  var $date;
  var $userid;

  function BlogCalendar($userid, $date) {
    $this->userid = urlencode($userid);

    // Prevent future dates:
    $today = mktime(23, 59, 59, date("n", time()), date("d", time()), date("Y", time()));
    $this->date = (($date && $date <= $today) ? $date : $today);
    $this->date = mktime(23, 59, 59, date("n", $this->date), date("d", $this->date), date("Y", $this->date));
  }

  function display() {
    // Extract information from the given date:
    $month  = date("n", $this->date);
    $year = date("Y", $this->date);
    $day = date("d", $this->date);

    // Extract today's date:
    $today = mktime(23, 59, 59, date("n", time()), date("d", time()), date("Y", time()));

    // Extract the timestamp of the last day of today's month:
    $thislast = mktime(23, 59, 59, date("n", time()), date("t", time()), date("Y", time()));

    // Extract first day of the month:
    $first = date("w", mktime(0, 0, 0, $month, 1, $year));

    // Extract last day of the month:
    $last = date("t", mktime(0, 0, 0, $month, 1, $year));

    // Calculate previous and next months dates and check for shorter months (28/30 days)
    $prevmonth = mktime(23, 59, 59, $month - 1, 1, $year);
    $prev = mktime(23, 59, 59, $month - 1, min(date("t", $prevmonth), $day), $year);
    $nextmonth = mktime(23, 59, 59, $month + 1, 1, $year);
    $next = mktime(23, 59, 59, $month + 1, min(date("t", $nextmonth), $day), $year);

    // Generate calendar header:
    $output .= "\n<!-- calendar -->\n";
    $output .= "<TABLE WIDTH=\"100%\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"1\">\n";
    $output .= " <TR><TD ALIGN=\"center\" COLSPAN=\"7\"><B><A HREF=\"module.php?mod=blog&name=$this->userid&date=$prev\" STYLE=\"text-decoration: none;\">&lt;&lt;</A> &nbsp; ". date("F Y", $this->date) ." &nbsp; " . ($next <= $thislast ? "<A HREF=\"module.php?mod=blog&name=$this->userid&date=$next\" STYLE=\"text-decoration: none;\">&gt;&gt;</A>" : "&gt;&gt;") . "<B></TD></TR>\n";

    // Generate the days of the week:
    $output .= " <TR>";
    $somesunday = mktime(0, 0, 0, 3, 20, 1994);
    for ($i = 0; $i < 7; $i++) {
      $output .= "<TD ALIGN=\"center\">" . substr(ucfirst(t(date("l", $somesunday + $i * 86400))), 0, 1) . "</TD>";
    }
    $output .= "</TR>\n";

    // Initialize temporary variables:
    $nday = 1;
    $sday = $first;

    // Loop through all the days of the month:
    while ($nday <= $last) {
      // Set up blank days for first week of the month:
      if ($first) {
        $output .= " <TR><TD COLSPAN=\"$first\">&nbsp</TD>\n";
        $first = 0;
      }

      // Start every week on a new line:
      if ($sday == 0) $output .=  " <TR>\n";

      // Print one cell:
      $date = mktime(23, 59, 59, $month, $nday, $year);
      if ($date == $this->date) $output .= "  <TD ALIGN=\"center\" BGCOLOR=\"#CCCCCC\"><B>$nday</B></TD>\n";
      else if ($date > $today) $output .= "  <TD ALIGN=\"center\">$nday</TD>\n";
      else $output .= "  <TD ALIGN=\"center\"><A HREF=\"module.php?mod=blog&name=$this->userid&date=$date\" STYLE=\"text-decoration: none;\">$nday</A></TD>\n";

      // Start every week on a new line:
      if ($sday == 6) $output .=  " </TR>\n";

      // Update temporary variables:
      $sday++;
      $sday = $sday % 7;
      $nday++;
    }

    // Complete the calendar:
    if ($sday) {
      $end = 7 - $sday;
      $output .= "  <TD COLSPAN=\"$end\">&nbsp;</TD>\n </TR>\n";
    }
    $output .= "</TABLE>\n\n";

    // Return calendar:
    return $output;
  }
}

?>