danielebarchiesi@4: <?php
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * @file
danielebarchiesi@4:  * Defines simple link field types.
danielebarchiesi@4:  */
danielebarchiesi@4: 
danielebarchiesi@4: define('LINK_EXTERNAL', 'external');
danielebarchiesi@4: define('LINK_INTERNAL', 'internal');
danielebarchiesi@4: define('LINK_FRONT', 'front');
danielebarchiesi@4: define('LINK_EMAIL', 'email');
danielebarchiesi@4: define('LINK_NEWS', 'news');
danielebarchiesi@4: define('LINK_DOMAINS', 'aero|arpa|asia|biz|com|cat|coop|edu|gov|info|int|jobs|mil|museum|name|nato|net|org|pro|travel|mobi|local');
danielebarchiesi@4: 
danielebarchiesi@4: define('LINK_TARGET_DEFAULT', 'default');
danielebarchiesi@4: define('LINK_TARGET_NEW_WINDOW', '_blank');
danielebarchiesi@4: define('LINK_TARGET_TOP', '_top');
danielebarchiesi@4: define('LINK_TARGET_USER', 'user');
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Maximum URLs length - needs to match value in link.install.
danielebarchiesi@4:  */
danielebarchiesi@4: define('LINK_URL_MAX_LENGTH', 2048);
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_info().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_info() {
danielebarchiesi@4:   return array(
danielebarchiesi@4:     'link_field' => array(
danielebarchiesi@4:       'label' => t('Link'),
danielebarchiesi@4:       'description' => t('Store a title, href, and attributes in the database to assemble a link.'),
danielebarchiesi@4:       'settings' => array(
danielebarchiesi@4:         'attributes' => _link_default_attributes(),
danielebarchiesi@4:         'url' => 0,
danielebarchiesi@4:         'title' => 'optional',
danielebarchiesi@4:         'title_value' => '',
danielebarchiesi@4:         'title_maxlength' => 128,
danielebarchiesi@4:         'enable_tokens' => 1,
danielebarchiesi@4:         'display' => array(
danielebarchiesi@4:           'url_cutoff' => 80,
danielebarchiesi@4:         ),
danielebarchiesi@4:       ),
danielebarchiesi@4:       'instance_settings' => array(
danielebarchiesi@4:         'attributes' => _link_default_attributes(),
danielebarchiesi@4:         'url' => 0,
danielebarchiesi@4:         'title' => 'optional',
danielebarchiesi@4:         'title_value' => '',
danielebarchiesi@4:         'title_maxlength' => 128,
danielebarchiesi@4:         'enable_tokens' => 1,
danielebarchiesi@4:         'display' => array(
danielebarchiesi@4:           'url_cutoff' => 80,
danielebarchiesi@4:         ),
danielebarchiesi@4:         'validate_url' => 1,
danielebarchiesi@4:       ),
danielebarchiesi@4:       'default_widget' => 'link_field',
danielebarchiesi@4:       'default_formatter' => 'link_default',
danielebarchiesi@4:       // Support hook_entity_property_info() from contrib "Entity API".
danielebarchiesi@4:       'property_type' => 'field_item_link',
danielebarchiesi@4:       'property_callbacks' => array('link_field_property_info_callback'),
danielebarchiesi@4:     ),
danielebarchiesi@4:   );
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_instance_settings_form().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_instance_settings_form($field, $instance) {
danielebarchiesi@4:   $form = array(
danielebarchiesi@4:     '#element_validate' => array('link_field_settings_form_validate'),
danielebarchiesi@4:   );
danielebarchiesi@4: 
danielebarchiesi@4:   $form['validate_url'] = array(
danielebarchiesi@4:     '#type' => 'checkbox',
danielebarchiesi@4:     '#title' => t('Validate URL'),
danielebarchiesi@4:     '#default_value' => isset($instance['settings']['validate_url']) && ($instance['settings']['validate_url'] !== '') ? $instance['settings']['validate_url'] : TRUE,
danielebarchiesi@4:     '#description' => t('If checked, the URL field will be verified as a valid URL during validation.'),
danielebarchiesi@4:   );
danielebarchiesi@4: 
danielebarchiesi@4:   $form['url'] = array(
danielebarchiesi@4:     '#type' => 'checkbox',
danielebarchiesi@4:     '#title' => t('Optional URL'),
danielebarchiesi@4:     '#default_value' => isset($instance['settings']['url']) ? $instance['settings']['url'] : '',
danielebarchiesi@4:     '#return_value' => 'optional',
danielebarchiesi@4:     '#description' => t('If checked, the URL field is optional and submitting a title alone will be acceptable. If the URL is omitted, the title will be displayed as plain text.'),
danielebarchiesi@4:   );
danielebarchiesi@4: 
danielebarchiesi@4:   $title_options = array(
danielebarchiesi@4:     'optional' => t('Optional Title'),
danielebarchiesi@4:     'required' => t('Required Title'),
danielebarchiesi@4:     'value' => t('Static Title'),
danielebarchiesi@4:     'none' => t('No Title'),
danielebarchiesi@4:   );
danielebarchiesi@4: 
danielebarchiesi@4:   $form['title'] = array(
danielebarchiesi@4:     '#type' => 'radios',
danielebarchiesi@4:     '#title' => t('Link Title'),
danielebarchiesi@4:     '#default_value' => isset($instance['settings']['title']) ? $instance['settings']['title'] : 'optional',
danielebarchiesi@4:     '#options' => $title_options,
danielebarchiesi@4:     '#description' => t('If the link title is optional or required, a field will be displayed to the end user. If the link title is static, the link will always use the same title. If <a href="http://drupal.org/project/token">token module</a> is installed, the static title value may use any other entity field as its value. Static and token-based titles may include most inline XHTML tags such as <em>strong</em>, <em>em</em>, <em>img</em>, <em>span</em>, etc.'),
danielebarchiesi@4:   );
danielebarchiesi@4: 
danielebarchiesi@4:   $form['title_value'] = array(
danielebarchiesi@4:     '#type' => 'textfield',
danielebarchiesi@4:     '#title' => t('Static title'),
danielebarchiesi@4:     '#default_value' => isset($instance['settings']['title_value']) ? $instance['settings']['title_value'] : '',
danielebarchiesi@4:     '#description' => t('This title will always be used if &ldquo;Static Title&rdquo; is selected above.'),
danielebarchiesi@4:   );
danielebarchiesi@4: 
danielebarchiesi@4:   $form['title_maxlength'] = array(
danielebarchiesi@4:     '#type' => 'textfield',
danielebarchiesi@4:     '#title' => t('Max length of title field'),
danielebarchiesi@4:     '#default_value' => isset($instance['settings']['title_maxlength']) ? $instance['settings']['title_maxlength'] : '128',
danielebarchiesi@4:     '#description' => t('Set a maximum length on the title field (applies only if Link Title is optional or required).  The maximum limit is 255 characters.'),
danielebarchiesi@4:     '#maxlength' => 3,
danielebarchiesi@4:     '#size' => 3,
danielebarchiesi@4:   );
danielebarchiesi@4: 
danielebarchiesi@4:   if (module_exists('token')) {
danielebarchiesi@4:     // Add token module replacements fields
danielebarchiesi@4:     $form['tokens'] = array(
danielebarchiesi@4:       '#type' => 'fieldset',
danielebarchiesi@4:       '#collapsible' => TRUE,
danielebarchiesi@4:       '#collapsed' => TRUE,
danielebarchiesi@4:       '#title' => t('Placeholder tokens'),
danielebarchiesi@4:       '#description' => t("The following placeholder tokens can be used in both paths and titles. When used in a path or title, they will be replaced with the appropriate values."),
danielebarchiesi@4:     );
danielebarchiesi@4:     $entity_info = entity_get_info($instance['entity_type']);
danielebarchiesi@4:     $form['tokens']['help'] = array(
danielebarchiesi@4:       '#theme' => 'token_tree',
danielebarchiesi@4:       '#token_types' => array($entity_info['token type']),
danielebarchiesi@4:       '#global_types' => TRUE,
danielebarchiesi@4:       '#click_insert' => TRUE,
danielebarchiesi@4:     );
danielebarchiesi@4: 
danielebarchiesi@4:     $form['enable_tokens'] = array(
danielebarchiesi@4:       '#type' => 'checkbox',
danielebarchiesi@4:       '#title' => t('Allow user-entered tokens'),
danielebarchiesi@4:       '#default_value' => isset($instance['settings']['enable_tokens']) ? $instance['settings']['enable_tokens'] : 1,
danielebarchiesi@4:       '#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.'),
danielebarchiesi@4:     );
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   $form['display'] = array(
danielebarchiesi@4:     '#tree' => TRUE,
danielebarchiesi@4:   );
danielebarchiesi@4:   $form['display']['url_cutoff'] = array(
danielebarchiesi@4:     '#type' => 'textfield',
danielebarchiesi@4:     '#title' => t('URL Display Cutoff'),
danielebarchiesi@4:     '#default_value' => isset($instance['settings']['display']['url_cutoff']) ? $instance['settings']['display']['url_cutoff'] : '80',
danielebarchiesi@4:     '#description' => t('If the user does not include a title for this link, the URL will be used as the title. When should the link title be trimmed and finished with an elipsis (&hellip;)? Leave blank for no limit.'),
danielebarchiesi@4:     '#maxlength' => 3,
danielebarchiesi@4:     '#size' => 3,
danielebarchiesi@4:   );
danielebarchiesi@4: 
danielebarchiesi@4:   $target_options = array(
danielebarchiesi@4:     LINK_TARGET_DEFAULT => t('Default (no target attribute)'),
danielebarchiesi@4:     LINK_TARGET_TOP => t('Open link in window root'),
danielebarchiesi@4:     LINK_TARGET_NEW_WINDOW => t('Open link in new window'),
danielebarchiesi@4:     LINK_TARGET_USER => t('Allow the user to choose'),
danielebarchiesi@4:   );
danielebarchiesi@4:   $form['attributes'] = array(
danielebarchiesi@4:     '#tree' => TRUE,
danielebarchiesi@4:   );
danielebarchiesi@4:   $form['attributes']['target'] = array(
danielebarchiesi@4:     '#type' => 'radios',
danielebarchiesi@4:     '#title' => t('Link Target'),
danielebarchiesi@4:     '#default_value' => empty($instance['settings']['attributes']['target']) ? LINK_TARGET_DEFAULT : $instance['settings']['attributes']['target'],
danielebarchiesi@4:     '#options' => $target_options,
danielebarchiesi@4:   );
danielebarchiesi@4:   $form['attributes']['rel'] = array(
danielebarchiesi@4:     '#type' => 'textfield',
danielebarchiesi@4:     '#title' => t('Rel Attribute'),
danielebarchiesi@4:     '#description' => t('When output, this link will have this rel attribute. The most common usage is <a href="http://en.wikipedia.org/wiki/Nofollow">rel=&quot;nofollow&quot;</a> which prevents some search engines from spidering entered links.'),
danielebarchiesi@4:     '#default_value' => empty($instance['settings']['attributes']['rel']) ? '' : $instance['settings']['attributes']['rel'],
danielebarchiesi@4:     '#field_prefix' => 'rel = "',
danielebarchiesi@4:     '#field_suffix' => '"',
danielebarchiesi@4:     '#size' => 20,
danielebarchiesi@4:   );
danielebarchiesi@4:   $rel_remove_options = array(
danielebarchiesi@4:     'default' => t('Keep rel as set up above (untouched/default)'),
danielebarchiesi@4:     'rel_remove_external' => t('Remove rel if given link is external'),
danielebarchiesi@4:     'rel_remove_internal' => t('Remove rel if given link is internal'),
danielebarchiesi@4:   );
danielebarchiesi@4:   $form['rel_remove'] = array(
danielebarchiesi@4:     '#type' => 'radios',
danielebarchiesi@4:     '#title' => t('Remove rel attribute automatically'),
danielebarchiesi@4:     '#default_value' => !isset($instance['settings']['rel_remove']) ? 'default' : $instance['settings']['rel_remove'],
danielebarchiesi@4:     '#description' => t('Turn on/off if rel attribute should be removed automatically, if user given link is internal/external'),
danielebarchiesi@4:     '#options' => $rel_remove_options,
danielebarchiesi@4:   );
danielebarchiesi@4:   $form['attributes']['class'] = array(
danielebarchiesi@4:     '#type' => 'textfield',
danielebarchiesi@4:     '#title' => t('Additional CSS Class'),
danielebarchiesi@4:     '#description' => t('When output, this link will have this class attribute. Multiple classes should be separated by spaces.'),
danielebarchiesi@4:     '#default_value' => empty($instance['settings']['attributes']['class']) ? '' : $instance['settings']['attributes']['class'],
danielebarchiesi@4:   );
danielebarchiesi@4:   $form['attributes']['configurable_title'] = array(
danielebarchiesi@4:     '#title' => t("Allow the user to enter a link 'title' attribute"),
danielebarchiesi@4:     '#type' => 'checkbox',
danielebarchiesi@4:     '#default_value' => empty($instance['settings']['attributes']['configurable_title']) ? '' : $instance['settings']['attributes']['configurable_title'],
danielebarchiesi@4:   );
danielebarchiesi@4:   $form['attributes']['title'] = array(
danielebarchiesi@4:     '#title' => t("Default link 'title' Attribute"),
danielebarchiesi@4:     '#type' => 'textfield',
danielebarchiesi@4:     '#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">WCAG 1.0 Guidelines</a> for links comformances. Tokens values will be evaluated.'),
danielebarchiesi@4:     '#default_value' => empty($instance['settings']['attributes']['title']) ? '' : $instance['settings']['attributes']['title'],
danielebarchiesi@4:     '#field_prefix' => 'title = "',
danielebarchiesi@4:     '#field_suffix' => '"',
danielebarchiesi@4:     '#size' => 20,
danielebarchiesi@4:   );
danielebarchiesi@4:   return $form;
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * #element_validate handler for link_field_instance_settings_form().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_settings_form_validate($element, &$form_state, $complete_form) {
danielebarchiesi@4:   if ($form_state['values']['instance']['settings']['title'] === 'value' && empty($form_state['values']['instance']['settings']['title_value'])) {
danielebarchiesi@4:     form_set_error('title_value', t('A default title must be provided if the title is a static value.'));
danielebarchiesi@4:   }
danielebarchiesi@4:   if (!empty($form_state['values']['instance']['settings']['display']['url_cutoff']) && !is_numeric($form_state['values']['instance']['settings']['display']['url_cutoff'])) {
danielebarchiesi@4:     form_set_error('display', t('URL Display Cutoff value must be numeric.'));
danielebarchiesi@4:   }
danielebarchiesi@4:   if (empty($form_state['values']['instance']['settings']['title_maxlength'])) {
danielebarchiesi@4:     form_set_value($element['title_maxlength'], '128', $form_state);
danielebarchiesi@4:   }
danielebarchiesi@4:   elseif (!is_numeric($form_state['values']['instance']['settings']['title_maxlength'])) {
danielebarchiesi@4:     form_set_error('title_maxlength', t('The max length of the link title must be numeric.'));
danielebarchiesi@4:   }
danielebarchiesi@4:   elseif ($form_state['values']['instance']['settings']['title_maxlength'] > 255) {
danielebarchiesi@4:     form_set_error('title_maxlength', t('The max length of the link title cannot be greater than 255 characters.'));
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_is_empty().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_is_empty($item, $field) {
danielebarchiesi@4:   return empty($item['title']) && empty($item['url']);
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_load().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_load($entity_type, $entities, $field, $instances, $langcode, &$items, $age) {
danielebarchiesi@4:   foreach ($entities as $id => $entity) {
danielebarchiesi@4:     foreach ($items[$id] as $delta => $item) {
danielebarchiesi@4:       $items[$id][$delta]['attributes'] = _link_load($field, $item, $instances[$id]);
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_validate().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_validate($entity_type, $entity, $field, $instance, $langcode, $items, &$errors) {
danielebarchiesi@4:   $optional_field_found = FALSE;
danielebarchiesi@4:   if ($instance['settings']['validate_url'] !== 0 || is_null($instance['settings']['validate_url']) || !isset($instance['settings']['validate_url'])) {
danielebarchiesi@4:     foreach ($items as $delta => $value) {
danielebarchiesi@4:       _link_validate($items[$delta], $delta, $field, $entity, $instance, $langcode, $optional_field_found);
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   if ($instance['settings']['url'] === 'optional' && $instance['settings']['title'] === 'optional' && $instance['required'] && !$optional_field_found) {
danielebarchiesi@4:     form_set_error($field['field_name'] . '][' . $langcode . '][0][title', t('At least one title or URL must be entered.'));
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_insert().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_insert($entity_type, $entity, $field, $instance, $langcode, &$items) {
danielebarchiesi@4:   foreach ($items as $delta => $value) {
danielebarchiesi@4:     _link_process($items[$delta], $delta, $field, $entity);
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_update().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_update($entity_type, $entity, $field, $instance, $langcode, &$items) {
danielebarchiesi@4:   foreach ($items as $delta => $value) {
danielebarchiesi@4:     _link_process($items[$delta], $delta, $field, $entity);
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_prepare_view().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_prepare_view($entity_type, $entities, $field, $instances, $langcode, &$items) {
danielebarchiesi@4:   foreach ($items as $entity_id => $entity_items) {
danielebarchiesi@4:     foreach ($entity_items as $delta => $value) {
danielebarchiesi@4:       _link_sanitize($items[$entity_id][$delta], $delta, $field, $instances[$entity_id], $entities[$entity_id]);
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_widget_info().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_widget_info() {
danielebarchiesi@4:   return array(
danielebarchiesi@4:     'link_field' => array(
danielebarchiesi@4:       'label' => 'Link',
danielebarchiesi@4:       'field types' => array('link_field'),
danielebarchiesi@4:       'multiple values' => FIELD_BEHAVIOR_DEFAULT,
danielebarchiesi@4:     ),
danielebarchiesi@4:   );
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_widget_form().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_widget_form(&$form, &$form_state, $field, $instance, $langcode, $items, $delta, $element) {
danielebarchiesi@4:   $element += array(
danielebarchiesi@4:     '#type' => $instance['widget']['type'],
danielebarchiesi@4:     '#default_value' => isset($items[$delta]) ? $items[$delta] : '',
danielebarchiesi@4:   );
danielebarchiesi@4:   return $element;
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Unpacks the item attributes for use.
danielebarchiesi@4:  */
danielebarchiesi@4: function _link_load($field, $item, $instance) {
danielebarchiesi@4:   if (isset($item['attributes'])) {
danielebarchiesi@4:     if (!is_array($item['attributes'])) {
danielebarchiesi@4:       $item['attributes'] = unserialize($item['attributes']);
danielebarchiesi@4:     }
danielebarchiesi@4:     return $item['attributes'];
danielebarchiesi@4:   }
danielebarchiesi@4:   elseif (isset($instance['settings']['attributes'])) {
danielebarchiesi@4:     return $instance['settings']['attributes'];
danielebarchiesi@4:   }
danielebarchiesi@4:   else {
danielebarchiesi@4:     return $field['settings']['attributes'];
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Prepares the item attributes and url for storage.
danielebarchiesi@4:  */
danielebarchiesi@4: function _link_process(&$item, $delta = 0, $field, $entity) {
danielebarchiesi@4:   // Trim whitespace from URL.
danielebarchiesi@4:   $item['url'] = trim($item['url']);
danielebarchiesi@4: 
danielebarchiesi@4:   // If no attributes are set then make sure $item['attributes'] is an empty
danielebarchiesi@4:   // array, so $field['attributes'] can override it.
danielebarchiesi@4:   if (empty($item['attributes'])) {
danielebarchiesi@4:     $item['attributes'] = array();
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Serialize the attributes array.
danielebarchiesi@4:   if (!is_string($item['attributes'])) {
danielebarchiesi@4:     $item['attributes'] = serialize($item['attributes']);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Don't save an invalid default value (e.g. 'http://').
danielebarchiesi@4:   if ((isset($field['widget']['default_value'][$delta]['url']) && $item['url'] == $field['widget']['default_value'][$delta]['url']) && is_object($entity)) {
danielebarchiesi@4:     if (!link_validate_url($item['url'])) {
danielebarchiesi@4:       unset($item['url']);
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Validates that the link field has been entered properly.
danielebarchiesi@4:  */
danielebarchiesi@4: function _link_validate(&$item, $delta, $field, $entity, $instance, $langcode, &$optional_field_found) {
danielebarchiesi@4:   if ($item['url'] && !(isset($instance['default_value'][$delta]['url']) && $item['url'] === $instance['default_value'][$delta]['url'] && !$instance['required'])) {
danielebarchiesi@4:     // Validate the link.
danielebarchiesi@4:     if (link_validate_url(trim($item['url'])) == FALSE) {
danielebarchiesi@4:       form_set_error($field['field_name'] . '][' . $langcode . '][' . $delta . '][url', t('The value provided for %field is not a valid URL.', array('%field' => $instance['label'])));
danielebarchiesi@4:     }
danielebarchiesi@4:     // Require a title for the link if necessary.
danielebarchiesi@4:     if ($instance['settings']['title'] == 'required' && strlen(trim($item['title'])) == 0) {
danielebarchiesi@4:       form_set_error($field['field_name'] . '][' . $langcode . '][' . $delta . '][title', t('Titles are required for all links.'));
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4:   // Require a link if we have a title.
danielebarchiesi@4:   if ($instance['settings']['url'] !== 'optional' && strlen(isset($item['title']) ? $item['title'] : NULL) > 0 && strlen(trim($item['url'])) == 0) {
danielebarchiesi@4:     form_set_error($field['field_name'] . '][' . $langcode . '][' . $delta . '][url', t('You cannot enter a title without a link url.'));
danielebarchiesi@4:   }
danielebarchiesi@4:   // In a totally bizzaro case, where URLs and titles are optional but the field is required, ensure there is at least one link.
danielebarchiesi@4:   if ($instance['settings']['url'] === 'optional' && $instance['settings']['title'] === 'optional' && (strlen(trim($item['url'])) !== 0 || strlen(trim($item['title'])) !== 0)) {
danielebarchiesi@4:     $optional_field_found = TRUE;
danielebarchiesi@4:   }
danielebarchiesi@4:   // Require entire field
danielebarchiesi@4:   if ($instance['settings']['url'] === 'optional' && $instance['settings']['title'] === 'optional' && $instance['required'] == 1 && !$optional_field_found && isset($instance['id'])) {
danielebarchiesi@4:     form_set_error($instance['field_name'] . '][' . $langcode . '][0][title', t('At least one title or URL must be entered.'));
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Clean up user-entered values for a link field according to field settings.
danielebarchiesi@4:  *
danielebarchiesi@4:  * @param $item
danielebarchiesi@4:  *   A single link item, usually containing url, title, and attributes.
danielebarchiesi@4:  * @param $delta
danielebarchiesi@4:  *   The delta value if this field is one of multiple fields.
danielebarchiesi@4:  * @param $field
danielebarchiesi@4:  *   The CCK field definition.
danielebarchiesi@4:  * @param $entity
danielebarchiesi@4:  *   The entity containing this link.
danielebarchiesi@4:  */
danielebarchiesi@4: function _link_sanitize(&$item, $delta, &$field, $instance, &$entity) {
danielebarchiesi@4:   // Don't try to process empty links.
danielebarchiesi@4:   if (empty($item['url']) && empty($item['title'])) {
danielebarchiesi@4:     return;
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Replace URL tokens.
danielebarchiesi@4:   $entity_type = $instance['entity_type'];
danielebarchiesi@4:   $entity_info = entity_get_info($entity_type);
danielebarchiesi@4:   $property_id = $entity_info['entity keys']['id'];
danielebarchiesi@4:   $entity_token_type = isset($entity_info['token type']) ? $entity_info['token type'] : (
danielebarchiesi@4:     $entity_type == 'taxonomy_term' || $entity_type == 'taxonomy_vocabulary' ? str_replace('taxonomy_', '', $entity_type) : $entity_type
danielebarchiesi@4:   );
danielebarchiesi@4:   if (isset($instance['settings']['enable_tokens']) && $instance['settings']['enable_tokens']) {
danielebarchiesi@4:     global $user;
danielebarchiesi@4:     // Load the entity if necessary for entities in views.
danielebarchiesi@4:     if (isset($entity->{$property_id})) {
danielebarchiesi@4:       $entity_loaded = entity_load($entity_type, array($entity->{$property_id}));
danielebarchiesi@4:       $entity_loaded = array_pop($entity_loaded);
danielebarchiesi@4:     }
danielebarchiesi@4:     else {
danielebarchiesi@4:       $entity_loaded = $entity;
danielebarchiesi@4:     }
danielebarchiesi@4:     $item['url'] = token_replace($item['url'], array($entity_token_type => $entity_loaded));
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   $type = link_validate_url($item['url']);
danielebarchiesi@4:   // If the type of the URL cannot be determined and URL validation is disabled,
danielebarchiesi@4:   // then assume LINK_EXTERNAL for later processing.
danielebarchiesi@4:   if ($type == FALSE && $instance['settings']['validate_url'] === 0) {
danielebarchiesi@4:     $type = LINK_EXTERNAL;
danielebarchiesi@4:   }
danielebarchiesi@4:   $url = link_cleanup_url($item['url']);
danielebarchiesi@4:   $url_parts = _link_parse_url($url);
danielebarchiesi@4: 
danielebarchiesi@4:   // We can't check_plain('<front>') because it'll break.
danielebarchiesi@4:   if ($type != LINK_FRONT) {
danielebarchiesi@4:     $url_parts['url'] = check_plain($url_parts['url']);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   if (!empty($url_parts['url'])) {
danielebarchiesi@4:     $item['url'] = url($url_parts['url'],
danielebarchiesi@4:       array(
danielebarchiesi@4:         'query' => isset($url_parts['query']) ? $url_parts['query'] : NULL,
danielebarchiesi@4:         'fragment' => isset($url_parts['fragment']) ? $url_parts['fragment'] : NULL,
danielebarchiesi@4:         'absolute' => TRUE,
danielebarchiesi@4:         'html' => TRUE,
danielebarchiesi@4:       )
danielebarchiesi@4:     );
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Create a shortened URL for display.
danielebarchiesi@4:   if ($type == LINK_EMAIL) {
danielebarchiesi@4:     $display_url = str_replace('mailto:', '', $url);
danielebarchiesi@4:   }
danielebarchiesi@4:   else {
danielebarchiesi@4:     $display_url = url($url_parts['url'],
danielebarchiesi@4:       array(
danielebarchiesi@4:         'query' => isset($url_parts['query']) ? $url_parts['query'] : NULL,
danielebarchiesi@4:         'fragment' => isset($url_parts['fragment']) ? $url_parts['fragment'] : NULL,
danielebarchiesi@4:         'absolute' => TRUE,
danielebarchiesi@4:       )
danielebarchiesi@4:     );
danielebarchiesi@4:   }
danielebarchiesi@4:   if ($instance['settings']['display']['url_cutoff'] && strlen($display_url) > $instance['settings']['display']['url_cutoff']) {
danielebarchiesi@4:     $display_url = substr($display_url, 0, $instance['settings']['display']['url_cutoff']) . "...";
danielebarchiesi@4:   }
danielebarchiesi@4:   $item['display_url'] = $display_url;
danielebarchiesi@4: 
danielebarchiesi@4:   // Use the title defined at the instance level.
danielebarchiesi@4:   if ($instance['settings']['title'] == 'value' && strlen(trim($instance['settings']['title_value']))) {
danielebarchiesi@4:     $title = $instance['settings']['title_value'];
danielebarchiesi@4:     if (function_exists('i18n_string_translate')) {
danielebarchiesi@4:       $i18n_string_name = "field:{$instance['field_name']}:{$instance['bundle']}:title_value";
danielebarchiesi@4:       $title = i18n_string_translate($i18n_string_name, $title);
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4:   // Use the title defined by the user at the widget level.
danielebarchiesi@4:   elseif (isset($item['title'])) {
danielebarchiesi@4:     $title = $item['title'];
danielebarchiesi@4:   }
danielebarchiesi@4:   else {
danielebarchiesi@4:     $title = '';
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Replace tokens.
danielebarchiesi@4:   if ($title && ($instance['settings']['title'] == 'value' || $instance['settings']['enable_tokens'])) {
danielebarchiesi@4:     // Load the entity if necessary for entities in views.
danielebarchiesi@4:     if (isset($entity->{$property_id})) {
danielebarchiesi@4:       $entity_loaded = entity_load($entity_type, array($entity->{$property_id}));
danielebarchiesi@4:       $entity_loaded = array_pop($entity_loaded);
danielebarchiesi@4:     }
danielebarchiesi@4:     else {
danielebarchiesi@4:       $entity_loaded = $entity;
danielebarchiesi@4:     }
danielebarchiesi@4:     $title = token_replace($title, array($entity_token_type => $entity_loaded));
danielebarchiesi@4:     $title = filter_xss($title, array('b', 'br', 'code', 'em', 'i', 'img', 'span', 'strong', 'sub', 'sup', 'tt', 'u'));
danielebarchiesi@4:     $item['html'] = TRUE;
danielebarchiesi@4:   }
danielebarchiesi@4:   $item['title'] = empty($title) ? $item['display_url'] : $title;
danielebarchiesi@4: 
danielebarchiesi@4:   if (!isset($item['attributes'])) {
danielebarchiesi@4:     $item['attributes'] = array();
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Unserialize attributtes array if it has not been unserialized yet.
danielebarchiesi@4:   if (!is_array($item['attributes'])) {
danielebarchiesi@4:     $item['attributes'] = (array)unserialize($item['attributes']);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Add default attributes.
danielebarchiesi@4:   if (!is_array($instance['settings']['attributes'])) {
danielebarchiesi@4:     $instance['settings']['attributes'] = _link_default_attributes();
danielebarchiesi@4:   }
danielebarchiesi@4:   else {
danielebarchiesi@4:     $instance['settings']['attributes'] += _link_default_attributes();
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Merge item attributes with attributes defined at the field level.
danielebarchiesi@4:   $item['attributes'] += $instance['settings']['attributes'];
danielebarchiesi@4: 
danielebarchiesi@4:   // If user is not allowed to choose target attribute, use default defined at
danielebarchiesi@4:   // field level.
danielebarchiesi@4:   if ($instance['settings']['attributes']['target'] != LINK_TARGET_USER) {
danielebarchiesi@4:     $item['attributes']['target'] = $instance['settings']['attributes']['target'];
danielebarchiesi@4:   }
danielebarchiesi@4:   elseif ($item['attributes']['target'] == LINK_TARGET_USER) {
danielebarchiesi@4:     $item['attributes']['target'] = LINK_TARGET_DEFAULT;
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Remove the target attribute if the default (no target) is selected.
danielebarchiesi@4:   if (empty($item['attributes']) || (isset($item['attributes']['target']) && $item['attributes']['target'] == LINK_TARGET_DEFAULT)) {
danielebarchiesi@4:     unset($item['attributes']['target']);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Remove rel attribute for internal or external links if selected.
danielebarchiesi@4:   if (isset($item['attributes']['rel']) && isset($instance['settings']['rel_remove']) && $instance['settings']['rel_remove'] != 'default') {
danielebarchiesi@4:     if (($instance['settings']['rel_remove'] != 'rel_remove_internal' && $type != LINK_INTERNAL) ||
danielebarchiesi@4:       ($instance['settings']['rel_remove'] != 'rel_remove_external' && $type != LINK_EXTERNAL)) {
danielebarchiesi@4:       unset($item['attributes']['rel']);
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Handle "title" link attribute.
danielebarchiesi@4:   if (!empty($item['attributes']['title']) && module_exists('token')) {
danielebarchiesi@4:     // Load the entity (necessary for entities in views).
danielebarchiesi@4:     if (isset($entity->{$property_id})) {
danielebarchiesi@4:       $entity_loaded = entity_load($entity_type, array($entity->{$property_id}));
danielebarchiesi@4:       $entity_loaded = array_pop($entity_loaded);
danielebarchiesi@4:     }
danielebarchiesi@4:     else {
danielebarchiesi@4:       $entity_loaded = $entity;
danielebarchiesi@4:     }
danielebarchiesi@4:     $item['attributes']['title'] = token_replace($item['attributes']['title'], array($entity_token_type => $entity_loaded));
danielebarchiesi@4:     $item['attributes']['title'] = filter_xss($item['attributes']['title'], array('b', 'br', 'code', 'em', 'i', 'img', 'span', 'strong', 'sub', 'sup', 'tt', 'u'));
danielebarchiesi@4:   }
danielebarchiesi@4:   // Remove title attribute if it's equal to link text.
danielebarchiesi@4:   if (isset($item['attributes']['title']) && $item['attributes']['title'] == $item['title']) {
danielebarchiesi@4:     unset($item['attributes']['title']);
danielebarchiesi@4:   }
danielebarchiesi@4:   unset($item['attributes']['configurable_title']);
danielebarchiesi@4: 
danielebarchiesi@4:   // Remove empty attributes.
danielebarchiesi@4:   $item['attributes'] = array_filter($item['attributes']);
danielebarchiesi@4: 
danielebarchiesi@4:   // Sets title to trimmed url if one exists
danielebarchiesi@4:   // @todo: Obsolete?
danielebarchiesi@4:   /*if(!empty($item['display_url']) && empty($item['title'])) {
danielebarchiesi@4:     $item['title'] = $item['display_url'];
danielebarchiesi@4:   }
danielebarchiesi@4:   elseif(!isset($item['title'])) {
danielebarchiesi@4:     $item['title'] = $item['url'];
danielebarchiesi@4:   }*/
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Because parse_url doesn't work with relative urls.
danielebarchiesi@4:  *
danielebarchiesi@4:  * @param string $url
danielebarchiesi@4:  *   URL to parse.
danielebarchiesi@4:  *
danielebarchiesi@4:  * @return Array
danielebarchiesi@4:  *   Array of url pieces - only 'url', 'query', and 'fragment'.
danielebarchiesi@4:  */
danielebarchiesi@4: function _link_parse_url($url) {
danielebarchiesi@4:   $url_parts = array();
danielebarchiesi@4:   // Separate out the anchor, if any.
danielebarchiesi@4:   if (strpos($url, '#') !== FALSE) {
danielebarchiesi@4:     $url_parts['fragment'] = substr($url, strpos($url, '#') + 1);
danielebarchiesi@4:     $url = substr($url, 0, strpos($url, '#'));
danielebarchiesi@4:   }
danielebarchiesi@4:   // Separate out the query string, if any.
danielebarchiesi@4:   if (strpos($url, '?') !== FALSE) {
danielebarchiesi@4:     $query = substr($url, strpos($url, '?') + 1);
danielebarchiesi@4:     parse_str($query, $query_array);
danielebarchiesi@4:     // See http://drupal.org/node/1710578
danielebarchiesi@4:     foreach ($query_array as $key=> &$value) {
danielebarchiesi@4:       if ($value === '' && FALSE === strpos($query, $key . '=')) {
danielebarchiesi@4:         $value = NULL;
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     $url_parts['query'] = $query_array;
danielebarchiesi@4:     $url = substr($url, 0, strpos($url, '?'));
danielebarchiesi@4:   }
danielebarchiesi@4:   $url_parts['url'] = $url;
danielebarchiesi@4:   return $url_parts;
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_theme().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_theme() {
danielebarchiesi@4:   return array(
danielebarchiesi@4:     'link_formatter_link_default' => array(
danielebarchiesi@4:       'variables' => array('element' => NULL),
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_formatter_link_plain' => array(
danielebarchiesi@4:       'variables' => array('element' => NULL),
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_formatter_link_absolute' => array(
danielebarchiesi@4:       'variables' => array('element' => NULL),
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_formatter_link_domain' => array(
danielebarchiesi@4:       'variables' => array('element' => NULL, 'display' => NULL),
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_formatter_link_title_plain' => array(
danielebarchiesi@4:       'variables' => array('element' => NULL),
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_formatter_link_url' => array(
danielebarchiesi@4:       'variables' => array('element' => NULL),
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_formatter_link_short' => array(
danielebarchiesi@4:       'variables' => array('element' => NULL),
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_formatter_link_label' => array(
danielebarchiesi@4:       'variables' => array('element' => NULL, 'field' => NULL),
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_formatter_link_separate' => array(
danielebarchiesi@4:       'variables' => array('element' => NULL),
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_field' => array(
danielebarchiesi@4:       'render element' => 'element',
danielebarchiesi@4:     ),
danielebarchiesi@4:   );
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Formats a link field widget.
danielebarchiesi@4:  */
danielebarchiesi@4: function theme_link_field($vars) {
danielebarchiesi@4:   drupal_add_css(drupal_get_path('module', 'link') . '/link.css');
danielebarchiesi@4:   $element = $vars['element'];
danielebarchiesi@4:   // Prefix single value link fields with the name of the field.
danielebarchiesi@4:   if (empty($element['#field']['multiple'])) {
danielebarchiesi@4:     if (isset($element['url']) && !isset($element['title'])) {
danielebarchiesi@4:       $element['url']['#title_display'] = 'invisible';
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   $output = '';
danielebarchiesi@4:   $output .= '<div class="link-field-subrow clearfix">';
danielebarchiesi@4:   if (isset($element['title'])) {
danielebarchiesi@4:     $output .= '<div class="link-field-title link-field-column">' . drupal_render($element['title']) . '</div>';
danielebarchiesi@4:   }
danielebarchiesi@4:   $output .= '<div class="link-field-url' . (isset($element['title']) ? ' link-field-column' : '') . '">'. drupal_render($element['url']) . '</div>';
danielebarchiesi@4:   $output .= '</div>';
danielebarchiesi@4:   if (!empty($element['attributes']['target'])) {
danielebarchiesi@4:     $output .= '<div class="link-attributes">' . drupal_render($element['attributes']['target']) . '</div>';
danielebarchiesi@4:   }
danielebarchiesi@4:   if (!empty($element['attributes']['title'])) {
danielebarchiesi@4:     $output .= '<div class="link-attributes">' . drupal_render($element['attributes']['title']) . '</div>';
danielebarchiesi@4:   }
danielebarchiesi@4:   return $output;
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_element_info().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_element_info() {
danielebarchiesi@4:   $elements = array();
danielebarchiesi@4:   $elements['link_field'] = array(
danielebarchiesi@4:     '#input' => TRUE,
danielebarchiesi@4:     '#process' => array('link_field_process'),
danielebarchiesi@4:     '#theme' => 'link_field',
danielebarchiesi@4:     '#theme_wrappers' => array('form_element'),
danielebarchiesi@4:   );
danielebarchiesi@4:   return $elements;
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Returns the default attributes and their values.
danielebarchiesi@4:  */
danielebarchiesi@4: function _link_default_attributes() {
danielebarchiesi@4:   return array(
danielebarchiesi@4:     'target' => LINK_TARGET_DEFAULT,
danielebarchiesi@4:     'class' => '',
danielebarchiesi@4:     'rel' => '',
danielebarchiesi@4:   );
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Processes the link type element before displaying the field.
danielebarchiesi@4:  *
danielebarchiesi@4:  * Build the form element. When creating a form using FAPI #process,
danielebarchiesi@4:  * note that $element['#value'] is already set.
danielebarchiesi@4:  *
danielebarchiesi@4:  * The $fields array is in $complete_form['#field_info'][$element['#field_name']].
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_process($element, $form_state, $complete_form) {
danielebarchiesi@4:   $instance = field_widget_instance($element, $form_state);
danielebarchiesi@4:   $settings = $instance['settings'];
danielebarchiesi@4:   $element['url'] = array(
danielebarchiesi@4:     '#type' => 'textfield',
danielebarchiesi@4:     '#maxlength' => LINK_URL_MAX_LENGTH,
danielebarchiesi@4:     '#title' => t('URL'),
danielebarchiesi@4:     '#required' => ($element['#delta'] == 0 && $settings['url'] !== 'optional') ? $element['#required'] : FALSE,
danielebarchiesi@4:     '#default_value' => isset($element['#value']['url']) ? $element['#value']['url'] : NULL,
danielebarchiesi@4:   );
danielebarchiesi@4:   if ($settings['title'] !== 'none' && $settings['title'] !== 'value') {
danielebarchiesi@4:     $element['title'] = array(
danielebarchiesi@4:       '#type' => 'textfield',
danielebarchiesi@4:       '#maxlength' => $settings['title_maxlength'],
danielebarchiesi@4:       '#title' => t('Title'),
danielebarchiesi@4:       '#description' => t('The link title is limited to @maxlength characters maximum.', array('@maxlength' => $settings['title_maxlength'])),
danielebarchiesi@4:       '#required' => ($settings['title'] == 'required' && (($element['#delta'] == 0 && $element['#required']) || !empty($element['#value']['url']))) ? TRUE : FALSE,
danielebarchiesi@4:       '#default_value' => isset($element['#value']['title']) ? $element['#value']['title'] : NULL,
danielebarchiesi@4:     );
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Initialize field attributes as an array if it is not an array yet.
danielebarchiesi@4:   if (!is_array($settings['attributes'])) {
danielebarchiesi@4:     $settings['attributes'] = array();
danielebarchiesi@4:   }
danielebarchiesi@4:   // Add default attributes.
danielebarchiesi@4:   $settings['attributes'] += _link_default_attributes();
danielebarchiesi@4:   $attributes = isset($element['#value']['attributes']) ? $element['#value']['attributes'] : $settings['attributes'];
danielebarchiesi@4:   if (!empty($settings['attributes']['target']) && $settings['attributes']['target'] == LINK_TARGET_USER) {
danielebarchiesi@4:     $element['attributes']['target'] = array(
danielebarchiesi@4:       '#type' => 'checkbox',
danielebarchiesi@4:       '#title' => t('Open URL in a New Window'),
danielebarchiesi@4:       '#return_value' => LINK_TARGET_NEW_WINDOW,
danielebarchiesi@4:       '#default_value' => isset($attributes['target']) ? $attributes['target'] : FALSE,
danielebarchiesi@4:     );
danielebarchiesi@4:   }
danielebarchiesi@4:   if (!empty($settings['attributes']['configurable_title']) && $settings['attributes']['configurable_title'] == 1) {
danielebarchiesi@4:     $element['attributes']['title'] = array(
danielebarchiesi@4:       '#type' => 'textfield',
danielebarchiesi@4:       '#title' => t('Link "title" attribute'),
danielebarchiesi@4:       '#default_value' => isset($attributes['title']) ? $attributes['title'] : '',
danielebarchiesi@4:       '#field_prefix' => 'title = "',
danielebarchiesi@4:       '#field_suffix' => '"',
danielebarchiesi@4:     );
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // If the title field is avaliable or there are field accepts multiple values
danielebarchiesi@4:   // then allow the individual field items display the required asterisk if needed.
danielebarchiesi@4:   if (isset($element['title']) || isset($element['_weight'])) {
danielebarchiesi@4:     // To prevent an extra required indicator, disable the required flag on the
danielebarchiesi@4:     // base element since all the sub-fields are already required if desired.
danielebarchiesi@4:     $element['#required'] = FALSE;
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   return $element;
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_formatter_info().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_formatter_info() {
danielebarchiesi@4:   return array(
danielebarchiesi@4:     'link_default' => array(
danielebarchiesi@4:       'label' => t('Title, as link (default)'),
danielebarchiesi@4:       'field types' => array('link_field'),
danielebarchiesi@4:       'multiple values' => FIELD_BEHAVIOR_DEFAULT,
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_title_plain' => array(
danielebarchiesi@4:       'label' => t('Title, as plain text'),
danielebarchiesi@4:       'field types' => array('link_field'),
danielebarchiesi@4:       'multiple values' => FIELD_BEHAVIOR_DEFAULT,
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_url' => array(
danielebarchiesi@4:       'label' => t('URL, as link'),
danielebarchiesi@4:       'field types' => array('link_field'),
danielebarchiesi@4:       'multiple values' => FIELD_BEHAVIOR_DEFAULT,
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_plain' => array(
danielebarchiesi@4:       'label' => t('URL, as plain text'),
danielebarchiesi@4:       'field types' => array('link_field'),
danielebarchiesi@4:       'multiple values' => FIELD_BEHAVIOR_DEFAULT,
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_absolute' => array(
danielebarchiesi@4:       'label' => t('URL, absolute'),
danielebarchiesi@4:       'field types' => array('link_field'),
danielebarchiesi@4:       'multiple values' => FIELD_BEHAVIOR_DEFAULT,
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_domain' => array(
danielebarchiesi@4:       'label' => t('Domain, as link'),
danielebarchiesi@4:       'field types' => array('link_field'),
danielebarchiesi@4:       'multiple values' => FIELD_BEHAVIOR_DEFAULT,
danielebarchiesi@4:       'settings' => array(
danielebarchiesi@4:         'strip_www' => FALSE,
danielebarchiesi@4:       ),
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_short' => array(
danielebarchiesi@4:       'label' => t('Short, as link with title "Link"'),
danielebarchiesi@4:       'field types' => array('link_field'),
danielebarchiesi@4:       'multiple values' => FIELD_BEHAVIOR_DEFAULT,
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_label' => array(
danielebarchiesi@4:       'label' => t('Label, as link with label as title'),
danielebarchiesi@4:       'field types' => array('link_field'),
danielebarchiesi@4:       'multiple values' => FIELD_BEHAVIOR_DEFAULT,
danielebarchiesi@4:     ),
danielebarchiesi@4:     'link_separate' => array(
danielebarchiesi@4:       'label' => t('Separate title and URL'),
danielebarchiesi@4:       'field types' => array('link_field'),
danielebarchiesi@4:       'multiple values' => FIELD_BEHAVIOR_DEFAULT,
danielebarchiesi@4:     ),
danielebarchiesi@4:   );
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_formatter_settings_form().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_formatter_settings_form($field, $instance, $view_mode, $form, &$form_state) {
danielebarchiesi@4:   $display = $instance['display'][$view_mode];
danielebarchiesi@4:   $settings = $display['settings'];
danielebarchiesi@4:   $element = array();
danielebarchiesi@4:   if ($display['type'] == 'link_domain') {
danielebarchiesi@4:     $element['strip_www'] = array(
danielebarchiesi@4:       '#title' => t('Strip www. from domain'),
danielebarchiesi@4:       '#type' => 'checkbox',
danielebarchiesi@4:       '#default_value' => $settings['strip_www'],
danielebarchiesi@4:     );
danielebarchiesi@4:   }
danielebarchiesi@4:   return $element;
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_formatter_settings_summary().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_formatter_settings_summary($field, $instance, $view_mode) {
danielebarchiesi@4:   $display = $instance['display'][$view_mode];
danielebarchiesi@4:   $settings = $display['settings'];
danielebarchiesi@4:   if ($display['type'] == 'link_domain') {
danielebarchiesi@4:     if ($display['settings']['strip_www']) {
danielebarchiesi@4:       return t('Strip www. from domain');
danielebarchiesi@4:     }
danielebarchiesi@4:     else {
danielebarchiesi@4:       return t('Leave www. in domain');
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4:   return '';
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_formatter_view().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_formatter_view($entity_type, $entity, $field, $instance, $langcode, $items, $display) {
danielebarchiesi@4:   $elements = array();
danielebarchiesi@4:   foreach ($items as $delta => $item) {
danielebarchiesi@4:     $elements[$delta] = array(
danielebarchiesi@4:       '#theme' => 'link_formatter_' . $display['type'],
danielebarchiesi@4:       '#element' => $item,
danielebarchiesi@4:       '#field' => $instance,
danielebarchiesi@4:       '#display' => $display,
danielebarchiesi@4:     );
danielebarchiesi@4:   }
danielebarchiesi@4:   return $elements;
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Formats a link.
danielebarchiesi@4:  */
danielebarchiesi@4: function theme_link_formatter_link_default($vars) {
danielebarchiesi@4:   $link_options = $vars['element'];
danielebarchiesi@4:   unset($link_options['title']);
danielebarchiesi@4:   unset($link_options['url']);
danielebarchiesi@4: 
danielebarchiesi@4:   if (isset($link_options['attributes']['class'])) {
danielebarchiesi@4:     $link_options['attributes']['class'] = array($link_options['attributes']['class']);
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   // Display a normal link if both title and URL are available.
danielebarchiesi@4:   if (!empty($vars['element']['title']) && !empty($vars['element']['url'])) {
danielebarchiesi@4:     return l($vars['element']['title'], $vars['element']['url'], $link_options);
danielebarchiesi@4:   }
danielebarchiesi@4:   // If only a title, display the title.
danielebarchiesi@4:   elseif (!empty($vars['element']['title'])) {
danielebarchiesi@4:     return check_plain($vars['element']['title']);
danielebarchiesi@4:   }
danielebarchiesi@4:   elseif (!empty($vars['element']['url'])) {
danielebarchiesi@4:     return l($vars['element']['title'], $vars['element']['url'], $link_options);
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Formats a link (or its title) as plain text.
danielebarchiesi@4:  */
danielebarchiesi@4: function theme_link_formatter_link_plain($vars) {
danielebarchiesi@4:   $link_options = $vars['element'];
danielebarchiesi@4:   if (isset($link_options['title'])) {
danielebarchiesi@4:     unset($link_options['title']);
danielebarchiesi@4:   }
danielebarchiesi@4:   else {
danielebarchiesi@4:     $vars['element']['title'] = '';
danielebarchiesi@4:   }
danielebarchiesi@4:   unset($link_options['url']);
danielebarchiesi@4:   return empty($vars['element']['url']) ? check_plain($vars['element']['title']) : url($vars['element']['url'], $link_options);
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Formats a link as an absolute URL
danielebarchiesi@4:  */
danielebarchiesi@4: function theme_link_formatter_link_absolute($vars) {
danielebarchiesi@4:   $absolute = array('absolute' => TRUE);
danielebarchiesi@4:   return empty($vars['element']['url']) ? '' : url($vars['element']['url'], $absolute + $vars['element']);
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Formats a link using the URL's domain for it's link text.
danielebarchiesi@4:  */
danielebarchiesi@4: function theme_link_formatter_link_domain($vars) {
danielebarchiesi@4:   $link_options = $vars['element'];
danielebarchiesi@4:   unset($link_options['title']);
danielebarchiesi@4:   unset($link_options['url']);
danielebarchiesi@4:   $domain = parse_url($vars['element']['display_url'], PHP_URL_HOST);
danielebarchiesi@4:   if (!empty($vars['display']['settings']['strip_www'])) {
danielebarchiesi@4:     $domain = str_replace('www.', '', $domain);
danielebarchiesi@4:   }
danielebarchiesi@4:   return $vars['element']['url'] ? l($domain, $vars['element']['url'], $link_options) : '';
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Formats a link's title as plain text.
danielebarchiesi@4:  */
danielebarchiesi@4: function theme_link_formatter_link_title_plain($vars) {
danielebarchiesi@4:   return empty($vars['element']['title']) ? '' : check_plain($vars['element']['title']);
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Formats a link using an alternate display URL for its link text.
danielebarchiesi@4:  */
danielebarchiesi@4: function theme_link_formatter_link_url($vars) {
danielebarchiesi@4:   $link_options = $vars['element'];
danielebarchiesi@4:   unset($link_options['title']);
danielebarchiesi@4:   unset($link_options['url']);
danielebarchiesi@4:   return $vars['element']['url'] ? l($vars['element']['display_url'], $vars['element']['url'], $link_options) : '';
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Formats a link using "Link" as the link text.
danielebarchiesi@4:  */
danielebarchiesi@4: function theme_link_formatter_link_short($vars) {
danielebarchiesi@4:   $link_options = $vars['element'];
danielebarchiesi@4:   unset($link_options['title']);
danielebarchiesi@4:   unset($link_options['url']);
danielebarchiesi@4:   return $vars['element']['url'] ? l(t('Link'), $vars['element']['url'], $link_options) : '';
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Formats a link using the field's label as link text.
danielebarchiesi@4:  */
danielebarchiesi@4: function theme_link_formatter_link_label($vars) {
danielebarchiesi@4:   $link_options = $vars['element'];
danielebarchiesi@4:   unset($link_options['title']);
danielebarchiesi@4:   unset($link_options['url']);
danielebarchiesi@4:   return $vars['element']['url'] ? l($vars['field']['label'], $vars['element']['url'], $link_options) : '';
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Formats a link as separate title and URL elements.
danielebarchiesi@4:  */
danielebarchiesi@4: function theme_link_formatter_link_separate($vars) {
danielebarchiesi@4:   $class = empty($vars['element']['attributes']['class']) ? '' : ' ' . $vars['element']['attributes']['class'];
danielebarchiesi@4:   unset($vars['element']['attributes']['class']);
danielebarchiesi@4:   $link_options = $vars['element'];
danielebarchiesi@4:   unset($link_options['title']);
danielebarchiesi@4:   unset($link_options['url']);
danielebarchiesi@4:   $title = empty($vars['element']['title']) ? '' : check_plain($vars['element']['title']);
danielebarchiesi@4: 
danielebarchiesi@4:   /**
danielebarchiesi@4:    * @TODO static html markup looks not very elegant
danielebarchiesi@4:    * needs smarter output solution and an optional title/url seperator
danielebarchiesi@4:    */
danielebarchiesi@4:   $url_parts = _link_parse_url($vars['element']['url']);
danielebarchiesi@4:   $output = '';
danielebarchiesi@4:   $output .= '<div class="link-item ' . $class . '">';
danielebarchiesi@4:   if (!empty($title)) {
danielebarchiesi@4:     $output .= '<div class="link-title">' . $title . '</div>';
danielebarchiesi@4:   }
danielebarchiesi@4:   $output .= '<div class="link-url">' . l($url_parts['url'], $vars['element']['url'], $link_options) . '</div>';
danielebarchiesi@4:   $output .= '</div>';
danielebarchiesi@4:   return $output;
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_token_list().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_token_list($type = 'all') {
danielebarchiesi@4:   if ($type === 'field' || $type === 'all') {
danielebarchiesi@4:     $tokens = array();
danielebarchiesi@4:     $tokens['link']['url'] = t("Link URL");
danielebarchiesi@4:     $tokens['link']['title'] = t("Link title");
danielebarchiesi@4:     $tokens['link']['view'] = t("Formatted html link");
danielebarchiesi@4:     return $tokens;
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: function link_token_values($type, $object = NULL) {
danielebarchiesi@4:   if ($type === 'field') {
danielebarchiesi@4:     $item = $object[0];
danielebarchiesi@4: 
danielebarchiesi@4:     $tokens['url'] = $item['url'];
danielebarchiesi@4:     $tokens['title'] = $item['title'];
danielebarchiesi@4:     $tokens['view'] = isset($item['view']) ? $item['view'] : '';
danielebarchiesi@4: 
danielebarchiesi@4:     return $tokens;
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_views_api().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_views_api() {
danielebarchiesi@4:   return array(
danielebarchiesi@4:     'api' => 2,
danielebarchiesi@4:     'path' => drupal_get_path('module', 'link') . '/views',
danielebarchiesi@4:   );
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Forms a valid URL if possible from an entered address.
danielebarchiesi@4:  * 
danielebarchiesi@4:  * Trims whitespace and automatically adds an http:// to addresses without a
danielebarchiesi@4:  * protocol specified
danielebarchiesi@4:  *
danielebarchiesi@4:  * @param string $url
danielebarchiesi@4:  * @param string $protocol
danielebarchiesi@4:  *   The protocol to be prepended to the url if one is not specified
danielebarchiesi@4:  */
danielebarchiesi@4: function link_cleanup_url($url, $protocol = 'http') {
danielebarchiesi@4:   $url = trim($url);
danielebarchiesi@4:   $type = link_validate_url($url);
danielebarchiesi@4: 
danielebarchiesi@4:   if ($type === LINK_EXTERNAL) {
danielebarchiesi@4:     // Check if there is no protocol specified.
danielebarchiesi@4:     $protocol_match = preg_match("/^([a-z0-9][a-z0-9\.\-_]*:\/\/)/i", $url);
danielebarchiesi@4:     if (empty($protocol_match)) {
danielebarchiesi@4:       // But should there be? Add an automatic http:// if it starts with a domain name.
danielebarchiesi@4:       $LINK_DOMAINS = _link_domains();
danielebarchiesi@4:       $domain_match = preg_match('/^(([a-z0-9]([a-z0-9\-_]*\.)+)(' . $LINK_DOMAINS . '|[a-z]{2}))/i', $url);
danielebarchiesi@4:       if (!empty($domain_match)) {
danielebarchiesi@4:         $url = $protocol . "://" . $url;
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   return $url;
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Validates a URL.
danielebarchiesi@4:  * 
danielebarchiesi@4:  * Accepts all URLs following RFC 1738 standard for URL formation and all e-mail
danielebarchiesi@4:  * addresses following the RFC 2368 standard for mailto address formation.
danielebarchiesi@4:  *
danielebarchiesi@4:  * @param string $text
danielebarchiesi@4:  * 
danielebarchiesi@4:  * @return mixed
danielebarchiesi@4:  *   Returns boolean FALSE if the URL is not valid. On success, returns one of
danielebarchiesi@4:  *   the LINK_(linktype) constants.
danielebarchiesi@4:  */
danielebarchiesi@4: function link_validate_url($text) {
danielebarchiesi@4:   // @TODO Complete letters.
danielebarchiesi@4:   $LINK_ICHARS_DOMAIN = (string) html_entity_decode(implode("", array(
danielebarchiesi@4:     "&#x00E6;", // æ
danielebarchiesi@4:     "&#x00C6;", // Æ
danielebarchiesi@4:     "&#x00C0;", // À
danielebarchiesi@4:     "&#x00E0;", // à
danielebarchiesi@4:     "&#x00C1;", // Á
danielebarchiesi@4:     "&#x00E1;", // á
danielebarchiesi@4:     "&#x00C2;", // Â
danielebarchiesi@4:     "&#x00E2;", // â
danielebarchiesi@4:     "&#x00E5;", // å
danielebarchiesi@4:     "&#x00C5;", // Å
danielebarchiesi@4:     "&#x00E4;", // ä
danielebarchiesi@4:     "&#x00C4;", // Ä
danielebarchiesi@4:     "&#x00C7;", // Ç
danielebarchiesi@4:     "&#x00E7;", // ç
danielebarchiesi@4:     "&#x00D0;", // Ð
danielebarchiesi@4:     "&#x00F0;", // ð
danielebarchiesi@4:     "&#x00C8;", // È
danielebarchiesi@4:     "&#x00E8;", // è
danielebarchiesi@4:     "&#x00C9;", // É
danielebarchiesi@4:     "&#x00E9;", // é
danielebarchiesi@4:     "&#x00CA;", // Ê
danielebarchiesi@4:     "&#x00EA;", // ê
danielebarchiesi@4:     "&#x00CB;", // Ë
danielebarchiesi@4:     "&#x00EB;", // ë
danielebarchiesi@4:     "&#x00CE;", // Î
danielebarchiesi@4:     "&#x00EE;", // î
danielebarchiesi@4:     "&#x00CF;", // Ï
danielebarchiesi@4:     "&#x00EF;", // ï
danielebarchiesi@4:     "&#x00F8;", // ø
danielebarchiesi@4:     "&#x00D8;", // Ø
danielebarchiesi@4:     "&#x00F6;", // ö
danielebarchiesi@4:     "&#x00D6;", // Ö
danielebarchiesi@4:     "&#x00D4;", // Ô
danielebarchiesi@4:     "&#x00F4;", // ô
danielebarchiesi@4:     "&#x00D5;", // Õ
danielebarchiesi@4:     "&#x00F5;", // õ
danielebarchiesi@4:     "&#x0152;", // Œ
danielebarchiesi@4:     "&#x0153;", // œ
danielebarchiesi@4:     "&#x00FC;", // ü
danielebarchiesi@4:     "&#x00DC;", // Ü
danielebarchiesi@4:     "&#x00D9;", // Ù
danielebarchiesi@4:     "&#x00F9;", // ù
danielebarchiesi@4:     "&#x00DB;", // Û
danielebarchiesi@4:     "&#x00FB;", // û
danielebarchiesi@4:     "&#x0178;", // Ÿ
danielebarchiesi@4:     "&#x00FF;", // ÿ
danielebarchiesi@4:     "&#x00D1;", // Ñ
danielebarchiesi@4:     "&#x00F1;", // ñ
danielebarchiesi@4:     "&#x00FE;", // þ
danielebarchiesi@4:     "&#x00DE;", // Þ
danielebarchiesi@4:     "&#x00FD;", // ý
danielebarchiesi@4:     "&#x00DD;", // Ý
danielebarchiesi@4:     "&#x00BF;", // ¿
danielebarchiesi@4:   )), ENT_QUOTES, 'UTF-8');
danielebarchiesi@4: 
danielebarchiesi@4:   $LINK_ICHARS = $LINK_ICHARS_DOMAIN . (string) html_entity_decode(implode("", array(
danielebarchiesi@4:     "&#x00DF;", // ß
danielebarchiesi@4:   )), ENT_QUOTES, 'UTF-8');
danielebarchiesi@4:   $allowed_protocols = variable_get('filter_allowed_protocols', array('http', 'https', 'ftp', 'news', 'nntp', 'telnet', 'mailto', 'irc', 'ssh', 'sftp', 'webcal'));
danielebarchiesi@4:   $LINK_DOMAINS = _link_domains();
danielebarchiesi@4: 
danielebarchiesi@4:   // Starting a parenthesis group with (?: means that it is grouped, but is not captured
danielebarchiesi@4:   $protocol = '((?:' . implode("|", $allowed_protocols) . '):\/\/)';
danielebarchiesi@4:   $authentication = "(?:(?:(?:[\w\.\-\+!$&'\(\)*\+,;=" . $LINK_ICHARS . "]|%[0-9a-f]{2})+(?::(?:[\w" . $LINK_ICHARS . "\.\-\+%!$&'\(\)*\+,;=]|%[0-9a-f]{2})*)?)?@)";
danielebarchiesi@4:   $domain = '(?:(?:[a-z0-9' . $LINK_ICHARS_DOMAIN . ']([a-z0-9' . $LINK_ICHARS_DOMAIN . '\-_\[\]])*)(\.(([a-z0-9' . $LINK_ICHARS_DOMAIN . '\-_\[\]])+\.)*(' . $LINK_DOMAINS . '|[a-z]{2}))?)';
danielebarchiesi@4:   $ipv4 = '(?:[0-9]{1,3}(\.[0-9]{1,3}){3})';
danielebarchiesi@4:   $ipv6 = '(?:[0-9a-fA-F]{1,4}(\:[0-9a-fA-F]{1,4}){7})';
danielebarchiesi@4:   $port = '(?::([0-9]{1,5}))';
danielebarchiesi@4: 
danielebarchiesi@4:   // Pattern specific to external links.
danielebarchiesi@4:   $external_pattern = '/^' . $protocol . '?' . $authentication . '?(' . $domain . '|' . $ipv4 . '|' . $ipv6 . ' |localhost)' . $port . '?';
danielebarchiesi@4: 
danielebarchiesi@4:   // Pattern specific to internal links.
danielebarchiesi@4:   $internal_pattern = "/^(?:[a-z0-9" . $LINK_ICHARS . "_\-+\[\] ]+)";
danielebarchiesi@4:   $internal_pattern_file = "/^(?:[a-z0-9" . $LINK_ICHARS . "_\-+\[\]\. \/\(\)][a-z0-9" . $LINK_ICHARS . "_\-+\[\]\. \(\)][a-z0-9" . $LINK_ICHARS . "_\-+\[\]\. \/\(\)]+)$/i";
danielebarchiesi@4: 
danielebarchiesi@4:   $directories = "(?:\/[a-z0-9" . $LINK_ICHARS . "_\-\.~+%=&,$'#!():;*@\[\]]*)*";
danielebarchiesi@4:   // Yes, four backslashes == a single backslash.
danielebarchiesi@4:   $query = "(?:\/?\?([?a-z0-9" . $LINK_ICHARS . "+_|\-\.~\/\\\\%=&,$'():;*@\[\]{} ]*))";
danielebarchiesi@4:   $anchor = "(?:#[a-z0-9" . $LINK_ICHARS . "_\-\.~+%=&,$'():;*@\[\]\/\?]*)";
danielebarchiesi@4: 
danielebarchiesi@4:   // The rest of the path for a standard URL.
danielebarchiesi@4:   $end = $directories . '?' . $query . '?' . $anchor . '?' . '$/i';
danielebarchiesi@4: 
danielebarchiesi@4:   $message_id = '[^@].*@' . $domain;
danielebarchiesi@4:   $newsgroup_name = '(?:[0-9a-z+-]*\.)*[0-9a-z+-]*';
danielebarchiesi@4:   $news_pattern = '/^news:(' . $newsgroup_name . '|' . $message_id . ')$/i';
danielebarchiesi@4: 
danielebarchiesi@4:   $user = '[a-zA-Z0-9' . $LINK_ICHARS . '_\-\.\+\^!#\$%&*+\/\=\?\`\|\{\}~\'\[\]]+';
danielebarchiesi@4:   $email_pattern = '/^mailto:' . $user . '@'.'(?:' . $domain . '|' . $ipv4 . '|' . $ipv6 . '|localhost)' . $query . '?$/';
danielebarchiesi@4: 
danielebarchiesi@4:   if (strpos($text, '<front>') === 0) {
danielebarchiesi@4:     return LINK_FRONT;
danielebarchiesi@4:   }
danielebarchiesi@4:   if (in_array('mailto', $allowed_protocols) && preg_match($email_pattern, $text)) {
danielebarchiesi@4:     return LINK_EMAIL;
danielebarchiesi@4:   }
danielebarchiesi@4:   if (in_array('news', $allowed_protocols) && preg_match($news_pattern, $text)) {
danielebarchiesi@4:     return LINK_NEWS;
danielebarchiesi@4:   }
danielebarchiesi@4:   if (preg_match($internal_pattern . $end, $text)) {
danielebarchiesi@4:     return LINK_INTERNAL;
danielebarchiesi@4:   }
danielebarchiesi@4:   if (preg_match($external_pattern . $end, $text)) {
danielebarchiesi@4:     return LINK_EXTERNAL;
danielebarchiesi@4:   }
danielebarchiesi@4:   if (preg_match($internal_pattern_file, $text)) {
danielebarchiesi@4:     return LINK_INTERNAL;
danielebarchiesi@4:   }
danielebarchiesi@4: 
danielebarchiesi@4:   return FALSE;
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Returns the list of allowed domains, including domains added by admins via variable_set/$config.
danielebarchiesi@4:  */
danielebarchiesi@4: function _link_domains() {
danielebarchiesi@4:   $link_extra_domains = variable_get('link_extra_domains', array());
danielebarchiesi@4:   return empty($link_extra_domains) ? LINK_DOMAINS : LINK_DOMAINS . '|' . implode('|', $link_extra_domains);
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_migrate_field_alter().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_content_migrate_field_alter(&$field_value, $instance_value) {
danielebarchiesi@4:   if ($field_value['type'] == 'link') {
danielebarchiesi@4:     // Adjust the field type.
danielebarchiesi@4:     $field_value['type'] = 'link_field';
danielebarchiesi@4:     // Remove settings that are now on the instance.
danielebarchiesi@4:     foreach (array('attributes', 'display', 'url', 'title', 'title_value', 'enable_tokens', 'validate_url') as $setting) {
danielebarchiesi@4:       unset($field_value['settings'][$setting]);
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_migrate_instance_alter().
danielebarchiesi@4:  *
danielebarchiesi@4:  * Widget type also changed to link_field.
danielebarchiesi@4:  */
danielebarchiesi@4: function link_content_migrate_instance_alter(&$instance_value, $field_value) {
danielebarchiesi@4:   if ($field_value['type'] == 'link') {
danielebarchiesi@4:     // Grab settings that were previously on the field.
danielebarchiesi@4:     foreach (array('attributes', 'display', 'url', 'title', 'title_value', 'enable_tokens', 'validate_url') as $setting) {
danielebarchiesi@4:       if (isset($field_value['settings'][$setting])) {
danielebarchiesi@4:         $instance_value['settings'][$setting] = $field_value['settings'][$setting];
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:     // Adjust widget type.
danielebarchiesi@4:     if ($instance_value['widget']['type'] == 'link') {
danielebarchiesi@4:       $instance_value['widget']['type'] = 'link_field';
danielebarchiesi@4:     }
danielebarchiesi@4:     // Adjust formatter types.
danielebarchiesi@4:     foreach ($instance_value['display'] as $context => $settings) {
danielebarchiesi@4:       if (in_array($settings['type'], array('default', 'title_plain', 'url', 'plain', 'short', 'label', 'separate'))) {
danielebarchiesi@4:         $instance_value['display'][$context]['type'] = 'link_' . $settings['type'];
danielebarchiesi@4:       }
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_settings_form().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_settings_form() {
danielebarchiesi@4:   return array();
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Additional callback to adapt the property info of link fields.
danielebarchiesi@4:  * 
danielebarchiesi@4:  * @see entity_metadata_field_entity_property_info().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_property_info_callback(&$info, $entity_type, $field, $instance, $field_type) {
danielebarchiesi@4:   $property = &$info[$entity_type]['bundles'][$instance['bundle']]['properties'][$field['field_name']];
danielebarchiesi@4:   // Define a data structure so it's possible to deal with both the link title
danielebarchiesi@4:   // and URL.
danielebarchiesi@4:   $property['getter callback'] = 'entity_metadata_field_verbatim_get';
danielebarchiesi@4:   $property['setter callback'] = 'entity_metadata_field_verbatim_set';
danielebarchiesi@4: 
danielebarchiesi@4:   // Auto-create the field item as soon as a property is set.
danielebarchiesi@4:   $property['auto creation'] = 'link_field_item_create';
danielebarchiesi@4: 
danielebarchiesi@4:   $property['property info'] = link_field_item_property_info();
danielebarchiesi@4:   $property['property info']['url']['required'] = !$instance['settings']['url'];
danielebarchiesi@4:   $property['property info']['title']['required'] = ($instance['settings']['title'] == 'required');
danielebarchiesi@4:   if ($instance['settings']['title'] == 'none') {
danielebarchiesi@4:     unset($property['property info']['title']);
danielebarchiesi@4:   }
danielebarchiesi@4:   unset($property['query callback']);
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Callback for creating a new, empty link field item.
danielebarchiesi@4:  *
danielebarchiesi@4:  * @see link_field_property_info_callback()
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_item_create() {
danielebarchiesi@4:   return array('title' => NULL, 'url' => NULL);
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Defines info for the properties of the link-field item data structure.
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_item_property_info() {
danielebarchiesi@4:   $properties['title'] = array(
danielebarchiesi@4:     'type' => 'text',
danielebarchiesi@4:     'label' => t('The title of the link.'),
danielebarchiesi@4:     'setter callback' => 'entity_property_verbatim_set',
danielebarchiesi@4:   );
danielebarchiesi@4:   $properties['url'] = array(
danielebarchiesi@4:     'type' => 'uri',
danielebarchiesi@4:     'label' => t('The URL of the link.'),
danielebarchiesi@4:     'setter callback' => 'entity_property_verbatim_set',
danielebarchiesi@4:   );
danielebarchiesi@4:   return $properties;
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_field_update_instance().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_field_update_instance($instance, $prior_instance) {
danielebarchiesi@4:   if (function_exists('i18n_string_update') && $prior_instance['settings']['title_value'] != $instance['settings']['title_value']) {
danielebarchiesi@4:     $i18n_string_name = "field:{$instance['field_name']}:{$instance['bundle']}:title_value";
danielebarchiesi@4:     i18n_string_update($i18n_string_name, $instance['settings']['title_value']);
danielebarchiesi@4:   }
danielebarchiesi@4: }
danielebarchiesi@4: 
danielebarchiesi@4: /**
danielebarchiesi@4:  * Implements hook_i18n_string_list_TEXTGROUP_alter().
danielebarchiesi@4:  */
danielebarchiesi@4: function link_i18n_string_list_field_alter(&$strings, $type = NULL, $object = NULL) {
danielebarchiesi@4:   if ($type == 'field_instance' && $object && $object['widget']['type'] == 'link_field') {
danielebarchiesi@4:     if (isset($object['settings']['title_value'])) {
danielebarchiesi@4:       $strings['field'][$object['field_name']][$object['bundle']]['title_value']['string'] = $object['settings']['title_value'];
danielebarchiesi@4:     }
danielebarchiesi@4:   }
danielebarchiesi@4: }