poll.module 14.4 KB
Newer Older
1
<?php
2
// $Id$
3

Dries's avatar
 
Dries committed
4 5 6 7 8 9
/**
 * @file
 * Enables your site to capture votes on different topics in the form of multiple
 * choice questions.
 */

10 11 12 13
/**
 * Implementation of hook_help().
 */
function poll_help($section) {
Steven Wittens's avatar
Steven Wittens committed
14 15
  switch ($section) {
    case 'admin/help#poll':
16
      return t("
Steven Wittens's avatar
Steven Wittens committed
17 18 19 20 21 22 23
      <p>Users with the correct <a href=\"%permissions\">permissions</a> can create and/or vote on polls.</p>
      <ul>
      <li>To create a poll a user needs the \"create polls\" permission.</li>
      <li>To vote on a poll question a user must have the \"vote on polls\" permission.</li>
      <li>To view the results one needs the \"access content\" permission.</li>
      <li>To administer polls you need the \"administer nodes\" permission.</li>
      </ul>
24
      <p>Creating a poll is much like creating any other node. Click \"create poll\" in your user box. The title of the poll should be the question, then enter the answers and the \"base\" vote counts. You can also choose the time period over which the vote will run.</p><p>The <a href=\"%poll\">Poll</a> item in the navigation links will take you to a page where you can see all the current polls, vote on them (if you haven't already) and view the results.</p>", array("%permissions" => url("admin/user/configure/permission"), "%poll" => url("poll")));
Dries's avatar
 
Dries committed
25
    case 'admin/modules#description':
26
      return t("Enables your site to capture votes on different topics in the form of multiple choice questions.");
Steven Wittens's avatar
Steven Wittens committed
27
    case 'node/add#poll':
28
      return t("A poll is a multiple-choice question which visitors can vote on.");
Steven Wittens's avatar
Steven Wittens committed
29
  }
30 31
}

32 33 34
/**
 * Implementation of hook_access().
 */
35
function poll_access($op, $node) {
Steven Wittens's avatar
Steven Wittens committed
36 37
  if ($op == 'create') {
    return user_access('create polls');
Dries's avatar
 
Dries committed
38
  }
Steven Wittens's avatar
Steven Wittens committed
39 40
}

41 42 43 44 45
/**
 * Implementation of hook_block().
 *
 * Generates a block containing the latest poll.
 */
Steven Wittens's avatar
Steven Wittens committed
46 47 48 49
function poll_block($op = 'list', $delta = 0) {
  if (user_access('access content')) {
    if ($op == 'list') {
      $blocks[0]['info'] = t('Most recent poll');
Dries's avatar
 
Dries committed
50 51 52
      return $blocks;
    }
    else {
53
      // Retrieve the latest poll.
Dries's avatar
 
Dries committed
54
      $timestamp = db_result(db_query('SELECT MAX(n.created) FROM {node} n '. node_access_join_sql() ." WHERE n.type = 'poll' AND n.status = 1 AND ". node_access_where_sql() .' AND n.moderate = 0'));
Dries's avatar
 
Dries committed
55
      if ($timestamp) {
Steven Wittens's avatar
Steven Wittens committed
56 57
        $poll = node_load(array('type' => 'poll', 'created' => $timestamp, 'moderate' => 0, 'status' => 1));

Dries's avatar
 
Dries committed
58
        if ($poll->nid) {
59
          // poll_view() dumps the output into $poll->body.
60
          poll_view($poll, 1, 0, 1);
Dries's avatar
 
Dries committed
61
        }
Dries's avatar
 
Dries committed
62
      }
Steven Wittens's avatar
Steven Wittens committed
63 64
      $block['subject'] = t('Poll');
      $block['content'] = $poll->body;
Dries's avatar
 
Dries committed
65
      return $block;
66 67 68 69
    }
  }
}

70 71 72 73 74
/**
 * Implementation of hook_cron().
 *
 * Closes polls that have exceeded their allowed runtime.
 */
75
function poll_cron() {
Dries's avatar
 
Dries committed
76
  $result = db_query("SELECT p.nid FROM {poll} p INNER JOIN {node} n ON p.nid=n.nid WHERE (n.created + p.runtime) < '". time() ."' AND p.active = '1' AND p.runtime != '0'");
Dries's avatar
 
Dries committed
77
  while ($poll = db_fetch_object($result)) {
Dries's avatar
 
Dries committed
78
    db_query("UPDATE {poll} SET active='0' WHERE nid = %d", $poll->nid);
Dries's avatar
 
Dries committed
79
  }
80 81
}

