uw_ct_event.module

<?php
/**
 * @file
 * Code for the Event feature.
 */

include_once('uw_ct_event.features.inc');

/**
 * Implements hook_form_alter().
 */
function uw_ct_event_form_alter(&$form, &$form_state, $form_id) {
  // content creation
  if ($form_id == 'uw_location_node_form') {
    // Remove the 'delete this location' checkbox on the edit form
    $form['field_location_details']['und'][0]['#after_build'][] = 'uw_ct_event_remove_location_delete';
  }

  // exposed filters sitewide
  if ($form_id == 'views_exposed_form') {
    // get information about the current path to use for events exposed filters
    $path = current_path();
    $path = explode("/", $path);

    // if this is the form for the exposed filters at the top of events, use the post method to pass on choices so they're not a query string after the URL.
    if ($form['#id'] == 'views-exposed-form-events-page' || $form['#id'] == 'views-exposed-form-events-events-archive-page'
        || $form['#id'] == 'views-exposed-form-events-with-calendar-page-1' || $form['#id'] == 'views-exposed-form-events-with-calendar-page-3') {
      // Using POST method from https://drupal.org/comment/6468662#comment-6468662 (requires this patch on views, or an additional module that Lily couldn't get to work)
      // $form['#attributes']['method'] = 'post';
    }

    // Hide dates option '-All-'
    if ($form['#id'] == 'views-exposed-form-events-page' || $form['#id'] == 'views-exposed-form-events-events-archive-page' || $form['#id'] == 'views-exposed-form-events-events-tag-page') {
      $date_options = $form['date']['#options'];
      if (isset($date_options['All'])) {
        unset($date_options['All']);
      }
      $form['date']['#options'] = $date_options;
    }

    // When using "audience" or "type" exposed filter: display the selected option ("tid" from path), then change action to events
    if ($form['#id'] == 'views-exposed-form-events-page') {
      if (isset($path[1]) && isset($path[2])) {
        switch ($path[1]) {
          case "audience":
            // cause the audience term id ("tid") to be selected in the dropdown
            $form_state['input']['audience'] = $path[2];
            break;
          case "type":
            // cause the event term id ("tid") to be selected in the dropdown
            $form_state['input']['type'] = $path[2];
            break;
        }
        // make the form submit to the base events path; once they submit to the exposed filter form we can't be sure the URL still makes sense
        $form['#action'] = base_path() . 'events';
      }
    }

    // When on "events by date" pages (from archive links), add the chosen date to the "dates" exposed filter and select it from the dropdown
    // Dates filter: Click date link, add option composite_views_filter = 0 (date=0), then change action to events
    if ($form['#id'] == 'views-exposed-form-events-events-archive-page') {
      // if (!(isset($form_state['input']['date']))) {
        // add the selected date to the dropdown
        $timestamp = strtotime($path[2]);
        if ($timestamp) {
          $final_name = strlen($path[2]) > 4 ? t(date('F', $timestamp)) . date(' Y', $timestamp) : $path[2];
          $form['date']['#options'][$path[2]] = $final_name;
          // make Drupal think we submitted this value
          // $form_state['input'] = array('date' => $path[2]) + $form_state['input'];
          $form_state['input']['date'] = $path[2];
          // if other dropdowns were selected, they are passed in a query string
          // set field_uw_event_type_tid (type) if "type" was selected
          if (isset($_GET['type'])) {
            $form_state['input']['type'] = $_GET['type'];
          }
          // set field_audience_tid (audience) if "audience" was selected
          if (isset($_GET['audience'])) {
            $form_state['input']['audience'] = $_GET['audience'];
          }
        }
        // make the form submit to the base events path, since the exposed filter can't actually deal with this
        // if they select the date, we have code elsewhere that redirects them to the right path
        $form['#action'] = base_path() . 'events';
      // }
    }

    // When on an events page that is not the "date archive" page
    if ($form['#id'] == 'views-exposed-form-events-page' ) {
      // When coming from a submission of the exposed filters that contains a "date archive" value (from the composite_views_filter (date) field) -
      // and this can only happen from a "date archive" page - since the form destination is set to "events" (in case they didn't pick the date),
      // redirect to the date-based URL. We don't need to add anything to the dropdown since redirecting here will take care of that.
      if (isset($form_state['input']['date']) && !in_array($form_state['input']['date'], array('Current', 'Past', 'Today'))
        /* && $form_state['input']['type'] == 'All' && $form_state['input']['audience'] == 'All' */) {
        drupal_goto('events/archive/' . $form_state['input']['date'], array('query' => array('type' => $form_state['input']['type'], 'audience' => $form_state['input']['audience'])));
      }
    }
  }
}

/**
 * Implements hook_views_pre_view().
 */
function uw_ct_event_views_pre_view(&$view, &$display_id, &$args) {
  // if we are rendering the mini calendar, and are at a url that references a day within a month, make the mini-calendar start at that month
  // note that currently dates are NOT zero-padded, but we might want this in the future; if we change this, the preg_match must change
  // e.g.:
  // events/archive/2013-10
  // events/calendar/2013-10
  // events/day/2013-10-31
  // ***WE WILL HAVE TO REVIEW AND POSSIBLY CHANGE WHAT URLS AFFECT THE MINI-CALENDAR
  if ($view->name == 'events_with_calendar' && $display_id == 'block_1') {
    $path = current_path();
    $path = explode("/", $path);
    if (isset($path[2]) && (preg_match('/^(\d{4})$/', $path[2], $match))) {
      if ($path[2] != date("Y")) {
        $view->args[0] = $match[1] . '-1';
      }
    }
    if (isset($path[2]) && (preg_match('/^(\d{4}-(?:[123456789]|1[012]))$/', $path[2], $match) || preg_match('/^(\d{4}-(?:0[123456789]|1[012]))$/', $path[2], $match))) {
      $view->args[0] = $match[1];
    }
    if (isset($path[2]) && preg_match('/^(\d{4}-(?:[123456789]|1[012]))-(?:[123456789]|[12]\d|3[01])$/', $path[2], $match)) {
      $view->args[0] = $match[1];
    }
  }
}

