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

Dries's avatar
 
Dries committed
4 5 6 7
function archive_help($section) {
  $output = "";

  switch ($section) {
Dries's avatar
 
Dries committed
8
    case 'admin/system/modules#description':
Dries's avatar
 
Dries committed
9
      $output = t("Displays a calendar to navigate old content.");
Dries's avatar
 
Dries committed
10 11
      break;
    case 'admin/system/modules/archive':
Dries's avatar
 
Dries committed
12
      $output = t("Choose the starting \"day of the week\" for the displayed calendar block.");
Dries's avatar
 
Dries committed
13 14 15
      break;
  }

Dries's avatar
 
Dries committed
16
  return $output;
Dries's avatar
 
Dries committed
17
}
18

Dries's avatar
 
Dries committed
19
function archive_calendar($original = 0) {
Dries's avatar
 
Dries committed
20
  global $user;
Dries's avatar
 
Dries committed
21
  $edit = $_POST["edit"];
Dries's avatar
 
Dries committed
22

Dries's avatar
 
Dries committed
23
  // Extract today's date:
Dries's avatar
 
Dries committed
24 25 26
  $offset = time() + $user->timezone;
  $start_of_today = mktime(0, 0, 0, date("n", $offset), date("d", $offset), date("Y", $offset)) + $user->timezone;
  $end_of_today = mktime(23, 59, 59, date("n", $offset), date("d", $offset), date("Y", $offset)) + $user->timezone;
Dries's avatar
 
Dries committed
27

Dries's avatar
 
Dries committed
28
  // Extract the requested date:
Dries's avatar
 
Dries committed
29 30 31 32 33
  if ($edit["year"] && $edit["month"] && $edit["day"]) {
    $year = $edit["year"];
    $month = $edit["month"];
    $day = $edit["day"];

Dries's avatar
 
Dries committed
34
    $requested = mktime(0, 0, 0, $month, $day, $year) + $user->timezone;
Dries's avatar
 
Dries committed
35 36
  }
  else if (arg(0) == "archive" && arg(3)) {
Dries's avatar
 
Dries committed
37 38 39
    $year = arg(1);
    $month = arg(2);
    $day = arg(3);
Dries's avatar
 
Dries committed
40

Dries's avatar
 
Dries committed
41
    $requested = mktime(0, 0, 0, $month, $day, $year) + $user->timezone;
Dries's avatar
 
Dries committed
42 43 44 45 46
  }
  else {
    $year = date("Y", time());
    $month  = date("n", time());
    $day = date("d", time());
Dries's avatar
 
Dries committed
47

Dries's avatar
 
Dries committed
48
    $requested = $end_of_today + $user->timezone;
Dries's avatar
 
Dries committed
49
  }
Dries's avatar
 
Dries committed
50

Dries's avatar
 
Dries committed
51 52
  $start_of_month = mktime(0, 0, 0, $month, 1, $year);

Dries's avatar
 
Dries committed
53
  // Extract first day of the month:
Dries's avatar
 
Dries committed
54
  $first = date("w", $start_of_month);
Dries's avatar
 
Dries committed
55 56

  // Extract last day of the month:
Dries's avatar
 
Dries committed
57 58
  $last = date("t", $start_of_month);

Dries's avatar
 
Dries committed
59
  $end_of_month = mktime(23, 59, 59, $month, $last, $year);
Dries's avatar
 
Dries committed
60 61 62 63 64 65

  $cache = cache_get("archive:calendar:$start_of_month");

  if (!empty($cache)) {
    return $cache->data;
  }
Dries's avatar
 
Dries committed
66 67 68 69 70 71 72

  // 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);

Dries's avatar
 
Dries committed
73

Dries's avatar
 
Dries committed
74
  $result = db_query("SELECT created FROM {node} WHERE status = 1 AND created > $start_of_month AND created < $end_of_month");
Dries's avatar
 
Dries committed
75 76 77

  $days_with_posts = array();
  while ($day_with_post = db_fetch_object($result)) {
Dries's avatar
 
Dries committed
78
    $days_with_posts[] = date("j", $day_with_post->created + $user->timezone);
Dries's avatar
 
Dries committed
79 80 81
  }
  $days_with_posts = array_unique($days_with_posts);

Dries's avatar
 
Dries committed
82 83
  // Generate calendar header:
  $output .= "\n<!-- calendar -->\n";
Dries's avatar
 
Dries committed
84
  $output .= "<div class=\"calendar\">";
Dries's avatar
 
Dries committed
85
  $output .= "<table>\n";
86
  $output .= " <tr><td colspan=\"7\" class=\"header-month\">". l("&laquo;", "archive/". date("Y/m/d", $prev)) ." ". t(date("F", $requested)) . date(" Y", $requested) ." ". ($nextmonth <= time() ? l("&raquo;", "archive/". date("Y/m/d", $next)) : "&nbsp;") ."</td></tr>\n";
Dries's avatar
 
Dries committed
87 88 89 90 91

  // First day of week (0 => Sunday, 1 => Monday, ...)
  $weekstart = variable_get("default_firstday", 0);

  // Last day of week
Dries's avatar
 
Dries committed
92
  ($weekstart - 1 == -1) ? $lastday = 6 : $lastday = $weekstart - 1;
Dries's avatar
 
Dries committed
93 94

  // Generate the days of the week:
Dries's avatar
 
Dries committed
95
  $firstcolumn = mktime(0, 0, 0, 3, 20 + $weekstart, 1994);
Dries's avatar
 
Dries committed
96

Dries's avatar
 
Dries committed
97
  $output .= " <tr class=\"header-week\">";
Dries's avatar
 
Dries committed
98
  for ($i = 0; $i < 7; $i++) {
99
    $output .= "<td>". t(substr(ucfirst(date("l", $firstcolumn + $i * 86400)), 0, 2)) ."</td>";
Dries's avatar
 
Dries committed
100 101 102 103 104 105 106 107 108 109
  }
  $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:
Dries's avatar
 
Dries committed
110 111
    if ($first != $weekstart) {
      $blankdays = ($first - $weekstart + 7) % 7;
Dries's avatar
 
Dries committed
112
      $output .= " <tr class=\"row-week\"><td class=\"day-blank\" colspan=\"$blankdays\">&nbsp;</td>\n";
Dries's avatar
 
Dries committed
113
      $first = $weekstart;
Dries's avatar
 
Dries committed
114 115
    }
    // Start every week on a new line:
Dries's avatar
 
Dries committed
116
    if ($sday == $weekstart) {
Dries's avatar
 
Dries committed
117
      $output .= " <tr class=\"row-week\">\n";
Dries's avatar
 
Dries committed
118 119 120
    }

    // Print one cell:
Dries's avatar
 
Dries committed
121
    $date = mktime(0, 0, 0, $month, $nday, $year) + $user->timezone;
Dries's avatar
 
Dries committed
122 123
    if (in_array($nday, $days_with_posts)) {
      $daytext = l($nday, "archive/$year/$month/$nday");
Dries's avatar
 
Dries committed
124
      $dayclass = "day-link";
Dries's avatar
 
Dries committed
125 126
    }
    else {
Dries's avatar
 
Dries committed
127
      $daytext = "<div>$nday</div>";
Dries's avatar
 
Dries committed
128
      $dayclass = "day-normal";
Dries's avatar
 
Dries committed
129
    }
Dries's avatar
 
Dries committed
130
    if ($date == $requested) {
Dries's avatar
 
Dries committed
131
      $output .= "  <td class=\"day-selected\">$daytext</td>\n";
Dries's avatar
 
Dries committed
132 133
    }
    else if ($date == $start_of_today) {
Dries's avatar
 
Dries committed
134
      $output .= "  <td class=\"day-today\">$daytext</td>\n";
Dries's avatar
 
Dries committed
135
    }
Dries's avatar
 
Dries committed
136
    else if ($date > $end_of_today) {
Dries's avatar
 
Dries committed
137
      $output .= "  <td class=\"day-future\">$daytext</td>\n";
Dries's avatar
 
Dries committed
138 139
    }
    else {
Dries's avatar
 
Dries committed
140
      $output .= "  <td class=\"$dayclass\">$daytext</td>\n";
Dries's avatar
 
Dries committed
141 142 143
    }

    // Start every week on a new line:
Dries's avatar
 
Dries committed
144
    if ($sday == $lastday) {
Dries's avatar
 
Dries committed
145 146 147 148 149 150 151 152 153 154
      $output .=  " </tr>\n";
    }

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

  // Complete the calendar:
Dries's avatar
 
Dries committed
155 156
  if ($sday != $weekstart) {
    $end = (7 - $sday + $weekstart) % 7;
Dries's avatar
 
Dries committed
157
    $output .= "  <td class=\"day-blank\" colspan=\"$end\">&nbsp;</td>\n </tr>\n";
Dries's avatar
 
Dries committed
158 159
  }

Dries's avatar
 
Dries committed
160
  $output .= "</table></div>\n\n";
Dries's avatar
 
Dries committed
161

Dries's avatar
 
Dries committed
162
  cache_set("archive:calendar:$start_of_month", $output, 1);
Dries's avatar
 
Dries committed
163

Dries's avatar
 
Dries committed
164 165 166
  return $output;
}

