function biblio_update_6020 in Bibliography Module 6

Same name and namespace in other branches

1. 6.2 biblio.install \biblio_update_6020()

File

./biblio.install, line 1737

Install file for biblio module

Code

function biblio_update_6020() {

  // add new 'access biblio content' permission to any role which has 'access content'
  $result = array();
  $dbresult = db_query('SELECT p.* FROM {permission} p');
  while ($role = db_fetch_object($dbresult)) {
    if (strpos($role->perm, 'access content') !== FALSE) {
      $role->perm = 'access biblio content, ' . $role->perm;
      $result[] = update_sql("UPDATE {permission} SET perm = '{$role->perm}' WHERE rid = {$role->rid}");
    }
  }
  return $result;
}