chamilo
/
chamilo-lms
mirror of https://github.com/chamilo/chamilo-lms/tree/1.11.x
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Allowing \" and ' characters in a \"fill in blank\" question type

Browse Source
skala
Julio Montoya 15 years ago
parent 530cbe259c
commit acabf581ca
2 changed files with 20 additions and 13 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 26
      main/exercice/exercice_submit.php
  2. 7
      main/exercice/exercise_show.php

26
main/exercice/exercice_submit.php
Unescape View File

@ -494,11 +494,11 @@ if ($formSent) {
// TeX parsing
// 1. find everything between the [tex] and [/tex] tags
$startlocations = strpos($temp, '[tex]');
$endlocations = strpos($temp, '[/tex]');
$startlocations = api_strpos($temp, '[tex]');
$endlocations = api_strpos($temp, '[/tex]');
if ($startlocations !== false && $endlocations !== false) {
$texstring = substr($temp, $startlocations, $endlocations - $startlocations +6);
$texstring = api_substr($temp, $startlocations, $endlocations - $startlocations +6);
// 2. replace this by {texcode}
$temp = str_replace($texstring, '{texcode}', $temp);
}
@ -511,9 +511,9 @@ if ($formSent) {
$correct_tags = array ();
$real_text = array ();
// the loop will stop at the end of the text
while (1) {
while (1) {
// quits the loop if there are no more blanks (detect '[')
if (($pos = strpos($temp, '[')) === false) {
if (($pos = api_strpos($temp, '[')) === false) {
// adds the end of the text
$answer = $temp;
// TeX parsing - replacement of texcode tags
@ -524,22 +524,22 @@ if ($formSent) {
}
// adds the piece of text that is before the blank
//and ends with '[' into a general storage array
$real_text[] = substr($temp, 0, $pos +1);
$answer .= substr($temp, 0, $pos +1);
$real_text[] = api_substr($temp, 0, $pos +1);
$answer .= api_substr($temp, 0, $pos +1);
//take the string remaining (after the last "[" we found)
$temp = substr($temp, $pos +1);
$temp = api_substr($temp, $pos +1);
// quit the loop if there are no more blanks, and update $pos to the position of next ']'
if (($pos = strpos($temp, ']')) === false) {
if (($pos = api_strpos($temp, ']')) === false) {
// adds the end of the text
$answer .= $temp;
break;
}
$choice[$j] = trim($choice[$j]);
$user_tags[] = strtolower($choice[$j]);
$user_tags[] = api_strtolower($choice[$j]);
//put the contents of the [] answer tag into correct_tags[]
$correct_tags[] = strtolower(substr($temp, 0, $pos));
$correct_tags[] = api_strtolower(substr($temp, 0, $pos));
$j++;
$temp = substr($temp, $pos +1);
$temp = api_substr($temp, $pos +1);
//$answer .= ']';
}
@ -553,6 +553,8 @@ if ($formSent) {
}
if (!$switchable_answer_set) {
//needed to parse ' and " characters
$user_tags[$i] = stripslashes($user_tags[$i]);
if ($correct_tags[$i] == $user_tags[$i]) {
// gives the related weighting to the student
$questionScore += $answerWeighting[$i];

7
main/exercice/exercise_show.php
Unescape View File

@ -674,20 +674,25 @@ if ($show_results) {
if (($pos = api_strpos($temp,']')) === false) {
break;
}
$queryfill = "select answer from ".$TBL_TRACK_ATTEMPT." where exe_id = '".Database::escape_string($id)."' and question_id= '".Database::escape_string($questionId)."'";
$resfill = Database::query($queryfill);
$str = Database::result($resfill,0,"answer");
preg_match_all('#\[([^[]*)\]#', $str, $arr);
$choice = $arr[1];
$tmp=strrpos($choice[$j],' / ');
$choice[$j]=substr($choice[$j],0,$tmp);
$choice[$j]=trim($choice[$j]);
//Needed to let characters ' and " to work as part of an answer
$choice[$j] = stripslashes($choice[$j]);
// if the word entered by the student IS the same as the one defined by the professor
if (api_strtolower(api_substr($temp,0,$pos)) == api_strtolower($choice[$j])) {
//if ((api_substr($temp,0,$pos)) == ($choice[$j])) {
// gives the related weighting to the student
$questionScore+=$answerWeighting[$j];
// increments total score

Write Preview
Loading…
Cancel
Save