";
/************* file ref ***************/
//$test_log_ref = $_GET["test_log_ref"];
//$test_log_ref = "test_log_AntonDunaykin_20230611_1328_quarterly_test_nlmkitspc39_20230608.xml";
${'xml'.$test_log}=simplexml_load_file("inc_test_logs/".$test_log_ref);// or die("Error: Cannot create object $ xml");
echo "
\n";
echo "\n";
echo "
\n";
echo "
\n";
echo " ![\"test](\"pix/icons8-quiz-100.png\")
".${'xml'.$test_log}->sbook_test_ref."
\n";
echo "by D.Potter
\n";
echo "
\n"; $test_log_log_contents = $test_log_log_contents."".${'xml'.$test_log}->sbook_test_company." \n";
echo "
\n"; $test_log_log_contents = $test_log_log_contents."".${'xml'.$test_log}->sbook_test_group." \n";
echo "
\n"; $test_log_log_contents = $test_log_log_contents."".${'xml'.$test_log}->sbook_test_level." \n";
echo "
\n"; echo "
\n"; echo "
\n"; echo "
\n"; echo "
\n"; // todo echo "
\n"; echo "
\n";
/************* end heading *************/
}
// needed for toggle show / hide
echo "Company: ".${'xml'.$test_log}->sbook_test_company. "
\n"; $test_log_log_contents = $test_log_log_contents."
Group: ".${'xml'.$test_log}->sbook_test_group. "
\n"; $test_log_log_contents = $test_log_log_contents."
Target level: ".${'xml'.$test_log}->sbook_test_level. "
\n"; $test_log_log_contents = $test_log_log_contents."
Test date: ".${'xml'.$test_log}->sbook_test_date. "
\n"; echo "
Test submitted: ".${'xml'.$test_log}->sbook_test_date_submitted. "
\n"; echo "
Student name: ".${'xml'.$test_log}->sbook_test_student_name."
\n"; echo "
E-mail: ".${'xml'.$test_log}->sbook_test_student_email."
\n"; echo "
Score:
\n"; // todo echo "
\n"; echo "
\n";
echo "
";
foreach (${'xml'.$test_log}->sbook_test_mcq as $sbook_test_mcq) {
echo "
";
if (!empty($sbook_test_mcq->path_to_csv)) {
//echo "
\n";
} // end foreach as mcq
foreach (${'xml'.$test_log}->sbook_test_open_cloze as $sbook_test_open_cloze) {
echo "- ";
echo "
- ".$qa->qs."
"; echo "- ";
foreach ($qa->ans as $answer) {
echo "
- ".$answer." "; } if (trim($qa->submitted_answer) == trim($qa->true)) { echo "✓ ".$qa->submitted_answer."
"; } if (trim($qa->submitted_answer) != trim($qa->true)) { echo "".$qa->submitted_answer."
"; echo "✓ ".$qa->true."
"; } //echo "(score: ".$qa->score.")
"; echo " ";
} // foreach ()
echo "
- ";
echo "
".$sbook_test_mcq->exercise_nr . "
"; } echo "".$sbook_test_mcq->exercise_type."
(".$sbook_test_mcq->selection_number.")"; echo "".$sbook_test_mcq->exercise_name."
"; echo "\n"; echo "
"; foreach ($sbook_test_mcq->qa as $qa) { echo "
";
if (!empty($sbook_test_open_cloze->path_to_csv)) {
//echo "
\n";
} // end foreach as open_cloze
foreach (${'xml'.$test_log}->sbook_test_cloze_sentence as $sbook_test_cloze_sentence) {
echo "- ";
echo "
- ".$qa->qs."
"; echo "- ";
foreach ($qa->ans as $answer) {
echo "
- ".$answer." "; } // end of foreach ($qa->ans as $answer) // bug // test_log_IgorGlazyrin_20230606_2210_quarterly_test_nlmkitspc40_20230608.xml // (was|were) is not recognised any more... // but (at what time|what time|when) is... // rrwc gp5 // inc_drills/grammar_reported_speech_selection_b1_02.csv // ('d|would) give (me|us|them) a discount // XXXXXXXXXXXXXXXXX TODO CONTINUE DEBUGGING FROM HERE // 20240621-1111 todo update display $question_name2 = preg_replace("/[^\da-z]/i", '',(trim($qa->true))); $question_name2 = preg_replace('/\s+/', '', (trim($qa->true))); echo "question name 2:".$question_name2."
"; //$answer2 = preg_replace('/\s+/', '', $answer); $answer2 = preg_replace('/\s+/', '', $qa->submitted_answer); echo "answer 2:".$answer2."
"; //if(!preg_match_all('/\A'.(trim($qa->submitted_answer)).'\z/',(trim($qa->true)))) { //if(!preg_match_all('/\A'.$answer2.'\z/',$question_name2)) { // orig 20240621 if(!preg_match_all('/\b'.$question_name2.'\b/',$answer2)) { //if (trim($qa->submitted_answer) != trim($qa->true)) { echo "".$qa->submitted_answer."
"; echo "✓ ".$qa->true."
"; } else { //echo "✓ ".$answer."
\n"; echo "✓ ".$answer."
"; } /*** if(preg_match_all('/\A'.(trim($qa->submitted_answer)).'\z/',(trim($qa->true)))) { //if (trim($qa->submitted_answer) == trim($qa->true)) { echo "✓ ".$qa->submitted_answer."
"; } ***/ //echo "(score: ".$qa->score.")
"; echo " ";
} // foreach ()
echo "
- ";
echo "
".$sbook_test_open_cloze->exercise_nr . "
"; } echo "".$sbook_test_open_cloze->exercise_type."
(".$sbook_test_open_cloze->selection_number.")"; echo "".$sbook_test_open_cloze->exercise_name."
"; echo "\n"; echo "
"; foreach ($sbook_test_open_cloze->qa as $qa) { echo "
";
if (!empty($sbook_test_cloze_sentence->path_to_csv)) {
//echo "
\n";
} // end foreach as open_cloze
foreach (${'xml'.$test_log}->sbook_test_match as $sbook_test_match) {
echo "- ";
echo "
- ".$qa->qs."
"; echo "- ";
foreach ($qa->ans as $answer) {
echo "
- ".$answer." "; } if (trim($qa->submitted_answer) == trim($qa->true)) { echo "✓ ".$qa->submitted_answer."
"; } if (trim($qa->submitted_answer) != trim($qa->true)) { echo "".$qa->submitted_answer."
"; echo "✓ ".$qa->true."
"; } //echo "(score: ".$qa->score.")
"; echo " ";
} // foreach ()
echo "
- ";
echo "
".$sbook_test_cloze_sentence->exercise_nr . "
"; } echo "".$sbook_test_cloze_sentence->exercise_type."
(".$sbook_test_cloze_sentence->selection_number.")"; echo "".$sbook_test_cloze_sentence->exercise_name."
"; echo "\n"; echo "
"; foreach ($sbook_test_cloze_sentence->qa as $qa) { echo "
";
echo "
"; echo "".$sbook_test_match->instructions."
"; echo "
\n";
?>
".$sbook_test_match->exercise_nr . "
"; echo "".$sbook_test_match->exercise_type."
(".$sbook_test_match->selection_number.")"; echo "".$sbook_test_match->exercise_name."
"; echo "
"; echo "
- \n";
foreach ($sbook_test_match->qa as $qa) {
//echo "
- ".$qa->qs;
if (trim($qa->submitted_answer) == trim($qa->true)) {
echo "✓ ".$qa->submitted_answer."\n";
}
if (trim($qa->submitted_answer) != trim($qa->true)) {
echo "
".$qa->submitted_answer."
"; echo "✓ ".$qa->true."\n"; } echo " ";
} // foreach ()
echo "";
echo " - ".$answer."
"; echo "".$question."";
echo "
";
echo "
\n";
} // end foreach as test_match
foreach (${'xml'.$test_log}->sbook_test_wri as $sbook_test_wri) {
echo "";
echo "
"; //echo "
"; echo "
\n"; echo "".$sbook_test_wri->instructions."";
$topics_for_wri = trim($sbook_test_wri->topics_for_wri);
if (!empty($topics_for_wri)) {
$topics_to_recycle = $topics_for_wri;
echo "
\n";
echo "".$sbook_test_wri->exercise_nr . "
"; //echo "".$sbook_test_wri->exercise_type."
(".$sbook_test_wri->selection_number.")"; echo "".$sbook_test_wri->exercise_name."
"; //echo "
".$sbook_test_wri->exercise_name."
"; echo "
\n"; echo "
- ".$topics_to_recycle."
".$suggested_answer."
";
}
$key = trim($sbook_test_wri->key);
if (!empty($key)) {
echo "".$key."
";
}
echo "";
// todo
// echo "
\n";
echo "".$text.$txt."\n";
echo "
\n";
} // end foreach as test_wri
foreach (${'xml'.$test_log}->sbook_test_match_jumbled_definitions as $sbook_test_match_jumbled_definitions) {
echo "\n";
echo $sbook_test_wri->submitted_answer;
echo "
\n";
echo "";
$path_to_csv_match = trim($sbook_test_match_jumbled_definitions->path_to_csv);
if (!empty($path_to_csv_match)) {
//echo "
\n";
if (!feof($handle_match2)) {
echo "Error: unexpected fgets() fail 2\n";
}
fclose($handle_match2);
} // if (!empty($path_to_csv_match))
} // end foreach as match_jumbled_definitions
foreach (${'xml'.$test_log}->sbook_test_shuffled as $sbook_test_shuffled) {
echo "- ";
$file_match = $path_to_csv_match;
//read first line
$first_line_match = file($file_match);
list($exercise_type, $exercise_name, $selection_number, $instructions) = explode(";", $first_line_match[0]);
if ($sbook_test_match_jumbled_definitions->exercise_nr[0] != null) {
echo "
".$sbook_test_match_jumbled_definitions->exercise_nr . "
"; } echo "".$exercise_type."
(".$selection_number.")"; echo "".$exercise_name."
"; echo "
"; echo "
- \n";
echo "
";
$path_to_csv_match = trim($sbook_test_match_jumbled_definitions->path_to_csv);
if (!empty($path_to_csv_match)) {
// read all the lines in the file into an array with file( )
$lines_csv = file($path_to_csv_match);
// load file into an array
$lines_csv = array($lines_csv);
foreach ($lines_csv as $line_csv) {
// remove 1st element from csv file, e.g. Instructions
$line_csv = array_slice($line_csv, 1);
// change order of lines
shuffle($line_csv);
foreach ($line_csv as $line) {
$line = preg_replace ('/;.*$/','', $line);
echo "".$line."";
}
}
}
echo "
\n";
echo "- ";
echo "
- \n";
$file_match2 = $path_to_csv_match;
//read first line, but do nothing with it
$handle_match2 = fopen($file_match2, "r");
$line_match2 = fgets($handle_match2);
//now read the rest of the file line by line
if ($handle_match2) {
while (($line_match2 = fgets($handle_match2, 4096)) !== false) {
// do something with $line here
list($question, $answer) = explode(";", $line_match2);
echo "
";
echo "
\n";
}
}
echo "";
// need to add '_match' from imported sbook_plugins/csv_load_deck_shuffled.inc
// may have to add in box09 answer in csv file
// don't need to convert ^ to ;
$path_to_csv_match = trim($sbook_test_shuffled->path_to_csv);
if (!empty($path_to_csv_match)) {
//echo "
\n";
} // end foreach as match
echo "- ";
$file_match = $path_to_csv_match;
//read first line
$first_line_match = file($file_match);
// imported from sbook_plugins/csv_load_deck_shuffled.inc
// need to add '_match' from imported sbook_plugins/csv_load_deck_shuffled.inc
list($exercise_type, $exercise_name, $selection_number, $instructions,$background_image,$key_image) = explode("^", $first_line_match[0]);
if ($sbook_test_shuffled->exercise_nr[0] != null) {
echo "
".$sbook_test_shuffled->exercise_nr . "
"; } echo "".$exercise_type."
(".$selection_number.")"; echo "".$exercise_name."
"; echo "
"; echo "
- \n";
//read first line, but do nothing with it
$handle_match = fopen($file_match, "r");
$line_match = fgets($handle_match);
//now read the rest of the file line by line
if ($handle_match) {
while (($line_match = fgets($handle_match, 4096)) !== false) {
//list($txt_id,$subject,$auxiliary_vb,$lexical_vb,$past_participle,$object,$preposition,$object2,$hint,$answer) = explode(";", $line);
// imported from sbook_plugins/csv_load_deck_shuffled.inc
list($txt_id,$subject,$auxiliary_vb,$lexical_vb,$past_participle,$object,$preposition,$object2,$hint,$answer) = explode("^", $line_match);
if ((empty(trim($subject))) || (empty(trim($auxiliary_vb))) || (empty(trim($lexical_vb))) || (empty(trim($past_participle))) || (empty(trim($object))) || (empty(trim($preposition))) || (empty(trim($object2))) || (empty(trim($hint))) || (empty(trim($answer)))) {
$subject_wo_spaces = preg_replace('/^/m'," ",$subject);
$subject = preg_replace('/^/m'," ",$subject);
$auxiliary_vb_wo_spaces = preg_replace('/^/m'," ",$auxiliary_vb);
$auxiliary_vb = preg_replace('/^/m'," ",$auxiliary_vb);
$lexical_vb_wo_spaces = preg_replace('/^/m'," ",$lexical_vb);
$lexical_vb = preg_replace('/^/m'," ",$lexical_vb);
$past_participle_wo_spaces = preg_replace('/^/m'," ",$past_participle);
$past_participle = preg_replace('/^/m'," ",$past_participle);
$object_wo_spaces = preg_replace('/^/m'," ",$object);
$object = preg_replace('/^/m'," ",$object);
$preposition_wo_spaces = preg_replace('/^/m'," ",$preposition);
$preposition = preg_replace('/^/m'," ",$preposition);
$object2_wo_spaces = preg_replace('/^/m'," ",$object2);
$object2 = preg_replace('/^/m'," ",$object2);
$hint_wo_spaces = preg_replace('/^/m'," ",$hint);
$hint = preg_replace('/^/m'," ",$hint);
$answer_wo_spaces = preg_replace('/^/m'," ",$answer);
$answer = preg_replace('/^/m'," ",$answer);
}
if ((!empty(trim($subject))) || (!empty(trim($auxiliary_vb))) || (!empty(trim($lexical_vb))) || (!empty(trim($past_participle))) || (!empty(trim($object))) || (!empty(trim($preposition))) || (!empty(trim($object2))) || (!empty(trim($hint))) || (!empty(trim($answer)))) {
$subject_wo_spaces = preg_replace('/[^\da-z]/i',"_",$subject);
$auxiliary_vb_wo_spaces = preg_replace('/[^\da-z]/i',"_",$auxiliary_vb);
$lexical_vb_wo_spaces = preg_replace('/[^\da-z]/i',"_",$lexical_vb);
$past_participle_wo_spaces = preg_replace('/[^\da-z]/i',"_",$past_participle);
$object_wo_spaces = preg_replace('/[^\da-z]/i',"_",$object);
$preposition_wo_spaces = preg_replace('/[^\da-z]/i',"_",$preposition);
$object2_wo_spaces = preg_replace('/[^\da-z]/i',"_",$object2);
$hint_wo_spaces = preg_replace('/[^\da-z]/i',"_",$hint);
$answer_wo_spaces = preg_replace('/[^\da-z]/i',"_",$answer);
}
echo "
".$answer."
";
$box01 = "";
$box01 = $box01. "
";
$box02 = "";
$box01 = $box01. "".$subject."";
$box01 = $box01. "
";
$box01 = $box01. "";
$box02 = $box02. "
";
$box03 = "";
$box02 = $box02. "".$auxiliary_vb."";
$box02 = $box02. "
";
$box02 = $box02. "";
$box03 = $box03. "
";
$box04 = "";
$box03 = $box03. "".$lexical_vb."";
$box03 = $box03. "
";
$box03 = $box03. "";
$box04 = $box04. "
";
$box05 = "";
$box04 = $box04. "".$past_participle."";
$box04 = $box04. "
";
$box04 = $box04. "";
$box05 = $box05. "
";
$box06 = "";
$box05 = $box05. "".$object."";
$box05 = $box05. "
";
$box05 = $box05. "";
$box06 = $box06. "
";
$box07 = "";
$box06 = $box06. "".$preposition."";
$box06 = $box06. "
";
$box06 = $box06. "";
$box07 = $box07. "
";
$box08 = "";
$box07 = $box07. "".$object2."";
$box07 = $box07. "
";
$box07 = $box07. "";
$box08 = $box08. "
";
$box09 = "";
$box08 = $box08. "".$hint."";
$box08 = $box08. "
";
$box08 = $box08. "";
$box09 = $box09. "
";
// important not to include answer!
//$shuffled_lines = (array($box01,$box02,$box03,$box04,$box05,$box06,$box07,$box08,$box09));
$shuffled_lines = (array($box01,$box02,$box03,$box04,$box05,$box06,$box07,$box08));
shuffle ($shuffled_lines);
foreach ($shuffled_lines as $shuffled_line) {
echo $shuffled_line;
}
echo "\n";
if ((!empty(trim($subject))) || (!empty(trim($auxiliary_vb))) || (!empty(trim($lexical_vb))) || (!empty(trim($past_participle))) || (!empty(trim($object))) || (!empty(trim($preposition))) || (!empty(trim($object2))) || (!empty(trim($hint))) || (!empty(trim($answer)))) {
echo "\n";
// touch individual items of subjects
echo "\n";
echo "\n";
// touch individual items of auxiliary_vbs
echo "\n";
echo "\n";
// touch individual items of lexical_vbs
echo "\n";
echo "\n";
// touch individual items of past_participles
echo "\n";
echo "\n";
// touch individual items of objects
echo "\n";
echo "\n";
// touch individual items of prepositions
echo "\n";
echo "\n";
// touch individual items of object2s
echo "\n";
echo "\n";
echo "\n";
echo "\n";
echo "\n";
} // if (!empty(trim($object2)))
} //while (($line = fgets($handle, 4096)) !== false)
if (!feof($handle_match)) {
echo "Error: unexpected fgets() fail\n";
}
fclose($handle_match);
} //if ($handle_match)
} // if (!empty($path_to_csv_match))
echo "";
$box09 = $box09. "".$answer."";
$box09 = $box09. "
";
$box09 = $box09. "