Dries's avatar
 
Dries committed
167
function archive_block($op = "list", $delta = 0) {
Dries's avatar
 
Dries committed
168
  global $date;
Dries's avatar
 
Dries committed
169 170 171 172
  if ($op == "list") {
    $blocks[0]["info"] = t("Calendar to browse archives");
    return $blocks;
  }
Dries's avatar
 
Dries committed
173
  else if (user_access("access content")) {
Dries's avatar
 
Dries committed
174 175 176
    switch ($delta) {
      case 0:
        $block["subject"] = t("Browse archives");
Dries's avatar
 
Dries committed
177
        $block["content"] = archive_calendar();
Dries's avatar
 
Dries committed
178 179 180
        return $block;
    }
  }
Dries's avatar
 
Dries committed
181 182 183
}

function archive_link($type) {
Dries's avatar
 
Dries committed
184 185 186

  $links = array();

Dries's avatar
 
Dries committed
187
  if ($type == "page" && user_access("access content")) {
Dries's avatar
 
Dries committed
188
    $links[] = l(t("archives"), "archive", array("title" => t("Read the older content in our archive.")));
Dries's avatar
 
Dries committed
189 190
  }

Dries's avatar
 
Dries committed
191 192
  if ($type == "system") {
    if (user_access("access content")) {
Dries's avatar
 
Dries committed
193
      menu("archive", t("archives"), "archive_page", 0, MENU_HIDE);
Dries's avatar
 
Dries committed
194 195 196
    }
  }

Dries's avatar
 
Dries committed
197
  return $links;
Dries's avatar
 
Dries committed
198 199 200
}

