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

4
function archive_system($field){
Dries's avatar
 
Dries committed
5
  $system["description"] = t("Displays a calendar to navigate old content.");
Dries's avatar
 
Dries committed
6
  $system["admin_help"] = t("Choose the starting \"day of the week\" for the displayed calendar block.");
7 8 9
  return $system[$field];
}

Dries's avatar
 
Dries committed
10
function archive_calendar($original = 0) {
Dries's avatar
 
Dries committed
11

Dries's avatar
 
Dries committed
12
  // Extract today's date:
Dries's avatar
 
Dries committed
13 14
  $today = mktime(23, 59, 59, date("n", time()), date("d", time()), date("Y", time()));

Dries's avatar
 
Dries committed
15 16 17 18 19
  // Extract the requested date:
  if (arg(0) == "archive" && arg(3)) {
    $year = arg(1);
    $month = arg(2);
    $day = arg(3);
Dries's avatar
 
Dries committed
20

Dries's avatar
 
Dries committed
21 22 23 24 25 26
    $requested = mktime(23, 59, 59, $month, $day, $year);
  }
  else {
    $year = date("Y", time());
    $month  = date("n", time());
    $day = date("d", time());
Dries's avatar
 
Dries committed
27

Dries's avatar
 
Dries committed
28 29
    $requested = $today;
  }
Dries's avatar
 
Dries committed
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

  // 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=\"1\" cellspacing=\"0\" cellpadding=\"1\">\n";
Dries's avatar
 
Dries committed
46 47 48 49 50 51 52
  $output .= " <tr><td align=\"center\" colspan=\"7\"><small>". l("&lt;", "archive/". date("Y/m/d", $prev)) ." ". date("F Y", $requested) ." ". ($nextmonth <= time() ? l("&gt;", "archive/". date("Y/m/d", $next)) : "&gt;") ."</small></td></tr>\n";

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

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

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

  $output .= " <tr>";
  for ($i = 0; $i < 7; $i++) {
Dries's avatar
 
Dries committed
59
    $output .= "<td align=\"center\"><small>". substr(ucfirst(t(date("l", $firstcolumn + $i * 86400))), 0, 1) ."</small></td>";
Dries's avatar
 
Dries committed
60 61 62 63 64 65 66 67 68 69
  }
  $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
70 71 72 73
    if ($first != $weekstart) {
      $blankdays = ($first - $weekstart + 7) % 7;
      $output .= " <tr><td colspan=\"$blankdays\">&nbsp;</td>\n";
      $first = $weekstart;
Dries's avatar
 
Dries committed
74 75 76
    }

    // Start every week on a new line:
Dries's avatar
 
Dries committed
77
    if ($sday == $weekstart) {
Dries's avatar
 
Dries committed
78 79 80 81 82 83
      $output .=  " <tr>\n";
    }

    // Print one cell:
    $date = mktime(0, 0, 0, $month, $nday, $year);

Dries's avatar
 
Dries committed
84
    if ($date == $requested) {
Dries's avatar
 
Dries committed
85 86 87 88 89 90
      $output .= "  <td align=\"center\"><small><b>$nday</b></small></td>\n";
    }
    else if ($date > $today) {
      $output .= "  <td align=\"center\"><small>$nday</small></td>\n";
    }
    else {
Dries's avatar
 
Dries committed
91
      $output .= "  <td align=\"center\"><small>". l($nday, "archive/$year/$month/$nday", array("style" => "text-decoration: none;")) ."</small></td>\n";
Dries's avatar
 
Dries committed
92 93 94
    }

    // Start every week on a new line:
Dries's avatar
 
Dries committed
95
    if ($sday == $lastday) {
Dries's avatar
 
Dries committed
96 97 98 99 100 101 102 103 104 105
      $output .=  " </tr>\n";
    }

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

  // Complete the calendar:
Dries's avatar
 
Dries committed
106 107
  if ($sday != $weekstart) {
    $end = (7 - $sday + $weekstart) % 7;
Dries's avatar
 
Dries committed
108 109 110 111 112 113 114 115
    $output .= "  <td colspan=\"$end\">&nbsp;</td>\n </tr>\n";
  }

  $output .= "</table>\n\n";

  return $output;
}

Dries's avatar
 
Dries committed
116
function archive_block($op = "list", $delta = 0) {
Dries's avatar
 
Dries committed
117
  global $date;
Dries's avatar
 
Dries committed
118 119 120 121 122 123 124 125
  if ($op == "list") {
    $blocks[0]["info"] = t("Calendar to browse archives");
    return $blocks;
  }
  else {
    switch ($delta) {
      case 0:
        $block["subject"] = t("Browse archives");
Dries's avatar
 
Dries committed
126
        $block["content"] = archive_calendar();
Dries's avatar
 
Dries committed
127 128 129
        return $block;
    }
  }
Dries's avatar
 
Dries committed
130 131 132
}

function archive_link($type) {
Dries's avatar
 
Dries committed
133 134 135

  $links = array();

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

Dries's avatar
 
Dries committed
140
  return $links;
Dries's avatar
 
Dries committed
141 142 143
}

function archive_page() {
Dries's avatar
 
Dries committed
144 145 146 147
  global $date, $month, $year, $meta;

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

Dries's avatar
 
Dries committed
149
  theme("header");
Dries's avatar
 
Dries committed
150 151

  if (user_access("access content")) {
Dries's avatar
 
Dries committed
152 153 154 155 156 157 158 159 160 161
    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
162

Dries's avatar
 
Dries committed
163
    $date = mktime(0, 0, 0, $month, $day, $year);
Dries's avatar
 
Dries committed
164

Dries's avatar
 
Dries committed
165 166 167
    /*
    ** Prepare the values of the form fields:
    */
Dries's avatar
 
Dries committed
168

Dries's avatar
 
Dries committed
169 170 171
    $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
172

Dries's avatar
 
Dries committed
173
    $start = "<div class=\"container-inline\">";
Dries's avatar
 
Dries committed
174 175
    $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
176
    theme("box", t("Archives"), form($start));
Dries's avatar
 
Dries committed
177

Dries's avatar
 
Dries committed
178 179 180 181
    /*
    ** Fetch nodes for the selected date, or current date if none
    ** selected.
    */
Dries's avatar
 
Dries committed
182

Dries's avatar
 
Dries committed
183
    if ($year && $month && $day) {
Dries's avatar
 
Dries committed
184
      $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
185

Dries's avatar
 
Dries committed
186 187
      while ($nid = db_fetch_object($result)) {
        node_view(node_load(array("nid" => $nid->nid)), 1);
Dries's avatar
 
Dries committed
188
      }
Dries's avatar
 
Dries committed
189
    }
Dries's avatar
 
Dries committed
190 191
  }
  else {
Dries's avatar
 
Dries committed
192
    message_access();
Dries's avatar
 
Dries committed
193 194
  }

Dries's avatar
 
Dries committed
195
  theme("footer");
Dries's avatar
 
Dries committed
196 197
}

198
function archive_settings() {
Dries's avatar
 
Dries committed
199 200 201 202 203 204 205

  $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;
}

?>