function vppr_update_7000 in Vocabulary Permissions Per Role 7

Turns old-school VPPR permission variable into proper permissions.

File

./vppr.install, line 10

Vocabulary Permissions Per Role - uninstallation routines.

Code

function vppr_update_7000() {
  $vocabs = taxonomy_get_vocabularies();
  $roles = user_roles(TRUE);
  $perms = variable_get('vppr_perms', array(
    array(),
  ));
  foreach ($vocabs as $vocab) {
    foreach ($roles as $rid => $role_name) {
      $perm = isset($perms[$vocab->vid]) && isset($perms[$vocab->vid][$rid]) ? $perms[$vocab->vid][$rid] : 0;
      if ($perm) {
        user_role_grant_permissions($rid, array(
          'administer ' . $vocab->machine_name . ' vocabulary terms',
        ));
      }
    }
  }
  variable_del('vppr_perms');
}