82 83 84
/**
 * Implementation of hook_delete().
 */
85
function poll_delete($node) {
Dries's avatar
 
Dries committed
86 87
  db_query("DELETE FROM {poll} WHERE nid=%d", $node->nid);
  db_query("DELETE FROM {poll_choices} WHERE nid = %d", $node->nid);
88 89
}

90 91 92
/**
 * Implementation of hook_validate().
 */
93
function poll_validate(&$node) {
94 95
  if (isset($node->title)) {
    // Check for at least two options and validate amount of votes:
Steven Wittens's avatar
Steven Wittens committed
96 97 98 99
    $realchoices = 0;
    foreach ($node->choice as $i => $choice) {
      if ($choice['chtext'] != '') {
        $realchoices++;
100
      }
Dries's avatar
 
Dries committed
101

Steven Wittens's avatar
Steven Wittens committed
102
      if ($choice['chvotes'] < 0) {
Dries's avatar
 
Dries committed
103
        form_set_error("choice][$i][chvotes", t('Negative values are not allowed.'));
104
      }
105
    }
Dries's avatar
 
Dries committed
106

Steven Wittens's avatar
Steven Wittens committed
107
    if ($realchoices < 2) {
Dries's avatar
 
Dries committed
108
      form_set_error("choice][$realchoices][chtext", t('You must fill in at least two choices.'));
109 110
    }
  }
111 112 113 114

  $node->teaser = poll_teaser($node);
}

115 116 117
/**
 * Implementation of hook_form().
 */
Dries's avatar
 
Dries committed
118
function poll_form(&$node) {
Steven Wittens's avatar
Steven Wittens committed
119
  $admin = user_access('administer nodes');
120

Steven Wittens's avatar
Steven Wittens committed
121 122 123
  if (function_exists('taxonomy_node_form')) {
    $output = implode('', taxonomy_node_form('poll', $node));
  }
124

Steven Wittens's avatar
Steven Wittens committed
125 126 127
  if (!isset($node->choices)) {
    $node->choices = max(2, count($node->choice) ? count($node->choice) : 5);
  }
Dries's avatar
 
Dries committed
128

129
  // User ticked 'need more choices'.
Steven Wittens's avatar
Steven Wittens committed
130 131
  if ($node->morechoices) {
    $node->choices *= 2;
132 133
  }

Steven Wittens's avatar
Steven Wittens committed
134
  $output .= '<div class="poll-form">';
Dries's avatar
 
Dries committed
135

Steven Wittens's avatar
Steven Wittens committed
136
  // Poll choices
Dries's avatar
 
Dries committed
137
  $opts = drupal_map_assoc(range(2, $node->choices * 2 + 5));
138
  for ($a = 0; $a < $node->choices; $a++) {
Dries's avatar
 
Dries committed
139
    $group1 .= form_textfield(t('Choice %n', array('%n' => ($a + 1))), "choice][$a][chtext", $node->choice[$a]['chtext'], 50, 127);
140
    if ($admin) {
Dries's avatar
 
Dries committed
141
      $group1 .= form_textfield(t('Votes for choice %n', array('%n' => ($a + 1))), "choice][$a][chvotes", (int)$node->choice[$a]['chvotes'], 7, 7);
142 143
    }
  }
Steven Wittens's avatar
Steven Wittens committed
144 145 146
  $group1 .= form_hidden('choices', $node->choices);
  $group1 .= form_checkbox(t('Need more choices'), 'morechoices', 1, 0, t("If the amount of boxes above isn't enough, check this box and click the Preview button below to add some more."));
  $output .= form_group(t('Choices'), $group1);
Dries's avatar
 
Dries committed
147

Dries's avatar
 
Dries committed
148

Steven Wittens's avatar
Steven Wittens committed
149
  // Poll attributes
150
  $_duration = array(0 => t('Unlimited')) + drupal_map_assoc(array(86400, 172800, 345600, 604800, 1209600, 2419200, 4838400, 9676800, 31536000), "format_interval");
Steven Wittens's avatar
Steven Wittens committed
151
  $_active = array(0 => t('Closed'), 1 => t('Active'));
Dries's avatar
 
Dries committed
152

Steven Wittens's avatar
Steven Wittens committed
153 154
  if ($admin) {
    $group2 .= form_radios(t('Poll status'), 'active', isset($node->active) ? $node->active : 1, $_active, t('When a poll is closed, visitors can no longer vote for it.'));
Dries's avatar
 
Dries committed
155
  }
Steven Wittens's avatar
Steven Wittens committed
156
  $group2 .= form_select(t('Poll duration'), 'runtime', $node->runtime ? $node->runtime : 0, $_duration, t('After this period, the poll will be closed automatically.'));
Dries's avatar
 
Dries committed
157 158

  $output .= form_group(t('Settings'), $group2);
Steven Wittens's avatar
Steven Wittens committed
159
  $output .= '</div>';
Dries's avatar
 
Dries committed
160 161

  return $output;
162
}
163

