scale.classes.inc in Quiz 6.4
The main classes for the scale question type.
These extend code found in quiz_question.classes.inc.
Sponsored by: Norwegian Centre for Telemedicine Code: falcon
Based on: Other question types in the quiz framework.
Question type, enabling rapid creation of simple surveys using the quiz framework.
File
question_types/scale/scale.classes.incView source
<?php
/**
* The main classes for the scale question type.
*
* These extend code found in quiz_question.classes.inc.
*
* Sponsored by: Norwegian Centre for Telemedicine
* Code: falcon
*
* Based on:
* Other question types in the quiz framework.
*
*
*
* @file
* Question type, enabling rapid creation of simple surveys using the quiz framework.
*/
// @todo: We mix the names answer_collection and alternatives. Use either alternative or answer consistently
/**
* Extension of QuizQuestion.
*/
class ScaleQuestion extends QuizQuestion {
// $util will be set to true if an instance of this class is used only as a utility
protected $util = FALSE;
// (answer)Collection id
protected $col_id = NULL;
/**
* Tells the instance that it is beeing used as a utility.
*
* @param $c_id - answer collection id
*/
public function initUtil($c_id) {
$this->util = TRUE;
$this->col_id = $c_id;
}
/**
* Implementation of saveNodeProperties
*
* @see QuizQuestion#saveNodeProperties()
*/
public function saveNodeProperties($is_new = FALSE) {
$is_new_node = $is_new || $this->node->revision == 1;
$answer_collection_id = $this
->saveAnswerCollection($is_new_node);
// Save the answer collection as a preset if the save preset option is checked
if ($this->node->save == 1) {
$this
->setPreset($answer_collection_id);
}
if ($is_new_node) {
$sql = 'INSERT INTO {quiz_scale_node_properties}
(nid, vid, answer_collection_id)
VALUES (%d, %d, %d)';
db_query($sql, $this->node->nid, $this->node->vid, $answer_collection_id);
}
else {
$sql = 'UPDATE {quiz_scale_node_properties}
SET answer_collection_id = %d
WHERE nid = %d AND vid = %d';
db_query($sql, $answer_collection_id, $this->node->nid, $this->node->vid);
}
}
/**
* Add a preset for the current user.
*
* @param $col_id - answer collection id of the collection this user wants to have as a preset
*/
private function setPreset($col_id) {
global $user;
$sql = 'INSERT IGNORE INTO {quiz_scale_user}
(uid, answer_collection_id)
VALUES (%d, %d)';
db_query($sql, $user->uid, $col_id);
}
/**
* Stores the answer collection to the database, or identifies an existing collection.
*
* We try to reuse answer collections as much as possible to minimize the amount of rows in the database,
* and thereby improving performance when surveys are beeing taken.
*
* @param $is_new_node - the question is beeing inserted(not updated)
* @param $alt_input - the alternatives array to be saved.
* @param $preset - 1 | 0 = preset | not preset
* @return
* Answer collection id
*/
public function saveAnswerCollection($is_new_node, array $alt_input = NULL, $preset = NULL) {
global $user;
if (!isset($alt_input)) {
$alt_input = get_object_vars($this->node);
}
if (!isset($preset)) {
$preset = $this->node->save;
}
$alternatives = array();
for ($i = 0; $i < variable_get('scale_max_num_of_alts', 10); $i++) {
if (drupal_strlen($alt_input['alternative' . $i]) > 0) {
$alternatives[] = $alt_input['alternative' . $i];
}
}
// If an identical answer collection already exists
if ($answer_collection_id = $this
->excistingCollection($alternatives)) {
if ($preset == 1) {
$this
->setPreset($answer_collection_id);
}
if (!$is_new_node || $this->util) {
$col_to_delete = $this->util ? $this->col_id : $this->node->{0}->answer_collection_id;
if ($col_to_delete != $answer_collection_id) {
// We try to delete the old answer collection
$this
->deleteCollectionIfNotUsed($col_to_delete, 1);
}
}
return $answer_collection_id;
}
// Register a new answer collection
db_query('INSERT INTO {quiz_scale_answer_collection} () VALUES ()');
$answer_collection_id = db_last_insert_id('quiz_scale_answer_collection', 'id');
// Save as preset if checkbox for preset has been checked
if ($preset == 1) {
$sql = 'INSERT INTO {quiz_scale_user}
(uid, answer_collection_id)
VALUES (%d, %d)';
db_query($sql, $user->uid, $answer_collection_id);
}
// Save the alternatives in the answer collection
db_lock_table('quiz_scale_answer');
for ($i = 0; $i < count($alternatives); $i++) {
$this
->saveAlternative($alternatives[$i], $answer_collection_id);
}
db_unlock_tables();
return $answer_collection_id;
}
/**
* Saves one alternative to the database
*
* @param $alternative - the alternative(String) to be saved.
* @param $answer_collection_id - the id of the answer collection this alternative shall belong to.
*/
private function saveAlternative($alternative, $answer_collection_id) {
$sql = 'INSERT INTO {quiz_scale_answer}
(answer_collection_id, answer)
VALUES (%d, \'%s\')';
db_query($sql, $answer_collection_id, $alternative);
}
/**
* Deletes an answer collection if it isn't beeing used.
*
* @param $answer_collection_id
* @param $accept
* If collection is used more than this many times we keep it.
* @return
* true if deleted, false if not deleted.
*/
public function deleteCollectionIfNotUsed($answer_collection_id, $accept = 0) {
// Check if the collection is someones preset. If it is we can't delete it.
$sql = 'SELECT COUNT(*)
FROM {quiz_scale_user}
WHERE answer_collection_id = %d';
$results = db_fetch_array(db_query($sql, $answer_collection_id));
if ($results['COUNT(*)'] > 0) {
return FALSE;
}
// Check if the collection is a global preset. If it is we can't delete it.
$sql = 'SELECT for_all
FROM {quiz_scale_answer_collection}
WHERE id = %d';
$results = db_fetch_object(db_query($sql, $answer_collection_id));
if ($results->for_all == 1) {
return FALSE;
}
// Check if the collection is used in an existing question. If it is we can't delete it.
$sql = 'SELECT COUNT(*)
FROM {quiz_scale_node_properties}
WHERE answer_collection_id = %d';
$results = db_fetch_array(db_query($sql, $answer_collection_id));
// We delete the answer collection if it isnt beeing used by enough questions
if ($results['COUNT(*)'] <= $accept) {
$sql = 'DELETE FROM {quiz_scale_answer_collection}
WHERE id = %d';
db_query($sql, $answer_collection_id);
$sql = 'DELETE FROM {quiz_scale_answer}
WHERE answer_collection_id = %d';
db_query($sql, $answer_collection_id);
return TRUE;
}
return FALSE;
}
/**
* Finds out if a collection already exists.
*
* @param $alternatives
* This is the collection that will be compared with the database.
* @param $answer_collection_id
* If we are matching a set of alternatives with a given collection that exists in the database.
* @param $last_id - The id of the last alternative we compared with.
* @return
* TRUE if the collection exists
* FALSE otherwise
*/
private function excistingCollection(array $alternatives, $answer_collection_id = NULL, $last_id = NULL) {
$my_alts = isset($answer_collection_id) ? $alternatives : array_reverse($alternatives);
// Find all answers identical to the next answer in $alternatives
$sql = 'SELECT id, answer_collection_id
FROM {quiz_scale_answer}
WHERE answer = \'%s\'';
// Filter on collection id
if (isset($answer_collection_id)) {
$sql .= ' AND answer_collection_id = %d';
}
// Filter on alternative id(If we are investigating a specific collection, the alternatives needs to be in a correct order)
if (isset($last_id)) {
$sql .= ' AND id = %d';
}
$res = db_query($sql, array_pop($my_alts), $answer_collection_id, $last_id + 1);
if (!($res_o = db_fetch_object($res))) {
return FALSE;
}
/*
* If all alternatives has matched make sure the collection we are comparing against in the database
* doesn't have more alternatives.
*/
if (count($my_alts) == 0) {
$sql = 'SELECT * FROM {quiz_scale_answer}
WHERE answer_collection_id = %d
AND id = %d';
$res_o2 = db_fetch_object(db_query($sql, $answer_collection_id, $last_id + 2));
return $res_o2 == FALSE ? $answer_collection_id : FALSE;
}
// Do a recursive call to this function on all answer collection candidates
do {
$col_id = $this
->excistingCollection($my_alts, $res_o->answer_collection_id, $res_o->id);
if ($col_id) {
return $col_id;
}
} while ($res_o = db_fetch_object($res));
return FALSE;
}
/**
* Implementation of validateNode
*
* @see QuizQuestion#validate()
*/
public function validateNode(array &$form) {
}
/**
* Implementation of delete
*
* @see QuizQuestion#delete()
*/
public function delete($only_this_version = FALSE) {
parent::delete($only_this_version);
if ($only_this_version) {
db_query('DELETE FROM {quiz_scale_user_answers} WHERE question_nid = %d AND question_vid = %d', $this->node->nid, $this->node->vid);
db_query('DELETE FROM {quiz_scale_node_properties} WHERE nid = %d AND vid = %d', $this->node->nid, $this->node->vid);
}
else {
db_query('DELETE FROM {quiz_scale_user_answers} WHERE question_nid = %d', $this->node->nid);
db_query('DELETE FROM {quiz_scale_node_properties} WHERE nid = %d', $this->node->nid);
}
$this
->deleteCollectionIfNotUsed($this->node->{0}->answer_collection_id, 0);
}
/**
* Implementation of getNodeProperties
*
* @see QuizQuestion#getNodeProperties()
*/
public function getNodeProperties() {
if (isset($this->nodeProperties)) {
return $this->nodeProperties;
}
$props = parent::getNodeProperties();
$sql = 'SELECT id, answer, a.answer_collection_id
FROM {quiz_scale_node_properties} p
JOIN {quiz_scale_answer} a ON (p.answer_collection_id = a.answer_collection_id)
WHERE nid = %d AND vid = %d
ORDER BY a.id';
$res = db_query($sql, $this->node->nid, $this->node->vid);
while ($res_o = db_fetch_object($res)) {
$props[] = $res_o;
}
$this->nodeProperties = $props;
return $props;
}
/**
* Implementation of getNodeView
*
* @see QuizQuestion#view()
*/
public function getNodeView() {
$content = parent::getNodeView();
$alternatives = array();
for ($i = 0; $i < variable_get('scale_max_num_of_alts', 10); $i++) {
if (drupal_strlen($this->node->{$i}->answer) > 0) {
$alternatives[] = check_plain($this->node->{$i}->answer);
}
}
$content['answer'] = array(
'#type' => 'markup',
'#value' => theme('scale_answer_node_view', $alternatives),
);
return $content;
}
/**
* Implementation of getAnsweringForm
*
* @see getAnsweringForm($form_state, $rid)
*/
public function getAnsweringForm(array $form_state = NULL, $rid) {
$form = parent::getAnsweringForm($form_state, $rid);
$form['#theme'] = 'scale_answering_form';
$options = array();
for ($i = 0; $i < variable_get('scale_max_num_of_alts', 10); $i++) {
if (drupal_strlen($this->node->{$i}->answer) > 0) {
$options[$this->node->{$i}->id] = check_plain($this->node->{$i}->answer);
}
}
$form['tries'] = array(
'#type' => 'radios',
'#title' => t('Choose one'),
'#options' => $options,
);
if (isset($rid)) {
$response = new ScaleResponse($rid, $this->node);
$form['tries']['#default_value'] = $response
->getResponse();
}
return $form;
}
/**
* Implementation of getCreationForm
*
* @see QuizQuestion#getCreationForm()
*/
public function getCreationForm(array $form_state = NULL) {
$form = array();
/*
* Getting presets from the database
*/
$collections = $this
->getPresetCollections(TRUE);
$options = $this
->makeOptions($collections);
$options['d'] = '-';
// Default
// We need to add the available preset collections as javascript so that the alternatives can be populated instantly
// when a
$jsArray = $this
->makeJSArray($collections);
$form['answer'] = array(
'#type' => 'fieldset',
'#title' => t('Answer'),
'#description' => t('Provide alternatives for the user to answer.'),
'#collapsible' => TRUE,
'#collapsed' => FALSE,
'#weight' => -4,
);
$form['answer']['#theme'][] = 'scale_creation_form';
$form['answer']['presets'] = array(
'#type' => 'select',
'#title' => t('Presets'),
'#options' => $options,
'#default_value' => 'd',
'#description' => t('Select a set of alternatives'),
'#attributes' => array(
'onchange' => 'refreshAlternatives(this)',
),
);
$max_num_alts = variable_get('scale_max_num_of_alts', 10);
$form['jsArray'] = array(
'#type' => 'markup',
'#value' => "<script type='text/javascript'>{$jsArray} var scale_max_num_of_alts = {$max_num_alts};</script>",
);
$form['answer']['alternatives'] = array(
'#type' => 'fieldset',
'#title' => t('Alternatives'),
'#collapsible' => TRUE,
'#collapsed' => TRUE,
);
for ($i = 0; $i < $max_num_alts; $i++) {
$form['answer']['alternatives']["alternative{$i}"] = array(
'#type' => 'textfield',
'#title' => t('Alternative !i', array(
'!i' => $i + 1,
)),
'#size' => 60,
'#maxlength' => 256,
'#default_value' => isset($this->node->{$i}->answer) ? $this->node->{$i}->answer : '',
'#required' => $i < 2,
);
}
$form['answer']['alternatives']['save'] = array(
// @todo: Rename save to save_as_preset or something
'#type' => 'checkbox',
'#title' => t('Save as a new preset'),
'#description' => t('Current alternatives will be saved as a new preset'),
'#default_value' => FALSE,
);
$form['answer']['manage'] = array(
'#type' => 'markup',
'#value' => l(t('Manage presets'), 'scale/collection/manage'),
);
return $form;
}
/**
* Get all available presets for the current user.
*
* @param $with_defaults
* @return
* array holding all the preset collections as an array of objects.
* each object in the array has the following properties:
* ->alternatives(array)
* ->name(string)
* ->for_all(int, 0|1)
*/
public function getPresetCollections($with_defaults = FALSE) {
global $user;
$collections = array();
// array holding data for each collection
$scale_element_names = array();
$sql = 'SELECT DISTINCT ac.id AS answer_collection_id, a.answer, ac.for_all
FROM {quiz_scale_user} au
JOIN {quiz_scale_answer_collection} ac ON(au.answer_collection_id = ac.id)
JOIN {quiz_scale_answer} a ON(a.answer_collection_id = ac.id)
WHERE au.uid = %d';
if ($with_defaults) {
$sql .= ' OR ac.for_all = 1';
}
$sql .= ' ORDER BY au.answer_collection_id, a.id';
$res = db_query($sql, $user->uid);
$col_id = NULL;
// Populate the $collections array
while (true) {
if (!($res_o = db_fetch_object($res)) || $res_o->answer_collection_id != $col_id) {
/*
* We have gone through all elements for one answer collection,
* and needs to store the answer collection name and id in the options array...
*/
if (isset($col_id)) {
$num_scale_elements = count($collections[$col_id]->alternatives);
$collections[$col_id]->name = check_plain($collections[$col_id]->alternatives[0] . ' - ' . $collections[$col_id]->alternatives[$num_scale_elements - 1] . ' (' . $num_scale_elements . ')');
}
// Break the loop if there are no more answer collections to process
if (!$res_o) {
break;
}
// Init the next collection in the $collections array
$col_id = $res_o->answer_collection_id;
if (!isset($collections[$col_id])) {
$collections[$col_id] = new stdClass();
$collections[$col_id]->alternatives = array();
$collections[$col_id]->for_all = $res_o->for_all;
}
}
$collections[$col_id]->alternatives[] = check_plain($res_o->answer);
}
return $collections;
}
/**
* Makes options array for form elements.
*
* @param $collections
* collections array, from getPresetCollections() for instance...
* @return
* #options array.
*/
private function makeOptions(array $collections = NULL) {
$options = array();
foreach ($collections as $col_id => $obj) {
$options[$col_id] = $obj->name;
}
return $options;
}
/**
* Makes a javascript constructing an answer collection array.
*
* @param $collections
* collections array, from getPresetCollections() for instance...
* @return
* javascript(string)
*/
private function makeJSArray(array $collections = NULL) {
$jsArray = 'scaleCollections = new Array();';
foreach ($collections as $col_id => $obj) {
if (is_array($collections[$col_id]->alternatives)) {
$jsArray .= "scaleCollections[{$col_id}] = new Array();";
foreach ($collections[$col_id]->alternatives as $alt_id => $text) {
$jsArray .= "scaleCollections[{$col_id}][{$alt_id}] = '" . check_plain($text) . "';";
}
}
}
return $jsArray;
}
/**
* Implementation of getMaximumScore.
*
* @see QuizQuestion#getMaximumScore()
*/
public function getMaximumScore() {
// In some use-cases we want to reward users for answering a survey question.
// This is why 1 is returned and not zero.
return 1;
}
}
/**
* Extension of QuizQuestionResponse
*/
class ScaleResponse extends QuizQuestionResponse {
/**
* ID of the answer.
*/
protected $answer_id = 0;
/**
* Constructor
*/
public function __construct($result_id, stdClass $question_node, $answer = NULL) {
parent::__construct($result_id, $question_node, $answer);
if (isset($answer)) {
$this->answer_id = intval($answer);
}
else {
$sql = 'SELECT answer_id
FROM {quiz_scale_user_answers}
WHERE result_id = %d AND question_nid = %d AND question_vid = %d';
$res = db_query($sql, $result_id, $this->question->nid, $this->question->vid);
$this->answer_id = db_result($res);
}
$sql = 'SELECT answer
FROM {quiz_scale_answer}
WHERE id = %d';
$res = db_query($sql, $this->answer_id);
$this->answer = check_plain(db_result($res));
}
public function isValid() {
if (empty($this->answer_id)) {
return t('You must provide an answer');
}
return TRUE;
}
/**
* Implementation of save
*
* @see QuizQuestionResponse#save()
*/
public function save() {
$sql = "INSERT INTO {quiz_scale_user_answers}\n (answer_id, result_id, question_vid, question_nid)\n VALUES (%d, %d, %d, %d)";
db_query($sql, $this->answer_id, $this->rid, $this->question->vid, $this->question->nid);
}
/**
* Implementation of delete
*
* @see QuizQuestionResponse#delete()
*/
public function delete() {
$sql = 'DELETE FROM {quiz_scale_user_answers}
WHERE result_id = %d AND question_nid = %d AND question_vid = %d';
db_query($sql, $this->rid, $this->question->nid, $this->question->vid);
}
/**
* Implementation of score
*
* @see QuizQuestionResponse#score()
*/
public function score() {
return $this
->isValid() ? 1 : 0;
}
/**
* Implementation of getResponse
*
* @see QuizQuestionResponse#getResponse()
*/
public function getResponse() {
return $this->answer_id;
}
/**
* Implementation of getReportFormResponse
*
* @see getReportFormResponse($showpoints, $showfeedback, $allow_scoring)
*/
public function getReportFormResponse($showpoints = TRUE, $showfeedback = TRUE, $allow_scoring = FALSE) {
$form = array();
$form['#theme'] = 'scale_response_form';
$form['answer'] = array(
'#type' => 'markup',
'#value' => check_plain($this->answer),
);
return $form;
}
}Classes
Name |
Description |
|---|---|
| ScaleQuestion | Extension of QuizQuestion. |
| ScaleResponse | Extension of QuizQuestionResponse |