A form for indicating the organisms to delete

Related topics

File

tripal_organism/includes/tripal_organism.delete.inc, line 12

Administration Interface for deleting multiple organisms

Code

function tripal_organism_delete_form() {
  // get the list of organisms
  $sql = "SELECT * FROM {organism} ORDER BY genus, species";
  $org_rset = chado_query($sql);
  $organisms = array();
  while ($organism = $org_rset->fetchObject()) {
    $organisms[$organism->organism_id] = "$organism->genus $organism->species ($organism->common_name)";
  }

  $form['desc'] = array(
    '#markup' => t("Use the following form to delete organisms which may or may
        not be synced. Please be cautious. Deleting an organism will cause all
        data associated with the organism to also be deleted."),
  );

  $form['organisms'] = array(
    '#title' => t('Organism'),
    '#type' => 'checkboxes',
    '#options' => $organisms,
    '#prefix' => '<div style="height: 400px; overflow: scroll">',
    '#suffix' => '</div><br>',
  );

  $form['button'] = array(
    '#type' => 'submit',
    '#value' => t('Delete Organisms'),
  );
  return $form;
}