function archive_page() {
Dries's avatar
 
Dries committed
201
  global $date, $month, $year, $meta, $user;
Dries's avatar
 
Dries committed
202 203 204

  $op = $_POST["op"];
  $edit = $_POST["edit"];
Dries's avatar
 
Dries committed
205

Dries's avatar
 
Dries committed
206
  $output = "";
Dries's avatar
 
Dries committed
207 208

  if (user_access("access content")) {
Dries's avatar
 
Dries committed
209 210 211 212 213 214 215 216 217 218
    if ($op == t("Show")) {
      $year = $edit["year"];
      $month = $edit["month"];
      $day = $edit["day"];
    }
    else {
      $year = arg(1);
      $month = arg(2);
      $day = arg(3);
    }
Dries's avatar
 
Dries committed
219

Dries's avatar
 
Dries committed
220
    $date = mktime(0, 0, 0, $month, $day, $year) - $user->timezone;
Dries's avatar
 
Dries committed
221

Dries's avatar
 
Dries committed
222 223 224
    /*
    ** Prepare the values of the form fields:
    */
Dries's avatar
 
Dries committed
225

Dries's avatar
 
Dries committed
226 227 228
    $years = array(2000 => "2000", 2001 => "2001", 2002 => "2002", 2003 => "2003", 2004 => "2004", 2005 => "2005");
    $months = array(1 => t("January"), 2 => t("February"), 3 => t("March"), 4 => t("April"), 5 => t("May"), 6 => t("June"), 7 => t("July"), 8 => t("August"), 9 => t("September"), 10 => t("October"), 11 => t("November"), 12 => t("December"));
    for ($i = 1; $i <= 31; $i++) $days[$i] = $i;
Dries's avatar
 
Dries committed
229

Dries's avatar
 
Dries committed
230
    $start = "<div class=\"container-inline\">";
Dries's avatar
 
Dries committed
231 232
    $start .= form_select("", "year", ($year ? $year : date("Y")), $years). form_select("", "month", ($month ? $month : date("m")), $months) . form_select("", "day", ($day ? $day : date("d")), $days) . form_submit(t("Show"));
    $start .= "</div>";
Dries's avatar
 
Dries committed
233
    $output .= form($start);
Dries's avatar
 
Dries committed
234

Dries's avatar
 
Dries committed
235 236 237 238
    /*
    ** Fetch nodes for the selected date, or current date if none
    ** selected.
    */
Dries's avatar
 
Dries committed
239

Dries's avatar
 
Dries committed
240
    if ($year && $month && $day) {
Dries's avatar
 
Dries committed
241
      $result = db_query_range("SELECT nid FROM {node} WHERE status = '1' AND created > %d ORDER BY created", $date, 0, 20);
Dries's avatar
 
Dries committed
242

Dries's avatar
 
Dries committed
243
      while ($nid = db_fetch_object($result)) {
Dries's avatar
 
Dries committed
244
        $output .= node_view(node_load(array("nid" => $nid->nid)), 1);
Dries's avatar
 
Dries committed
245
      }
Dries's avatar
 
Dries committed
246
    }
Dries's avatar
 
Dries committed
247
    print theme("page", $output);
Dries's avatar
 
Dries committed
248 249
  }
  else {
Dries's avatar
 
Dries committed
250
    print theme("page", message_access());
Dries's avatar
 
Dries committed
251 252 253
  }
}

254
function archive_settings() {
Dries's avatar
 
Dries committed
255 256 257 258 259 260 261

  $output .= form_select( t("First day of week"), "default_firstday", variable_get("default_firstday", 0), array(0 => t("Sunday"), 1 => t("Monday"), 2 => t("Tuesday"), 3 => t("Wednesday"), 4 => t("Thursday"), 5 => t("Friday"), 6 => t("Saturday")), t("The first day of the week.  By changing this value you choose how the calendar block is rendered."));

  return $output;
}

?>