/**
 * Implements hook_views_query_alter().
 */
function uw_ct_event_views_query_alter(&$view, &$query) {
  $path = current_path();
  $path = explode("/", $path);

  $today = date("Y-m-d");
  $future_date = date("Y-m-d", strtotime('+365 day'));

  if ($view->name == 'events' && isset($view->exposed_raw_input['date'])) {

    // Unset query conditions for events/archive view
    if (isset($path[0]) && $path[0] == 'events' && isset($path[1]) && $path[1] == 'archive' && isset($path[2])) {
      end($query->where[1]['conditions']);
      $key = key($query->where[1]['conditions']);
      if (strlen($path[2]) == 4 ) {
        if (preg_match('/^(\d{4})$/', $path[2], $match)) {
          $archive_year = $match[0];
          if (isset($archive_year) && $view->exposed_raw_input['date'] == $archive_year) {
            unset($query->where[1]['conditions'][$key]);
          }
        }
      }
      else {
        if (preg_match('/^(\d{4}-(?:[123456789]|1[012]))$/', $path[2], $match) || preg_match('/^(\d{4}-(?:0[123456789]|1[012]))$/', $path[2], $match)) {
          $archive_year_month = $match[0];
          if (isset($archive_year_month) && $view->exposed_raw_input['date'] == $archive_year_month) {
            unset($query->where[1]['conditions'][$key]);
          }
        }
      }
    }

    // Modify query for 'Current and upcoming' to include 'OR' section
    if ($view->exposed_raw_input['date'] == 'Current') {
      end($query->where[1]['conditions']);
      $key = key($query->where[1]['conditions']);
      $query->where[1]['conditions'][$key]['field'] = "((DATE_FORMAT(ADDTIME(STR_TO_DATE(field_data_field_event_date.field_event_date_value, '%Y-%m-%dT%T'), SEC_TO_TIME(-14400)), '%Y-%m-%d') <= :field_data_field_event_date_field_event_date_value)
          AND (DATE_FORMAT(ADDTIME(STR_TO_DATE(field_data_field_event_date.field_event_date_value2, '%Y-%m-%dT%T'), SEC_TO_TIME(-14400)), '%Y-%m-%d') >= :field_data_field_event_date_field_event_date_value2))
        OR
          (DATE_FORMAT(ADDTIME(STR_TO_DATE(field_data_field_event_date.field_event_date_value, '%Y-%m-%dT%T'), SEC_TO_TIME(-14400)), '%Y-%m-%d') >= :field_data_field_event_date_field_event_date_value)";
      $query->where[1]['conditions'][$key]['value'] = array(':field_data_field_event_date_field_event_date_value' => $today, ':field_data_field_event_date_field_event_date_value2' => $today);
    }
    // Modify query for 'Today' to include 'OR' section
    if ($view->exposed_raw_input['date'] == 'Today') {
      end($query->where[1]['conditions']);
      $key = key($query->where[1]['conditions']);
      $query->where[1]['conditions'][$key]['field'] = "((DATE_FORMAT(ADDTIME(STR_TO_DATE(field_data_field_event_date.field_event_date_value, '%Y-%m-%dT%T'), SEC_TO_TIME(-14400)), '%Y-%m-%d') <= :field_data_field_event_date_field_event_date_value)
          AND (DATE_FORMAT(ADDTIME(STR_TO_DATE(field_data_field_event_date.field_event_date_value2, '%Y-%m-%dT%T'), SEC_TO_TIME(-14400)), '%Y-%m-%d') >= :field_data_field_event_date_field_event_date_value2))
        OR
          (DATE_FORMAT(ADDTIME(STR_TO_DATE(field_data_field_event_date.field_event_date_value, '%Y-%m-%dT%T'), SEC_TO_TIME(-14400)), '%Y-%m-%d') = :field_data_field_event_date_field_event_date_value)";
      $query->where[1]['conditions'][$key]['value'] = array(':field_data_field_event_date_field_event_date_value' => $today, ':field_data_field_event_date_field_event_date_value2' => $today);
    }
    // Modify query for 'Past' to sort by desc
    if ($view->exposed_raw_input['date'] == 'Past') {
      foreach ($query->orderby as $key => $data) {
        // We search for these fields so that it doesn't matter where they are; they moved once and broke this.
        if ($data['field'] == 'field_data_field_event_date_field_event_date_value' || $data['field'] == 'field_data_field_event_date_field_event_date_value2') {
          $query->orderby[$key]['direction'] = 'DESC';
        }
      }
    }
  }
  if ($view->name == 'events_with_calendar' && $view->current_display == 'feed_1') {
    end($query->where[1]['conditions']);
    $key = key($query->where[1]['conditions']);
    $query->where[1]['conditions'][$key]['field'] =
      "((DATE_FORMAT(ADDTIME(STR_TO_DATE(field_data_field_event_date.field_event_date_value, '%Y-%m-%dT%T'), SEC_TO_TIME(-14400)), '%Y-%m-%d')
            <= :field_data_field_event_date_field_event_date_value)
         AND
           (DATE_FORMAT(ADDTIME(STR_TO_DATE(field_data_field_event_date.field_event_date_value2, '%Y-%m-%dT%T'), SEC_TO_TIME(-14400)), '%Y-%m-%d')
            >= :field_data_field_event_date_field_event_date_value2)
         AND
           (DATE_FORMAT(ADDTIME(STR_TO_DATE(field_data_field_event_date.field_event_date_value2, '%Y-%m-%dT%T'), SEC_TO_TIME(-14400)), '%Y-%m-%d')
           <= :future_date)
       )
       OR
       ((DATE_FORMAT(ADDTIME(STR_TO_DATE(field_data_field_event_date.field_event_date_value, '%Y-%m-%dT%T'), SEC_TO_TIME(-14400)), '%Y-%m-%d')
         >= :field_data_field_event_date_field_event_date_value)
         AND
           (DATE_FORMAT(ADDTIME(STR_TO_DATE(field_data_field_event_date.field_event_date_value, '%Y-%m-%dT%T'), SEC_TO_TIME(-14400)), '%Y-%m-%d')
          <= :future_date))";
    $query->where[1]['conditions'][$key]['value'] = array(':field_data_field_event_date_field_event_date_value' => $today, ':field_data_field_event_date_field_event_date_value2' => $today, ':future_date' => $future_date);
  }
}

