<?php

/**
 * @file
 * i18n_access.module
 */

/**
 * Implements hook_user_insert().
 */
function i18n_access_user_insert(&$edit, &$account, $category = NULL) {
  i18n_access_user_update($edit, $account, $category);
}

/**
 * Implements hook_user_update().
 */
function i18n_access_user_update(&$edit, &$account, $category = NULL) {
  if ($category == 'account') {
    // see user_admin_perm_submit()
    if (isset($edit['i18n_access'])) {
      db_delete('i18n_access')
        ->condition('uid', $account->uid)
        ->execute();
      $edit['i18n_access'] = array_filter($edit['i18n_access']);
      if (count($edit['i18n_access'])) {
        db_insert('i18n_access')
          ->fields(array(
            'uid' => $account->uid,
            'perm' => implode(', ', array_keys($edit['i18n_access'])),
        ))->execute();
      }
      unset($edit['i18n_access']);
    }
  }
}

/**
 * Implements hook_user_delete().
 */
function i18n_access_user_delete($account) {
  db_delete('i18n_access')
    ->condition('uid', $account->uid)
    ->execute();
}

/**
 * Load the language permissions for a given user
 */
function i18n_access_load_permissions($uid = NULL) {
  $perms = &drupal_static(__FUNCTION__);

  // use the global user id if none is passed
  if (!isset($uid)) {
    $uid = $GLOBALS['user']->uid;
    $account = NULL;
  }
  else {
    $account = user_load($uid);
  }

  if (!isset($perms[$uid])) {
    $perm_string = db_query('SELECT perm FROM {i18n_access} WHERE uid = :uid', array(':uid' => $uid))->fetchField();

    if ($perm_string) {
      $perms[$uid] = drupal_map_assoc(explode(', ', $perm_string));
    }
    else {
      $perms[$uid] = array();
    }
  }

  // adding the default languages if permission has been granted
  if (user_access('access selected languages', $account)) {
    $perms[$uid] = array_merge($perms[$uid], drupal_map_assoc(variable_get('i18n_access_languages', array())));
  }

  return $perms[$uid];
}

/**
 * Implements hook_permission().
 */
function i18n_access_permission() {
  return array(
    'access selected languages' => array(
      'title' => t('Access selected languages'),
      'description' => t('This permission gives this role edit/delete access to all content which are in the <a href="!url" target="_blank">selected language</a>. View/create access needs a different access level.', array('!url' => url('admin/config/regional/language/access'))),
      'restrict access' => TRUE,
    ),
  );
}

/**
 * Implements hook_form_node_form_alter().
 */
function i18n_access_form_node_form_alter(&$form) {
  $form['#after_build'][] = '_i18n_access_form_node_form_alter';
}

/**
 * Unset's languages from language options if user does not have permission to
 * use.
 *
 * @param $form
 * @param $form_state
 * @return mixed
 */
function _i18n_access_form_node_form_alter($form, &$form_state) {
  if (isset($form['language']['#options']) && !user_access('bypass node access')) {
    $perms = i18n_access_load_permissions();
    foreach ($form['language']['#options'] as $key => $value) {
      if (empty($perms[$key])) {
        unset($form['language']['#options'][$key]);
      }
    }
  }

  return $form;
}

/**
 * Implements hook_form_alter().
 */
function i18n_access_form_alter(&$form, &$form_state, $form_id) {
  //Configuring translation edit form to limit it to allowed language
  if ($form_id == 'i18n_node_select_translation' && !user_access('bypass node access')) {

    $perms = i18n_access_load_permissions();
    foreach ($form['translations']['nid'] as $language => $translation) {
      if (!isset($perms[$language]) && $language != '#tree') {
        unset($form['translations']['nid'][$language]);
      }
    }
    foreach ($form['translations']['language'] as $language => $translation) {
      if (!isset($perms[$language]) && $language != '#tree') {
        unset($form['translations']['language'][$language]);
      }
    }
    foreach ($form['translations']['node'] as $language => $translation) {
      if (!isset($perms[$language]) && $language != '#tree') {
        unset($form['translations']['node'][$language]);
      }
    }

  }

  // Add i18n_access things to user/edit /user/add
  if ($form_id == 'user_register_form' || $form_id == 'user_profile_form' ) {

    $form['i18n_access'] = array(
      '#type' => 'fieldset',
      '#title' => t('Translation access'),
      '#tree' => 0,
      '#access' => user_access('administer users'),
    );
    $form['i18n_access']['i18n_access'] = array(
      '#type' => 'checkboxes',
      '#options' => array(LANGUAGE_NONE => t('Language neutral')) + locale_language_list('name'),
      '#default_value' => i18n_access_load_permissions($form['#user']->uid),
      '#description' => t('The user get edit, delete access to all content which are in this enabled languages. Create, view access needs a different access level.'),
    );
  }
}

/**
 * Implements hook_node_access().
 */