164
function poll_insert($node) {
Steven Wittens's avatar
Steven Wittens committed
165
  if (!user_access('administer nodes')) {
166
    // Make sure all votes are 0 initially
Steven Wittens's avatar
Steven Wittens committed
167 168 169
    foreach ($node->choice as $i => $choice) {
      $node->choice[$i]['chvotes'] = 0;
    }
170 171
    $node->active = 1;
  }
172

Dries's avatar
 
Dries committed
173
  db_query("INSERT INTO {poll} (nid, runtime, voters, active) VALUES (%d, %d, '', %d)", $node->nid, $node->runtime, $node->active);
Dries's avatar
 
Dries committed
174

Steven Wittens's avatar
Steven Wittens committed
175 176 177
  foreach ($node->choice as $choice) {
    if ($choice['chtext'] != '') {
      db_query("INSERT INTO {poll_choices} (nid, chtext, chvotes, chorder) VALUES (%d, '%s', %d, %d)", $node->nid, $choice['chtext'], $choice['chvotes'], $i++);
178 179
    }
  }
180 181
}

Dries's avatar
 
Dries committed
182 183 184
/**
 * Implementation of hook_link().
 */
Steven Wittens's avatar
Steven Wittens committed
185
function poll_link($type, $node = 0, $main) {
Dries's avatar
 
Dries committed
186 187
  $links = array();

Dries's avatar
 
Dries committed
188
  if ($type == 'page' && user_access('access content')) {
Steven Wittens's avatar
Steven Wittens committed
189
    $links[] = l(t('polls'), 'poll', array('title' => t('View the list of polls on this site.')));
Steven Wittens's avatar
Steven Wittens committed
190
  }
Dries's avatar
 
Dries committed
191 192

  return $links;
193
}
Dries's avatar
 
Dries committed
194

Dries's avatar
 
Dries committed
195 196 197 198 199 200 201 202 203 204 205
/**
 * Implementation of hook_menu().
 */
function poll_menu() {
  $items = array();
  $items[] = array('path' => 'node/add/poll', 'title' => t('poll'),
    'access' => user_access('create polls'));
  $items[] = array('path' => 'poll', 'title' => t('polls'),
    'callback' => 'poll_page',
    'access' => user_access('access content'),
    'type' => MENU_SUGGESTED_ITEM);
Steven Wittens's avatar
Steven Wittens committed
206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224

  $items[] = array('path' => 'poll/vote',
    'title' => t('vote'),
    'callback' => 'poll_vote',
    'access' => user_access('vote on polls'),
    'type' => MENU_CALLBACK);

  if (arg(0) == 'node' && is_numeric(arg(1))) {
    $node = node_load(array('nid' => arg(1)));

    if ($node->type == 'poll' && $node->allowvotes) {
      $items[] = array('path' => 'node/'. arg(1) .'/results',
        'title' => t('results'),
        'callback' => 'poll_results',
        'access' => user_access('access content'),
        'weight' => 3,
        'type' => MENU_LOCAL_TASK);
    }
  }
Dries's avatar
 
Dries committed
225 226 227
  return $items;
}

Steven Wittens's avatar
Steven Wittens committed
228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243
/**
 * Determine an adjusted user id, to allow for basic tracking of anonymous
 * users (IP-based).
 */