/**
 * Implements hook_node_form_ID_alter().
 *
 * Adds location data (through javascript settings) to the form, which allows for quickly filling in
 * common campus locations
 * There needs to be a central website to get location data from (that has the uw_ct_location feature enabled, populated with content)
 * The location of that site is in a Drupal variable, uw_location_data_json_url, and defaults to the current site if it is not set
 */
function uw_ct_event_form_uw_event_node_form_alter(&$form, &$form_state, $form_id) {
  // check if we have the data in cache, if not, retrieve it
  $cache = cache_get('uw_ct_event:locations', 'cache');
  if ($cache) {
    $locations = $cache->data;
  }
  else {
    $request = variable_get('uw_location_data_json_url', 'https://uwaterloo.ca/web-resources') . '/location/json/list';
    $response = drupal_http_request($request);
    $locations = json_decode($response->data);

    if (isset($locations) && !isset($locations->error)) {
      // set the cache
      cache_set('uw_ct_event:locations', $locations, 'cache', CACHE_TEMPORARY);
    }
  }

  if (isset($locations)) {
    // Add javascript for pre-filling in location data
    $form['#attached']['js'][] = drupal_get_path('module', 'uw_ct_event') . '/js/location-autofill.js';
    $location_container_id = 'uw_event_location';

    // Add Div Wrapper around form so the javascript knows where to add the location lookup dropdown
    $form['field_event_location']['#prefix'] = '<div id="' . $location_container_id . '">';
    $form['field_event_location']['#suffix'] = '</div>';

    // settings used in location-autofill.js
    $settings = array(
      'label' => t('Location lookup'),
      'description' => t('Choose a location or enter location information below.'),
      'custom' => t('- Custom location -'),
      'data' => $locations,
      'selectId' => 'autofill-location-data',
      'containerId' => $location_container_id,
    );

    $form['#attached']['js'][] = array(
      'data' => array('uw_ct_event' => $settings),
      'type' => 'setting',
    );
  }
  // Remove the 'delete this location' checkbox on the edit form
  $form['field_event_location']['und'][0]['#after_build'][] = 'uw_ct_event_remove_location_delete';
}

/**
 * Remove the delete checkbox from location element.
 * Code snippet courtesy of Fabian - ref: http://drupal.org/node/381458#comment-4627442
 */
function uw_ct_event_remove_location_delete(&$form_element, &$form_state) {
  // unset($form_element['delete_location']);
  // unset($form_element['#value']);
  $form_element['name']['#description'] = t('e.g. a building or venue');
  $form_element['additional']['#description'] = t('e.g. room number or meeting point');
  $form_element['locpick']['instructions']['#markup'] = t('Latitude and longitude is used for generating map links. If you do not have latitude and longitude coordinates, you can add a specific map link below.');
  return $form_element;
}

/**
 * Implements hook_block_info().
 */
function uw_ct_event_block_info() {
  $blocks['front_page'] = array(
    'info' => t('Events: front page'),
    'cache' => DRUPAL_CACHE_GLOBAL,
  );
    $blocks['events_public_feed'] = array(
    'info' => t('Events: public feed'),
    'cache' => DRUPAL_CACHE_GLOBAL,
  );
  $blocks['event-calendar-block-id'] = array(
    'info' => t('Event calendar block'),
    'cache' => DRUPAL_CACHE_PER_PAGE,
  );
  $blocks['events_by_audience'] = array(
    'info' => t('Events by audience'),
    'cache' => DRUPAL_CACHE_PER_PAGE,
  );
  return $blocks;
}

/**
 * Implements hook_block_view().
 */
