crm.fsf.org/20131203/files/modules/field/modules/list/list.install

   1 <?php
   2
   3 /**
   4  * @file
   5  * Install, update and uninstall functions for the list module.
   6  */
   7
   8 /**
   9  * Implements hook_field_schema().
  10  */
  11 function list_field_schema($field) {
  12   switch ($field['type']) {
  13     case 'list_text':
  14       $columns = array(
  15         'value' => array(
  16           'type' => 'varchar',
  17           'length' => 255,
  18           'not null' => FALSE,
  19         ),
  20       );
  21       break;
  22     case 'list_float':
  23       $columns = array(
  24         'value' => array(
  25           'type' => 'float',
  26           'not null' => FALSE,
  27         ),
  28       );
  29       break;
  30     case 'list_integer':
  31     case 'list_boolean':
  32       $columns = array(
  33         'value' => array(
  34           'type' => 'int',
  35           'not null' => FALSE,
  36         ),
  37       );
  38       break;
  39   }
  40   return array(
  41     'columns' => $columns,
  42     'indexes' => array(
  43       'value' => array('value'),
  44     ),
  45   );
  46 }
  47
  48 /**
  49  * Rename the list field types and change 'allowed_values' format.
  50  */
  51 function list_update_7001() {
  52   $fields = _update_7000_field_read_fields(array('module' => 'list'));
  53   foreach ($fields as $field) {
  54     $update = array();
  55
  56     // Translate the old string format into the new array format.
  57     $allowed_values = $field['settings']['allowed_values'];
  58     if (is_string($allowed_values)) {
  59       $position_keys = ($field['type'] == 'list');
  60       $allowed_values = _list_update_7001_extract_allowed_values($allowed_values, $position_keys);
  61
  62       // Additionally, float keys need to be disambiguated ('.5' is '0.5').
  63       if ($field['type'] == 'list_number' && !empty($allowed_values)) {
  64         $keys = array_map(create_function('$a', 'return (string) (float) $a;'), array_keys($allowed_values));
  65         $allowed_values = array_combine($keys, array_values($allowed_values));
  66       }
  67
  68       // Place the new setting in the existing serialized 'data' column.
  69       $data = db_query("SELECT data FROM {field_config} WHERE id = :id", array(':id' => $field['id']))->fetchField();
  70       $data = unserialize($data);
  71       $data['settings']['allowed_values'] = $allowed_values;
  72       $update['data'] = serialize($data);
  73     }
  74
  75     // Rename field types.
  76     $types = array('list' => 'list_integer', 'list_number' => 'list_float');
  77     if (isset($types[$field['type']])) {
  78       $update['type'] = $types[$field['type']];
  79     }
  80
  81     // Save the new data.
  82     if ($update) {
  83       $query = db_update('field_config')
  84         ->condition('id', $field['id'])
  85         ->fields($update)
  86         ->execute();
  87     }
  88   }
  89 }
  90
  91 /**
  92  * Helper function for list_update_7001: extract allowed values from a string.
  93  *
  94  * This reproduces the parsing logic in use before D7 RC2.
  95  */
  96 function _list_update_7001_extract_allowed_values($string, $position_keys) {
  97   $values = array();
  98
  99   $list = explode("\n", $string);
 100   $list = array_map('trim', $list);
 101   $list = array_filter($list, 'strlen');
 102
 103   foreach ($list as $key => $value) {
 104     // Check for a manually specified key.
 105     if (strpos($value, '|') !== FALSE) {
 106       list($key, $value) = explode('|', $value);
 107     }
 108     // Otherwise see if we need to use the value as the key. The "list" type
 109     // will automatically convert non-keyed lines to integers.
 110     elseif (!$position_keys) {
 111       $key = $value;
 112     }
 113     $values[$key] = (isset($value) && $value !== '') ? $value : $key;
 114   }
 115
 116   return $values;
 117 }
 118
 119 /**
 120  * @addtogroup updates-7.x-extra
 121  * @{
 122  */
 123
 124 /**
 125  * Re-apply list_update_7001() for deleted fields.
 126  */
 127 function list_update_7002() {
 128   // See http://drupal.org/node/1022924: list_update_7001() intitally
 129   // overlooked deleted fields, which then caused fatal errors when the fields
 130   // were being purged.
 131   // list_update_7001() has the required checks to ensure it is reentrant, so
 132   // it can simply be executed once more..
 133   list_update_7001();
 134 }
 135
 136 /**
 137  * @} End of "addtogroup updates-7.x-extra".
 138  */