Club Drupal

/**

 * Implements hook_help().

 */

function link_help($path, $arg) {

  switch ($path) {

    case 'admin/help#link':

      $output = '<p><strong>About</strong></p>';

      $output .= '<p>' . 'The link provides a standard custom content field for links. Links can be easily added to any content types and profiles and include advanced validating and different ways of storing internal or external links and URLs. It also supports additional link text title, site wide tokens for titles and title attributes, target attributes, css class attribution, static repeating values, input conversion, and many more.' . '</p>';

      $output .= '<p>' . '<strong>Requirements / Dependencies</strong>' . '</p>';

      $output .= '<p>' . 'Fields API is provided already by core [no dependencies].' . '</p>';

      $output .= '<p><strong>Configuration</strong></p>';

      $output .= '<p>' . 'Configuration is only slightly more complicated than a text field. Link text titles for URLs can be made required, set as instead of URL, optional (default), or left out entirely. If no link text title is provided, the trimmed version of the complete URL will be displayed. The target attribute should be set to "_blank", "top", or left out completely (checkboxes provide info). The rel=nofollow attribute prevents the link from being followed by certain search engines.' . '</p>';

      return $output;

  }

}

    'select' => t('Selected Title'),

    '#title' => t('Static or default title'),

    '#description' => t('This title will 1) always be used if "Static Title" is selected above, or 2) used if "Optional title" is selected above and no title is entered when creating content.'),

    '#states' => array(

      'visible' => array(

        ':input[name="instance[settings][title]"]' => array('value' => 'value'),

      ),

    ),

  );

  $form['title_allowed_values'] = array(

    '#type' => 'textarea',

    '#title' => t('Title allowed values'),

    '#default_value' => isset($instance['settings']['title_allowed_values']) ? $instance['settings']['title_allowed_values'] : '',

    '#description' => t('When using "Selected Title", you can allow users to select the title from a limited set of values (eg. Home, Office, Other). Enter here all possible values that title can take, one value per line.'),

    '#states' => array(

      'visible' => array(

        ':input[name="instance[settings][title]"]' => array('value' => 'select'),

      ),

    ),

    '#description' => t('When output, this link will have this rel attribute. The most common usage is <a href="http://en.wikipedia.org/wiki/Nofollow" target="blank">rel=&quot;nofollow&quot;</a> which prevents some search engines from spidering entered links.'),

    '#description' => t('When output, links will use this "title" attribute if the user does not provide one and when different from the link text. Read <a href="http://www.w3.org/TR/WCAG10-HTML-TECHS/#links" target="blank">WCAG 1.0 Guidelines</a> for links comformances. Tokens values will be evaluated.'),

 * Form validate.

 *

    form_set_error('instance][settings][title_value', t('A default title must be provided if the title is a static value.'));

  }

  if ($form_state['values']['instance']['settings']['title'] === 'select'

    && empty($form_state['values']['instance']['settings']['title_allowed_values'])) {

    form_set_error('instance][settings][title_allowed_values', t('You must enter one or more allowed values for link Title, the title is a selected value.'));

  if (!empty($error['error_element']['title'])) {

  elseif (!empty($error['error_element']['url'])) {

 * @param array $item

 *   Link field values.

 * @param array $delta

 *   The sequence number for current values.

 * @param array $field

 *   The field structure array.

 * @param object $entity

 *   Entity object.

 * @param array $instance

 *   The instance structure for $field on $entity's bundle.

 * @codingStandardsIgnoreStart

  // @codingStandardsIgnoreEnd

  // In a totally bizzaro case, where URLs and titles are optional but the field

  // is required, ensure there is at least one link.

    && (strlen(trim($item['url'])) !== 0 || strlen(trim($item['title'])) !== 0)) {

 * @param array $item

 * @param int $delta

 * @param array $field

 * @param object $entity

 *

 * @codingStandardsIgnoreStart

  // @codingStandardsIgnoreEnd

  $entity_type == 'taxonomy_term' || $entity_type == 'taxonomy_vocabulary' ? str_replace('taxonomy_', '', $entity_type) : $entity_type

      array(

        'query' => isset($url_parts['query']) ? $url_parts['query'] : NULL,

        'fragment' => isset($url_parts['fragment']) ? $url_parts['fragment'] : NULL,

        'absolute' => !empty($instance['settings']['absolute_url']),

        'html' => TRUE,

  elseif (drupal_strlen(trim($item['title']))) {

  // Use the static title if a user-defined title is optional and a static title

  // has been defined.

  elseif ($instance['settings']['title'] == 'optional' && drupal_strlen(trim($instance['settings']['title_value']))) {

    $title = $instance['settings']['title_value'];

  }

  if ($title && $instance['settings']['enable_tokens']) {

  }

  if ($title && ($instance['settings']['title'] == 'value' || $instance['settings']['enable_tokens'])) {

    $title = filter_xss($title, array(

      'b',

      'br',

      'code',

      'em',

      'i',

      'img',

      'span',

      'strong',

      'sub',

      'sup',

      'tt',

      'u',

    ));

  $item['title'] = empty($title) && $title !== '0' ? $item['display_url'] : $title;

    if (!empty($text_tokens)) {

    $item['attributes']['title'] = filter_xss($item['attributes']['title'], array(

      'b',

      'br',

      'code',

      'em',

      'i',

      'img',

      'span',

      'strong',

      'sub',

      'sup',

      'tt',

      'u',

    ));

 * in order to maintain compatibility with deprecated register_globals

 * directive:

      'variables' => array(

        'element' => NULL,

        'display' => NULL,

        'field' => NULL,

      ),

    ),

    'link_formatter_link_no_protocol' => array(

      'variables' => array('element' => NULL, 'field' => NULL),

 * The $fields array is in

 * $complete_form['#field_info'][$element['#field_name']].

  if (in_array($settings['title'], array('optional', 'required'))) {

    // Default value.

    $title_maxlength = 128;

    if (!empty($settings['title_maxlength'])) {

      $title_maxlength = $settings['title_maxlength'];

    }

      '#maxlength' => $title_maxlength,

      '#description' => t('The link title is limited to @maxlength characters maximum.', array('@maxlength' => $title_maxlength)),

  elseif ($settings['title'] == 'select') {

    $options = drupal_map_assoc(array_filter(explode("\n", str_replace("\r", "\n", trim($settings['title_allowed_values'])))));

    $element['title'] = array(

      '#type' => 'select',

      '#title' => t('Title'),

      '#description' => t('Select the a title for this link.'),

      '#default_value' => isset($element['#value']['title']) ? $element['#value']['title'] : NULL,

      '#options' => $options,

    );

  }

  // then allow the individual field items display the required asterisk if

  // needed.

    'link_no_protocol' => array(

      'label' => t('URL with the protocol removed'),

      'field types' => array('link_field'),

      'multiple values' => FIELD_BEHAVIOR_DEFAULT,

    ),

    return !empty($link_options['html']) ? $vars['element']['title'] : check_plain($vars['element']['title']);

/**

 * Formats a link without the http:// or https://.

 */

function theme_link_formatter_link_no_protocol($vars) {

  $link_options = $vars['element'];

  unset($link_options['title']);

  unset($link_options['url']);

  // We drop any scheme of the url.

  $scheme = parse_url($vars['element']['url']);

  $search = '/' . preg_quote($scheme['scheme'] . '://', '/') . '/';

  $replace = '';

  $display_url = preg_replace($search, $replace, $vars['element']['url'], 1);

  return $vars['element']['url'] ? l($display_url, $vars['element']['url'], $link_options) : '';

}

  return empty($vars['element']['title']) ? '' : check_plain(decode_entities($vars['element']['title']));

 * @TODO: hook_token_list no longer exists - this should change to

 *   hook_token_info().

 * @TODO: hook_token_values no longer exists - this should change to

 *   hook_tokens().

 * protocol specified.

 *   The protocol to be prepended to the url if one is not specified.

      // But should there be? Add an automatic http:// if it starts with a

      // domain name.

      $link_domains = _link_domains();

      $domain_match = preg_match('/^(([a-z0-9]([a-z0-9\-_]*\.)+)(' . $link_domains . '|[a-z]{2}))/i', $url);

 * @param string $text

 * @param string $langcode

 * @return bool

  $text = _link_clean_relative($text);

/**

 * Cleaner of relatives urls.

 *

 * @param string $url

 *   The url to clean up the relative protocol.

 */

function _link_clean_relative($url) {

  $check = substr($url, 0, 2);

  if (isset($_SERVER['HTTPS']) &&

    ($_SERVER['HTTPS'] == 'on' || $_SERVER['HTTPS'] == 1) ||

    isset($_SERVER['HTTP_X_FORWARDED_PROTO']) &&

    $_SERVER['HTTP_X_FORWARDED_PROTO'] == 'https') {

    $protocol = 'https://';

  }

  else {

    $protocol = 'http://';

  }

  if ($check == '//') {

    $url = str_replace('//', $protocol, $url);

  }

  return $url;

}

 *

  // @codingStandardsIgnoreStart

  $link_ichars_domain = (string) html_entity_decode(implode("", array(

    "¿", // ¿

    "Ã", // Ã

    "Å", // Å

    "Æ", // Æ

    "Ì", // Ì

    "Í", // Í

    "Ð", // Ð

    "Ñ", // Ñ

    "Ò", // Ò

    "Ó", // Ó

    "Ö", // Ö

    // ×

    "Ø", // Ø

    "Ú", // Ú

    "Ü", // Ü

    "Ý", // Ý

    // ß (see LINK_ICHARS)

    "à", // à

    "á", // á

    "â", // â

    "ã", // ã

    "ä", // ä

    "å", // å

    "æ", // æ

    "ç", // ç

    "è", // è

    "é", // é

    "ê", // ê

    "ë", // ë

    "ì", // ì

    "í", // í

    "î", // î

    "ï", // ï

    "ð", // ð

    "ñ", // ñ

    "ò", // ò

    "ó", // ó

    "ô", // ô

    "õ", // õ

    "ö", // ö

    // ÷

    "ø", // ø

    "ù", // ù

    "ú", // ú

    "û", // û

    "ü", // ü

    "þ", // þ

    "ÿ", // ÿ

    "Œ", // Œ

    "œ", // œ

    "Ÿ", // Ÿ

  // @codingStandardsIgnoreEnd

  $link_ichars = $link_ichars_domain . (string) html_entity_decode(implode("", array(

      // ß.

      "ß",

    )), ENT_QUOTES, 'UTF-8');

  $allowed_protocols = variable_get('filter_allowed_protocols', array(

    'http',

    'https',

    'ftp',

    'news',

    'nntp',

    'telnet',

    'mailto',

    'irc',

    'ssh',

    'sftp',

    'webcal',

  ));

  $link_domains = _link_domains();

  // Starting a parenthesis group with (?: means that it is grouped, but is not

  // captured.

  $authentication = "(?:(?:(?:[\w\.\-\+!$&'\(\)*\+,;=" . $link_ichars . "]|%[0-9a-f]{2})+(?::(?:[\w" . $link_ichars . "\.\-\+%!$&'\(\)*\+,;=]|%[0-9a-f]{2})*)?)?@)";

  $domain = '(?:(?:[a-z0-9' . $link_ichars_domain . ']([a-z0-9' . $link_ichars_domain . '\-_\[\]])*)(\.(([a-z0-9' . $link_ichars_domain . '\-_\[\]])+\.)*(' . $link_domains . '|[a-z]{2}))?)';

  $internal_pattern = "/^(?:[a-z0-9" . $link_ichars . "_\-+\[\] ]+)";

  $internal_pattern_file = "/^(?:[a-z0-9" . $link_ichars . "_\-+\[\]\. \/\(\)][a-z0-9" . $link_ichars . "_\-+\[\]\. \(\)][a-z0-9" . $link_ichars . "_\-+\[\]\. \/\(\)]+)$/i";

  $directories = "(?:\/[a-z0-9" . $link_ichars . "_\-\.~+%=&,$'#!():;*@\[\]]*)*";

  $query = "(?:\/?\?([?a-z0-9" . $link_ichars . "+_|\-\.~\/\\\\%=&,$'!():;*@\[\]{} ]*))";

  $anchor = "(?:#[a-z0-9" . $link_ichars . "_\-\.~+%=&,$'():;*@\[\]\/\?]*)";

  // @codingStandardsIgnoreLine

  $user = '[a-zA-Z0-9' . $link_ichars . '_\-\.\+\^!#\$%&*+\/\=\?\`\|\{\}~\'\[\]]+';

  if (drupal_valid_path($text) && url_is_external($text) == FALSE) {

    return LINK_INTERNAL;

  }

 * Returns the list of allowed domains.

 *

 * If the variable link_allowed_domains is set, restrict allowed domains to the

 * strings in that array. If the variable link_allowed_domains is not set, allow

 * all domains between 2 and 63 characters in length.

 * See https://tools.ietf.org/html/rfc1034.

  $link_allowed_domains = variable_get('link_allowed_domains', array());

  return empty($link_allowed_domains) ? '[a-z][a-z0-9-]{1,62}' : implode('|', $link_allowed_domains);

    foreach (array(

               'attributes',

               'display',

               'url',

               'title',

               'title_value',

               'enable_tokens',

               'validate_url',

             ) as $setting) {

    foreach (array(

               'attributes',

               'display',

               'url',

               'title',

               'title_value',

               'enable_tokens',

               'validate_url',

             ) as $setting) {

      if (in_array($settings['type'], array(

        'default',

        'title_plain',

        'url',

        'plain',

        'short',

        'label',

        'separate',

      ))) {

 *

  return array('title' => NULL, 'url' => NULL, 'display_url' => NULL);

    'type' => 'text',

  $properties['display_url'] = array(

    'type' => 'uri',

    'label' => t('The full URL of the link.'),

    'setter callback' => 'entity_property_verbatim_set',

  );

  if (function_exists('i18n_string_update') && isset($instance['widget']) && $instance['widget']['type'] == 'link_field' && $prior_instance['settings']['title_value'] != $instance['settings']['title_value']) {