function uw_ct_event_block_view($delta = '') {

  $block = array();

  switch ($delta) {
    case 'front_page':
      // Use timestampadd to correct for time zone (NOTE: having to do this MAY be a bug)
      // if timezone offset is 0, then use -18000 which is correct for Waterloo, and hope we don't have anyone set to Greenwich Mean Time
      $result = db_query("
        SELECT node.nid, node.title, node.sticky,
          DATE(TIMESTAMPADD(SECOND, if(field_event_date_offset = 0, -18000, field_event_date_offset), STR_TO_DATE(field_data_field_event_date.field_event_date_value, '%Y-%m-%dT%T'))) AS date_start,
          DATE(TIMESTAMPADD(SECOND, if(field_event_date_offset2 = 0, -18000, field_event_date_offset2), STR_TO_DATE(field_data_field_event_date.field_event_date_value2, '%Y-%m-%dT%T'))) AS date_end
          FROM {node} node LEFT JOIN {field_data_field_event_date} field_data_field_event_date ON node.nid = field_data_field_event_date.entity_id
          WHERE node.type = 'uw_event' AND node.status = 1 AND node.promote = 1
          -- Show any event that *ends* in the future.
          HAVING date_end >= CURRENT_DATE
          ORDER BY node.sticky DESC, date_start ASC, date_end ASC
          LIMIT 3
      ");
      $items = array();
      $friendly_months = array('Jan.', 'Feb.', 'Mar.', 'Apr.', 'May', 'June', 'July', 'Aug.', 'Sept.', 'Oct.', 'Nov.', 'Dec.');
      foreach ($result as $record) {
        $date_start = strtotime($record->date_start);
        $date_end = strtotime($record->date_end);
        // Start and end on same date. "Nov. 24, 2005"
        if ($date_start === $date_end) {
          $date_formatted = $friendly_months[date('n', $date_start) - 1] . '&nbsp;' . date('j, Y', $date_start);
        }
        elseif (date('Y', $date_start) === date('Y', $date_end)) {
          // Same month and year, different day. "Nov. 24-26, 2005"
          if (date('m', $date_start) === date('m', $date_end)) {
            $date_formatted = $friendly_months[date('n', $date_start) - 1] . '&nbsp;' . date('j', $date_start) . '&ndash;' . date('j, Y', $date_end);
          }
          // Same year. "Nov. 24 to Dec. 2, 2005"
          else {
            $date_formatted = $friendly_months[date('n', $date_start) - 1] . '&nbsp;' . date('j', $date_start) . ' to ' . $friendly_months[date('n', $date_end) - 1] . '&nbsp;' . date('j, Y', $date_end);
          }
        }
        // Fully different dates."Nov. 24, 2005 to Jan. 2, 2006"
        else {
          $date_formatted = $friendly_months[date('n', $date_start) - 1] . '&nbsp;' . date('j, Y', $date_start) . ' to ' . $friendly_months[date('n', $date_end) - 1] . '&nbsp;' . date('j, Y', $date_end);
        }
        $items[] = '<span class="home-listing-block-date' . (($record->sticky) ? ' sticky' : '') . '">' . $date_formatted . '</span><span class="home-listing-block-link">' . l($record->title, 'node/' . $record->nid) . '</span>';
      }

      if (!empty($items)) {
        $block['subject'] = t('Events');
        // setup array to be used by theme_item_list
        $content = array(
          'items' => $items,
          'title' => '',
          'type' => 'ol',
          'attributes' => array(),
        );
        $block['content'] = theme('item_list', $content) . '<span class="home-listing-block-more-link">' . l(t("All upcoming events"), 'events') . '</span>';
      }
      break;

    // Create a link to the rss feed for news
    case 'events_public_feed':
      $block['content'] = events_public_feed_link();
      break;

    // Create a link to expose event calendar
    case 'event-calendar-block-id':
      $block['content'] = uw_ct_event_calendar_contents();
      break;

    case 'events_by_audience':
      $html = '<div class="item-list">';
      $html .= uw_ct_event_audience_taxonomy_tree(0);
      $html .= '</div>';
      if (uw_ct_event_audience_taxonomy_tree(0)) {
        $block['subject'] = t('<button>Events by audience</button>');
        $block['content'] = $html;
      }
      else {
        $block['subject'] = t('');
        $block['content'] = $html;
      }
    break;
  }
  return $block;
}

/**
 * Implements hook_block_view_alter().
 * Add events by date under calendar block
 */
function uw_ct_event_block_view_alter(&$data, $block) {
  $event_exist = db_query("SELECT count(nid) FROM {node} node WHERE type = 'uw_event'")->fetchField();

  if ($block->delta == 'events_with_calendar-block_1') {
    if ($event_exist) {
      $by_date = uw_ct_event_by_date();
      $header = '<h2><button>Events by date</button></h2>';
      $before = $data['content']['#markup'];
      $data['content']['#markup'] = $header . $before . $by_date;
    }
    else {
      $data['content']['#markup'] = '';
    }
  }

  if ($block->delta == 'event_type_block-events_by_type') {
    if ($event_exist) {
      $data['subject'] = '<button>' . $data['subject'] . '</button>';
    }
  }
}

/**
 * Implements hook_init().
 * Redirect events/archive, events/audience, events/type pages to events
 * Redirect invalid term ids and dates on above paths to events
 */
function uw_ct_event_init() {
  global $base_url;
  $path = current_path();

  // Redirect events/archive, events/audience, events/type pages to events
  if ($path == 'events/archive' || $path == 'events/audience' || $path == 'events/type') {
    drupal_goto($base_url . '/events');
  }

  $path = explode("/", $path);

  // Find out TIDS within uwaterloo_audience
  $uw_ct_event_audience_tids = uw_ct_event_get_tid_from_machine_name('uwaterloo_audience');

  // Find out TIDS within uw_event_type
  $uw_ct_event_type_tids = uw_ct_event_get_tid_from_machine_name('uw_event_type');

  // Find out TIDS within uw_event_tags
  $uw_ct_event_tag_tids = uw_ct_event_get_tid_from_machine_name('uw_event_tags');

  // Redirect from events/category/$PATH[2] to events/audience/$PATH[2] -- e.g. https://uwaterloo.ca/environment/events/category/1
  if ($path[0] == 'events' && isset($path[1]) && ($path[1] == 'category') && isset($path[2])) {
    if (is_numeric($path[2]) && in_array($path[2], $uw_ct_event_audience_tids)) {
      drupal_goto($base_url . '/events/audience/' . $path[2]);
    }
  }

  // Redirect events/audience/$PATH[2], when $PATH[2] is NOT taxonomy term id of audience
  if ($path[0] == 'events' && isset($path[1]) && ($path[1] == 'audience') && isset($path[2])) {
    if (!is_numeric($path[2]) || !in_array($path[2], $uw_ct_event_audience_tids)) {
      drupal_set_message(t('Invalid event audience URL. You have been redirected to the main "events" page.'), 'warning');
      drupal_goto($base_url . '/events');
    }
  }

  // Redirect events/type/$PATH[2], when $PATH[2] is NOT taxonomy term id of type
  if ($path[0] == 'events' && isset($path[1]) && ($path[1] == 'type') && isset($path[2])) {
    if (!is_numeric($path[2]) || !in_array($path[2], $uw_ct_event_type_tids)) {
      drupal_set_message(t('Invalid event type URL. You have been redirected to the main "events" page.'), 'warning');
      drupal_goto($base_url . '/events');
    }
  }

  // Redirect events/archive/$PATH[2], when $PATH[2] is NOT in a date format we would pass
  if ($path[0] == 'events' && isset($path[1]) && ($path[1] == 'archive') && isset($path[2])) {
    if (!preg_match('/^\d{4}(?:-(?:[123456789]|1[012]))?$/', $path[2])) {
      drupal_set_message(t('Invalid event date URL. You have been redirected to the main "events" page.'), 'warning');
      drupal_goto($base_url . '/events');
    }
  }

  // Redirect event-tags/$PATH[1], when $PATH[1] is taxonomy term name of tag
  if ($path[0] == 'taxonomy' && $path[1] == 'term' && isset($path[2])) {
    if (in_array($path[2], $uw_ct_event_tag_tids)) {
      drupal_goto($base_url . '/events/tag/' . $path[2]);
    }
  }

  // Redirect events/tag/$PATH[2], when $PATH[2] is NOT taxonomy term id of tag
  if ($path[0] == 'events' && isset($path[1]) && ($path[1] == 'tag') && isset($path[2])) {
    if (!is_numeric($path[2]) || !in_array($path[2], $uw_ct_event_tag_tids)) {
      drupal_set_message(t('Invalid event tag URL. You have been redirected to the main "events" page.'), 'warning');
      drupal_goto($base_url . '/events');
    }
  }
  
  // Redirect events/calendar/NOTADATE
  if ($path[0] == 'events' && isset($path[1]) && $path[1] == 'calendar' && isset($path[2]) && !preg_match('/^[0-9]{4}-(0?[1-9]|1[0-2])$/', $path[2])) {
    drupal_set_message(t('Invalid calendar URL. You have been redirected to the main "calendar" page.'), 'warning');
    drupal_goto($base_url . '/events/calendar');
  }

  // Redirect events/day/NOTADATE
  if ($path[0] == 'events' && isset($path[1]) && $path[1] == 'day' && isset($path[2]) && !preg_match('/^[0-9]{4}-(0?[1-9]|1[0-2])(-[0-9]{1,2})$/', $path[2])) {
    drupal_set_message(t('Invalid day URL. You have been redirected to today\'s "day" page.'), 'warning');
    drupal_goto($base_url . '/events/day');
  }
}

/**
 * Implements hook_page_build().
 *
 * Add the breadcrumbs for the management view
 */
function uw_ct_event_page_build() {
  $path = current_path();
  if ($path == 'admin/workbench/manage/events') {
    $breadcrumb = drupal_get_breadcrumb();
    $breadcrumb[1] = l(t('Administration'), 'admin');
    $breadcrumb[2] = l(t('My Workbench'), 'admin/workbench');
    $breadcrumb[3] = l(t('Create/Manage Content'), 'admin/workbench/create');
    drupal_set_breadcrumb($breadcrumb);

  }
  else {
    $path = explode("/", $path);
    switch ($path[0]) {
      case 'node':
        $node = isset($path[1]) && $path[1] != 'add' ? node_load($path[1]) : NULL;
        if (isset($node) && is_object($node) && $node->type == 'uw_event') {
          $breadcrumb = drupal_get_breadcrumb();
          $breadcrumb[1] = l(t('Events'), 'events');
          drupal_add_js(drupal_get_path('module', 'uw_ct_event') . '/js/uw_ct_event.js');

          // TODO: determine how to handle repeating dates (edge case)
          // currently we only check the very first start date
          // add the timezone offset to the stored datetime to get the actual datetime (NOTE: having to do this MAY be a bug)
          $start_date = strtotime($node->field_event_date[$node->language][0]['value'])+$node->field_event_date[$node->language][0]['offset'];
          $year = format_date($start_date, 'custom', 'Y');
          $month_name = format_date($start_date, 'custom', 'F');
          $month_number = format_date($start_date, 'custom', 'm');
          $breadcrumb[2] = l($year, 'events/archive/' . $year);
          $breadcrumb[3] = l($month_name, 'events/archive/' . $year . '-' . $month_number);
          drupal_set_breadcrumb($breadcrumb);
        }
        break;

      case 'events':
        drupal_add_js(drupal_get_path('module', 'uw_ct_event') . '/js/uw_ct_event.js');
        if (isset($path[1]) && $path[1] == 'archive' && isset($path[2])) {
          $breadcrumb = drupal_get_breadcrumb();
          if (isset($breadcrumb[1])) {
            unset($breadcrumb[1]);
          }
          drupal_set_breadcrumb($breadcrumb);
        }
        if (isset($path[1]) && ($path[1] == 'calendar' || $path[1] == 'day')) {
          $breadcrumb = drupal_get_breadcrumb();
          if (isset($breadcrumb[1])) {
            unset($breadcrumb[1]);
          }
          drupal_set_breadcrumb($breadcrumb);
        }
        break;
    }
  }
}

/**
 * Implements hook_element_info_alter().
 */
function uw_ct_event_element_info_alter(&$type) {
  if (isset($type['link_field'])) {
    $type['link_field']['#process'][] = 'uw_ct_event_link_field_process';
  }
}

/**
 * Process the link type element before displaying the field.
 * Build the form element. When creating a form using FAPI #process,
 * note that $element['#value'] is already set.
 * The $fields array is in $complete_form['#field_info'][$element['#field_name']].
 */
function uw_ct_event_link_field_process($element, $form_state, $complete_form) {
  switch ($element['#field_name']) {

    case 'field_event_host_link':
      $element['title']['#title'] = t('Link text');
      $element['url']['#title'] = t('URL');
      $element['title']['#description'] = t('The link text is limited to ' . $element['title']['#maxlength'] . ' characters maximum.');
      break;

    case 'field_event_link':
      $element['title']['#title'] = t('Link text');
      $element['url']['#title'] = t('URL');
      $element['title']['#description'] = t('The link text is limited to ' . $element['title']['#maxlength'] . ' characters maximum.');
      break;

  }
  return $element;
}

/**
 * Implements hook_theme_registry_alter().
 */
function uw_ct_event_theme_registry_alter(&$theme_registry) {
  $theme_registry['node__uw_event'] = array(
    'template' => 'node--uw-event',
    'path' => drupal_get_path('module', 'uw_ct_event') . '/templates',
    'type' => 'theme',
  );
  $theme_registry['field__uw_event'] = array(
    'template' => 'field--uw-event',
    'path' => drupal_get_path('module', 'uw_ct_event') . '/templates',
    'type' => 'theme',
  );
  $theme_registry['block__uw_ct_event'] = array(
    'template' => 'block--uw-ct-event',
    'path' => drupal_get_path('module', 'uw_ct_event') . '/templates',
    'type' => 'theme',
  );
  $theme_registry['date_views_pager'] = array(
    'template' => 'date-views-pager',
    'path' => drupal_get_path('module', 'uw_ct_event') . '/templates',
    'theme path' => drupal_get_path('module', 'date') . '/date_views',
    'type' => 'module',
    'preprocess functions' => array(
      'template_preprocess_event_date_views_pager',
    ),
  );
  $theme_registry['calendar_datebox'] = array(
      'template' => 'calendar-datebox',
      'path' => drupal_get_path('module', 'uw_ct_event') . '/templates',
      'theme path' => drupal_get_path('module', 'calendar'),
      'type' => 'module',
      'preprocess functions' => array(
        'template_preprocess_event_calendar_datebox',
      ),
  );
  $theme_registry['calendar_mini'] = array(
      'template' => 'calendar-mini',
      'path' => drupal_get_path('module', 'uw_ct_event') . '/templates',
      'theme path' => drupal_get_path('module', 'calendar'),
      'type' => 'module',
      'preprocess functions' => array(
        'template_preprocess_event_calendar_mini',
      ),
  );
  $theme_registry['calendar_empty_day'] = array(
    'path' => drupal_get_path('module', 'calendar') . '/theme',
    'theme path' => drupal_get_path('module', 'calendar'),
    'function' => 'uw_ct_event_calendar_empty_day',
  );
}

/**
 * Implements hook_theme().
 * Adds views-related template files
 */
function uw_ct_event_theme($existing, $type, $theme, $path) {
  return array(
    'views_view_unformatted__events__page' => array(
      'variables' => array('view' => NULL, 'options' => NULL, 'rows' => NULL, 'title' => NULL),
      'template' => 'views-view-unformatted--events--page',
      'base hook' => 'views_view_unformatted',
      'path' => drupal_get_path('module', 'uw_ct_event') . '/templates',
      'preprocess functions' => array(
        'template_preprocess',
        'template_preprocess_views_view_unformatted',
      ),
    ),
    'views_view_unformatted__events_with_calendar__page_3' => array(
      'variables' => array('view' => NULL, 'options' => NULL, 'rows' => NULL, 'title' => NULL),
      'template' => 'views-view-unformatted--events--page',
      'base hook' => 'views_view_unformatted',
      'path' => drupal_get_path('module', 'uw_ct_event') . '/templates',
      'preprocess functions' => array(
        'template_preprocess',
        'template_preprocess_views_view_unformatted',
      ),
    ),
    'views_view_unformatted__events_with_calendar__attachment_1' => array(
      'variables' => array('view' => NULL, 'options' => NULL, 'rows' => NULL, 'title' => NULL),
      'template' => 'views-view-unformatted--events--page',
      'base hook' => 'views_view_unformatted',
      'path' => drupal_get_path('module', 'uw_ct_event') . '/templates',
      'preprocess functions' => array(
        'template_preprocess',
        'template_preprocess_views_view_unformatted',
      ),
    ),
    'views_view_rss__events' => array(
      'variables' => array('view' => NULL, 'options' => NULL, 'rows' => NULL, 'title' => NULL),
      'template' => 'views-view-rss--events',
      'base hook' => 'views_view_rss',
      'path' => drupal_get_path('module', 'uw_ct_event') . '/templates',
      'preprocess functions' => array(
        'template_preprocess',
        'template_preprocess_views_view_rss',
      ),
    ),
  );
}

/**
 * custom html block: To add the feed link to a block
 */
function events_public_feed_link() {
  $basepath = base_path() . 'events/events.xml';
  return '<div class="rss_link"><a href="' . $basepath . '">Subscribe to events feed</a></div>';
}

/**
 * custom html block: display event calendar link
 * @return string
 */
function uw_ct_event_calendar_contents() {
  global $base_url;
  $link = $base_url . '/events/calendar.ics';
  // $image_path = drupal_get_path('module', 'uw_ct_event') . '/images/ical-feed-icon-34x14.png';
  $html = '<div class="feed-icon">';

  $event_exist = db_query("SELECT count(node.nid)
    FROM {node} AS node LEFT JOIN {field_data_field_event_date} AS ed ON node.nid = ed.entity_id
    WHERE node.type = 'uw_event' AND ed.field_event_date_value >= CURRENT_DATE AND node.status = 1
    LIMIT 1")->fetchField();

  if ($event_exist > 0) {
    $html .= '<a class="ical-icon" href="' . $link . '">';
    $html .= 'Export event calendar';
    $html .= '</a>';
  }
  $html .= '</div>';
  return $html;
}

/**
 * Implements hook_preprocess_HOOK().
 * 1. Add scope="col" for web accessibility.
 * Remove headers= "Sunday"... for web accessibility
 * 2. Disable the options of the select list for type and audience
 * which are not selected by event node
 */
function uw_ct_event_preprocess_html(&$variables) {
  $path = current_path();
  $path = explode("/", $path);
  if (isset($path[0]) && $path[0] == 'events') {
    $search  = '<th class="';
    $replace = '<th scope="col" class="';
    $variables['page']['#children'] = str_replace($search, $replace, $variables['page']['#children']);
    $search  = 'headers="Sunday"';
    $replace = '';
    $variables['page']['#children'] = str_replace($search, $replace, $variables['page']['#children']);
    $search  = 'headers="Monday"';
    $replace = '';
    $variables['page']['#children'] = str_replace($search, $replace, $variables['page']['#children']);
    $search  = 'headers="Tuesday"';
    $replace = '';
    $variables['page']['#children'] = str_replace($search, $replace, $variables['page']['#children']);
    $search  = 'headers="Wednesday"';
    $replace = '';
    $variables['page']['#children'] = str_replace($search, $replace, $variables['page']['#children']);
    $search  = 'headers="Thursday"';
    $replace = '';
    $variables['page']['#children'] = str_replace($search, $replace, $variables['page']['#children']);
    $search  = 'headers="Friday"';
    $replace = '';
    $variables['page']['#children'] = str_replace($search, $replace, $variables['page']['#children']);
    $search  = 'headers="Saturday"';
    $replace = '';
    $variables['page']['#children'] = str_replace($search, $replace, $variables['page']['#children']);
  }

  if (isset($path[0]) && $path[0] == 'events') {

    $type_tid = uw_ct_event_get_tid_from_machine_name('uw_event_type');
    $using_type_tid = uw_ct_event_get_using_taxonomy_term('uw_event_type');

    foreach ($type_tid as $item) {
      if (is_array($using_type_tid)) {
        if (!in_array($item, $using_type_tid)) {
          $search = '<option value="' . $item . '">';
          $replace = '<option value="' . $item . '" disabled="true">';
          $variables['page']['#children'] = str_replace($search, $replace, $variables['page']['#children']);
        }
      }
      else {
        $search = '<option value="' . $item . '">';
        $replace = '<option value="' . $item . '" disabled="true">';
        $variables['page']['#children'] = str_replace($search, $replace, $variables['page']['#children']);
      }
    }

    $audience_tid = uw_ct_event_get_tid_from_machine_name('uwaterloo_audience');
    $using_audience_tid = uw_ct_event_get_using_taxonomy_term('uwaterloo_audience');

    foreach ($audience_tid as $item) {
      if (is_array($using_audience_tid)) {
        if (!in_array($item, $using_audience_tid)) {
          $search = '<option value="' . $item . '">';
          $replace = '<option value="' . $item . '" disabled="true">';
          $variables['page']['#children'] = str_replace($search, $replace, $variables['page']['#children']);
        }
      }
      else {
        $search = '<option value="' . $item . '">';
        $replace = '<option value="' . $item . '" disabled="true">';
        $variables['page']['#children'] = str_replace($search, $replace, $variables['page']['#children']);
      }
    }
  }
}

function uw_ct_event_audience_taxonomy_tree($tid) {
  $today = date("Y-m-d");
  $taxonomy = uw_ct_event_audience_get_taxonomy_parents($tid, $today);
  if ($taxonomy) {
    $html = '<ul>';
    foreach ($taxonomy as $id => $item) {
      $html .= '<li>';
      $html .= l($item['name'], 'events/audience/' . $item['tid']);
      $html .= ' (' . $item['count'] . ')';
      $html .= uw_ct_event_audience_taxonomy_tree($item['tid']);
      $html .= '</li>';
    }
    $html .= '</ul>';
    return $html;
  }
}

function uw_ct_event_audience_get_taxonomy_parents($tid, $today) {
  $query = "SELECT
      taxonomy_term_data.tid AS tid,
      taxonomy_term_data.name AS name,
      taxonomy_term_data.vid AS vid,
      taxonomy_vocabulary.machine_name AS machine_name,
      COUNT(field_audience_taxonomy_term_data.nid) AS count
    FROM
      {taxonomy_term_data} taxonomy_term_data
    LEFT JOIN
      {field_data_field_audience} field_data_field_audience ON
        taxonomy_term_data.tid = field_data_field_audience.field_audience_tid
          AND
        (field_data_field_audience.entity_type = 'node' AND field_data_field_audience.deleted = '0')
    LEFT JOIN
      {node} field_audience_taxonomy_term_data ON
        field_data_field_audience.entity_id = field_audience_taxonomy_term_data.nid
    LEFT JOIN
      {taxonomy_vocabulary} taxonomy_vocabulary ON
        taxonomy_term_data.vid = taxonomy_vocabulary.vid
    LEFT JOIN
      {taxonomy_term_hierarchy} taxonomy_term_hierarchy ON
        taxonomy_term_data.tid = taxonomy_term_hierarchy.tid
    LEFT JOIN
      {field_data_field_event_date} field_audience_taxonomy_term_data__field_data_field_event_date ON
        field_audience_taxonomy_term_data.nid = field_audience_taxonomy_term_data__field_data_field_event_date.entity_id
          AND (field_audience_taxonomy_term_data__field_data_field_event_date.entity_type = 'node'
          AND field_audience_taxonomy_term_data__field_data_field_event_date.deleted = '0')
    WHERE
      ( (taxonomy_vocabulary.machine_name IN  ('uwaterloo_audience'))
        AND (field_audience_taxonomy_term_data.type IN  ('uw_event'))
        AND (field_audience_taxonomy_term_data.status = '1')
        AND taxonomy_term_hierarchy.parent = :tid
        AND ((((DATE_FORMAT(ADDTIME(STR_TO_DATE(field_audience_taxonomy_term_data__field_data_field_event_date.field_event_date_value, '%Y-%m-%dT%T'),
            SEC_TO_TIME(-18000)), '%Y-%m-%d') <= :today)
        AND (DATE_FORMAT(ADDTIME(STR_TO_DATE(field_audience_taxonomy_term_data__field_data_field_event_date.field_event_date_value2, '%Y-%m-%dT%T'),
            SEC_TO_TIME(-18000)), '%Y-%m-%d') >= :today) ))
        OR (DATE_FORMAT(ADDTIME(STR_TO_DATE(field_audience_taxonomy_term_data__field_data_field_event_date.field_event_date_value, '%Y-%m-%dT%T'),
      SEC_TO_TIME(-18000)), '%Y-%m-%d') >= :today)) )
    GROUP BY
      tid, name, vid, machine_name
    ORDER BY
      taxonomy_term_data.weight";
  $args = array(
      ':tid' => $tid,
      ':today' => $today,
  );

  $result = db_query($query, $args);
  $return = FALSE;
  foreach ($result as $id => $record) {
    $return[$id]['tid'] = $record->tid;
    $return[$id]['name'] = $record->name;
    $return[$id]['count'] = $record->count;
  }

  return $return;
}

/**
 * Full archive
 */
function uw_ct_event_by_date() {

  $year_array =  uw_ct_event_get_year_array();
  $combine_year = array();
  $combine_year = uw_ct_event_get_combine_year_array($year_array[1], $year_array[2]);
  $links = array();
  foreach ($combine_year as $key => $record_year) {

    $year_link = l($key, 'events/archive/' . $key) . ' (' . $record_year . ')';

    $month_date_value = uw_ct_event_get_start_month_array($key);
    $month_date_value2 = uw_ct_event_get_end_month_array($key);

    $combine_month = array();
    $combine_month = uw_ct_event_get_combine_month_array($month_date_value, $month_date_value2);

    $months = array();
    // ignore individual months if more than 3 years old, unless in the path for this exact year
    $selectedyear = explode('/', current_path());
    $selectedyear = substr($selectedyear[count($selectedyear)-1], 0, 4);
    if ($key > date('Y')-2 || $key == $selectedyear) {
      foreach ($combine_month as $key_month => $record_month) {
        $months[] = l(date('F', mktime(0, 0, 0, $key_month, 1)), 'events/archive/' . $key . '-' . $key_month) . ' (' . $record_month . ')';
      }
    }
    $links[] = array(
        'data' => $year_link,
        'children' => $months,
    );
  }

  // setup array to be used by theme_item_list
  $content_header = "<h3 class='full-archive'><button>Full archive</button></h3>";
  $content = array(
      'items' => $links,
      'title' => '',
      'type' => 'ol',
      'attributes' => array(),
  );
  $return = FALSE;