function poll_uid() {
  global $user;
  if ($user->uid) {
     // Pad the UID with underscores to allow a simple strstr() search
    $id = '_'. $user->uid .'_';
  }
  else {
    $id = $_SERVER['REMOTE_ADDR'];
  }
  return $id;
}

244 245 246
/**
 * Implementation of hook_load().
 */
247 248
function poll_load($node) {
  // Load the appropriate choices into the $node object
Dries's avatar
 
Dries committed
249
  $poll = db_fetch_object(db_query("SELECT runtime, voters, active FROM {poll} WHERE nid = %d", $node->nid));
Dries's avatar
 
Dries committed
250

Dries's avatar
 
Dries committed
251
  $result = db_query("SELECT chtext, chvotes, chorder FROM {poll_choices} WHERE nid=%d ORDER BY chorder", $node->nid);
Steven Wittens's avatar
Steven Wittens committed
252 253
  while ($choice = db_fetch_array($result)) {
    $poll->choice[$choice['chorder']] = $choice;
254
  }
Steven Wittens's avatar
Steven Wittens committed
255

Steven Wittens's avatar
Steven Wittens committed
256 257 258 259 260 261 262
  // Determine whether or not this user is allowed to vote
  $poll->allowvotes = false;
  if (user_access('vote on polls')) {
    if (!strstr($poll->voters, poll_uid())) {
      $poll->allowvotes = $poll->active;
    }
  }
263 264
  return $poll;
}
Dries's avatar
 
Dries committed
265

266 267 268
/**
 * Implementation of hook_node_name().
 */
Dries's avatar
 
Dries committed
269 270
function poll_node_name($node) {
  return t("poll");
271
}
272

Steven Wittens's avatar
Steven Wittens committed
273
function poll_page() {
Steven Wittens's avatar
Steven Wittens committed
274
  // List all polls
Dries's avatar
 
Dries committed
275
  $result = pager_query("SELECT DISTINCT(n.nid), n.title, p.active, SUM(c.chvotes) AS votes FROM {node} n ". node_access_join_sql() ." INNER JOIN {poll} p ON n.nid=p.nid INNER JOIN {poll_choices} c ON n.nid=c.nid WHERE type = 'poll' AND status = 1 AND ". node_access_where_sql() ." AND moderate = 0 GROUP BY n.nid, n.title, p.active, n.created ORDER BY n.created DESC", 15);
Steven Wittens's avatar
Steven Wittens committed
276
  $output = '<ul>';
Steven Wittens's avatar
Steven Wittens committed
277
  while ($node = db_fetch_object($result)) {
Dries's avatar
 
Dries committed
278
    $output .= '<li>'. l($node->title, "node/$node->nid") .' - '. format_plural($node->votes, '1 vote', '%count votes') .' - '. ($node->active ? t('open') : t('closed')) .'</li>';
Steven Wittens's avatar
Steven Wittens committed
279
  }
Steven Wittens's avatar
Steven Wittens committed
280 281 282
  $output .= '</ul>';
  $output .= theme("pager", NULL, 15);
  print theme('page', $output);
Steven Wittens's avatar
Steven Wittens committed
283 284
}

285 286 287
/**
 * Implementation of hook_perm().
 */
288
function poll_perm() {
Steven Wittens's avatar
Steven Wittens committed
289
  return array('create polls', 'vote on polls');
290
}
Dries's avatar
 
Dries committed
291

292 293 294
/**
 * Creates a simple teaser that lists all the choices.
 */
295
function poll_teaser($node) {
Dries's avatar
Dries committed
296
  if (is_array($node->choice)) {
Steven Wittens's avatar
Steven Wittens committed
297 298
    foreach ($node->choice as $k => $choice) {
      $teaser .= '* '. $choice['chtext'] .'\n';
299 300 301 302
    }
  }
  return $teaser;
}
303

Steven Wittens's avatar
Steven Wittens committed
304
/**
305
 * Generates the voting form for a poll.
Steven Wittens's avatar
Steven Wittens committed
306 307
 */
