long_answer.admin.inc in Quiz 6.5

Administration pages for the long answer questions module.

File

question_types/long_answer/long_answer.admin.inc

<?php

/**
 * Administration pages for the long answer questions module.
 * @file
 */

/**
 * Admin settings form.
 */
function long_answer_admin_settings_form() {
  $form['long_answer_default_maximum_score'] = array(
    '#type' => 'textfield',
    '#title' => t('Default Maximum Score'),
    // 1 to match default multichoice score.
    '#default_value' => variable_get('long_answer_default_maximum_score', 1),
    '#description' => t('The default maximum score for a long-answer question.'),
    '#required' => TRUE,
  );
  return system_settings_form($form);
}

/**
 * Generate a view of all unscored answer questions.
 *
 * @see theme_long_answer_view_unscored()
 */
function long_answer_view_unscored() {
  $unscored = long_answer_get_all_unscored_answers();
  return theme('long_answer_view_unscored', $unscored);
}

/**
 * Page handler for displaying a scoring form.
 * This function is called directly from the menu router. It generates a form for
 * scoring a quiz.
 *
 * @param $vid
 *  The VID of the question and answer to load.
 * @param $rid
 *  The result ID of the answer to load.
 * @return
 *  Text to display.
 */
function long_answer_edit_score($vid, $rid) {

  // We have to do the vid -> nid lookup ourselves because node_load uses only node.vid,
  // and we need to be able to access old nodes in node_revisions.vid. (BTW... why is node singular
  // and node_revisions plural?).
  $nid = db_result(db_query("SELECT nid FROM {node_revisions} WHERE vid = %d", $vid));
  if (!$nid) {
    drupal_not_found();
    return;
  }
  $node = node_load($nid, $vid);
  if (!$node || $node->type != 'long_answer') {
    drupal_not_found();
    return;
  }
  $answer = (object) long_answer_get_answer($node->nid, $node->vid, $rid);
  if (!$answer) {
    drupal_not_found();
    return;
  }
  drupal_set_title(t('Score answer to "@title"', array(
    '@title' => $node->title,
  )));
  return drupal_get_form('long_answer_score_form', $node, $answer);
}

/**
 * Build a form for scoring long-answer questions.
 *
 * @param $node
 *  The question node.
 * @param $answer
 *  An object containing an answer to the question. This form is for scoring that answer.
 * @return
 *  The form (as a FAPI array).
 */
function long_answer_score_form($context, $node, $answer) {
  if (!$node || $node->type != 'long_answer' || !$answer) {
    drupal_not_found();
    return;
  }

  // Set up the form
  $form['question'] = array(
    '#type' => 'item',
    '#title' => t('Question'),
    '#value' => check_markup($node->body, $node->format),
  );
  $form['answer'] = array(
    '#type' => 'item',
    '#title' => t('Answer'),
    '#value' => check_markup($answer->answer, variable_get('long_answer_markup_filter', FILTER_FORMAT_DEFAULT)),
  );
  $form['show_max_score'] = array(
    '#type' => 'item',
    '#title' => t('Maximum Score'),
    '#value' => (int) $node->maximum_score,
  );
  $form['score'] = array(
    '#type' => 'textfield',
    '#title' => t('Score'),
    '#description' => t('The score for this essay, between 0 and @max', array(
      '@max' => $node->maximum_score,
    )),
    '#size' => 6,
    '#maxlength' => 6,
    '#default_value' => (int) $answer->score,
    '#required' => TRUE,
  );
  $form['submit'] = array(
    '#type' => 'submit',
    '#value' => t('Save this score'),
  );

  // Save some work by keeping these.
  $form['maximum_score'] = array(
    '#type' => 'value',
    '#value' => $node->maximum_score,
  );
  $form['question_nid'] = array(
    '#type' => 'value',
    '#value' => $answer->question_nid,
  );
  $form['question_vid'] = array(
    '#type' => 'value',
    '#value' => $answer->question_vid,
  );
  $form['result_id'] = array(
    '#type' => 'value',
    '#value' => $answer->result_id,
  );
  return $form;
}
function long_answer_score_form_validate($form, $form_state) {

  // Check to make sure that entered score is not higher than max allowed score.
  $max = (int) $form_state['values']['maximum_score'];
  $given = (int) $form_state['values']['score'];
  if ($given > $max || $given < 0) {
    $args = array(
      '@score' => $given,
      '@max' => $max,
    );
    form_error($form['score'], t('The given score (@score) is higher than the maximum allowed score (@max)', $args));
  }
}
function long_answer_score_form_submit($form, &$form_state) {
  $sql = 'SELECT nid, vid FROM {quiz_node_results} WHERE result_id = %d';
  $result = db_fetch_object(db_query($sql, $form_state['values']['result_id']));
  $quiz = node_load($result->nid, $result->vid);
  $nid = $form_state['values']['question_nid'];
  $vid = $form_state['values']['question_vid'];
  $rid = $form_state['values']['result_id'];
  $score = $form_state['values']['score'];
  $result = long_answer_score_an_answer($quiz, $nid, $vid, $rid, $score);
  if ($result == 1) {
    drupal_set_message("The score has been saved.");
    $form_state['redirect'] = 'admin/quiz/score-long-answer';
  }
  else {
    drupal_set_message('Error saving the score. The selected answer was not scored.', 'error');
  }
}

/**
 * Theme the list of unscored long answer questions.
 *
 * @param $unscored
 *  An array of objects, each with the quist_nid, question_vid, and result_id of an unscored question.
 */
function theme_long_answer_view_unscored($unscored) {
  $output = '';
  $header = array(
    t('Quiz ID'),
    t('Question'),
    t('Time Finished'),
    t('Action'),
  );
  $rows = array();
  foreach ($unscored as $item) {
    if ($item->time_end > 0) {
      $rows[] = array(
        $item->result_id,
        $item->title,
        date('Y-m-d H:i', $item->time_end),
        l('score this response', 'admin/quiz/score-long-answer/' . $item->question_vid . '/' . $item->result_id),
      );
    }
  }
  if (!empty($rows)) {
    $output .= theme('table', $header, $rows);
  }
  else {
    $output .= t('There are no unscored essays.');
  }
  return $output;
}

Functions

Name	Description
long_answer_admin_settings_form	Admin settings form.
long_answer_edit_score	Page handler for displaying a scoring form. This function is called directly from the menu router. It generates a form for scoring a quiz.
long_answer_score_form	Build a form for scoring long-answer questions.
long_answer_score_form_submit
long_answer_score_form_validate
long_answer_view_unscored	Generate a view of all unscored answer questions.
theme_long_answer_view_unscored	Theme the list of unscored long answer questions.