From 3b5c38061140bb4569779728d9ff119a5a3ed6cf Mon Sep 17 00:00:00 2001 From: Kjartan Mannes Date: Wed, 9 Jan 2002 14:35:40 +0000 Subject: Session - attempted to fixed crashes with the custom session handler. External SMTP library - added functionality to have Drupal not use the default PHP mail() function. For more info see: http://www.drupal.org/node.php?id=44 Note: for this to work all modules that send mails should use the Drupal function to send mail: user_mail($mail, $subject, $message, $header); Calendar - added an archive page which users can use to find archives instead of the good old block. Miscellaneous - fixed a "random" offset bug on module.inc that occurred on Windows. All of this needs more testing, and further suggestions are welcome. --- modules/calendar.module | 269 +++++++++++++++++++++++++++++------------------- 1 file changed, 165 insertions(+), 104 deletions(-) (limited to 'modules/calendar.module') diff --git a/modules/calendar.module b/modules/calendar.module index 3bf145714..f4aa10382 100644 --- a/modules/calendar.module +++ b/modules/calendar.module @@ -1,104 +1,165 @@ -date = (($date && $date <= $today) ? $date : $today); - } - - 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\n"; - $output .= "\n"; - $output .= " \n"; - - // Generate the days of the week: - $output .= " "; - $somesunday = mktime(0, 0, 0, 3, 20, 1994); - for ($i = 0; $i < 7; $i++) { - $output .= ""; - } - $output .= "\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 .= " \n"; - $first = 0; - } - - // Start every week on a new line: - if ($sday == 0) $output .= " \n"; - - // Print one cell: - $date = mktime(23, 59, 59, $month, $nday, $year); - if ($date == $this->date) $output .= " \n"; - else if ($date > $today) $output .= " \n"; - else $output .= " \n"; - - // Start every week on a new line: - if ($sday == 6) $output .= " \n"; - - // Update temporary variables: - $sday++; - $sday = $sday % 7; - $nday++; - } - - // Complete the calendar: - if ($sday) { - $end = 7 - $sday; - $output .= " \n \n"; - } - $output .= "
<   ". date("F Y", $this->date) ."   " . ($next <= $thislast ? ">" : ">") . "
" . substr(ucfirst(t(date("l", $somesunday + $i * 86400))), 0, 1) . "
 
$nday$nday$nday
 
\n\n"; - - // Return calendar: - return $output; - } -} - -function calendar_block() { - global $date; - - $calendar = new Calendar($date); - - $block[0]["subject"] = "Browse archives"; - $block[0]["content"] = $calendar->display(); - $block[0]["info"] = "Calendar to browse archives"; - - return $block; -} - -?> +date = (($date && $date <= $today) ? $date : $today); + } + + 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\n"; + $output .= "\n"; + $output .= " \n"; + + // Generate the days of the week: + $output .= " "; + $somesunday = mktime(0, 0, 0, 3, 20, 1994); + for ($i = 0; $i < 7; $i++) { + $output .= ""; + } + $output .= "\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 .= " \n"; + $first = 0; + } + + // Start every week on a new line: + if ($sday == 0) $output .= " \n"; + + // Print one cell: + $date = mktime(23, 59, 59, $month, $nday, $year); + if ($date == $this->date) $output .= " \n"; + else if ($date > $today) $output .= " \n"; + else $output .= " \n"; + + // Start every week on a new line: + if ($sday == 6) $output .= " \n"; + + // Update temporary variables: + $sday++; + $sday = $sday % 7; + $nday++; + } + + // Complete the calendar: + if ($sday) { + $end = 7 - $sday; + $output .= " \n \n"; + } + $output .= "
<   ". date("F Y", $this->date) ."   " . ($next <= $thislast ? ">" : ">") . "
" . substr(ucfirst(t(date("l", $somesunday + $i * 86400))), 0, 1) . "
 
$nday$nday$nday
 
\n\n"; + + // Return calendar: + return $output; + } +} + +function calendar_block() { + global $date; + + $calendar = new Calendar($date); + + $block[0]["subject"] = "Browse archives"; + $block[0]["content"] = $calendar->display(); + $block[0]["info"] = "Calendar to browse archives"; + + return $block; +} + +function calendar_link($type) { + if ($type == "page" && user_access("access content")) { + $links[] = "archives"; + } + + return $links ? $links : array(); +} + +function calendar_page() { + global $date, $theme, $op, $month, $year, $meta; + + $theme->header(); + + switch ($op) { + case t("Show"): + global $edit; + $date = mktime(0, 0, 0, $edit[month], $edit[day], $edit[year]); + // Fall though + default: + global $edit; + $years = array(2001 => 2001, 2002 => 2002, 2003 => 2003, 2004 => 2004, 2005 => 2005); + $months = array("-", t("January"), t("February"), t("March"), t("April"), t("May"), t("June"), t("July"), t("August"), t("September"), t("October"), t("November"), t("December")); + for ($i = 1; $i <= 31; $i++) $days[$i] = $i; + for ($i = 0; $i <= 23; $i++) $hours[$i] = $i < 10 ? "0$i" : $i; + for ($i = 0; $i <= 59; $i++) $minutes[$i] = $i < 10 ? "0$i" : $i; + + if ($edit[start]) { + $edit[year] = date("Y", $edit[start]); + $edit[month] = date("m", $edit[start]); + $edit[day] = date("d", $edit[start]); + }; + + $start = str_replace(":
", " ", form_select("", "year", ($edit[year] ? $edit[year] : date("Y")), $years) . form_select("", "month", ($edit[month] ? $edit[month] : date("m")), $months) . form_select("", "day", ($edit[day] ? $edit[day] : date("d")), $days) . form_submit(t("Show"))); + $start = str_replace("

", "", $start); + $start = str_replace("

\n", " ", $start); + $start = str_replace("", "", $start); + + $form = $start; + + $theme->box(t("Archives"), form($form)); + + if (user_access("access content")) { + // Fetch event nodes for the selected date, or current date if none selected. + $result = db_query("SELECT nid FROM node WHERE status = '1' AND created > ". ($date > 0 ? check_input($date) : time()) ." ORDER BY created LIMIT 30"); + if($result){ + while ($nid = db_fetch_object($result)) { + node_view(node_load(array("nid" => $nid->nid)), 1); + } + } + else { + $output .= t("Your search yielded no result."); + } + } + else { + $theme->box(t("Access denied"), message_access()); + } + } + + $theme->footer(); +} + +?> \ No newline at end of file -- cgit v1.2.3