function poll_view_voting(&$node, $main, $page, $block) {
Steven Wittens's avatar
Steven Wittens committed
308
  $url = request_uri();
Dries's avatar
 
Dries committed
309
  $output = '<div class="poll">';
Dries's avatar
 
Dries committed
310

Dries's avatar
 
Dries committed
311
  $form = '<div class="vote-form">';
Steven Wittens's avatar
Steven Wittens committed
312
  $form .= '<div class="choices">';
Dries's avatar
 
Dries committed
313
  if ($node->choice) {
Steven Wittens's avatar
Steven Wittens committed
314 315 316
    $list = array();
    foreach ($node->choice as $i => $choice) {
      $list[$i] = drupal_specialchars($choice['chtext']);
317
    }
Steven Wittens's avatar
Steven Wittens committed
318
    $form .= form_radios($page ? '' : $node->title, 'choice', -1, $list);
Dries's avatar
 
Dries committed
319
  }
Steven Wittens's avatar
Steven Wittens committed
320 321 322 323
  $form .= '</div>';
  $form .= form_hidden('nid', $node->nid);
  $form .= form_submit(t('Vote'), 'vote') .'</div>';

Steven Wittens's avatar
Steven Wittens committed
324
  $output .= form($form, 'post', url('poll/vote/'. $node->nid));
Steven Wittens's avatar
Steven Wittens committed
325
  $output .= '</div>';
Steven Wittens's avatar
Steven Wittens committed
326 327 328 329

  return $output;
}

330 331 332
/**
 * Generates a graphical representation of the results of a poll.
 */
Steven Wittens's avatar
Steven Wittens committed
333
function poll_view_results(&$node, $main, $page, $block) {
Steven Wittens's avatar
Steven Wittens committed
334
  // Display the results
Dries's avatar
 
Dries committed
335

Steven Wittens's avatar
Steven Wittens committed
336
  // Count the votes and find the maximum
Steven Wittens's avatar
Steven Wittens committed
337 338 339
  foreach ($node->choice as $choice) {
    $votestotal += $choice['chvotes'];
    $votesmax = max($votesmax, $choice['chvotes']);
Steven Wittens's avatar
Steven Wittens committed
340 341
  }

Dries's avatar
 
Dries committed
342
  // Output the divs for the text, bars and percentages
Steven Wittens's avatar
Steven Wittens committed
343 344 345 346 347 348 349 350 351 352 353 354
  $output .= '<div class="poll">';
  if ($block) {
    $output .= '<div class="title">'. $node->title .'</div>';
  }
  foreach ($node->choice as $i => $choice) {
    if ($choice['chtext'] != '') {
      $percentage = round($choice['chvotes'] * 100 / max($votestotal, 1));
      $output .= '<div class="text">'. drupal_specialchars($choice['chtext']) .'</div>';
      $output .= '<div class="bar">';
      $output .= '<div style="width: '. $percentage .'%;" class="foreground"></div>';
      $output .= '</div>';
      $output .= '<div class="percent">'. $percentage .'%'. (!$block ? ' ('. format_plural($choice['chvotes'], '1 vote', '%count votes') .')' : '') .'</div>';
355
    }
356
  }
Steven Wittens's avatar
Steven Wittens committed
357
  $output .= '<div class="total">'. t('Total votes') .": $votestotal</div>";
Dries's avatar
 
Dries committed
358

Steven Wittens's avatar
Steven Wittens committed
359
  $output .= '</div>';
Steven Wittens's avatar
Steven Wittens committed
360 361 362 363

  return $output;
}

Steven Wittens's avatar
Steven Wittens committed
364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384
/**
 * Callback for the 'results' tab for polls you can vote on
 */
function poll_results() {
  if ($node = node_load(array('nid' => arg(1)))) {
    print theme('page', node_show($node, 0), $node->title);
  }
  else {
    drupal_not_found();
  }
}

/**
 * Callback for processing a vote
 */
