You are here

la.admin.inc in Location 7.3

Location autofill routines.

File

contrib/location_autofill/la.admin.inc
View source
<?php

/**
 * @file
 * Location autofill routines.
 */
define('NUM_EMPTY_ENTITIES_TO_DISPLAY', 25);

/**
 * Module's admin form.
 */
function la_admin($form, &$form_state) {
  $form = array();
  $count = la_info();
  if ($count !== NULL) {
    $form['submit'] = array(
      '#type' => 'submit',
      '#value' => t('Autofill locations'),
    );
    $form['submit_list'] = array(
      '#type' => 'submit',
      '#value' => t('Get empty locations'),
    );
  }
  return $form;
}

/**
 * Admin form submit handler.
 */
function la_admin_submit(&$form, &$form_state) {
  $values = $form_state['values'];

  // Run batch.
  if ($values['op'] == $values['submit']) {
    la_batch();
    return;
  }

  // Display entities with non filled locations.
  if ($values['op'] == $values['submit_list']) {
    $fields = field_info_fields();
    $entity_list = array();
    foreach ($fields as $fname => $fdata) {
      if ($fdata['type'] != 'location') {
        unset($fields[$fname]);
        continue;
      }
    }
    if (count($fields) == 0) {
      drupal_set_message(t('Nothing to process.'));
      return;
    }

    // Subquery for a list of all empty location's ids.
    $l_subquery = db_select('location', 'l')
      ->fields('l', array(
      'lid',
    ))
      ->condition('latitude', '0.000000')
      ->condition('longitude', '0.000000');
    foreach ($fields as $fname => $fdata) {
      $tbl_name = key($fdata['storage']['details']['sql']['FIELD_LOAD_CURRENT']);
      $column_name = $fdata['storage']['details']['sql']['FIELD_LOAD_CURRENT'][$tbl_name]['lid'];
      $entities = db_select($tbl_name, 't')
        ->fields('t', array(
        'entity_type',
        'entity_id',
        $column_name,
      ))
        ->condition($column_name, $l_subquery, 'IN')
        ->range(0, NUM_EMPTY_ENTITIES_TO_DISPLAY)
        ->execute()
        ->fetchAllAssoc('entity_id');
      if (count($entities) == 0) {
        continue;
      }
      foreach ($entities as $entity_id => $edata) {
        $entity = entity_load($edata->entity_type, array(
          $entity_id,
        ));
        $entity = array_shift($entity);
        $entity_uri = entity_uri($edata->entity_type, $entity);
        $entity_url = url($entity_uri['path'], array(
          'absolute' => TRUE,
          'entity_type' => $edata->entity_type,
          'entity' => $entity,
        ));
        $entity_link = l(t('View entity'), $entity_url, array(
          'attributes' => array(
            'target' => '_blank',
          ),
        ));
        $entity_edit_link = '';
        if ($edata->entity_type == 'node') {
          $node_url = url('node/' . $entity_id . '/edit', array(
            'absolute' => TRUE,
            'entity_type' => $edata->entity_type,
            'entity' => $entity,
          ));
          $node_edit_url = l(t('Edit node'), $node_url, array(
            'attributes' => array(
              'target' => '_blank',
            ),
          ));
          $entity_edit_link = $node_edit_url;
        }
        $node_edit_url = '';
        $entity_list[] = array(
          $edata->entity_type,
          $entity_id,
          $edata->{$column_name},
          $entity_link,
          $entity_edit_link,
        );
      }
      $ecount = count($entity_list);
      if ($ecount >= NUM_EMPTY_ENTITIES_TO_DISPLAY) {
        break;
      }
    }
    drupal_set_message(t('Entities with empty locations (latitude and longitude): @count of @total. Use entity urls for manual access and edit.', array(
      '@count' => count($entity_list),
      '@total' => $l_subquery
        ->execute()
        ->rowCount(),
    )) . theme('table', array(
      'header' => array(
        t('Entity type'),
        t('Entity ID'),
        t('Location ID'),
        t('Entity URL'),
        t('Entity edit URL'),
      ),
      'rows' => $entity_list,
    )));
  }
}

Functions

Namesort descending Description
la_admin Module's admin form.
la_admin_submit Admin form submit handler.

Constants

Namesort descending Description
NUM_EMPTY_ENTITIES_TO_DISPLAY @file Location autofill routines.