Club Drupal

define('LINK_FRONT', 'front');

define('LINK_EMAIL', 'email');

define('LINK_NEWS', 'news');

define('LINK_TARGET_DEFAULT', 'default');

define('LINK_TARGET_NEW_WINDOW', '_blank');

        'url' => 0,

        'title' => 'optional',

        'title_value' => '',

        'title_maxlength' => 128,

        'enable_tokens' => 1,

        'display' => array(

          'url_cutoff' => 80,

        ),

        'validate_url' => 1,

      ),

      'default_widget' => 'link_field',

      'default_formatter' => 'link_default',

    '#element_validate' => array('link_field_settings_form_validate'),

  );

  $form['validate_url'] = array(

    '#type' => 'checkbox',

    '#title' => t('Validate URL'),

    '#description' => t('This title will always be used if “Static Title” is selected above.'),

  );

  $form['title_maxlength'] = array(

    '#type' => 'textfield',

    '#title' => t('Max length of title field'),

  );

  if (module_exists('token')) {

    $form['enable_tokens'] = array(

      '#type' => 'checkbox',

      '#title' => t('Allow user-entered tokens'),

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

      '#description' => t('Checking will allow users to enter tokens in URLs and Titles on the entity edit form. This does not affect the field settings on this page.'),

    );

    $entity_info = entity_get_info($instance['entity_type']);

    $form['tokens_help'] = array(

      '#theme' => 'token_tree',

    '#description' => t('Turn on/off if rel attribute should be removed automatically, if user given link is internal/external'),

    '#options' => $rel_remove_options,

  );

  $form['attributes']['class'] = array(

    '#type' => 'textfield',

    '#title' => t('Additional CSS Class'),

/**

 * Prepares the item attributes and url for storage.

 */

  // Trim whitespace from URL.

  // If no attributes are set then make sure $item['attributes'] is an empty

  // array, so $field['attributes'] can override it.

    if (link_validate_url(trim($item['url'])) == FALSE) {

      $errors[$field['field_name']][$langcode][$delta][] = array(

        'error' => 'link_required',

        'error_element' => array('url' => TRUE, 'title' => FALSE),

      );

    }

    );

  }

  // In a totally bizzaro case, where URLs and titles are optional but the field is required, ensure there is at least one link.

    $optional_field_found = TRUE;

  }

  if ($instance['settings']['url'] === 'optional' && $instance['settings']['title'] === 'optional' && $instance['required'] == 1 && !$optional_field_found && isset($instance['id'])) {

    $errors[$field['field_name']][$langcode][$delta][] = array(

      'error' => 'link_required',

/**

 * Clean up user-entered values for a link field according to field settings.

 *

 *   A single link item, usually containing url, title, and attributes.

 *   The delta value if this field is one of multiple fields.

 *   The CCK field definition.

 *   The entity containing this link.

 */

function _link_sanitize(&$item, $delta, &$field, $instance, &$entity) {

  if (empty($item['url']) && empty($item['title'])) {

    return;

  }

  // Replace URL tokens.

  $entity_type = $instance['entity_type'];

  $url_parts = _link_parse_url($url);

  if (!empty($url_parts['url'])) {

    );

  }

      array(

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

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

      )

    );

  }

    $title = '';

  }

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

    // Load the entity if necessary for entities in views.

    if (isset($entity->{$property_id})) {

  // Unserialize attributtes array if it has not been unserialized yet.

  if (!is_array($item['attributes'])) {

  }

  // Add default attributes.

    $item['attributes']['title'] = token_replace($item['attributes']['title'], array($entity_token_type => $entity_loaded));

    $item['attributes']['title'] = filter_xss($item['attributes']['title'], array('b', 'br', 'code', 'em', 'i', 'img', 'span', 'strong', 'sub', 'sup', 'tt', 'u'));

  }

  // Remove title attribute if it's equal to link text.

  if (isset($item['attributes']['title']) && $item['attributes']['title'] == $item['title']) {

    unset($item['attributes']['title']);

 * @param string $url

 *   URL to parse.

 *

 *   Array of url pieces - only 'url', 'query', and 'fragment'.

 */

function _link_parse_url($url) {

}

/**

 * in order to maintain compability with deprecated register_globals directive:

 *

 *   - chr(32) ( ) (space)

 * @param string $query

 *   Query to parse.

 *

 *   Array of query parameters.

 *

 * @see http://php.net/manual/en/language.variables.external.php#81080

  $pairs = explode('&', $query);

  foreach ($pairs as $pair) {

    $name = urldecode($name_value[0]);

    $value = isset($name_value[1]) ? urldecode($name_value[1]) : NULL;

    $query_array[$name] = $value;

  if (!empty($element['attributes']['title'])) {

    $output .= '<div class="link-attributes">' . drupal_render($element['attributes']['title']) . '</div>';

  }

  return $output;

}

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

  );

  if ($settings['title'] !== 'none' && $settings['title'] !== 'value') {

    $element['title'] = array(

      '#type' => 'textfield',

      '#maxlength' => $settings['title_maxlength'],

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

      '#required' => ($settings['title'] == 'required' && (($element['#delta'] == 0 && $element['#required']) || !empty($element['#value']['url']))) ? TRUE : FALSE,

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

      '#field_suffix' => '"',

    );

  }

  // If the title field is avaliable or there are field accepts multiple values

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

  if (isset($link_options['attributes']['class'])) {

    $link_options['attributes']['class'] = array($link_options['attributes']['class']);

  }

  // Display a normal link if both title and URL are available.

  if (!empty($vars['element']['title']) && !empty($vars['element']['url'])) {

    return l($vars['element']['title'], $vars['element']['url'], $link_options);

  }

  // If only a title, display the title.

  elseif (!empty($vars['element']['title'])) {

  }

  elseif (!empty($vars['element']['url'])) {

    return l($vars['element']['title'], $vars['element']['url'], $link_options);

}

/**

 */

function theme_link_formatter_link_absolute($vars) {

  $absolute = array('absolute' => TRUE);

  unset($link_options['url']);

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

  $url_parts = _link_parse_url($vars['element']['url']);

  $output = '';

  $output .= '<div class="link-item ' . $class . '">';

/**

 * Implements hook_token_list().

 */

function link_token_list($type = 'all') {

  if ($type === 'field' || $type === 'all') {

  }

}

function link_token_values($type, $object = NULL) {

  if ($type === 'field') {

    $item = $object[0];

 * protocol specified

 *

 * @param string $url

 * @param string $protocol

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

 */

 * addresses following the RFC 2368 standard for mailto address formation.

 *

 * @param string $text

 * 

 * @return mixed

 *   Returns boolean FALSE if the URL is not valid. On success, returns one of

  $allowed_protocols = variable_get('filter_allowed_protocols', array('http', 'https', 'ftp', 'news', 'nntp', 'telnet', 'mailto', 'irc', 'ssh', 'sftp', 'webcal'));

  $LINK_DOMAINS = _link_domains();

  $protocol = '((?:' . implode("|", $allowed_protocols) . '):\/\/)';

  $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}))?)';

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

  // Yes, four backslashes == a single backslash.

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

  // The rest of the path for a standard URL.

/**

 * Additional callback to adapt the property info of link fields.

 * 

 */

function link_field_property_info_callback(&$info, $entity_type, $field, $instance, $field_type) {

  $property = &$info[$entity_type]['bundles'][$instance['bundle']]['properties'][$field['field_name']];

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

    'setter callback' => 'entity_property_verbatim_set',

  );

  return $properties;

}

/**

 * Implements hook_field_update_instance().

 */