function poll_vote(&$node) {
  $nid = arg(2);
  if ($node = node_load(array('nid' => $nid))) {
    $edit = $_POST['edit'];
    $choice = $edit['choice'];
    $vote = $_POST['vote'];
Steven Wittens's avatar
Steven Wittens committed
385 386 387 388 389 390 391 392 393

    if (isset($choice) && isset($node->choice[$choice])) {
      if ($node->allowvotes) {
        $id = poll_uid();
        $node->voters = $node->voters ? ($node->voters .' '. $id) : $id;
        db_query("UPDATE {poll} SET voters='%s' WHERE nid = %d", $node->voters, $node->nid);
        db_query("UPDATE {poll_choices} SET chvotes = chvotes + 1 WHERE nid = %d AND chorder = %d", $node->nid, $choice);
        $node->allowvotes = false;
        $node->choice[$choice]['chvotes']++;
Dries's avatar
 
Dries committed
394
        drupal_set_message(t('Your vote was recorded.'));
Steven Wittens's avatar
Steven Wittens committed
395 396
      }
      else {
Dries's avatar
 
Dries committed
397
        drupal_set_message(t("You're not allowed to vote on this poll."), 'error');
Steven Wittens's avatar
Steven Wittens committed
398 399 400
      }
    }
    else {
Dries's avatar
 
Dries committed
401
      drupal_set_message(t("You didn't specify a valid poll choice."), 'error');
Steven Wittens's avatar
Steven Wittens committed
402
    }
Steven Wittens's avatar
Steven Wittens committed
403 404 405 406 407

    drupal_goto('node/'. $nid);
  }
  else {
    drupal_not_found();
Steven Wittens's avatar
Steven Wittens committed
408 409 410
  }
}

411 412 413 414 415 416 417
/**
 * Implementation of hook_view().
 *
 * @param $block
 *   An extra parameter that adapts the hook to display a block-ready
 *   rendering of the poll.
 */
Dries's avatar
 
Dries committed
418
function poll_view(&$node, $teaser = FALSE, $page = FALSE, $block = FALSE) {
Dries's avatar
 
Dries committed
419
  global $user;
Dries's avatar
 
Dries committed
420
  $output = '';
Steven Wittens's avatar
Steven Wittens committed
421

Steven Wittens's avatar
Steven Wittens committed
422
  if ($node->allowvotes && ($block || arg(2) != 'results')) {
Steven Wittens's avatar
Steven Wittens committed
423 424 425 426 427
    $output .= poll_view_voting($node, $main, $page, $block);
  }
  else {
    $output .= poll_view_results($node, $main, $page, $block);
  }
Steven Wittens's avatar
Steven Wittens committed
428

Steven Wittens's avatar
Steven Wittens committed
429
  // Special display for side-block
Steven Wittens's avatar
Steven Wittens committed
430
  if ($block) {
Steven Wittens's avatar
Steven Wittens committed
431 432
    // No 'read more' link
    $node->body = $node->teaser = '';
Steven Wittens's avatar
Steven Wittens committed
433

Steven Wittens's avatar
Steven Wittens committed
434
    $links = link_node($node, $main);
Steven Wittens's avatar
Steven Wittens committed
435
    $links[] = l(t('older polls'), 'poll', array('title' => t('View the list of polls on this site.')));
Steven Wittens's avatar
Steven Wittens committed
436 437 438
    if ($node->allowvotes && $block) {
      $links[] = l(t('results'), 'node/'. $node->nid .'/results', array('title' => t('View the current poll results.')));
    }
Steven Wittens's avatar
Steven Wittens committed
439

Steven Wittens's avatar
Steven Wittens committed
440
    $output .= '<div class="links">'. theme("links", $links) .'</div>';
Steven Wittens's avatar
Steven Wittens committed
441 442 443
  }

  $node->body = $node->teaser = $output;
444 445
}

446 447 448
/**
 * Implementation of hook_update().
 */
449
function poll_update($node) {
Steven Wittens's avatar
Steven Wittens committed
450
  db_query('UPDATE {poll} SET runtime = %d, active = %d WHERE nid = %d', $node->runtime, $node->active, $node->nid);
451

Steven Wittens's avatar
Steven Wittens committed
452 453 454 455
  db_query('DELETE FROM {poll_choices} WHERE nid = %d', $node->nid);
  foreach ($node->choice as $choice) {
    $chvotes = (int)$choice['chvotes'];
    $chtext = $choice['chtext'];
456

Steven Wittens's avatar
Steven Wittens committed
457 458
    if ($chtext != '') {
      db_query("INSERT INTO {poll_choices} (nid, chtext, chvotes, chorder) VALUES (%d, '%s', %d, %d)", $node->nid, $chtext, $chvotes, $i++);
459
    }
460 461
  }
}
462

463
?>