long_answer.install in Quiz 7.5

Long_answer questions install file.

File

question_types/long_answer/long_answer.install

<?php

/**
 * @file
 * Long_answer questions install file.
 */

/**
 * Implements hook_install().
 */
function long_answer_install() {

  // Add body field to long answer node.
  quiz_question_add_body_field('long_answer');
  variable_set('node_options_long_answer', array(
    'status',
  ));
}

/**
 * Implements hook_schema().
 */
function long_answer_schema() {

  // Properties for a question nodes go in here:
  $schema['quiz_long_answer_node_properties'] = array(
    'fields' => array(
      'nid' => array(
        'type' => 'int',
        'unsigned' => TRUE,
        'not null' => TRUE,
      ),
      'vid' => array(
        'type' => 'int',
        'unsigned' => TRUE,
        'not null' => TRUE,
      ),
      'rubric' => array(
        'type' => 'text',
      ),
      'rubric_format' => array(
        'type' => 'varchar',
        'length' => 255,
        'description' => 'Text format for the rubric text.',
      ),
      'answer_text_processing' => array(
        'type' => 'int',
        'size' => 'tiny',
        'description' => 'Whether or not to allow filtered text answers.',
      ),
    ),
    'primary key' => array(
      'nid',
      'vid',
    ),
  );

  // User answers go in here.
  $schema['quiz_long_answer_user_answers'] = array(
    'fields' => array(
      'answer_id' => array(
        'type' => 'serial',
        'unsigned' => TRUE,
        'not null' => TRUE,
      ),
      'result_answer_id' => array(
        'type' => 'int',
        'unsigned' => TRUE,
        'not null' => FALSE,
      ),
      'score' => array(
        'type' => 'float',
        'unsigned' => TRUE,
        'not null' => TRUE,
        'default' => 0,
      ),
      'is_evaluated' => array(
        'type' => 'int',
        'unsigned' => TRUE,
        'size' => 'tiny',
        'default' => 0,
        'not null' => TRUE,
      ),
      'answer' => array(
        'type' => 'text',
      ),
      'answer_format' => array(
        'type' => 'varchar',
        'length' => 255,
        'description' => 'Text format for the answer text.',
      ),
      'answer_feedback' => array(
        'type' => 'text',
      ),
      'answer_feedback_format' => array(
        'type' => 'varchar',
        'length' => 255,
      ),
    ),
    'primary key' => array(
      'answer_id',
    ),
    'unique keys' => array(
      'result_answer_id' => array(
        'result_answer_id',
      ),
    ),
  );
  return $schema;
}

/**
 * Adding feedback field to table {quiz_long_answer_user_answers}.
 */
function long_answer_update_7401() {
  if (!db_field_exists('quiz_long_answer_user_answers', 'answer_feedback')) {
    $spec = array(
      'type' => 'text',
      'not null' => FALSE,
    );
    db_add_field('quiz_long_answer_user_answers', 'answer_feedback', $spec);
  }
}

/**
 * Adding feedback format field to table {quiz_long_answer_user_answers}.
 */
function long_answer_update_7402() {
  if (!db_field_exists('quiz_long_answer_user_answers', 'answer_feedback_format')) {
    $spec = array(
      'type' => 'varchar',
      'length' => 255,
    );
    db_add_field('quiz_long_answer_user_answers', 'answer_feedback_format', $spec);
  }
}

/**
 * Normalize data storage.
 */
function long_answer_update_7500() {
  db_drop_unique_key('quiz_long_answer_user_answers', 'ids');
  db_add_field('quiz_long_answer_user_answers', 'result_answer_id', array(
    'type' => 'int',
    'unsigned' => TRUE,
    'not null' => FALSE,
  ));
  db_query("UPDATE {quiz_long_answer_user_answers} qtua\n    INNER JOIN {quiz_node_results_answers} qnra ON (qtua.question_nid = qnra.question_nid\n    AND qtua.question_vid = qnra.question_vid\n    AND qtua.result_id = qnra.result_id)\n    SET qtua.result_answer_id = qnra.result_answer_id");
  db_drop_field('quiz_long_answer_user_answers', 'result_id');
  db_drop_field('quiz_long_answer_user_answers', 'question_nid');
  db_drop_field('quiz_long_answer_user_answers', 'question_vid');
  db_add_unique_key('quiz_long_answer_user_answers', 'result_answer_id', array(
    'result_answer_id',
  ));
}

/**
 * Add filtered input support for long answer rubrics and answers.
 */
function long_answer_update_7501() {
  db_add_field('quiz_long_answer_node_properties', 'answer_text_processing', array(
    'type' => 'int',
    'size' => 'tiny',
    'description' => 'Whether or not to allow filtered text answers.',
  ));
  db_add_field('quiz_long_answer_node_properties', 'rubric_format', array(
    'type' => 'varchar',
    'length' => 255,
    'description' => 'Text format for the rubric text.',
  ));
  db_add_field('quiz_long_answer_user_answers', 'answer_format', array(
    'type' => 'varchar',
    'length' => 255,
    'description' => 'Text format for the answer text.',
  ));

  // Updating existing, which were all plain text.
  db_update('quiz_long_answer_user_answers')
    ->fields(array(
    'answer_format' => 'plain_text',
  ))
    ->execute();
  db_update('quiz_long_answer_node_properties')
    ->fields(array(
    'rubric_format' => 'plain_text',
    'answer_text_processing' => 0,
  ))
    ->execute();
  return t('Added text format selection for long answer rubrics and answers.');
}

Functions

Name	Description
long_answer_install	Implements hook_install().
long_answer_schema	Implements hook_schema().
long_answer_update_7401	Adding feedback field to table {quiz_long_answer_user_answers}.
long_answer_update_7402	Adding feedback format field to table {quiz_long_answer_user_answers}.
long_answer_update_7500	Normalize data storage.
long_answer_update_7501	Add filtered input support for long answer rubrics and answers.