function i18n_access_node_access($node, $op, $account = NULL) {
  if (is_object($node)) {

    global $user;

    // If no user object is supplied, the access check is for the current user.
    if (empty($account)) {
      $account = $user;
    }

    // This module doesn't deal with view permissions
    if ($op == 'view') {
      return NODE_ACCESS_IGNORE;
    }

    $perms = i18n_access_load_permissions($account->uid);

    // Make sure to use the language neutral constant if node language is empty
    $langcode = $node->language ? $node->language : LANGUAGE_NONE;

    return isset($perms[$langcode]) ? NODE_ACCESS_ALLOW : NODE_ACCESS_DENY;
  }
}

/**
 * Implements hook_menu_alter().
 */
function i18n_access_menu_alter(&$items) {
  if (isset($items['node/%node/translate'])) {
    $items['node/%node/translate']['page callback'] = 'i18n_access_translation_node_overview';
  }
}

/**
 * Most logic comes from translation/i18n_node module.
 *
 * We removes here only the "add translation" links for languages which are not your selected language.
 *
 * @see translation_node_overview
 * @see i18n_node_translation_overview
 *
 * @param object $node
 *
 * @return array.
 */
function i18n_access_translation_node_overview($node) {

  include_once DRUPAL_ROOT . '/includes/language.inc';
  if (!empty($node->tnid)) {
    // Already part of a set, grab that set.
    $tnid = $node->tnid;
    $translations = translation_node_get_translations($node->tnid);
  }
  else {
    // We have no translation source nid, this could be a new set, emulate that.
    $tnid = $node->nid;
    $translations = array($node->language => $node);
  }

  $header = array(t('Language'), t('Title'), t('Status'), t('Operations'));
  $rows = array();
  global $user;
  $perms = i18n_access_load_permissions($user->uid);
  //end

  // Modes have different allowed languages
  foreach (i18n_node_language_list($node) as $langcode => $language_name) {
    if ($langcode == LANGUAGE_NONE) {
      // Never show language neutral on the overview.
      continue;
    }
    $options = array();
    if (isset($translations[$langcode])) {
      // Existing translation in the translation set: display status.
      // We load the full node to check whether the user can edit it.
      $translation_node = node_load($translations[$langcode]->nid);
      $path = 'node/' . $translation_node->nid;
      $title = i18n_node_translation_link($translation_node->title, $path, $langcode);
      if (node_access('update', $translation_node)) {
        $text = t('edit');
        $path = 'node/' . $translation_node->nid . '/edit';
        $options[] = i18n_node_translation_link($text, $path, $langcode);
      }
      $status = $translation_node->status ? t('Published') : t('Not published');
      $status .= $translation_node->translate ? ' - <span class="marker">' . t('outdated') . '</span>' : '';
      if ($translation_node->nid == $tnid) {
        $language_name = t('<strong>@language_name</strong> (source)', array('@language_name' => $language_name));
      }
    }
    else {
      // No such translation in the set yet: help user to create it.
      $title = t('n/a');
      if (node_access('create', $node->type) && (!empty($perms[$langcode]) || user_access('bypass node access'))) {
        $text = t('add translation');
        $path = 'node/add/' . str_replace('_', '-', $node->type);
        $query = array('query' => array('translation' => $node->nid, 'target' => $langcode));
        $options[] = i18n_node_translation_link($text, $path, $langcode, $query);
      }
      $status = t('Not translated');
    }
    $rows[] = array($language_name, $title, $status, implode(" | ", $options));
  }

  drupal_set_title(t('Translations of %title', array('%title' => $node->title)), PASS_THROUGH);

  $build['translation_node_overview'] = array(
    '#theme' => 'table',
    '#header' => $header,
    '#rows' => $rows,
  );

  if (user_access('administer content translations')) {
    $build['translation_node_select'] = drupal_get_form('i18n_node_select_translation', $node, $translations);
  }
  return $build;
}

/**
 * Implements hook_menu().
 */
function i18n_access_menu() {
  $items['admin/config/regional/language/access'] = array(
    'title' => 'Access',
    'page callback' => 'drupal_get_form',
    'page arguments' => array('i18n_access_admin_settings'),
    'access arguments' => array('administer site configuration'),
    'type' => MENU_LOCAL_TASK,
    'weight' => 10,
  );
  return $items;
}

/**
 * Admin settings form.
 */
function i18n_access_admin_settings($form) {
  $form['i18n_access_languages'] = array(
    '#title' => t('Select the default access languages'),
    '#type' => 'select',
    '#multiple' => TRUE,
    '#options' => array(LANGUAGE_NONE => t('Language neutral')) + locale_language_list('name'),
    '#default_value' => variable_get('i18n_access_languages', array()),
    '#description' => t("This selection of languages will be connected with the 'access selected languages' permission which you can use to grant a role access to these languages at once.")
  );
  return system_settings_form($form);
}