2014-12-01 23:55:08 +01:00
|
|
|
|
// swad_test.c: self-assessment tests
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
SWAD (Shared Workspace At a Distance),
|
|
|
|
|
is a web platform developed at the University of Granada (Spain),
|
|
|
|
|
and used to support university teaching.
|
|
|
|
|
|
|
|
|
|
This file is part of SWAD core.
|
2015-01-01 14:34:06 +01:00
|
|
|
|
Copyright (C) 1999-2015 Antonio Ca<EFBFBD>as Vargas
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU Affero General Public License as
|
|
|
|
|
published by the Free Software Foundation, either version 3 of the
|
|
|
|
|
License, or (at your option) any later version.
|
|
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU Affero General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU Affero General Public License
|
|
|
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
*/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********************************** Headers *********************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
#include <limits.h> // For UINT_MAX
|
|
|
|
|
#include <linux/limits.h> // For PATH_MAX
|
|
|
|
|
#include <linux/stddef.h> // For NULL
|
|
|
|
|
#include <locale.h> // For setlocale, LC_NUMERIC...
|
|
|
|
|
#include <mysql/mysql.h> // To access MySQL databases
|
2015-10-16 02:24:29 +02:00
|
|
|
|
#include <stdbool.h> // For boolean type
|
2014-12-01 23:55:08 +01:00
|
|
|
|
#include <stdio.h> // For fprintf, etc.
|
|
|
|
|
#include <stdlib.h> // For exit, system, malloc, free, etc
|
|
|
|
|
#include <string.h> // For string functions
|
|
|
|
|
#include <sys/stat.h> // For mkdir
|
|
|
|
|
#include <sys/types.h> // For mkdir
|
|
|
|
|
|
|
|
|
|
#include "swad_action.h"
|
|
|
|
|
#include "swad_database.h"
|
|
|
|
|
#include "swad_global.h"
|
|
|
|
|
#include "swad_ID.h"
|
|
|
|
|
#include "swad_parameter.h"
|
|
|
|
|
#include "swad_theme.h"
|
|
|
|
|
#include "swad_test.h"
|
|
|
|
|
#include "swad_test_import.h"
|
|
|
|
|
#include "swad_text.h"
|
|
|
|
|
#include "swad_user.h"
|
|
|
|
|
#include "swad_xml.h"
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/***************************** Public constants ******************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
const char *Tst_FeedbackXML[Tst_NUM_TYPES_FEEDBACK] =
|
|
|
|
|
{
|
|
|
|
|
"nothing",
|
|
|
|
|
"totalResult",
|
|
|
|
|
"eachResult",
|
|
|
|
|
"eachGoodBad",
|
|
|
|
|
"fullFeedback",
|
|
|
|
|
};
|
|
|
|
|
const char *Tst_StrAnswerTypesXML[Tst_NUM_ANS_TYPES] =
|
|
|
|
|
{
|
|
|
|
|
"int",
|
|
|
|
|
"float",
|
|
|
|
|
"TF",
|
|
|
|
|
"uniqueChoice",
|
|
|
|
|
"multipleChoice",
|
|
|
|
|
"text",
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/**************************** Private constants ******************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
#define Tst_MAX_BYTES_TAGS_LIST (16*1024)
|
|
|
|
|
#define Tst_MAX_BYTES_FLOAT_ANSWER 30 // Maximum length of the strings that store an floating point answer
|
|
|
|
|
|
|
|
|
|
const char *Tst_PluggableDB[Tst_NUM_OPTIONS_PLUGGABLE] =
|
|
|
|
|
{
|
|
|
|
|
"unknown",
|
|
|
|
|
"N",
|
|
|
|
|
"Y",
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
// Feedback to students in exams
|
|
|
|
|
const char *Tst_FeedbackDB[Tst_NUM_TYPES_FEEDBACK] =
|
|
|
|
|
{
|
|
|
|
|
"nothing", // No feedback
|
|
|
|
|
"total_result", // Little
|
|
|
|
|
"each_result", // Medium
|
|
|
|
|
"each_good_bad", // High
|
|
|
|
|
"full_feedback", // Maximum
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
const char *Tst_StrAnswerTypesDB[Tst_NUM_ANS_TYPES] =
|
|
|
|
|
{
|
|
|
|
|
"int",
|
|
|
|
|
"float",
|
|
|
|
|
"true_false",
|
|
|
|
|
"unique_choice",
|
|
|
|
|
"multiple_choice",
|
|
|
|
|
"text",
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************************* Internal types ******************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
#define Tst_NUM_STATUS 2
|
|
|
|
|
typedef enum
|
|
|
|
|
{
|
|
|
|
|
Tst_STATUS_SHOWN_BUT_NOT_ASSESSED = 0,
|
|
|
|
|
Tst_STATUS_ASSESSED = 1,
|
|
|
|
|
Tst_STATUS_ERROR = 2,
|
|
|
|
|
} Tst_Status_t;
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************** External global variables from others modules ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
extern struct Globals Gbl;
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************************* Internal global variables *************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/***************************** Internal prototypes ***************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
2014-12-30 20:42:11 +01:00
|
|
|
|
static void Tst_PutFormToSeeResultsOfUsersTests (void);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
static void Tst_PutFormToEdit (void);
|
|
|
|
|
static void Tst_PutFormToConfigure (void);
|
|
|
|
|
|
|
|
|
|
static void Tst_GetQuestionsAndAnswersFromForm (void);
|
|
|
|
|
static void Tst_ShowTstTotalMark (double TotalScore);
|
|
|
|
|
static bool Tst_CheckIfNextTstAllowed (void);
|
|
|
|
|
static void Tst_SetTstStatus (unsigned NumTst,Tst_Status_t TstStatus);
|
|
|
|
|
static Tst_Status_t Tst_GetTstStatus (unsigned NumTst);
|
|
|
|
|
static unsigned Tst_GetNumAccessesTst (void);
|
|
|
|
|
static void Tst_WriteTestHead (unsigned NumTst);
|
|
|
|
|
static void Tst_WriteTestFoot (void);
|
|
|
|
|
static void Tst_ShowTestQuestionsWhenSeeing (MYSQL_RES *mysql_res);
|
|
|
|
|
static void Tst_ShowTstResultAfterAssess (long TstCod,unsigned *NumQstsNotBlank,double *TotalScore);
|
|
|
|
|
static void Tst_WriteQstAndAnsExam (unsigned NumQst,long QstCod,MYSQL_ROW row,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank);
|
|
|
|
|
static void Tst_UpdateScoreQst (long QstCod,float ScoreThisQst,bool AnswerIsNotBlank);
|
|
|
|
|
static void Tst_UpdateMyNumAccessTst (unsigned NumAccessesTst);
|
|
|
|
|
static void Tst_UpdateLastAccTst (void);
|
|
|
|
|
static void Tst_PutFormToCreateNewTstQst (void);
|
|
|
|
|
static long Tst_GetParamTagCode (void);
|
|
|
|
|
static bool Tst_CheckIfCurrentCrsHasTestTags (void);
|
|
|
|
|
static unsigned long Tst_GetAllTagsFromCurrentCrs (MYSQL_RES **mysql_res);
|
|
|
|
|
static unsigned long Tst_GetEnabledTagsFromThisCrs (MYSQL_RES **mysql_res);
|
|
|
|
|
static void Tst_ShowFormSelTags (unsigned long NumRows,MYSQL_RES *mysql_res,bool ShowOnlyEnabledTags);
|
|
|
|
|
static void Tst_ShowFormEditTags (void);
|
|
|
|
|
static void Tst_PutIconEnable (long TagCod,const char *TagTxt);
|
|
|
|
|
static void Tst_PutIconDisable (long TagCod,const char *TagTxt);
|
|
|
|
|
static void Tst_ShowFormConfigTst (void);
|
|
|
|
|
static void Tst_GetConfigTstFromDB (void);
|
|
|
|
|
static Tst_Pluggable_t Tst_GetPluggableFromForm (void);
|
|
|
|
|
static Tst_Feedback_t Tst_GetFeedbackTypeFromForm (void);
|
|
|
|
|
static void Tst_CheckAndCorrectNumbersQst (void);
|
|
|
|
|
static void Tst_ShowFormAnswerTypes (void);
|
|
|
|
|
static unsigned long Tst_GetQuestionsForEdit (MYSQL_RES **mysql_res);
|
|
|
|
|
static unsigned long Tst_GetQuestionsForExam (MYSQL_RES **mysql_res);
|
|
|
|
|
static void Tst_ListOneQstToEdit (void);
|
|
|
|
|
static bool Tst_GetOneQuestionByCod (long QstCod,MYSQL_RES **mysql_res);
|
|
|
|
|
static void Tst_ListOneOrMoreQuestionsToEdit (unsigned long NumRows,MYSQL_RES *mysql_res);
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteAnswersOfAQstEdit (long QstCod);
|
|
|
|
|
static void Tst_WriteAnswersOfAQstSeeExam (unsigned NumQst,long QstCod,bool Shuffle);
|
|
|
|
|
static void Tst_WriteAnswersOfAQstAssessExam (unsigned NumQst,long QstCod,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank);
|
|
|
|
|
static void Tst_WriteFormAnsTF (unsigned NumQst);
|
|
|
|
|
static void Tst_WriteTFAnsAssessExam (unsigned NumQst,MYSQL_RES *mysql_res,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank);
|
|
|
|
|
static void Tst_WriteChoiceAnsSeeExam (unsigned NumQst,long QstCod,bool Shuffle);
|
|
|
|
|
static void Tst_WriteChoiceAnsAssessExam (unsigned NumQst,MYSQL_RES *mysql_res,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank);
|
|
|
|
|
static void Tst_WriteTextAnsSeeExam (unsigned NumQst);
|
|
|
|
|
static void Tst_WriteTextAnsAssessExam (unsigned NumQst,MYSQL_RES *mysql_res,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank);
|
|
|
|
|
static void Tst_WriteIntAnsSeeExam (unsigned NumQst);
|
|
|
|
|
static void Tst_WriteIntAnsAssessExam (unsigned NumQst,MYSQL_RES *mysql_res,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank);
|
|
|
|
|
static void Tst_WriteFloatAnsSeeExam (unsigned NumQst);
|
|
|
|
|
static void Tst_WriteFloatAnsAssessExam (unsigned NumQst,MYSQL_RES *mysql_res,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank);
|
|
|
|
|
static void Tst_WriteHeadUserCorrect (void);
|
|
|
|
|
static void Tst_WriteScoreStart (unsigned ColSpan);
|
|
|
|
|
static void Tst_WriteScoreEnd (void);
|
|
|
|
|
static void Tst_WriteParamQstCod (unsigned NumQst,long QstCod);
|
|
|
|
|
static void Tst_GetAndWriteTagsQst (long QstCod);
|
|
|
|
|
static int Tst_GetParamsTst (void);
|
|
|
|
|
static unsigned Tst_GetAndCheckParamNumTst (void);
|
|
|
|
|
static void Tst_GetParamNumQst (void);
|
|
|
|
|
static bool Tst_GetCreateXMLFromForm (void);
|
|
|
|
|
static int Tst_CountNumTagsInList (void);
|
|
|
|
|
static int Tst_CountNumAnswerTypesInList (void);
|
|
|
|
|
static void Tst_PutFormEditOneQst (char *Stem,char *Feedback);
|
|
|
|
|
static Tst_AnswerType_t Tst_ConvertFromUnsignedStrToAnsTyp (const char *UnsignedStr);
|
|
|
|
|
static void Tst_GetQstFromForm (char *Stem,char *Feedback);
|
|
|
|
|
static long Tst_GetTagCodFromTagTxt (const char *TagTxt);
|
|
|
|
|
static long Tst_CreateNewTag (long CrsCod,const char *TagTxt);
|
|
|
|
|
static void Tst_EnableOrDisableTag (long TagCod,bool TagHidden);
|
|
|
|
|
static int Tst_GetQstCod (void);
|
|
|
|
|
|
|
|
|
|
static void Tst_InsertOrUpdateQstIntoDB (void);
|
|
|
|
|
static void Tst_InsertTagsIntoDB (void);
|
|
|
|
|
static void Tst_InsertAnswersIntoDB (void);
|
|
|
|
|
|
|
|
|
|
static void Tst_RemAnsFromQst (void);
|
|
|
|
|
static void Tst_RemTagsFromQst (void);
|
|
|
|
|
static void Tst_RemoveUnusedTagsFromCurrentCrs (void);
|
|
|
|
|
static void Tst_FreeTextChoiceAnswer (unsigned NumOpt);
|
|
|
|
|
|
|
|
|
|
static unsigned Tst_GetNumTstQuestions (Sco_Scope_t Scope,Tst_AnswerType_t AnsType,struct Tst_Stats *Stats);
|
|
|
|
|
static unsigned Tst_GetNumCoursesWithTstQuestions (Sco_Scope_t Scope,Tst_AnswerType_t AnsType);
|
|
|
|
|
static unsigned Tst_GetNumCoursesWithPluggableTstQuestions (Sco_Scope_t Scope,Tst_AnswerType_t AnsType);
|
|
|
|
|
|
|
|
|
|
static long Tst_CreateTestExamInDB (void);
|
|
|
|
|
static void Tst_StoreScoreOfTestExamInDB (long TstCod,
|
|
|
|
|
unsigned NumQstsNotBlank,double Score);
|
|
|
|
|
static void Tst_ShowHeaderTestResults (void);
|
|
|
|
|
static void Tst_ShowResultsOfTestExams (struct UsrData *UsrDat);
|
|
|
|
|
static void Tst_ShowDataUsr (struct UsrData *UsrDat,unsigned NumExams);
|
|
|
|
|
static void Tst_PutParamTstCod (long TstCod);
|
|
|
|
|
static long Tst_GetParamTstCod (void);
|
2015-10-26 14:11:30 +01:00
|
|
|
|
static void Tst_ShowExamTstResult (time_t TstTimeUTC);
|
|
|
|
|
static void Tst_GetExamDataByTstCod (long TstCod,time_t *TstTimeUTC,
|
|
|
|
|
unsigned *NumQsts,unsigned *NumQstsNotBlank,double *Score);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
static void Tst_StoreOneExamQstInDB (long TstCod,long QstCod,unsigned NumQst,double Score);
|
|
|
|
|
static void Tst_GetExamQuestionsFromDB (long TstCod);
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*************** Show form to generate a self-assessment test ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_ShowFormAskTst (void)
|
|
|
|
|
{
|
2015-07-28 00:16:09 +02:00
|
|
|
|
extern const char *The_ClassForm[The_NUM_THEMES];
|
2014-12-01 23:55:08 +01:00
|
|
|
|
extern const char *Txt_No_of_questions;
|
|
|
|
|
extern const char *Txt_Generate_exam;
|
|
|
|
|
extern const char *Txt_No_test_questions_in_X;
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
unsigned long NumRows;
|
|
|
|
|
|
|
|
|
|
/***** Read test configuration from database *****/
|
|
|
|
|
Tst_GetConfigTstFromDB ();
|
|
|
|
|
|
|
|
|
|
/***** Put form to go to test edition and configuration *****/
|
2015-04-07 21:44:24 +02:00
|
|
|
|
if (Gbl.Usrs.Me.LoggedRole == Rol_STUDENT ||
|
|
|
|
|
Gbl.Usrs.Me.LoggedRole == Rol_TEACHER ||
|
|
|
|
|
Gbl.Usrs.Me.LoggedRole == Rol_SYS_ADM)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
{
|
2015-04-02 14:22:21 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<div class=\"CONTEXT_MENU\">");
|
2014-12-30 20:42:11 +01:00
|
|
|
|
Tst_PutFormToSeeResultsOfUsersTests ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_PutFormToEdit ();
|
|
|
|
|
Tst_PutFormToConfigure ();
|
|
|
|
|
fprintf (Gbl.F.Out,"</div>");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Get tags *****/
|
|
|
|
|
if ((NumRows = Tst_GetEnabledTagsFromThisCrs (&mysql_res)) != 0)
|
|
|
|
|
{
|
|
|
|
|
/***** Check if minimum date-time of next access to test is older than now *****/
|
|
|
|
|
if (Tst_CheckIfNextTstAllowed ())
|
|
|
|
|
{
|
|
|
|
|
Act_FormStart (ActSeeTst);
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<div class=\"CENTER_MIDDLE\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Selection of tags *****/
|
|
|
|
|
Tst_ShowFormSelTags (NumRows,mysql_res,true);
|
|
|
|
|
|
|
|
|
|
/***** Selection of types of answers *****/
|
|
|
|
|
Tst_ShowFormAnswerTypes ();
|
|
|
|
|
|
|
|
|
|
/***** Number of questions to generate ****/
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<div class=\"CENTER_MIDDLE\">"
|
2015-07-27 19:42:24 +02:00
|
|
|
|
"<label class=\"%s\">"
|
|
|
|
|
"%s: "
|
|
|
|
|
"</label>"
|
2015-10-23 01:31:08 +02:00
|
|
|
|
"<input type=\"text\" name=\"NumQst\""
|
|
|
|
|
" size=\"3\" maxlength=\"3\" value=\"%u\"",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],Txt_No_of_questions,
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Test.Config.Def);
|
|
|
|
|
if (Gbl.Test.Config.Min == Gbl.Test.Config.Max)
|
|
|
|
|
fprintf (Gbl.F.Out," disabled=\"disabled\"");
|
|
|
|
|
fprintf (Gbl.F.Out," />"
|
2015-03-24 17:47:26 +01:00
|
|
|
|
"</div>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</div>");
|
|
|
|
|
|
|
|
|
|
/***** Send button *****/
|
2015-03-24 17:47:26 +01:00
|
|
|
|
Lay_PutConfirmButton (Txt_Generate_exam);
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
sprintf (Gbl.Message,Txt_No_test_questions_in_X,
|
|
|
|
|
Gbl.CurrentCrs.Crs.FullName);
|
|
|
|
|
Lay_ShowAlert (Lay_INFO,Gbl.Message);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
2014-12-30 20:42:11 +01:00
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*************** Write a form to go to result of users' tests ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_PutFormToSeeResultsOfUsersTests (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Results_tests;
|
|
|
|
|
|
2015-04-07 21:44:24 +02:00
|
|
|
|
Act_PutContextualLink (Gbl.Usrs.Me.LoggedRole == Rol_STUDENT ? ActReqSeeMyTstExa :
|
2015-04-02 18:39:49 +02:00
|
|
|
|
ActReqSeeUsrTstExa,
|
|
|
|
|
NULL,"file",Txt_Results_tests);
|
2014-12-30 20:42:11 +01:00
|
|
|
|
}
|
|
|
|
|
|
2014-12-01 23:55:08 +01:00
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************** Write a form to go to edition of test questions **************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_PutFormToEdit (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Edit;
|
|
|
|
|
|
2015-04-02 18:39:49 +02:00
|
|
|
|
Act_PutContextualLink (ActEdiTstQst,NULL,"edit",Txt_Edit);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************** Write a form to go to configuration of tests *****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_PutFormToConfigure (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Configure;
|
|
|
|
|
|
2015-04-02 18:39:49 +02:00
|
|
|
|
Act_PutContextualLink (ActCfgTst,NULL,"configtest",Txt_Configure);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********************** Generate self-assessment test ************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_ShowNewTestExam (void)
|
|
|
|
|
{
|
2015-07-28 00:16:09 +02:00
|
|
|
|
extern const char *The_ClassForm[The_NUM_THEMES];
|
2014-12-01 23:55:08 +01:00
|
|
|
|
extern const char *Txt_No_questions_found_matching_your_search_criteria;
|
|
|
|
|
extern const char *Txt_Allow_teachers_to_consult_this_exam;
|
|
|
|
|
extern const char *Txt_Done_assess_exam;
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
unsigned long NumRows;
|
|
|
|
|
unsigned NumAccessesTst;
|
|
|
|
|
|
|
|
|
|
/***** Read test configuration from database *****/
|
|
|
|
|
Tst_GetConfigTstFromDB ();
|
|
|
|
|
|
|
|
|
|
if (Tst_CheckIfNextTstAllowed ())
|
|
|
|
|
{
|
|
|
|
|
/***** Check that all parameters used to generate a test are valid *****/
|
|
|
|
|
if (Tst_GetParamsTst ()) // Get parameters from form
|
|
|
|
|
{
|
|
|
|
|
/***** Get questions *****/
|
|
|
|
|
if ((NumRows = Tst_GetQuestionsForExam (&mysql_res)) == 0) // Query database
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_INFO,Txt_No_questions_found_matching_your_search_criteria);
|
|
|
|
|
Tst_ShowFormAskTst (); // Show the form again
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/***** Get and update number of hits *****/
|
|
|
|
|
NumAccessesTst = Tst_GetNumAccessesTst () + 1;
|
|
|
|
|
if (Gbl.Usrs.Me.IBelongToCurrentCrs)
|
|
|
|
|
Tst_UpdateMyNumAccessTst (NumAccessesTst);
|
|
|
|
|
|
|
|
|
|
/***** List the questions *****/
|
|
|
|
|
/* Start form */
|
|
|
|
|
Act_FormStart (ActAssTst);
|
|
|
|
|
Gbl.Test.NumQsts = (unsigned) NumRows;
|
|
|
|
|
Par_PutHiddenParamUnsigned ("NumTst",NumAccessesTst);
|
|
|
|
|
Par_PutHiddenParamUnsigned ("NumQst",Gbl.Test.NumQsts);
|
|
|
|
|
|
|
|
|
|
/* Write test heading */
|
|
|
|
|
Tst_WriteTestHead (NumAccessesTst);
|
|
|
|
|
|
|
|
|
|
/* Write the questions */
|
|
|
|
|
Tst_ShowTestQuestionsWhenSeeing (mysql_res);
|
|
|
|
|
|
|
|
|
|
/* End of table */
|
|
|
|
|
Tst_WriteTestFoot ();
|
|
|
|
|
|
|
|
|
|
/* Exam will be saved? */
|
2015-07-28 00:16:09 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<div class=\"%s CENTER_MIDDLE\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<input type=\"checkbox\" name=\"Save\" value=\"Y\"",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme]);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Gbl.Test.AllowTeachers)
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
fprintf (Gbl.F.Out," />%s"
|
|
|
|
|
"</div>",
|
|
|
|
|
Txt_Allow_teachers_to_consult_this_exam);
|
|
|
|
|
|
|
|
|
|
/* End form */
|
2015-03-24 17:47:26 +01:00
|
|
|
|
Lay_PutConfirmButton (Txt_Done_assess_exam);
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Set test status *****/
|
|
|
|
|
Tst_SetTstStatus (NumAccessesTst,Tst_STATUS_SHOWN_BUT_NOT_ASSESSED);
|
|
|
|
|
|
|
|
|
|
/***** Update date-time of my next allowed access to test *****/
|
2015-04-07 21:44:24 +02:00
|
|
|
|
if (Gbl.Usrs.Me.LoggedRole == Rol_STUDENT)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_UpdateLastAccTst ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
Tst_ShowFormAskTst (); // Show the form again
|
|
|
|
|
|
|
|
|
|
/***** Free memory used for by the list of tags *****/
|
|
|
|
|
Tst_FreeTagsList ();
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/****************************** Assess a test exam ***************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_AssessTestExam (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_The_test_X_has_already_been_assessed_previously;
|
|
|
|
|
extern const char *Txt_There_was_an_error_in_assessing_the_test_X;
|
|
|
|
|
unsigned NumTst;
|
|
|
|
|
char YN[1+1];
|
|
|
|
|
long TstCod = -1L; // Initialized to avoid warning
|
|
|
|
|
unsigned NumQstsNotBlank;
|
|
|
|
|
double TotalScore;
|
|
|
|
|
|
|
|
|
|
/***** Read test configuration from database *****/
|
|
|
|
|
Tst_GetConfigTstFromDB ();
|
|
|
|
|
|
|
|
|
|
/***** Get number of this test from form *****/
|
|
|
|
|
NumTst = Tst_GetAndCheckParamNumTst ();
|
|
|
|
|
|
|
|
|
|
/****** Get test status in database for this session-course-num.test *****/
|
|
|
|
|
switch (Tst_GetTstStatus (NumTst))
|
|
|
|
|
{
|
|
|
|
|
case Tst_STATUS_SHOWN_BUT_NOT_ASSESSED:
|
|
|
|
|
/***** Get the parameters of the form *****/
|
|
|
|
|
/* Get number of questions */
|
|
|
|
|
Tst_GetParamNumQst ();
|
|
|
|
|
|
|
|
|
|
/***** Get if exam must be saved *****/
|
|
|
|
|
Par_GetParToText ("Save",YN,1);
|
|
|
|
|
Gbl.Test.AllowTeachers = (Str_ConvertToUpperLetter (YN[0]) == 'Y');
|
|
|
|
|
|
|
|
|
|
/***** Get questions and answers from form to assess an exam *****/
|
|
|
|
|
Tst_GetQuestionsAndAnswersFromForm ();
|
|
|
|
|
|
|
|
|
|
/***** Create new test exam in database to store the result *****/
|
|
|
|
|
TstCod = Tst_CreateTestExamInDB ();
|
|
|
|
|
|
|
|
|
|
/***** Write head of test *****/
|
|
|
|
|
Tst_WriteTestHead (NumTst);
|
|
|
|
|
|
|
|
|
|
/***** Write answers and solutions *****/
|
|
|
|
|
Tst_ShowTstResultAfterAssess (TstCod,&NumQstsNotBlank,&TotalScore);
|
|
|
|
|
|
|
|
|
|
/***** Write total mark of test *****/
|
|
|
|
|
if (Gbl.Test.Config.FeedbackType != Tst_FEEDBACK_NOTHING)
|
|
|
|
|
Tst_ShowTstTotalMark (TotalScore);
|
|
|
|
|
|
|
|
|
|
/***** End of table *****/
|
|
|
|
|
Tst_WriteTestFoot ();
|
|
|
|
|
|
|
|
|
|
/***** Store test result in database *****/
|
|
|
|
|
Tst_StoreScoreOfTestExamInDB (TstCod,
|
|
|
|
|
NumQstsNotBlank,TotalScore);
|
|
|
|
|
|
|
|
|
|
/***** Set test status *****/
|
|
|
|
|
Tst_SetTstStatus (NumTst,Tst_STATUS_ASSESSED);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_STATUS_ASSESSED:
|
|
|
|
|
sprintf (Gbl.Message,Txt_The_test_X_has_already_been_assessed_previously,
|
|
|
|
|
NumTst);
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Gbl.Message);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_STATUS_ERROR:
|
|
|
|
|
sprintf (Gbl.Message,Txt_There_was_an_error_in_assessing_the_test_X,
|
|
|
|
|
NumTst);
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Gbl.Message);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********** Get questions and answers from form to assess an exam ************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_GetQuestionsAndAnswersFromForm (void)
|
|
|
|
|
{
|
|
|
|
|
unsigned NumQst;
|
|
|
|
|
char StrQstIndOrAns[3+10+1]; // "Qstxx...x", "Indxx...x" or "Ansxx...x"
|
|
|
|
|
char LongStr[1+10+1];
|
|
|
|
|
|
|
|
|
|
/***** Get questions and answers *****/
|
|
|
|
|
for (NumQst = 0;
|
|
|
|
|
NumQst < Gbl.Test.NumQsts;
|
|
|
|
|
NumQst++)
|
|
|
|
|
{
|
|
|
|
|
/* Get question code */
|
|
|
|
|
sprintf (StrQstIndOrAns,"Qst%06u",NumQst);
|
|
|
|
|
Par_GetParToText (StrQstIndOrAns,LongStr,1+10);
|
|
|
|
|
if ((Gbl.Test.QstCodes[NumQst] = Str_ConvertStrCodToLongCod (LongStr)) < 0)
|
|
|
|
|
Lay_ShowErrorAndExit ("Code of question is missing.");
|
|
|
|
|
|
|
|
|
|
/* Get indexes for this question */
|
|
|
|
|
sprintf (StrQstIndOrAns,"Ind%06u",NumQst);
|
|
|
|
|
Par_GetParMultiToText (StrQstIndOrAns,Gbl.Test.StrIndexesOneQst[NumQst],Tst_MAX_SIZE_INDEXES_ONE_QST); /* If choice ==> "0", "1", "2",... */
|
|
|
|
|
|
|
|
|
|
/* Get answers selected by user for this question */
|
|
|
|
|
sprintf (StrQstIndOrAns,"Ans%06u",NumQst);
|
|
|
|
|
Par_GetParMultiToText (StrQstIndOrAns,Gbl.Test.StrAnswersOneQst[NumQst],Tst_MAX_SIZE_ANSWERS_ONE_QST); /* If answer type == T/F ==> " ", "T", "F"; if choice ==> "0", "2",... */
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************************ Show total mark of a test exam *********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_ShowTstTotalMark (double TotalScore)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Score;
|
|
|
|
|
extern const char *Txt_out_of_PART_OF_A_SCORE;
|
|
|
|
|
double TotalScoreOverSCORE_MAX = TotalScore * Tst_SCORE_MAX / (double) Gbl.Test.NumQsts;
|
|
|
|
|
|
|
|
|
|
/***** Write total mark ****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td colspan=\"3\" class=\"DAT CENTER_MIDDLE\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s: <span class=\"%s\">%.2lf (%.2lf %s %u)</span>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_Score,
|
|
|
|
|
(TotalScoreOverSCORE_MAX >= (double) TotalScoreOverSCORE_MAX / 2.0) ? "ANS_OK" :
|
|
|
|
|
"ANS_BAD",
|
|
|
|
|
TotalScore,
|
|
|
|
|
TotalScoreOverSCORE_MAX,Txt_out_of_PART_OF_A_SCORE,Tst_SCORE_MAX);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************** Check minimum date-time of next access to test ***************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// Return true if allowed date-time of next access to test is older than now
|
|
|
|
|
|
|
|
|
|
static bool Tst_CheckIfNextTstAllowed (void)
|
|
|
|
|
{
|
2015-11-11 03:00:22 +01:00
|
|
|
|
extern const char *Txt_Test;
|
|
|
|
|
extern const char *Txt_You_can_not_make_a_new_test_in_the_course_X_until;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
char Query[512];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
long NumSecondsFromNowToNextAccTst = -1L; // Access allowed when this number <= 0
|
2015-11-11 03:00:22 +01:00
|
|
|
|
time_t TimeNextTestUTC = (time_t) 0;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Superusers are allowed to do all test they want *****/
|
2015-04-07 21:44:24 +02:00
|
|
|
|
if (Gbl.Usrs.Me.LoggedRole == Rol_SYS_ADM)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
return true;
|
|
|
|
|
|
|
|
|
|
/***** Get date of next allowed access to test from database *****/
|
|
|
|
|
sprintf (Query,"SELECT UNIX_TIMESTAMP(LastAccTst+INTERVAL (NumQstsLastTst*%lu) SECOND)-UNIX_TIMESTAMP(),"
|
2015-11-11 03:00:22 +01:00
|
|
|
|
"UNIX_TIMESTAMP(LastAccTst+INTERVAL (NumQstsLastTst*%lu) SECOND)"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
" FROM crs_usr"
|
|
|
|
|
" WHERE CrsCod='%ld' AND UsrCod='%ld'",
|
|
|
|
|
Gbl.Test.Config.MinTimeNxtTstPerQst,
|
|
|
|
|
Gbl.Test.Config.MinTimeNxtTstPerQst,
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,Gbl.Usrs.Me.UsrDat.UsrCod);
|
|
|
|
|
if (DB_QuerySELECT (Query,&mysql_res,"can not get last access to test") == 1)
|
|
|
|
|
{
|
|
|
|
|
/* Get seconds from now to next access to test */
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
if (row[0])
|
|
|
|
|
if (sscanf (row[0],"%ld",&NumSecondsFromNowToNextAccTst) == 1)
|
2015-11-11 03:00:22 +01:00
|
|
|
|
/* Time UTC of next access allowed (row[1]) */
|
|
|
|
|
TimeNextTestUTC = Dat_GetUNIXTimeFromStr (row[1]);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
Lay_ShowErrorAndExit ("Error when reading date of next allowed access to test.");
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
|
|
|
|
|
/***** Check if access is allowed *****/
|
|
|
|
|
if (NumSecondsFromNowToNextAccTst > 0)
|
|
|
|
|
{
|
2015-11-11 03:00:22 +01:00
|
|
|
|
/***** Start frame *****/
|
|
|
|
|
Lay_StartRoundFrameTable (NULL,2,Txt_Test);
|
|
|
|
|
Lay_WriteHeaderClassPhoto (1,false,false,
|
|
|
|
|
Gbl.CurrentIns.Ins.InsCod,
|
|
|
|
|
Gbl.CurrentDeg.Deg.DegCod,
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
|
|
|
|
|
/***** Write warning *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
|
|
|
|
"<td class=\"DAT CENTER_MIDDLE\">");
|
|
|
|
|
fprintf (Gbl.F.Out,Txt_You_can_not_make_a_new_test_in_the_course_X_until,
|
|
|
|
|
Gbl.CurrentCrs.Crs.FullName);
|
|
|
|
|
fprintf (Gbl.F.Out,": "
|
|
|
|
|
"<span id=\"date_next_test\">"
|
|
|
|
|
"</span>"
|
|
|
|
|
"<script type=\"text/javascript\">"
|
|
|
|
|
"writeLocalDateTimeFromUTC('date_next_test',%ld,' ');"
|
|
|
|
|
"</script>"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
(long) TimeNextTestUTC);
|
|
|
|
|
|
|
|
|
|
/***** End frame *****/
|
|
|
|
|
Lay_EndRoundFrameTable ();
|
|
|
|
|
|
2014-12-01 23:55:08 +01:00
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/****************************** Update test status ***************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_SetTstStatus (unsigned NumTst,Tst_Status_t TstStatus)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Delete old status from expired sessions *****/
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_status"
|
|
|
|
|
" WHERE SessionId NOT IN (SELECT SessionId FROM sessions)");
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove old status of tests");
|
|
|
|
|
|
|
|
|
|
/***** Update database *****/
|
|
|
|
|
sprintf (Query,"REPLACE INTO tst_status (SessionId,CrsCod,NumTst,Status) VALUES ('%s','%ld','%u','%u')",
|
|
|
|
|
Gbl.Session.Id,Gbl.CurrentCrs.Crs.CrsCod,NumTst,(unsigned) TstStatus);
|
|
|
|
|
DB_QueryREPLACE (Query,"can not update status of test");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/****************************** Update test status ***************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static Tst_Status_t Tst_GetTstStatus (unsigned NumTst)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned long NumRows;
|
|
|
|
|
unsigned UnsignedNum;
|
|
|
|
|
Tst_Status_t TstStatus = Tst_STATUS_ERROR;
|
|
|
|
|
|
|
|
|
|
/***** Get status of test from database *****/
|
|
|
|
|
sprintf (Query,"SELECT Status FROM tst_status"
|
|
|
|
|
" WHERE SessionId='%s' AND CrsCod='%ld' AND NumTst='%u'",
|
|
|
|
|
Gbl.Session.Id,Gbl.CurrentCrs.Crs.CrsCod,NumTst);
|
|
|
|
|
NumRows = DB_QuerySELECT (Query,&mysql_res,"can not get status of test");
|
|
|
|
|
|
|
|
|
|
if (NumRows == 1)
|
|
|
|
|
{
|
|
|
|
|
/* Get number of hits */
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
if (row[0])
|
|
|
|
|
if (sscanf (row[0],"%u",&UnsignedNum) == 1)
|
|
|
|
|
if (UnsignedNum < Tst_NUM_STATUS)
|
|
|
|
|
TstStatus = (Tst_Status_t) UnsignedNum;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
|
|
|
|
|
return TstStatus;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************************* Get number of hits to test ************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static unsigned Tst_GetNumAccessesTst (void)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned long NumRows;
|
|
|
|
|
unsigned NumAccessesTst = 0;
|
|
|
|
|
|
|
|
|
|
if (Gbl.Usrs.Me.IBelongToCurrentCrs)
|
|
|
|
|
{
|
|
|
|
|
/***** Get number of hits to test from database *****/
|
|
|
|
|
sprintf (Query,"SELECT NumAccTst FROM crs_usr"
|
|
|
|
|
" WHERE CrsCod='%ld' AND UsrCod='%ld'",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,Gbl.Usrs.Me.UsrDat.UsrCod);
|
|
|
|
|
NumRows = DB_QuerySELECT (Query,&mysql_res,"can not get number of hits to test");
|
|
|
|
|
|
|
|
|
|
if (NumRows == 0)
|
|
|
|
|
NumAccessesTst = 0;
|
|
|
|
|
else if (NumRows == 1)
|
|
|
|
|
{
|
|
|
|
|
/* Get number of hits */
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
if (row[0] == NULL)
|
|
|
|
|
NumAccessesTst = 0;
|
|
|
|
|
else if (sscanf (row[0],"%u",&NumAccessesTst) != 1)
|
|
|
|
|
NumAccessesTst = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
Lay_ShowErrorAndExit ("Error when getting number of hits to test.");
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return NumAccessesTst;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/***************** Write the head of the table with the test *****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteTestHead (unsigned NumTst)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Test;
|
|
|
|
|
extern const char *Txt_Test_result;
|
|
|
|
|
extern const char *Txt_Test_No_X_that_you_make_in_this_course;
|
|
|
|
|
|
|
|
|
|
/***** Start table *****/
|
2015-10-02 12:35:10 +02:00
|
|
|
|
Lay_StartRoundFrameTable (NULL,2,Gbl.CurrentAct == ActSeeTst ? Txt_Test :
|
|
|
|
|
Txt_Test_result);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Lay_WriteHeaderClassPhoto (3,false,false,
|
|
|
|
|
Gbl.CurrentIns.Ins.InsCod,
|
|
|
|
|
Gbl.CurrentDeg.Deg.DegCod,
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
|
|
|
|
|
/***** Header row *****/
|
|
|
|
|
if (Gbl.CurrentAct == ActAssTst &&
|
|
|
|
|
Gbl.Usrs.Me.IBelongToCurrentCrs)
|
|
|
|
|
{
|
2015-10-02 12:35:10 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
|
|
|
|
"<td colspan=\"3\" class=\"DAT CENTER_MIDDLE\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
fprintf (Gbl.F.Out,Txt_Test_No_X_that_you_make_in_this_course,NumTst);
|
2015-10-02 12:35:10 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************* Write the foot of the table with the test ***************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteTestFoot (void)
|
|
|
|
|
{
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_EndRoundFrameTable ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*************************** Write the test questions ************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// NumRows must hold the number of rows of a MySQL query
|
|
|
|
|
// In each row mysql_res holds: in the column 0 the code of a question, in the column 1 the type of answer, and in the column 2 the stem
|
|
|
|
|
|
|
|
|
|
static void Tst_ShowTestQuestionsWhenSeeing (MYSQL_RES *mysql_res)
|
|
|
|
|
{
|
|
|
|
|
unsigned NumQst;
|
|
|
|
|
long QstCod;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
double ScoreThisQst; // Not used here
|
|
|
|
|
bool AnswerIsNotBlank; // Not used here
|
|
|
|
|
|
|
|
|
|
/***** Write rows *****/
|
|
|
|
|
for (NumQst = 0;
|
|
|
|
|
NumQst < Gbl.Test.NumQsts;
|
|
|
|
|
NumQst++)
|
|
|
|
|
{
|
|
|
|
|
Gbl.RowEvenOdd = NumQst % 2;
|
|
|
|
|
|
|
|
|
|
/***** Get the row next of the result of the query in the database *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
/***** Get the code of question (row[0]) *****/
|
|
|
|
|
if ((QstCod = Str_ConvertStrCodToLongCod (row[0])) < 0)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong code of question.");
|
|
|
|
|
|
|
|
|
|
Tst_WriteQstAndAnsExam (NumQst,QstCod,row,
|
|
|
|
|
&ScoreThisQst, // Not used here
|
|
|
|
|
&AnswerIsNotBlank); // Not used here
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************************ Show test tags in this exam ************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_ShowTstTagsPresentInAnExam (long TstCod)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_no_tags;
|
|
|
|
|
char Query[512];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned long NumRows;
|
|
|
|
|
unsigned long NumRow;
|
|
|
|
|
|
|
|
|
|
/***** Get all tags of questions in this test exam *****/
|
|
|
|
|
sprintf (Query,"SELECT tst_tags.TagTxt FROM"
|
|
|
|
|
" (SELECT DISTINCT(tst_question_tags.TagCod)"
|
|
|
|
|
" FROM tst_question_tags,tst_exam_questions"
|
|
|
|
|
" WHERE tst_exam_questions.TstCod='%ld'"
|
|
|
|
|
" AND tst_exam_questions.QstCod=tst_question_tags.QstCod)"
|
|
|
|
|
" AS TagsCods,tst_tags"
|
|
|
|
|
" WHERE TagsCods.TagCod=tst_tags.TagCod"
|
|
|
|
|
" ORDER BY tst_tags.TagTxt",
|
|
|
|
|
TstCod);
|
|
|
|
|
if ((NumRows = DB_QuerySELECT (Query,&mysql_res,"can not get tags present in a test exam")))
|
|
|
|
|
{
|
|
|
|
|
/***** Write the tags *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<ul>");
|
|
|
|
|
for (NumRow = 0;
|
|
|
|
|
NumRow < NumRows;
|
|
|
|
|
NumRow++)
|
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
fprintf (Gbl.F.Out,"<li>%s</li>",
|
|
|
|
|
row[0]);
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</ul>");
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
fprintf (Gbl.F.Out,"%s",
|
|
|
|
|
Txt_no_tags);
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************* Show the result of assessing a test *********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_ShowTstResultAfterAssess (long TstCod,unsigned *NumQstsNotBlank,double *TotalScore)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Question_removed;
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned NumQst;
|
|
|
|
|
long QstCod;
|
|
|
|
|
double ScoreThisQst;
|
|
|
|
|
bool AnswerIsNotBlank;
|
|
|
|
|
|
|
|
|
|
/***** Initialize score and number of questions not blank *****/
|
|
|
|
|
*TotalScore = 0.0;
|
|
|
|
|
*NumQstsNotBlank = 0;
|
|
|
|
|
|
|
|
|
|
for (NumQst = 0;
|
|
|
|
|
NumQst < Gbl.Test.NumQsts;
|
|
|
|
|
NumQst++)
|
|
|
|
|
{
|
|
|
|
|
Gbl.RowEvenOdd = NumQst % 2;
|
|
|
|
|
|
|
|
|
|
/***** Query database *****/
|
|
|
|
|
if (Tst_GetOneQuestionByCod (Gbl.Test.QstCodes[NumQst],&mysql_res)) // Question exists
|
|
|
|
|
{
|
|
|
|
|
/***** Get row of the result of the query *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
/*
|
|
|
|
|
row[0] QstCod
|
2015-10-26 14:11:30 +01:00
|
|
|
|
row[1] UNIX_TIMESTAMP(EditTime)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
row[2] AnsType
|
|
|
|
|
row[3] Shuffle
|
|
|
|
|
row[4] Stem
|
|
|
|
|
row[5] Feedback
|
|
|
|
|
row[6] NumHits
|
|
|
|
|
row[7] NumHitsNotBlank
|
|
|
|
|
row[8] Score
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
/***** Get the code of question (row[0]) *****/
|
|
|
|
|
if ((QstCod = Str_ConvertStrCodToLongCod (row[0])) < 0)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong code of question.");
|
|
|
|
|
|
|
|
|
|
/***** Write questions and answers *****/
|
|
|
|
|
Tst_WriteQstAndAnsExam (NumQst,QstCod,row,
|
|
|
|
|
&ScoreThisQst,&AnswerIsNotBlank);
|
|
|
|
|
|
|
|
|
|
/***** Store exam questions in database *****/
|
|
|
|
|
Tst_StoreOneExamQstInDB (TstCod,QstCod,
|
|
|
|
|
NumQst, // 0, 1, 2, 3...
|
|
|
|
|
ScoreThisQst);
|
|
|
|
|
|
|
|
|
|
/***** Compute total score *****/
|
|
|
|
|
*TotalScore += ScoreThisQst;
|
|
|
|
|
if (AnswerIsNotBlank)
|
|
|
|
|
(*NumQstsNotBlank)++;
|
|
|
|
|
|
|
|
|
|
/***** Update the number of accesses and the score of this question *****/
|
2015-04-07 21:44:24 +02:00
|
|
|
|
if (Gbl.Usrs.Me.LoggedRole == Rol_STUDENT)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_UpdateScoreQst (QstCod,ScoreThisQst,AnswerIsNotBlank);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
/***** Question does not exists *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-03 17:14:30 +02:00
|
|
|
|
"<td class=\"DAT_LIGHT RIGHT_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%u. "
|
|
|
|
|
"</td>"
|
2015-09-03 17:14:30 +02:00
|
|
|
|
"<td class=\"COLOR%u\">"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"</td>"
|
2015-09-03 17:14:30 +02:00
|
|
|
|
"<td class=\"DAT_LIGHT LEFT_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</td>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</tr>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd,NumQst + 1,
|
|
|
|
|
Gbl.RowEvenOdd,
|
|
|
|
|
Gbl.RowEvenOdd,Txt_Question_removed);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******** Write a row of a test exam, with one question and its answer *******/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteQstAndAnsExam (unsigned NumQst,long QstCod,MYSQL_ROW row,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_TST_STR_ANSWER_TYPES[Tst_NUM_ANS_TYPES];
|
|
|
|
|
/*
|
|
|
|
|
row[0] QstCod
|
2015-10-26 14:11:30 +01:00
|
|
|
|
row[1] UNIX_TIMESTAMP(EditTime)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
row[2] AnsType
|
|
|
|
|
row[3] Shuffle
|
|
|
|
|
row[4] Stem
|
|
|
|
|
row[5] Feedback
|
|
|
|
|
row[6] NumHits
|
|
|
|
|
row[7] NumHitsNotBlank
|
|
|
|
|
row[8] Score
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
/***** Write number of question *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-03 17:14:30 +02:00
|
|
|
|
"<td class=\"DAT_N RIGHT_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%u. "
|
|
|
|
|
"</td>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd,
|
2014-12-01 23:55:08 +01:00
|
|
|
|
NumQst + 1);
|
|
|
|
|
|
|
|
|
|
/***** Write answer type (row[2]) *****/
|
|
|
|
|
Gbl.Test.AnswerType = Tst_ConvertFromStrAnsTypDBToAnsTyp (row[2]);
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL LEFT_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s "
|
|
|
|
|
"</td>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd,
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_TST_STR_ANSWER_TYPES[Gbl.Test.AnswerType]);
|
|
|
|
|
|
|
|
|
|
/***** Write stem (row[4]), answers depending on shuffle (row[3]) and feedback (row[5]) *****/
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP COLOR%u\">",
|
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_WriteQstStem (row[4],"TEST_EXA");
|
|
|
|
|
if (Gbl.CurrentAct == ActSeeTst)
|
|
|
|
|
Tst_WriteAnswersOfAQstSeeExam (NumQst,QstCod,(Str_ConvertToUpperLetter (row[3][0]) == 'Y'));
|
|
|
|
|
else // Assessing exam / Viewing old exam
|
|
|
|
|
{
|
|
|
|
|
Tst_WriteAnswersOfAQstAssessExam (NumQst,QstCod,ScoreThisQst,AnswerIsNotBlank);
|
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
Tst_WriteQstFeedback (row[5],"TEST_EXA_LIGHT");
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************* Write the heading of a test question ********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_WriteQstStem (const char *Stem,const char *ClassStem)
|
|
|
|
|
{
|
|
|
|
|
unsigned long StemLength;
|
|
|
|
|
char *StemRigorousHTML;
|
|
|
|
|
|
|
|
|
|
/***** Convert the stem, that is in HTML, to rigorous HTML *****/
|
|
|
|
|
StemLength = strlen (Stem) * Str_MAX_LENGTH_SPEC_CHAR_HTML;
|
|
|
|
|
if ((StemRigorousHTML = malloc (StemLength+1)) == NULL)
|
|
|
|
|
Lay_ShowErrorAndExit ("Not enough memory to store stem of question.");
|
|
|
|
|
strncpy (StemRigorousHTML,Stem,StemLength);
|
|
|
|
|
StemRigorousHTML[StemLength] = '\0';
|
|
|
|
|
Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML,
|
|
|
|
|
StemRigorousHTML,StemLength,false);
|
|
|
|
|
|
|
|
|
|
/***** Write the stem *****/
|
2015-09-06 11:36:34 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<div class=\"%s\">"
|
2015-04-11 13:05:44 +02:00
|
|
|
|
"%s"
|
|
|
|
|
"</div>",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
ClassStem,StemRigorousHTML);
|
|
|
|
|
|
|
|
|
|
/***** Free memory allocated for the stem *****/
|
|
|
|
|
free ((void *) StemRigorousHTML);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************* Write the feedback of a test question *******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_WriteQstFeedback (const char *Feedback,const char *ClassFeedback)
|
|
|
|
|
{
|
|
|
|
|
unsigned long FeedbackLength;
|
|
|
|
|
char *FeedbackRigorousHTML;
|
|
|
|
|
|
|
|
|
|
if (Feedback)
|
|
|
|
|
if (Feedback[0])
|
|
|
|
|
{
|
|
|
|
|
/***** Convert the feedback, that is in HTML, to rigorous HTML *****/
|
|
|
|
|
FeedbackLength = strlen (Feedback) * Str_MAX_LENGTH_SPEC_CHAR_HTML;
|
|
|
|
|
if ((FeedbackRigorousHTML = malloc (FeedbackLength+1)) == NULL)
|
|
|
|
|
Lay_ShowErrorAndExit ("Not enough memory to store stem of question.");
|
|
|
|
|
strncpy (FeedbackRigorousHTML,Feedback,FeedbackLength);
|
|
|
|
|
FeedbackRigorousHTML[FeedbackLength] = '\0';
|
|
|
|
|
Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML,
|
|
|
|
|
FeedbackRigorousHTML,FeedbackLength,false);
|
|
|
|
|
|
|
|
|
|
/***** Write the feedback *****/
|
2015-09-06 11:36:34 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<div class=\"%s\">"
|
2015-04-11 13:05:44 +02:00
|
|
|
|
"%s"
|
|
|
|
|
"</div>",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
ClassFeedback,FeedbackRigorousHTML);
|
|
|
|
|
|
|
|
|
|
/***** Free memory allocated for the feedback *****/
|
|
|
|
|
free ((void *) FeedbackRigorousHTML);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********************** Update the score of a question **********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_UpdateScoreQst (long QstCod,float ScoreThisQst,bool AnswerIsNotBlank)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Update number of clicks and score of the question *****/
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"en_US.utf8"); // To print the floating point as a dot
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnswerIsNotBlank)
|
|
|
|
|
sprintf (Query,"UPDATE tst_questions"
|
|
|
|
|
" SET NumHits=NumHits+1,NumHitsNotBlank=NumHitsNotBlank+1,Score=Score+(%lf)"
|
|
|
|
|
" WHERE QstCod='%ld'",
|
|
|
|
|
ScoreThisQst,QstCod);
|
|
|
|
|
else // The answer is blank
|
|
|
|
|
sprintf (Query,"UPDATE tst_questions"
|
|
|
|
|
" SET NumHits=NumHits+1"
|
|
|
|
|
" WHERE QstCod='%ld'",
|
|
|
|
|
QstCod);
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"es_ES.utf8"); // Return to spanish system (TODO: this should be internationalized!!!!!!!)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
DB_QueryUPDATE (Query,"can not update the score of a question");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********** Update my number of accesses to test in this course *************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_UpdateMyNumAccessTst (unsigned NumAccessesTst)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Update my number of accesses to test in this course *****/
|
|
|
|
|
sprintf (Query,"UPDATE crs_usr SET NumAccTst='%u'"
|
|
|
|
|
" WHERE CrsCod='%ld' AND UsrCod='%ld'",
|
|
|
|
|
NumAccessesTst,
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,Gbl.Usrs.Me.UsrDat.UsrCod);
|
|
|
|
|
DB_QueryUPDATE (Query,"can not update the number of accesses to test");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************ Update date-time of my next allowed access to test *************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_UpdateLastAccTst (void)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Update date-time and number of questions of this test *****/
|
|
|
|
|
sprintf (Query,"UPDATE crs_usr SET LastAccTst=NOW(),NumQstsLastTst='%u'"
|
|
|
|
|
" WHERE CrsCod='%ld' AND UsrCod='%ld'",
|
|
|
|
|
Gbl.Test.NumQsts,
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,
|
|
|
|
|
Gbl.Usrs.Me.UsrDat.UsrCod);
|
|
|
|
|
DB_QueryUPDATE (Query,"can not update time and number of questions of this test");
|
|
|
|
|
}
|
|
|
|
|
|
2015-10-26 13:06:26 +01:00
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************ Set end date to current date ************/
|
|
|
|
|
/************ and set initial date to end date minus several days ************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_SetIniEndDates (void)
|
|
|
|
|
{
|
|
|
|
|
Gbl.DateRange.TimeUTC[0] = (time_t) 0;
|
2015-10-27 19:00:21 +01:00
|
|
|
|
Gbl.DateRange.TimeUTC[1] = Gbl.StartExecutionTimeUTC;
|
2015-10-26 13:06:26 +01:00
|
|
|
|
}
|
|
|
|
|
|
2014-12-01 23:55:08 +01:00
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******* Select tags and dates for edition of the self-assessment test *******/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_ShowFormAskEditTsts (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_No_test_questions_in_X;
|
|
|
|
|
extern const char *Txt_Show_questions;
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
unsigned long NumRows;
|
|
|
|
|
|
|
|
|
|
/***** Buttons for edition *****/
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<div class=\"CENTER_MIDDLE\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_PutFormToCreateNewTstQst (); // Put link (form) to create a new test question
|
|
|
|
|
TsI_PutFormToImportQuestions (); // Put link (form) to import questions from XML file
|
|
|
|
|
Tst_PutFormToConfigure (); // Put form to go to test configuration
|
|
|
|
|
fprintf (Gbl.F.Out,"</div>");
|
|
|
|
|
|
|
|
|
|
/***** Get tags already present in the table of questions *****/
|
|
|
|
|
if ((NumRows = Tst_GetAllTagsFromCurrentCrs (&mysql_res)) == 0)
|
|
|
|
|
{
|
|
|
|
|
sprintf (Gbl.Message,Txt_No_test_questions_in_X,
|
|
|
|
|
Gbl.CurrentCrs.Crs.FullName);
|
|
|
|
|
Lay_ShowAlert (Lay_INFO,Gbl.Message);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
Act_FormStart (ActLstTstQst);
|
|
|
|
|
Par_PutHiddenParamUnsigned ("Order",(unsigned) Tst_ORDER_STEM);
|
|
|
|
|
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<div class=\"CENTER_MIDDLE\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Selection of tags *****/
|
|
|
|
|
Tst_ShowFormSelTags (NumRows,mysql_res,false);
|
|
|
|
|
|
|
|
|
|
/***** Selection of types of answers *****/
|
|
|
|
|
Tst_ShowFormAnswerTypes ();
|
|
|
|
|
|
|
|
|
|
/***** Starting and ending dates in the search *****/
|
2014-12-30 19:09:25 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"<table class=\"CELLS_PAD_2\""
|
|
|
|
|
" style=\"margin:0 auto;\">");
|
2015-10-25 00:23:22 +02:00
|
|
|
|
Dat_PutFormStartEndClientLocalDateTimesWithYesterdayToday ();
|
2015-03-24 17:47:26 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"</table>"
|
|
|
|
|
"</div>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Send button *****/
|
2015-03-24 17:47:26 +01:00
|
|
|
|
Lay_PutConfirmButton (Txt_Show_questions);
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Free structure that stores the query result */
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************ Put a link (form) to create a new test question ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_PutFormToCreateNewTstQst (void)
|
|
|
|
|
{
|
2015-07-27 21:25:45 +02:00
|
|
|
|
extern const char *The_ClassFormBold[The_NUM_THEMES];
|
2014-12-01 23:55:08 +01:00
|
|
|
|
extern const char *Txt_New_question;
|
|
|
|
|
|
|
|
|
|
/***** Put form to create a new test question *****/
|
|
|
|
|
Act_FormStart (ActEdiOneTstQst);
|
2015-07-27 21:25:45 +02:00
|
|
|
|
Act_LinkFormSubmit (Txt_New_question,The_ClassFormBold[Gbl.Prefs.Theme]);
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_PutIconWithText ("new",Txt_New_question,Txt_New_question);
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/***************************** Form to rename tags ***************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_ShowFormConfig (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Please_specify_if_you_allow_access_to_test_questions_from_mobile_applications;
|
|
|
|
|
|
|
|
|
|
/***** If current course has tests and pluggable is unknown... *****/
|
|
|
|
|
if (Tst_CheckIfCourseHaveTestsAndPluggableIsUnknown ())
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_Please_specify_if_you_allow_access_to_test_questions_from_mobile_applications);
|
|
|
|
|
|
|
|
|
|
/***** Form to configure test *****/
|
|
|
|
|
Tst_ShowFormConfigTst ();
|
|
|
|
|
|
|
|
|
|
/***** Form to edit tags *****/
|
|
|
|
|
Tst_ShowFormEditTags ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************************* Enable a test tag ***************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_EnableTag (void)
|
|
|
|
|
{
|
|
|
|
|
long TagCod = Tst_GetParamTagCode ();
|
|
|
|
|
|
|
|
|
|
/***** Change tag status to enabled *****/
|
|
|
|
|
Tst_EnableOrDisableTag (TagCod,false);
|
|
|
|
|
|
|
|
|
|
/***** Show again the form to configure test *****/
|
|
|
|
|
Tst_ShowFormConfig ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/****************************** Disable a test tag ***************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_DisableTag (void)
|
|
|
|
|
{
|
|
|
|
|
long TagCod = Tst_GetParamTagCode ();
|
|
|
|
|
|
|
|
|
|
/***** Change tag status to disabled *****/
|
|
|
|
|
Tst_EnableOrDisableTag (TagCod,true);
|
|
|
|
|
|
|
|
|
|
/***** Show again the form to configure test *****/
|
|
|
|
|
Tst_ShowFormConfig ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************************* Get parameter with tag code ***********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static long Tst_GetParamTagCode (void)
|
|
|
|
|
{
|
|
|
|
|
char StrLong[1+10+1];
|
|
|
|
|
long TagCod;
|
|
|
|
|
|
|
|
|
|
Par_GetParToText ("TagCod",StrLong,1+10);
|
|
|
|
|
if ((TagCod = Str_ConvertStrCodToLongCod (StrLong)) < 0)
|
|
|
|
|
Lay_ShowErrorAndExit ("Code of tag is missing.");
|
|
|
|
|
|
|
|
|
|
return TagCod;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************************ Rename a tag of test questions *********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_RenameTag (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_You_can_not_leave_the_name_of_the_tag_X_empty;
|
|
|
|
|
extern const char *Txt_The_tag_X_has_been_renamed_as_Y;
|
|
|
|
|
extern const char *Txt_The_tag_X_has_not_changed;
|
|
|
|
|
char OldTagTxt[Tst_MAX_BYTES_TAG+1];
|
|
|
|
|
char NewTagTxt[Tst_MAX_BYTES_TAG+1];
|
|
|
|
|
char Query[1024+2*Tst_MAX_BYTES_TAG];
|
|
|
|
|
long ExistingNewTagCod;
|
|
|
|
|
long OldTagCod;
|
|
|
|
|
|
|
|
|
|
/***** Get old and new tags from the form *****/
|
|
|
|
|
Par_GetParToText ("OldTagTxt",OldTagTxt,Tst_MAX_BYTES_TAG);
|
|
|
|
|
|
|
|
|
|
Par_GetParToText ("NewTagTxt",NewTagTxt,Tst_MAX_BYTES_TAG);
|
|
|
|
|
|
|
|
|
|
/***** Check that the new tag is not empty *****/
|
|
|
|
|
if (!NewTagTxt[0])
|
|
|
|
|
{
|
|
|
|
|
sprintf (Gbl.Message,Txt_You_can_not_leave_the_name_of_the_tag_X_empty,
|
|
|
|
|
OldTagTxt);
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Gbl.Message);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/***** Check if the old tag is equal to the new one (this happens when user press INTRO without changing anything in the form) *****/
|
|
|
|
|
if (strcmp (OldTagTxt,NewTagTxt)) // The tag text has changed
|
|
|
|
|
{
|
|
|
|
|
/***** Check if the new tag text is equal to any of the tag texts present in the database *****/
|
|
|
|
|
if ((ExistingNewTagCod = Tst_GetTagCodFromTagTxt (NewTagTxt)) > 0) // The new tag was already in database
|
|
|
|
|
{
|
|
|
|
|
/***** Complex update made to not repeat tags *****/
|
|
|
|
|
/* Step 1. Get tag code of the old tag */
|
|
|
|
|
if ((OldTagCod = Tst_GetTagCodFromTagTxt (OldTagTxt)) < 0)
|
|
|
|
|
Lay_ShowErrorAndExit ("Tag does not exists.");
|
|
|
|
|
|
|
|
|
|
/* Step 2: If the new tag existed for a question ==> delete old tag from tst_question_tags; the new tag will remain
|
|
|
|
|
If the new tag did not exist for a question ==> change old tag to new tag in tst_question_tags */
|
|
|
|
|
sprintf (Query,"DROP TABLE IF EXISTS tst_question_tags_tmp");
|
|
|
|
|
if (mysql_query (&Gbl.mysql,Query))
|
|
|
|
|
DB_ExitOnMySQLError ("can not remove temporary table");
|
|
|
|
|
|
|
|
|
|
sprintf (Query,"CREATE TEMPORARY TABLE tst_question_tags_tmp ENGINE=MEMORY SELECT QstCod FROM tst_question_tags WHERE TagCod='%ld'",
|
|
|
|
|
ExistingNewTagCod);
|
|
|
|
|
if (mysql_query (&Gbl.mysql,Query))
|
|
|
|
|
DB_ExitOnMySQLError ("can not create temporary table");
|
|
|
|
|
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_question_tags"
|
|
|
|
|
" WHERE TagCod='%ld'"
|
|
|
|
|
" AND QstCod IN"
|
|
|
|
|
" (SELECT QstCod FROM tst_question_tags_tmp)", // New tag existed for a question ==> delete old tag
|
|
|
|
|
OldTagCod);
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove a tag from some questions");
|
|
|
|
|
|
|
|
|
|
sprintf (Query,"UPDATE tst_question_tags"
|
|
|
|
|
" SET TagCod='%ld'"
|
|
|
|
|
" WHERE TagCod='%ld'"
|
|
|
|
|
" AND QstCod NOT IN"
|
|
|
|
|
" (SELECT QstCod FROM tst_question_tags_tmp)", // New tag did not exist for a question ==> change old tag to new tag
|
|
|
|
|
ExistingNewTagCod,
|
|
|
|
|
OldTagCod);
|
|
|
|
|
DB_QueryUPDATE (Query,"can not update a tag in some questions");
|
|
|
|
|
|
|
|
|
|
sprintf (Query,"DROP TABLE IF EXISTS tst_question_tags_tmp");
|
|
|
|
|
if (mysql_query (&Gbl.mysql,Query))
|
|
|
|
|
DB_ExitOnMySQLError ("can not remove temporary table");
|
|
|
|
|
|
|
|
|
|
/* Delete old tag from tst_tags because it is not longer used */
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_tags WHERE TagCod='%ld'",
|
|
|
|
|
OldTagCod);
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove old tag");
|
|
|
|
|
// Tst_RemoveUnusedTagsFromCurrentCrs ();
|
|
|
|
|
}
|
|
|
|
|
else // Tag is not repeated. New tag text does not exists in current tags
|
|
|
|
|
{
|
|
|
|
|
/***** Simple update replacing each instance of the old tag by the new tag *****/
|
|
|
|
|
sprintf (Query,"UPDATE tst_tags SET TagTxt='%s',ChangeTime=NOW()"
|
|
|
|
|
" WHERE tst_tags.CrsCod='%ld' AND tst_tags.TagTxt='%s'",
|
|
|
|
|
NewTagTxt,Gbl.CurrentCrs.Crs.CrsCod,OldTagTxt);
|
|
|
|
|
DB_QueryUPDATE (Query,"can not update tag");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Write message to show the change made *****/
|
|
|
|
|
sprintf (Gbl.Message,Txt_The_tag_X_has_been_renamed_as_Y,
|
|
|
|
|
OldTagTxt,NewTagTxt);
|
|
|
|
|
Lay_ShowAlert (Lay_SUCCESS,Gbl.Message);
|
|
|
|
|
}
|
|
|
|
|
else // Both tags are the same
|
|
|
|
|
{
|
|
|
|
|
sprintf (Gbl.Message,Txt_The_tag_X_has_not_changed,
|
|
|
|
|
NewTagTxt);
|
|
|
|
|
Lay_ShowAlert (Lay_INFO,Gbl.Message);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Show again the form to configure test *****/
|
|
|
|
|
Tst_ShowFormConfig ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************* Check if current course has test tags *******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// Return the number of rows of the result
|
|
|
|
|
|
|
|
|
|
static bool Tst_CheckIfCurrentCrsHasTestTags (void)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Get available tags from database *****/
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*) FROM tst_tags WHERE CrsCod='%ld'",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
return (DB_QueryCOUNT (Query,"can not check if course has tags") != 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********* Get all (enabled or disabled) test tags for this course ***********/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// Return the number of rows of the result
|
|
|
|
|
|
|
|
|
|
static unsigned long Tst_GetAllTagsFromCurrentCrs (MYSQL_RES **mysql_res)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Get available tags from database *****/
|
|
|
|
|
sprintf (Query,"SELECT TagCod,TagTxt,TagHidden FROM tst_tags"
|
|
|
|
|
" WHERE CrsCod='%ld' ORDER BY TagTxt",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
return DB_QuerySELECT (Query,mysql_res,"can not get available tags");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********************** Get enabled test tags for this course ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// Return the number of rows of the result
|
|
|
|
|
|
|
|
|
|
static unsigned long Tst_GetEnabledTagsFromThisCrs (MYSQL_RES **mysql_res)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Get available not hidden tags from database *****/
|
|
|
|
|
sprintf (Query,"SELECT TagCod,TagTxt FROM tst_tags"
|
|
|
|
|
" WHERE CrsCod='%ld' AND TagHidden='N' ORDER BY TagTxt",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
return DB_QuerySELECT (Query,mysql_res,"can not get available enabled tags");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********************* Show a form to select test tags ***********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_ShowFormSelTags (unsigned long NumRows,MYSQL_RES *mysql_res,bool ShowOnlyEnabledTags)
|
|
|
|
|
{
|
2015-07-28 00:16:09 +02:00
|
|
|
|
extern const char *The_ClassForm[The_NUM_THEMES];
|
2015-04-01 12:54:25 +02:00
|
|
|
|
extern const char *Txt_Tags;
|
|
|
|
|
extern const char *Txt_All_tags;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
extern const char *Txt_Tag_not_allowed;
|
|
|
|
|
extern const char *Txt_Tag_allowed;
|
|
|
|
|
unsigned long NumRow;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
bool TagHidden = false;
|
|
|
|
|
const char *Ptr;
|
|
|
|
|
char TagText[Tst_MAX_BYTES_TAG+1];
|
|
|
|
|
|
|
|
|
|
/***** Start table *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_StartRoundFrameTable (NULL,0,Txt_Tags);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Select all tags *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>");
|
|
|
|
|
if (!ShowOnlyEnabledTags)
|
|
|
|
|
fprintf (Gbl.F.Out,"<td></td>");
|
2015-07-28 00:16:09 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"%s LEFT_MIDDLE\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<input type=\"checkbox\" name=\"AllTags\" value=\"Y\"",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme]);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Gbl.Test.AllTags)
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
fprintf (Gbl.F.Out," onclick=\"togglecheckChildren(this,'ChkTag')\" />"
|
|
|
|
|
" %s"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_All_tags);
|
|
|
|
|
|
|
|
|
|
/***** Select tags one by one *****/
|
|
|
|
|
for (NumRow = 1;
|
|
|
|
|
NumRow <= NumRows;
|
|
|
|
|
NumRow++)
|
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>");
|
|
|
|
|
if (!ShowOnlyEnabledTags)
|
|
|
|
|
{
|
|
|
|
|
TagHidden = (Str_ConvertToUpperLetter (row[2][0]) == 'Y');
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<img src=\"%s/",
|
|
|
|
|
Gbl.Prefs.IconsURL);
|
|
|
|
|
if (TagHidden)
|
2015-07-22 18:59:44 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"hidden_off16x16.gif\""
|
|
|
|
|
" alt=\"%s\" title=\"%s",
|
|
|
|
|
Txt_Tag_not_allowed,
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_Tag_not_allowed);
|
|
|
|
|
else
|
2015-07-22 18:59:44 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"visible_off16x16.gif\""
|
|
|
|
|
" alt=\"%s\" title=\"%s",
|
|
|
|
|
Txt_Tag_allowed,
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_Tag_allowed);
|
|
|
|
|
fprintf (Gbl.F.Out,"\" class=\"ICON16x16\" />"
|
|
|
|
|
"</td>");
|
|
|
|
|
}
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT LEFT_MIDDLE\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<input type=\"checkbox\" name=\"ChkTag\" value=\"%s\"",
|
|
|
|
|
row[1]);
|
|
|
|
|
if (Gbl.Test.TagsList)
|
|
|
|
|
{
|
|
|
|
|
Ptr = Gbl.Test.TagsList;
|
|
|
|
|
while (*Ptr)
|
|
|
|
|
{
|
|
|
|
|
Par_GetNextStrUntilSeparParamMult (&Ptr,TagText,Tst_MAX_BYTES_TAG);
|
|
|
|
|
if (!strcmp (row[1],TagText))
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out," onclick=\"checkParent(this,'AllTags')\" />"
|
|
|
|
|
" %s"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
row[1]);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** End table *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_EndRoundFrameTable ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************* Show a form to enable/disable and rename test tags ************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_ShowFormEditTags (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_No_test_questions_in_X;
|
|
|
|
|
extern const char *Txt_Tags;
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned long NumRow,NumRows;
|
|
|
|
|
long TagCod;
|
|
|
|
|
|
|
|
|
|
/***** Get current tags in current course *****/
|
|
|
|
|
if ((NumRows = Tst_GetAllTagsFromCurrentCrs (&mysql_res)) == 0)
|
|
|
|
|
{
|
|
|
|
|
sprintf (Gbl.Message,Txt_No_test_questions_in_X,
|
|
|
|
|
Gbl.CurrentCrs.Crs.FullName);
|
|
|
|
|
Lay_ShowAlert (Lay_INFO,Gbl.Message);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/***** Start table *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_StartRoundFrameTable (NULL,2,Txt_Tags);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Show tags *****/
|
|
|
|
|
for (NumRow = 0;
|
|
|
|
|
NumRow < NumRows;
|
|
|
|
|
NumRow++)
|
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
if ((TagCod = Str_ConvertStrCodToLongCod (row[0])) < 0)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong code of tag.");
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>");
|
|
|
|
|
|
|
|
|
|
/* Form to enable / disable this tag */
|
|
|
|
|
if (Str_ConvertToUpperLetter (row[2][0]) == 'Y') // Tag disabled
|
|
|
|
|
Tst_PutIconEnable (TagCod,row[1]);
|
|
|
|
|
else
|
|
|
|
|
Tst_PutIconDisable (TagCod,row[1]);
|
|
|
|
|
|
|
|
|
|
/* Form to rename this tag */
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Act_FormStart (ActRenTag);
|
|
|
|
|
Par_PutHiddenParamString ("OldTagTxt",row[1]);
|
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"text\" name=\"NewTagTxt\""
|
|
|
|
|
" size=\"36\" maxlength=\"%u\" value=\"%s\""
|
2015-10-22 14:49:48 +02:00
|
|
|
|
" onchange=\"document.getElementById('%s').submit();\" />",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_MAX_TAG_LENGTH,row[1],Gbl.FormId);
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</tr>");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** End table *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_EndRoundFrameTable ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Free structure that stores the query result */
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************* Put a link and an icon to enable a tag ******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_PutIconEnable (long TagCod,const char *TagTxt)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Tag_X_not_allowed_Click_to_allow_it;
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"BM\">");
|
|
|
|
|
Act_FormStart (ActEnableTag);
|
|
|
|
|
Par_PutHiddenParamLong ("TagCod",TagCod);
|
|
|
|
|
sprintf (Gbl.Title,Txt_Tag_X_not_allowed_Click_to_allow_it,TagTxt);
|
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"image\" src=\"%s/hidden_on16x16.gif\""
|
2015-09-05 12:04:30 +02:00
|
|
|
|
" alt=\"%s\" title=\"%s\""
|
|
|
|
|
" class=\"ICON16x16\" />",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Prefs.IconsURL,
|
|
|
|
|
Gbl.Title,
|
|
|
|
|
Gbl.Title);
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/****************** Put a link and an icon to disable a tag ******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_PutIconDisable (long TagCod,const char *TagTxt)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Tag_X_allowed_Click_to_disable_it;
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"BM\">");
|
|
|
|
|
Act_FormStart (ActDisableTag);
|
|
|
|
|
Par_PutHiddenParamLong ("TagCod",TagCod);
|
|
|
|
|
sprintf (Gbl.Title,Txt_Tag_X_allowed_Click_to_disable_it,TagTxt);
|
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"image\" src=\"%s/visible_on16x16.gif\""
|
2015-09-05 12:04:30 +02:00
|
|
|
|
" alt=\"%s\" title=\"%s\""
|
|
|
|
|
" class=\"ICON16x16\" />",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Prefs.IconsURL,
|
|
|
|
|
Gbl.Title,
|
|
|
|
|
Gbl.Title);
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********************* Show a form to to configure test **********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_ShowFormConfigTst (void)
|
|
|
|
|
{
|
2015-07-28 00:16:09 +02:00
|
|
|
|
extern const char *The_ClassForm[The_NUM_THEMES];
|
2014-12-01 23:55:08 +01:00
|
|
|
|
extern const char *Txt_Configure_tests;
|
|
|
|
|
extern const char *Txt_Plugins;
|
|
|
|
|
extern const char *Txt_TST_PLUGGABLE[Tst_NUM_OPTIONS_PLUGGABLE];
|
|
|
|
|
extern const char *Txt_No_of_questions;
|
|
|
|
|
extern const char *Txt_minimum;
|
|
|
|
|
extern const char *Txt_default;
|
|
|
|
|
extern const char *Txt_maximum;
|
|
|
|
|
extern const char *Txt_Minimum_time_seconds_per_question_between_two_tests;
|
|
|
|
|
extern const char *Txt_Feedback_to_students;
|
|
|
|
|
extern const char *Txt_TST_STR_FEEDBACK[Tst_NUM_TYPES_FEEDBACK];
|
|
|
|
|
extern const char *Txt_Save;
|
|
|
|
|
Tst_Pluggable_t Pluggable;
|
|
|
|
|
Tst_Feedback_t FeedbTyp;
|
|
|
|
|
|
|
|
|
|
/***** Read test configuration from database *****/
|
|
|
|
|
Tst_GetConfigTstFromDB ();
|
|
|
|
|
|
|
|
|
|
/***** Start form *****/
|
|
|
|
|
Act_FormStart (ActRcvCfgTst);
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_StartRoundFrameTable (NULL,2,Txt_Configure_tests);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Tests are visible from plugins? *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s RIGHT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"LEFT_TOP\">",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],
|
2015-07-27 19:42:24 +02:00
|
|
|
|
Txt_Plugins);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
for (Pluggable = Tst_PLUGGABLE_NO;
|
|
|
|
|
Pluggable <= Tst_PLUGGABLE_YES;
|
|
|
|
|
Pluggable++)
|
|
|
|
|
{
|
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"radio\" name=\"Pluggable\" value=\"%u\"",
|
|
|
|
|
(unsigned) Pluggable);
|
|
|
|
|
if (Pluggable == Gbl.Test.Config.Pluggable)
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
fprintf (Gbl.F.Out," /><span class=\"DAT\">%s</span><br />",
|
|
|
|
|
Txt_TST_PLUGGABLE[Pluggable]);
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Number of questions *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s RIGHT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"LEFT_TOP\">"
|
2015-09-28 18:28:29 +02:00
|
|
|
|
"<table style=\"border-spacing:2px;\">",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_No_of_questions);
|
|
|
|
|
|
|
|
|
|
/* Minimum number of questions in a test exam */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT RIGHT_MIDDLE\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"LEFT_MIDDLE\">"
|
2015-10-23 01:31:08 +02:00
|
|
|
|
"<input type=\"text\" name=\"NumQstMin\""
|
|
|
|
|
" size=\"3\" maxlength=\"3\" value=\"%u\" />"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_minimum,Gbl.Test.Config.Min);
|
|
|
|
|
|
|
|
|
|
/* Default number of questions in a test exam */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT RIGHT_MIDDLE\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"LEFT_MIDDLE\">"
|
2015-10-23 01:31:08 +02:00
|
|
|
|
"<input type=\"text\" name=\"NumQstDef\""
|
|
|
|
|
" size=\"3\" maxlength=\"3\" value=\"%u\" />"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_default,Gbl.Test.Config.Def);
|
|
|
|
|
|
|
|
|
|
/* Maximum number of questions in a test exam */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT RIGHT_MIDDLE\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"LEFT_MIDDLE\">"
|
2015-10-23 01:31:08 +02:00
|
|
|
|
"<input type=\"text\" name=\"NumQstMax\""
|
|
|
|
|
" size=\"3\" maxlength=\"3\" value=\"%u\" />"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>"
|
|
|
|
|
"</table>"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_maximum,Gbl.Test.Config.Max);
|
|
|
|
|
|
|
|
|
|
/***** Minimum time between test exams per question *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s RIGHT_MIDDLE\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"LEFT_MIDDLE\">"
|
2015-10-23 01:31:08 +02:00
|
|
|
|
"<input type=\"text\" name=\"MinTimeNxtTstPerQst\""
|
|
|
|
|
" size=\"7\" maxlength=\"7\" value=\"%lu\" />"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_Minimum_time_seconds_per_question_between_two_tests,
|
|
|
|
|
Gbl.Test.Config.MinTimeNxtTstPerQst);
|
|
|
|
|
|
|
|
|
|
/***** Feedback to students *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s RIGHT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"LEFT_TOP\">",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],Txt_Feedback_to_students);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
for (FeedbTyp = (Tst_Feedback_t) 0;
|
|
|
|
|
FeedbTyp < Tst_NUM_TYPES_FEEDBACK;
|
|
|
|
|
FeedbTyp++)
|
|
|
|
|
{
|
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"radio\" name=\"Feedback\" value=\"%u\"",
|
|
|
|
|
(unsigned) FeedbTyp);
|
|
|
|
|
if (FeedbTyp == Gbl.Test.Config.FeedbackType)
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
fprintf (Gbl.F.Out," /><span class=\"DAT\">%s</span><br />",
|
|
|
|
|
Txt_TST_STR_FEEDBACK[FeedbTyp]);
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
2015-04-11 23:46:21 +02:00
|
|
|
|
/***** Send button and end frame *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_EndRoundFrameTableWithButton (Lay_CONFIRM_BUTTON,Txt_Save);
|
2015-04-11 23:46:21 +02:00
|
|
|
|
|
2014-12-01 23:55:08 +01:00
|
|
|
|
/***** End form *****/
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*************** Get configuration of test for current course ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_GetConfigTstFromDB (void)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned long NumRows;
|
|
|
|
|
|
|
|
|
|
/***** Get configuration of test for current course from database *****/
|
|
|
|
|
sprintf (Query,"SELECT Pluggable,Min,Def,Max,MinTimeNxtTstPerQst,Feedback"
|
|
|
|
|
" FROM tst_config WHERE CrsCod='%ld'",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
NumRows = DB_QuerySELECT (Query,&mysql_res,"can not get configuration of test");
|
|
|
|
|
|
|
|
|
|
Gbl.Test.Config.FeedbackType = Tst_FEEDBACK_DEFAULT;
|
|
|
|
|
Gbl.Test.Config.MinTimeNxtTstPerQst = 0UL;
|
|
|
|
|
if (NumRows == 0)
|
|
|
|
|
{
|
|
|
|
|
Gbl.Test.Config.Pluggable = Tst_PLUGGABLE_UNKNOWN;
|
|
|
|
|
Gbl.Test.Config.Min = Tst_CONFIG_DEFAULT_MIN_QUESTIONS;
|
|
|
|
|
Gbl.Test.Config.Def = Tst_CONFIG_DEFAULT_DEF_QUESTIONS;
|
|
|
|
|
Gbl.Test.Config.Max = Tst_CONFIG_DEFAULT_MAX_QUESTIONS;
|
|
|
|
|
}
|
|
|
|
|
else // NumRows == 1
|
|
|
|
|
{
|
|
|
|
|
/***** Get minimun, default and maximum *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
Tst_GetConfigFromRow (row);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************ Get configuration values from a database table row *************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_GetConfigFromRow (MYSQL_ROW row)
|
|
|
|
|
{
|
|
|
|
|
int IntNum;
|
|
|
|
|
long LongNum;
|
|
|
|
|
Tst_Pluggable_t Pluggable;
|
|
|
|
|
Tst_Feedback_t FeedbTyp;
|
|
|
|
|
|
|
|
|
|
/***** Get whether test are visible via plugins or not *****/
|
|
|
|
|
Gbl.Test.Config.Pluggable = Tst_PLUGGABLE_UNKNOWN;
|
|
|
|
|
for (Pluggable = Tst_PLUGGABLE_NO;
|
|
|
|
|
Pluggable <= Tst_PLUGGABLE_YES;
|
|
|
|
|
Pluggable++)
|
|
|
|
|
if (!strcmp (row[0],Tst_PluggableDB[Pluggable]))
|
|
|
|
|
{
|
|
|
|
|
Gbl.Test.Config.Pluggable = Pluggable;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Get number of questions *****/
|
|
|
|
|
if (sscanf (row[1],"%d",&IntNum) == 1)
|
|
|
|
|
Gbl.Test.Config.Min = (IntNum < 1) ? 1 :
|
|
|
|
|
(unsigned) IntNum;
|
|
|
|
|
else
|
|
|
|
|
Gbl.Test.Config.Min = Tst_CONFIG_DEFAULT_MIN_QUESTIONS;
|
|
|
|
|
|
|
|
|
|
if (sscanf (row[2],"%d",&IntNum) == 1)
|
|
|
|
|
Gbl.Test.Config.Def = (IntNum < 1) ? 1 :
|
|
|
|
|
(unsigned) IntNum;
|
|
|
|
|
else
|
|
|
|
|
Gbl.Test.Config.Def = Tst_CONFIG_DEFAULT_DEF_QUESTIONS;
|
|
|
|
|
|
|
|
|
|
if (sscanf (row[3],"%d",&IntNum) == 1)
|
|
|
|
|
Gbl.Test.Config.Max = (IntNum < 1) ? 1 :
|
|
|
|
|
(unsigned) IntNum;
|
|
|
|
|
else
|
|
|
|
|
Gbl.Test.Config.Max = Tst_CONFIG_DEFAULT_MAX_QUESTIONS;
|
|
|
|
|
|
|
|
|
|
/***** Check and correct numbers *****/
|
|
|
|
|
Tst_CheckAndCorrectNumbersQst ();
|
|
|
|
|
|
|
|
|
|
/***** Get minimum time between test exams per question (row[4]) *****/
|
|
|
|
|
if (sscanf (row[4],"%ld",&LongNum) == 1)
|
|
|
|
|
Gbl.Test.Config.MinTimeNxtTstPerQst = (LongNum < 1L) ? 0UL :
|
|
|
|
|
(unsigned long) LongNum;
|
|
|
|
|
|
|
|
|
|
/***** Get feedback type (row[5]) *****/
|
|
|
|
|
for (FeedbTyp = (Tst_Feedback_t) 0;
|
|
|
|
|
FeedbTyp < Tst_NUM_TYPES_FEEDBACK;
|
|
|
|
|
FeedbTyp++)
|
|
|
|
|
if (!strcmp (row[5],Tst_FeedbackDB[FeedbTyp]))
|
|
|
|
|
{
|
|
|
|
|
Gbl.Test.Config.FeedbackType = FeedbTyp;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*************** Get configuration of test for current course ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// Returns true if course has test tags and pluggable is unknown
|
|
|
|
|
// Return false if course has no test tags or pluggable is known
|
|
|
|
|
|
|
|
|
|
bool Tst_CheckIfCourseHaveTestsAndPluggableIsUnknown (void)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned long NumRows;
|
|
|
|
|
Tst_Pluggable_t Pluggable;
|
|
|
|
|
|
|
|
|
|
/***** Get pluggability of tests for current course from database *****/
|
|
|
|
|
sprintf (Query,"SELECT Pluggable FROM tst_config WHERE CrsCod='%ld'",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
NumRows = DB_QuerySELECT (Query,&mysql_res,"can not get configuration of test");
|
|
|
|
|
|
|
|
|
|
if (NumRows == 0)
|
|
|
|
|
Gbl.Test.Config.Pluggable = Tst_PLUGGABLE_UNKNOWN;
|
|
|
|
|
else // NumRows == 1
|
|
|
|
|
{
|
|
|
|
|
/***** Get whether test are visible via plugins or not *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
Gbl.Test.Config.Pluggable = Tst_PLUGGABLE_UNKNOWN;
|
|
|
|
|
for (Pluggable = Tst_PLUGGABLE_NO;
|
|
|
|
|
Pluggable <= Tst_PLUGGABLE_YES;
|
|
|
|
|
Pluggable++)
|
|
|
|
|
if (!strcmp (row[0],Tst_PluggableDB[Pluggable]))
|
|
|
|
|
{
|
|
|
|
|
Gbl.Test.Config.Pluggable = Pluggable;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
|
|
|
|
|
/***** Get if current course has tests from database *****/
|
|
|
|
|
if (Gbl.Test.Config.Pluggable == Tst_PLUGGABLE_UNKNOWN)
|
|
|
|
|
return Tst_CheckIfCurrentCrsHasTestTags (); // Return true if course has tests
|
|
|
|
|
|
|
|
|
|
return false; // Pluggable is not unknown
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************* Receive configuration of test for current course **************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_ReceiveConfigTst (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_The_test_configuration_has_been_updated;
|
|
|
|
|
char IntStr[1+10+1];
|
|
|
|
|
int IntNum;
|
|
|
|
|
long LongNum;
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Get whether test are visible via plugins or not *****/
|
|
|
|
|
Gbl.Test.Config.Pluggable = Tst_GetPluggableFromForm ();
|
|
|
|
|
|
|
|
|
|
/***** Get number of questions *****/
|
|
|
|
|
/* Get minimum number of questions */
|
|
|
|
|
Par_GetParToText ("NumQstMin",IntStr,1+10);
|
|
|
|
|
if (sscanf (IntStr,"%d",&IntNum) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Minimum number of questions is missing.");
|
|
|
|
|
Gbl.Test.Config.Min = (IntNum < 1) ? 1 :
|
|
|
|
|
(unsigned) IntNum;
|
|
|
|
|
|
|
|
|
|
/* Get default number of questions */
|
|
|
|
|
Par_GetParToText ("NumQstDef",IntStr,1+10);
|
|
|
|
|
if (sscanf (IntStr,"%d",&IntNum) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Default number of questions is missing.");
|
|
|
|
|
Gbl.Test.Config.Def = (IntNum < 1) ? 1 :
|
|
|
|
|
(unsigned) IntNum;
|
|
|
|
|
|
|
|
|
|
/* Get maximum number of questions */
|
|
|
|
|
Par_GetParToText ("NumQstMax",IntStr,1+10);
|
|
|
|
|
if (sscanf (IntStr,"%d",&IntNum) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Maximum number of questions is missing.");
|
|
|
|
|
Gbl.Test.Config.Max = (IntNum < 1) ? 1 :
|
|
|
|
|
(unsigned) IntNum;
|
|
|
|
|
|
|
|
|
|
/* Check and correct numbers */
|
|
|
|
|
Tst_CheckAndCorrectNumbersQst ();
|
|
|
|
|
|
|
|
|
|
/***** Get minimum time between test exams per question *****/
|
|
|
|
|
Par_GetParToText ("MinTimeNxtTstPerQst",IntStr,1+10);
|
|
|
|
|
if (sscanf (IntStr,"%ld",&LongNum) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Minimum time per question between two test is missing.");
|
|
|
|
|
Gbl.Test.Config.MinTimeNxtTstPerQst = (LongNum < 1L) ? 0UL :
|
|
|
|
|
(unsigned long) LongNum;
|
|
|
|
|
|
|
|
|
|
/***** Get type of feedback from form *****/
|
|
|
|
|
Gbl.Test.Config.FeedbackType = Tst_GetFeedbackTypeFromForm ();
|
|
|
|
|
|
|
|
|
|
/***** Update database *****/
|
|
|
|
|
sprintf (Query,"REPLACE INTO tst_config (CrsCod,Pluggable,Min,Def,Max,MinTimeNxtTstPerQst,Feedback)"
|
|
|
|
|
" VALUES ('%ld','%s','%u','%u','%u','%lu','%s')",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,
|
|
|
|
|
Tst_PluggableDB[Gbl.Test.Config.Pluggable],
|
|
|
|
|
Gbl.Test.Config.Min,Gbl.Test.Config.Def,Gbl.Test.Config.Max,
|
|
|
|
|
Gbl.Test.Config.MinTimeNxtTstPerQst,
|
|
|
|
|
Tst_FeedbackDB[Gbl.Test.Config.FeedbackType]);
|
|
|
|
|
DB_QueryREPLACE (Query,"can not save configuration of test");
|
|
|
|
|
|
|
|
|
|
/***** Show confirmation message *****/
|
|
|
|
|
Lay_ShowAlert (Lay_SUCCESS,Txt_The_test_configuration_has_been_updated);
|
|
|
|
|
|
|
|
|
|
/***** Show again the form to configure test *****/
|
|
|
|
|
Tst_ShowFormConfig ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************* Get if tests are pluggable from form ********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static Tst_Pluggable_t Tst_GetPluggableFromForm (void)
|
|
|
|
|
{
|
|
|
|
|
char UnsignedStr[10+1];
|
|
|
|
|
unsigned UnsignedNum;
|
|
|
|
|
|
|
|
|
|
Par_GetParToText ("Pluggable",UnsignedStr,10);
|
|
|
|
|
if (UnsignedStr[0])
|
|
|
|
|
{
|
|
|
|
|
if (sscanf (UnsignedStr,"%u",&UnsignedNum) != 1)
|
|
|
|
|
return Tst_PLUGGABLE_UNKNOWN;
|
|
|
|
|
if (UnsignedNum >= Tst_NUM_TYPES_FEEDBACK)
|
|
|
|
|
return Tst_PLUGGABLE_UNKNOWN;
|
|
|
|
|
return (Tst_Pluggable_t) UnsignedNum;
|
|
|
|
|
}
|
|
|
|
|
return Tst_PLUGGABLE_UNKNOWN;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********************** Get type of feedback from form **********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static Tst_Feedback_t Tst_GetFeedbackTypeFromForm (void)
|
|
|
|
|
{
|
|
|
|
|
char UnsignedStr[10+1];
|
|
|
|
|
unsigned UnsignedNum;
|
|
|
|
|
|
|
|
|
|
Par_GetParToText ("Feedback",UnsignedStr,10);
|
|
|
|
|
if (UnsignedStr[0])
|
|
|
|
|
{
|
|
|
|
|
if (sscanf (UnsignedStr,"%u",&UnsignedNum) != 1)
|
|
|
|
|
return (Tst_Feedback_t) 0;
|
|
|
|
|
if (UnsignedNum >= Tst_NUM_TYPES_FEEDBACK)
|
|
|
|
|
return (Tst_Feedback_t) 0;
|
|
|
|
|
return (Tst_Feedback_t) UnsignedNum;
|
|
|
|
|
}
|
|
|
|
|
return (Tst_Feedback_t) 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/**** Check and correct minimum, default and maximum numbers of questions ****/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_CheckAndCorrectNumbersQst (void)
|
|
|
|
|
{
|
|
|
|
|
/***** Check if minimum is correct *****/
|
|
|
|
|
if (Gbl.Test.Config.Min < 1)
|
|
|
|
|
Gbl.Test.Config.Min = 1;
|
|
|
|
|
else if (Gbl.Test.Config.Min > Tst_MAX_QUESTIONS_PER_EXAM)
|
|
|
|
|
Gbl.Test.Config.Min = Tst_MAX_QUESTIONS_PER_EXAM;
|
|
|
|
|
|
|
|
|
|
/***** Check if maximum is correct *****/
|
|
|
|
|
if (Gbl.Test.Config.Max < 1)
|
|
|
|
|
Gbl.Test.Config.Max = 1;
|
|
|
|
|
else if (Gbl.Test.Config.Max > Tst_MAX_QUESTIONS_PER_EXAM)
|
|
|
|
|
Gbl.Test.Config.Max = Tst_MAX_QUESTIONS_PER_EXAM;
|
|
|
|
|
|
|
|
|
|
/***** Check if minimum is lower than maximum *****/
|
|
|
|
|
if (Gbl.Test.Config.Min > Gbl.Test.Config.Max)
|
|
|
|
|
Gbl.Test.Config.Min = Gbl.Test.Config.Max;
|
|
|
|
|
|
|
|
|
|
/***** Check if default is correct *****/
|
|
|
|
|
if (Gbl.Test.Config.Def < Gbl.Test.Config.Min)
|
|
|
|
|
Gbl.Test.Config.Def = Gbl.Test.Config.Min;
|
|
|
|
|
else if (Gbl.Test.Config.Def > Gbl.Test.Config.Max)
|
|
|
|
|
Gbl.Test.Config.Def = Gbl.Test.Config.Max;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/***************** Show form for select the types of answers *****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_ShowFormAnswerTypes (void)
|
|
|
|
|
{
|
2015-07-28 00:16:09 +02:00
|
|
|
|
extern const char *The_ClassForm[The_NUM_THEMES];
|
2015-04-01 12:54:25 +02:00
|
|
|
|
extern const char *Txt_Types_of_answers;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
extern const char *Txt_All_types_of_answers;
|
|
|
|
|
extern const char *Txt_TST_STR_ANSWER_TYPES[Tst_NUM_ANS_TYPES];
|
|
|
|
|
Tst_AnswerType_t AnsType;
|
|
|
|
|
char UnsignedStr[10+1];
|
|
|
|
|
const char *Ptr;
|
|
|
|
|
|
|
|
|
|
/***** Table start *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_StartRoundFrameTable (NULL,0,Txt_Types_of_answers);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Select all types of answers *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s LEFT_MIDDLE\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<input type=\"checkbox\" name=\"AllAnsTypes\" value=\"Y\"",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme]);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Gbl.Test.AllAnsTypes)
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
fprintf (Gbl.F.Out," onclick=\"togglecheckChildren(this,'AnswerType')\" />"
|
|
|
|
|
" %s"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_All_types_of_answers);
|
|
|
|
|
|
|
|
|
|
/***** Type of answer *****/
|
|
|
|
|
for (AnsType = (Tst_AnswerType_t) 0;
|
|
|
|
|
AnsType < Tst_NUM_ANS_TYPES;
|
|
|
|
|
AnsType++)
|
|
|
|
|
{
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT LEFT_MIDDLE\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<input type=\"checkbox\" name=\"AnswerType\" value=\"%u\"",
|
|
|
|
|
(unsigned) AnsType);
|
|
|
|
|
Ptr = Gbl.Test.ListAnsTypes;
|
|
|
|
|
while (*Ptr)
|
|
|
|
|
{
|
|
|
|
|
Par_GetNextStrUntilSeparParamMult (&Ptr,UnsignedStr,10);
|
|
|
|
|
if (Tst_ConvertFromUnsignedStrToAnsTyp (UnsignedStr) == AnsType)
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out," onclick=\"checkParent(this,'AllAnsTypes')\" />"
|
|
|
|
|
" %s"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_TST_STR_ANSWER_TYPES[AnsType]);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** End of table *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_EndRoundFrameTable ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/***************** List several test questions for edition *******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_ListQuestionsToEdit (void)
|
|
|
|
|
{
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
unsigned long NumRows;
|
|
|
|
|
|
|
|
|
|
/***** Get parameters, query the database and list the questions *****/
|
|
|
|
|
if (Tst_GetParamsTst ()) // Get parameters of the form
|
|
|
|
|
{
|
|
|
|
|
if ((NumRows = Tst_GetQuestionsForEdit (&mysql_res)) != 0) // Query database
|
|
|
|
|
{
|
|
|
|
|
/***** Buttons for edition *****/
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<div class=\"CENTER_MIDDLE\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_PutFormToCreateNewTstQst (); // Put link (form) to create a new test question
|
|
|
|
|
if (Gbl.Test.XML.CreateXML)
|
|
|
|
|
TsI_CreateXML (NumRows,mysql_res); // Create XML file for exporting questions and put a link to download it
|
|
|
|
|
else
|
|
|
|
|
TsI_PutFormToExportQuestions (); // Button to export questions
|
|
|
|
|
Tst_PutFormToConfigure (); // Put form to go to test configuration
|
|
|
|
|
fprintf (Gbl.F.Out,"</div>");
|
|
|
|
|
|
|
|
|
|
Tst_ListOneOrMoreQuestionsToEdit (NumRows,mysql_res); // Show the table with the questions
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
Tst_ShowFormAskEditTsts (); // Show the form again
|
|
|
|
|
|
|
|
|
|
/***** Free memory used by the list of tags *****/
|
|
|
|
|
Tst_FreeTagsList ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********** Get from the database several test questions for listing *********/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
#define MAX_LENGTH_QUERY_TEST (16*1024)
|
|
|
|
|
|
|
|
|
|
static unsigned long Tst_GetQuestionsForEdit (MYSQL_RES **mysql_res)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_No_questions_found_matching_your_search_criteria;
|
|
|
|
|
unsigned long NumRows;
|
|
|
|
|
char Query[MAX_LENGTH_QUERY_TEST+1];
|
|
|
|
|
long LengthQuery;
|
|
|
|
|
unsigned NumItemInList;
|
|
|
|
|
const char *Ptr;
|
|
|
|
|
char TagText[Tst_MAX_BYTES_TAG+1];
|
2015-10-26 13:36:02 +01:00
|
|
|
|
char LongStr[1+10+1];
|
2014-12-01 23:55:08 +01:00
|
|
|
|
char UnsignedStr[10+1];
|
|
|
|
|
Tst_AnswerType_t AnsType;
|
|
|
|
|
char CrsCodStr[1+10+1];
|
|
|
|
|
|
|
|
|
|
/***** Select questions *****/
|
|
|
|
|
/* Start query */
|
|
|
|
|
/*
|
|
|
|
|
row[0] QstCod
|
2015-10-26 13:36:02 +01:00
|
|
|
|
row[1] UNIX_TIMESTAMP(EditTime)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
row[2] AnsType
|
|
|
|
|
row[3] Shuffle
|
|
|
|
|
row[4] Stem
|
|
|
|
|
row[5] Feedback
|
|
|
|
|
row[6] NumHits
|
|
|
|
|
row[7] NumHitsNotBlank
|
|
|
|
|
row[8] Score
|
|
|
|
|
*/
|
2015-10-26 13:36:02 +01:00
|
|
|
|
sprintf (Query,"SELECT tst_questions.QstCod,UNIX_TIMESTAMP(tst_questions.EditTime) AS F,"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"tst_questions.AnsType,tst_questions.Shuffle,tst_questions.Stem,tst_questions.Feedback,"
|
|
|
|
|
"tst_questions.NumHits,tst_questions.NumHitsNotBlank,tst_questions.Score"
|
|
|
|
|
" FROM tst_questions");
|
|
|
|
|
if (!Gbl.Test.AllTags)
|
|
|
|
|
strcat (Query,",tst_question_tags,tst_tags");
|
|
|
|
|
|
|
|
|
|
strcat (Query," WHERE tst_questions.CrsCod='");
|
|
|
|
|
sprintf (CrsCodStr,"%ld",Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
strcat (Query,CrsCodStr);
|
2015-10-26 13:36:02 +01:00
|
|
|
|
strcat (Query,"' AND tst_questions.EditTime>=FROM_UNIXTIME('");
|
|
|
|
|
sprintf (LongStr,"%ld",(long) Gbl.DateRange.TimeUTC[0]);
|
|
|
|
|
strcat (Query,LongStr);
|
|
|
|
|
strcat (Query,"') AND tst_questions.EditTime<=FROM_UNIXTIME('");
|
|
|
|
|
sprintf (LongStr,"%ld",(long) Gbl.DateRange.TimeUTC[1]);
|
|
|
|
|
strcat (Query,LongStr);
|
|
|
|
|
strcat (Query,"')");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/* Add the tags selected */
|
|
|
|
|
if (!Gbl.Test.AllTags)
|
|
|
|
|
{
|
2015-10-26 13:36:02 +01:00
|
|
|
|
strcat (Query," AND tst_questions.QstCod=tst_question_tags.QstCod"
|
|
|
|
|
" AND tst_question_tags.TagCod=tst_tags.TagCod"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
" AND tst_tags.CrsCod='");
|
|
|
|
|
strcat (Query,CrsCodStr);
|
|
|
|
|
strcat (Query,"'");
|
|
|
|
|
LengthQuery = strlen (Query);
|
|
|
|
|
NumItemInList = 0;
|
|
|
|
|
Ptr = Gbl.Test.TagsList;
|
|
|
|
|
while (*Ptr)
|
|
|
|
|
{
|
|
|
|
|
Par_GetNextStrUntilSeparParamMult (&Ptr,TagText,Tst_MAX_BYTES_TAG);
|
|
|
|
|
LengthQuery = LengthQuery + 35 + strlen (TagText) + 1;
|
|
|
|
|
if (LengthQuery > MAX_LENGTH_QUERY_TEST - 256)
|
|
|
|
|
Lay_ShowErrorAndExit ("Query size exceed.");
|
|
|
|
|
strcat (Query,
|
|
|
|
|
NumItemInList ? " OR tst_tags.TagTxt='" :
|
|
|
|
|
" AND (tst_tags.TagTxt='");
|
|
|
|
|
strcat (Query,TagText);
|
|
|
|
|
strcat (Query,"'");
|
|
|
|
|
NumItemInList++;
|
|
|
|
|
}
|
|
|
|
|
strcat (Query,")");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add the types of answer selected */
|
|
|
|
|
if (!Gbl.Test.AllAnsTypes)
|
|
|
|
|
{
|
|
|
|
|
LengthQuery = strlen (Query);
|
|
|
|
|
NumItemInList = 0;
|
|
|
|
|
Ptr = Gbl.Test.ListAnsTypes;
|
|
|
|
|
while (*Ptr)
|
|
|
|
|
{
|
|
|
|
|
Par_GetNextStrUntilSeparParamMult (&Ptr,UnsignedStr,Tst_MAX_BYTES_TAG);
|
|
|
|
|
AnsType = Tst_ConvertFromUnsignedStrToAnsTyp (UnsignedStr);
|
|
|
|
|
LengthQuery = LengthQuery + 35 + strlen (Tst_StrAnswerTypesDB[AnsType]) + 1;
|
|
|
|
|
if (LengthQuery > MAX_LENGTH_QUERY_TEST - 256)
|
|
|
|
|
Lay_ShowErrorAndExit ("Query size exceed.");
|
|
|
|
|
strcat (Query,
|
|
|
|
|
NumItemInList ? " OR tst_questions.AnsType='" :
|
|
|
|
|
" AND (tst_questions.AnsType='");
|
|
|
|
|
strcat (Query,Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
strcat (Query,"'");
|
|
|
|
|
NumItemInList++;
|
|
|
|
|
}
|
|
|
|
|
strcat (Query,")");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* End the query */
|
|
|
|
|
strcat (Query," GROUP BY tst_questions.QstCod");
|
|
|
|
|
|
|
|
|
|
switch (Gbl.Test.SelectedOrderType)
|
|
|
|
|
{
|
|
|
|
|
case Tst_ORDER_STEM:
|
|
|
|
|
strcat (Query," ORDER BY tst_questions.Stem");
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ORDER_NUM_HITS:
|
|
|
|
|
strcat (Query," ORDER BY tst_questions.NumHits DESC,"
|
|
|
|
|
"tst_questions.Stem");
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ORDER_AVERAGE_SCORE:
|
|
|
|
|
strcat (Query," ORDER BY tst_questions.Score/tst_questions.NumHits DESC,"
|
|
|
|
|
"tst_questions.NumHits DESC,"
|
|
|
|
|
"tst_questions.Stem");
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ORDER_NUM_HITS_NOT_BLANK:
|
|
|
|
|
strcat (Query," ORDER BY tst_questions.NumHitsNotBlank DESC,"
|
|
|
|
|
"tst_questions.Stem");
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ORDER_AVERAGE_SCORE_NOT_BLANK:
|
|
|
|
|
strcat (Query," ORDER BY tst_questions.Score/tst_questions.NumHitsNotBlank DESC,"
|
|
|
|
|
"tst_questions.NumHitsNotBlank DESC,"
|
|
|
|
|
"tst_questions.Stem");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Make the query */
|
|
|
|
|
NumRows = DB_QuerySELECT (Query,mysql_res,"can not get questions");
|
|
|
|
|
|
|
|
|
|
if (NumRows == 0)
|
|
|
|
|
Lay_ShowAlert (Lay_INFO,Txt_No_questions_found_matching_your_search_criteria);
|
|
|
|
|
|
|
|
|
|
return NumRows;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********* Get from the database several test questions to list them *********/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static unsigned long Tst_GetQuestionsForExam (MYSQL_RES **mysql_res)
|
|
|
|
|
{
|
|
|
|
|
char Query[MAX_LENGTH_QUERY_TEST+1];
|
|
|
|
|
long LengthQuery;
|
|
|
|
|
unsigned NumItemInList;
|
|
|
|
|
const char *Ptr;
|
|
|
|
|
char TagText[Tst_MAX_BYTES_TAG+1];
|
|
|
|
|
char UnsignedStr[10+1];
|
|
|
|
|
Tst_AnswerType_t AnsType;
|
|
|
|
|
char StrNumQsts[10+1];
|
|
|
|
|
|
|
|
|
|
/***** Select questions without hidden tags *****/
|
|
|
|
|
/*
|
|
|
|
|
row[0] QstCod
|
2015-10-26 14:11:30 +01:00
|
|
|
|
row[1] UNIX_TIMESTAMP(EditTime)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
row[2] AnsType
|
|
|
|
|
row[3] Shuffle
|
|
|
|
|
row[4] Stem
|
|
|
|
|
row[5] Feedback
|
|
|
|
|
row[6] NumHits
|
|
|
|
|
row[7] NumHitsNotBlank
|
|
|
|
|
row[8] Score
|
|
|
|
|
*/
|
|
|
|
|
/* Start query */
|
|
|
|
|
// Reject questions with any tag hidden
|
|
|
|
|
// Select only questions with tags
|
2015-06-16 20:12:38 +02:00
|
|
|
|
// DISTINCTROW is necessary to not repeat questions
|
2015-06-15 12:30:09 +02:00
|
|
|
|
sprintf (Query,"SELECT DISTINCTROW tst_questions.QstCod,"
|
2015-10-26 14:11:30 +01:00
|
|
|
|
"UNIX_TIMESTAMP(tst_questions.EditTime),"
|
2015-06-15 12:30:09 +02:00
|
|
|
|
"tst_questions.AnsType,tst_questions.Shuffle,"
|
|
|
|
|
"tst_questions.Stem,tst_questions.Feedback,"
|
|
|
|
|
"tst_questions.NumHits,tst_questions.NumHitsNotBlank,"
|
|
|
|
|
"tst_questions.Score"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
" FROM tst_questions,tst_question_tags,tst_tags"
|
2015-06-15 12:30:09 +02:00
|
|
|
|
" WHERE tst_questions.CrsCod='%ld'"
|
|
|
|
|
" AND tst_questions.QstCod NOT IN"
|
|
|
|
|
" (SELECT tst_question_tags.QstCod"
|
|
|
|
|
" FROM tst_tags,tst_question_tags"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
" WHERE tst_tags.CrsCod='%ld' AND tst_tags.TagHidden='Y'"
|
|
|
|
|
" AND tst_tags.TagCod=tst_question_tags.TagCod)"
|
|
|
|
|
" AND tst_questions.QstCod=tst_question_tags.QstCod"
|
|
|
|
|
" AND tst_question_tags.TagCod=tst_tags.TagCod"
|
|
|
|
|
" AND tst_tags.CrsCod='%ld'",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
|
|
|
|
|
if (!Gbl.Test.AllTags) // User has not selected all the tags
|
|
|
|
|
{
|
|
|
|
|
/* Add selected tags */
|
|
|
|
|
LengthQuery = strlen (Query);
|
|
|
|
|
NumItemInList = 0;
|
|
|
|
|
Ptr = Gbl.Test.TagsList;
|
|
|
|
|
while (*Ptr)
|
|
|
|
|
{
|
|
|
|
|
Par_GetNextStrUntilSeparParamMult (&Ptr,TagText,Tst_MAX_BYTES_TAG);
|
|
|
|
|
LengthQuery = LengthQuery + 35 + strlen (TagText) + 1;
|
|
|
|
|
if (LengthQuery > MAX_LENGTH_QUERY_TEST - 128)
|
|
|
|
|
Lay_ShowErrorAndExit ("Query size exceed.");
|
|
|
|
|
strcat (Query,
|
|
|
|
|
NumItemInList ? " OR tst_tags.TagTxt='" :
|
|
|
|
|
" AND (tst_tags.TagTxt='");
|
|
|
|
|
strcat (Query,TagText);
|
|
|
|
|
strcat (Query,"'");
|
|
|
|
|
NumItemInList++;
|
|
|
|
|
}
|
|
|
|
|
strcat (Query,")");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add answer types selected */
|
|
|
|
|
if (!Gbl.Test.AllAnsTypes)
|
|
|
|
|
{
|
|
|
|
|
LengthQuery = strlen (Query);
|
|
|
|
|
NumItemInList = 0;
|
|
|
|
|
Ptr = Gbl.Test.ListAnsTypes;
|
|
|
|
|
while (*Ptr)
|
|
|
|
|
{
|
|
|
|
|
Par_GetNextStrUntilSeparParamMult (&Ptr,UnsignedStr,Tst_MAX_BYTES_TAG);
|
|
|
|
|
AnsType = Tst_ConvertFromUnsignedStrToAnsTyp (UnsignedStr);
|
|
|
|
|
LengthQuery = LengthQuery + 35 + strlen (Tst_StrAnswerTypesDB[AnsType]) + 1;
|
|
|
|
|
if (LengthQuery > MAX_LENGTH_QUERY_TEST - 128)
|
|
|
|
|
Lay_ShowErrorAndExit ("Query size exceed.");
|
|
|
|
|
strcat (Query,
|
|
|
|
|
NumItemInList ? " OR tst_questions.AnsType='" :
|
|
|
|
|
" AND (tst_questions.AnsType='");
|
|
|
|
|
strcat (Query,Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
strcat (Query,"'");
|
|
|
|
|
NumItemInList++;
|
|
|
|
|
}
|
|
|
|
|
strcat (Query,")");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* End query */
|
|
|
|
|
strcat (Query," ORDER BY RAND(NOW()) LIMIT ");
|
|
|
|
|
sprintf (StrNumQsts,"%u",Gbl.Test.NumQsts);
|
|
|
|
|
strcat (Query,StrNumQsts);
|
2015-06-15 12:30:09 +02:00
|
|
|
|
/*
|
|
|
|
|
if (Gbl.Usrs.Me.LoggedRole == Rol_SYS_ADM)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Lay_ShowAlert (Lay_INFO,Query);
|
2015-06-15 12:30:09 +02:00
|
|
|
|
*/
|
2014-12-01 23:55:08 +01:00
|
|
|
|
/* Make the query */
|
|
|
|
|
return DB_QuerySELECT (Query,mysql_res,"can not get questions");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********************** List a test question for edition ********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_ListOneQstToEdit (void)
|
|
|
|
|
{
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
|
|
|
|
|
/***** Query database *****/
|
|
|
|
|
if (Tst_GetOneQuestionByCod (Gbl.Test.QstCod,&mysql_res))
|
|
|
|
|
{
|
|
|
|
|
/***** Button to create a new question *****/
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<div class=\"CENTER_MIDDLE\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_PutFormToCreateNewTstQst (); // Put link (form) to create a new test question
|
|
|
|
|
fprintf (Gbl.F.Out,"</div>");
|
|
|
|
|
|
|
|
|
|
/***** Show the question ready to edit it *****/
|
|
|
|
|
Tst_ListOneOrMoreQuestionsToEdit (1,mysql_res);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
Lay_ShowErrorAndExit ("Can not get question.");
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********************** Get data of one test question ***********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// Return true on success, false on error
|
|
|
|
|
|
|
|
|
|
static bool Tst_GetOneQuestionByCod (long QstCod,MYSQL_RES **mysql_res)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Get data of a question from database *****/
|
|
|
|
|
/*
|
|
|
|
|
row[0] QstCod
|
2015-10-26 14:11:30 +01:00
|
|
|
|
row[1] UNIX_TIMESTAMP(EditTime)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
row[2] AnsType
|
|
|
|
|
row[3] Shuffle
|
|
|
|
|
row[4] Stem
|
|
|
|
|
row[5] Feedback
|
|
|
|
|
row[6] NumHits
|
|
|
|
|
row[7] NumHitsNotBlank
|
|
|
|
|
row[8] Score
|
|
|
|
|
*/
|
2015-10-26 14:11:30 +01:00
|
|
|
|
sprintf (Query,"SELECT QstCod,UNIX_TIMESTAMP(EditTime),"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"AnsType,Shuffle,Stem,Feedback,"
|
|
|
|
|
"NumHits,NumHitsNotBlank,Score"
|
|
|
|
|
" FROM tst_questions"
|
|
|
|
|
" WHERE QstCod='%ld'",
|
|
|
|
|
QstCod);
|
|
|
|
|
return (DB_QuerySELECT (Query,mysql_res,"can not get data of a question") == 1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/****************** List for edition one or more test questions **************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_ListOneOrMoreQuestionsToEdit (unsigned long NumRows,MYSQL_RES *mysql_res)
|
|
|
|
|
{
|
2015-04-12 18:01:06 +02:00
|
|
|
|
extern const char *Txt_Questions;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
extern const char *Txt_No_INDEX;
|
|
|
|
|
extern const char *Txt_Code;
|
|
|
|
|
extern const char *Txt_Date;
|
|
|
|
|
extern const char *Txt_Tags;
|
|
|
|
|
extern const char *Txt_Type;
|
|
|
|
|
extern const char *Txt_TST_STR_ORDER_FULL[Tst_NUM_TYPES_ORDER_QST];
|
|
|
|
|
extern const char *Txt_TST_STR_ORDER_SHORT[Tst_NUM_TYPES_ORDER_QST];
|
|
|
|
|
extern const char *Txt_TST_STR_ANSWER_TYPES[Tst_NUM_ANS_TYPES];
|
|
|
|
|
extern const char *Txt_Shuffle;
|
|
|
|
|
extern const char *Txt_Edit_question;
|
|
|
|
|
Tst_QuestionsOrder_t Order;
|
|
|
|
|
unsigned long NumRow;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
long QstCod;
|
2015-10-26 13:36:02 +01:00
|
|
|
|
unsigned UniqueId;
|
|
|
|
|
time_t TimeUTC;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
unsigned long NumHitsThisQst;
|
|
|
|
|
unsigned long NumHitsNotBlankThisQst;
|
|
|
|
|
double TotalScoreThisQst;
|
|
|
|
|
|
|
|
|
|
/***** Table start *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_StartRoundFrameTable (NULL,2,Txt_Questions);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Write the heading *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"<th colspan=\"2\"></th>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th class=\"CENTER_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</th>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th class=\"CENTER_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</th>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th class=\"CENTER_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</th>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th class=\"LEFT_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</th>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th class=\"CENTER_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</th>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th class=\"CENTER_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</th>",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_No_INDEX,
|
|
|
|
|
Txt_Code,
|
|
|
|
|
Txt_Date,
|
|
|
|
|
Txt_Tags,
|
|
|
|
|
Txt_Type,
|
|
|
|
|
Txt_Shuffle);
|
|
|
|
|
|
|
|
|
|
/* Stem and answers of question */
|
|
|
|
|
/* Number of times that the question has been answered */
|
|
|
|
|
/* Average score */
|
|
|
|
|
for (Order = (Tst_QuestionsOrder_t) 0;
|
|
|
|
|
Order < (Tst_QuestionsOrder_t) Tst_NUM_TYPES_ORDER_QST;
|
|
|
|
|
Order++)
|
|
|
|
|
{
|
2015-09-06 20:02:14 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<th class=\"LEFT_TOP\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (NumRows > 1)
|
|
|
|
|
{
|
|
|
|
|
Act_FormStart (ActLstTstQst);
|
|
|
|
|
Sta_WriteParamsDatesSeeAccesses ();
|
|
|
|
|
Tst_WriteParamEditQst ();
|
|
|
|
|
Par_PutHiddenParamChar ("OnlyThisQst",'N');
|
|
|
|
|
Par_PutHiddenParamUnsigned ("Order",(unsigned) Order);
|
|
|
|
|
Act_LinkFormSubmit (Txt_TST_STR_ORDER_FULL[Order],"TIT_TBL");
|
|
|
|
|
if (Order == Gbl.Test.SelectedOrderType)
|
|
|
|
|
fprintf (Gbl.F.Out,"<u>");
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"%s",Txt_TST_STR_ORDER_SHORT[Order]);
|
|
|
|
|
if (NumRows > 1)
|
|
|
|
|
{
|
|
|
|
|
if (Order == Gbl.Test.SelectedOrderType)
|
|
|
|
|
fprintf (Gbl.F.Out,"</u>");
|
2015-03-13 00:16:02 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"</a>");
|
|
|
|
|
Act_FormEnd ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</th>");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Write rows *****/
|
2015-10-26 13:36:02 +01:00
|
|
|
|
for (NumRow = 0, UniqueId = 1;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
NumRow < NumRows;
|
2015-10-26 13:36:02 +01:00
|
|
|
|
NumRow++, UniqueId++)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
{
|
|
|
|
|
Gbl.RowEvenOdd = NumRow % 2;
|
|
|
|
|
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
/* row[0] holds the code of the question */
|
|
|
|
|
if ((QstCod = Str_ConvertStrCodToLongCod (row[0])) < 0)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong code of question.");
|
|
|
|
|
|
|
|
|
|
/* Write icon to remove the question */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-03 17:14:30 +02:00
|
|
|
|
"<td class=\"BT%u\">",Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Act_FormStart (ActRemTstQst);
|
|
|
|
|
Sta_WriteParamsDatesSeeAccesses ();
|
|
|
|
|
Tst_WriteParamEditQst ();
|
|
|
|
|
Par_PutHiddenParamLong ("QstCod",QstCod);
|
|
|
|
|
Par_PutHiddenParamChar ("OnlyThisQst",
|
|
|
|
|
NumRows == 1 ? 'Y' :
|
|
|
|
|
'N'); // If there are only one row, don't list again after removing
|
2015-07-22 19:59:28 +02:00
|
|
|
|
Lay_PutIconRemove ();
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/* Write icon to edit the question */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"BT%u\">",Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Act_FormStart (ActEdiOneTstQst);
|
|
|
|
|
Par_PutHiddenParamLong ("QstCod",QstCod);
|
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"image\" src=\"%s/edit16x16.gif\""
|
2015-09-05 12:04:30 +02:00
|
|
|
|
" alt=\"%s\" title=\"%s\""
|
|
|
|
|
" class=\"ICON16x16\" />",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Prefs.IconsURL,
|
|
|
|
|
Txt_Edit_question,
|
|
|
|
|
Txt_Edit_question);
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/* Write number of question */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%lu "
|
|
|
|
|
"</td>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd,NumRow + 1);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/* Write question code */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%ld "
|
|
|
|
|
"</td>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd,QstCod);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
2015-10-26 13:36:02 +01:00
|
|
|
|
/* Write the date (row[1] has the UTC date-time) */
|
|
|
|
|
TimeUTC = Dat_GetUNIXTimeFromStr (row[1]);
|
|
|
|
|
fprintf (Gbl.F.Out,"<td id=\"tst_date_%u\""
|
|
|
|
|
" class=\"DAT_SMALL CENTER_TOP COLOR%u\">"
|
|
|
|
|
"<script type=\"text/javascript\">"
|
|
|
|
|
"writeLocalDateTimeFromUTC('tst_date_%u',%ld,'<br />');"
|
2015-10-26 14:11:30 +01:00
|
|
|
|
"</script>"
|
|
|
|
|
"</td>",
|
2015-10-26 13:36:02 +01:00
|
|
|
|
UniqueId,Gbl.RowEvenOdd,
|
2015-10-26 14:11:30 +01:00
|
|
|
|
UniqueId,(long) TimeUTC);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/* Write the question tags */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP COLOR%u\">",
|
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_GetAndWriteTagsQst (QstCod);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Write the question type (row[2]) */
|
|
|
|
|
Gbl.Test.AnswerType = Tst_ConvertFromStrAnsTypDBToAnsTyp (row[2]);
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s "
|
|
|
|
|
"</td>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd,
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_TST_STR_ANSWER_TYPES[Gbl.Test.AnswerType]);
|
|
|
|
|
|
|
|
|
|
/* Write if shuffle is enabled (row[3]) */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",
|
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Gbl.Test.AnswerType == Tst_ANS_UNIQUE_CHOICE ||
|
|
|
|
|
Gbl.Test.AnswerType == Tst_ANS_MULTIPLE_CHOICE)
|
|
|
|
|
{
|
|
|
|
|
Act_FormStart (ActShfTstQst);
|
|
|
|
|
Par_PutHiddenParamLong ("QstCod",QstCod);
|
|
|
|
|
Sta_WriteParamsDatesSeeAccesses ();
|
|
|
|
|
Tst_WriteParamEditQst ();
|
|
|
|
|
Par_PutHiddenParamChar ("OnlyThisQst",
|
|
|
|
|
NumRows == 1 ? 'Y' :
|
|
|
|
|
'N'); // If editing only one question, don't edit others
|
|
|
|
|
Par_PutHiddenParamUnsigned ("Order",(unsigned) Gbl.Test.SelectedOrderType);
|
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"checkbox\" name=\"Shuffle\" value=\"Y\"");
|
|
|
|
|
if (Str_ConvertToUpperLetter (row[3][0]) == 'Y')
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
2015-10-22 14:49:48 +02:00
|
|
|
|
fprintf (Gbl.F.Out," onclick=\"document.getElementById('%s').submit();\" />",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.FormId);
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Write the stem (row[4]), the feedback (row[5]) and the answers */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP COLOR%u\">",
|
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_WriteQstStem (row[4],"TEST_EDI");
|
|
|
|
|
Tst_WriteQstFeedback (row[5],"TEST_EDI_LIGHT");
|
|
|
|
|
Tst_WriteAnswersOfAQstEdit (QstCod);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Get number of hits (number of times that the question has been answered, including blank answers) (row[6]) */
|
|
|
|
|
if (sscanf (row[6],"%lu",&NumHitsThisQst) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong number of hits to a question.");
|
|
|
|
|
|
|
|
|
|
/* Get number of hits not blank (number of times that the question has been answered with a not blank answer) (row[7]) */
|
|
|
|
|
if (sscanf (row[7],"%lu",&NumHitsNotBlankThisQst) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong number of hits not blank to a question.");
|
|
|
|
|
|
|
|
|
|
/* Get the acumulated score of the question (row[8]) */
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"en_US.utf8"); // To get decimal point
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (sscanf (row[8],"%lf",&TotalScoreThisQst) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong score of a question.");
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"es_ES.utf8"); // Return to spanish system (TODO: this should be internationalized!!!!!!!)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/* Write number of times this question has been answered */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%lu"
|
|
|
|
|
"</td>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd,NumHitsThisQst);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/* Write average score */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",
|
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (NumHitsThisQst)
|
|
|
|
|
fprintf (Gbl.F.Out,"%.2f",TotalScoreThisQst /
|
|
|
|
|
(double) NumHitsThisQst);
|
|
|
|
|
else
|
|
|
|
|
fprintf (Gbl.F.Out,"N.A.");
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Write number of times this question has been answered (not blank) */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%lu"
|
|
|
|
|
"</td>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd,
|
2014-12-01 23:55:08 +01:00
|
|
|
|
NumHitsNotBlankThisQst);
|
|
|
|
|
|
|
|
|
|
/* Write average score (not blank) */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_TOP COLOR%u\">",
|
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (NumHitsNotBlankThisQst)
|
|
|
|
|
fprintf (Gbl.F.Out,"%.2f",TotalScoreThisQst /
|
|
|
|
|
(double) NumHitsNotBlankThisQst);
|
|
|
|
|
else
|
|
|
|
|
fprintf (Gbl.F.Out,"N.A.");
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Table end *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_EndRoundFrameTable ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********** Write hidden parameters for edition of test questions ***********/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_WriteParamEditQst (void)
|
|
|
|
|
{
|
|
|
|
|
Par_PutHiddenParamChar ("AllTags",
|
|
|
|
|
Gbl.Test.AllTags ? 'Y' :
|
|
|
|
|
'N');
|
|
|
|
|
Par_PutHiddenParamString ("ChkTag",
|
|
|
|
|
Gbl.Test.TagsList ? Gbl.Test.TagsList :
|
|
|
|
|
"");
|
|
|
|
|
Par_PutHiddenParamChar ("AllAnsTypes",
|
|
|
|
|
Gbl.Test.AllAnsTypes ? 'Y' :
|
|
|
|
|
'N');
|
|
|
|
|
Par_PutHiddenParamString ("AnswerType",Gbl.Test.ListAnsTypes);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*************** Get answers of a test question from database ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
unsigned Tst_GetAnswersQst (long QstCod,MYSQL_RES **mysql_res,bool Shuffle)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
unsigned long NumRows;
|
|
|
|
|
|
|
|
|
|
/***** Get answers of a question from database *****/
|
|
|
|
|
sprintf (Query,"SELECT AnsInd,Answer,Correct,Feedback"
|
|
|
|
|
" FROM tst_answers"
|
|
|
|
|
" WHERE QstCod='%ld' ORDER BY %s",
|
|
|
|
|
QstCod,
|
|
|
|
|
Shuffle ? "RAND(NOW())" :
|
|
|
|
|
"AnsInd");
|
|
|
|
|
if (!(NumRows = DB_QuerySELECT (Query,mysql_res,"can not get answers of a question")))
|
|
|
|
|
Lay_ShowErrorAndExit ("Error when getting answers of a question.");
|
|
|
|
|
|
|
|
|
|
return (unsigned) NumRows;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/**************** Get and write the answers of a test question ***************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteAnswersOfAQstEdit (long QstCod)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_TEST_Correct_answer;
|
|
|
|
|
unsigned NumOpt;
|
|
|
|
|
unsigned i;
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
char *Answer;
|
|
|
|
|
char *Feedback;
|
|
|
|
|
size_t LengthAnswer;
|
|
|
|
|
size_t LengthFeedback;
|
|
|
|
|
double FloatNum[2];
|
|
|
|
|
|
|
|
|
|
Gbl.Test.Answer.NumOptions = Tst_GetAnswersQst (QstCod,&mysql_res,false); // Result: AnsInd,Answer,Correct,Feedback
|
|
|
|
|
|
|
|
|
|
/***** Write the answers *****/
|
|
|
|
|
switch (Gbl.Test.AnswerType)
|
|
|
|
|
{
|
|
|
|
|
case Tst_ANS_INT:
|
|
|
|
|
Tst_CheckIfNumberOfAnswersIsOne ();
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
fprintf (Gbl.F.Out,"<span class=\"TEST_EDI\"><tt>(%ld)</tt></span>",
|
|
|
|
|
Tst_GetIntAnsFromStr (row[1]));
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_FLOAT:
|
|
|
|
|
if (Gbl.Test.Answer.NumOptions != 2)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong float range.");
|
|
|
|
|
|
|
|
|
|
for (i = 0;
|
|
|
|
|
i < 2;
|
|
|
|
|
i++)
|
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
FloatNum[i] = Tst_GetFloatAnsFromStr (row[1]);
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"<span class=\"TEST_EDI\"><tt>([%lg; %lg])</tt></span>",
|
|
|
|
|
FloatNum[0],FloatNum[1]);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_TRUE_FALSE:
|
|
|
|
|
Tst_CheckIfNumberOfAnswersIsOne ();
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
fprintf (Gbl.F.Out,"<span class=\"TEST_EDI\">"
|
|
|
|
|
"<tt>(");
|
|
|
|
|
Tst_WriteAnsTF (row[1][0]);
|
|
|
|
|
fprintf (Gbl.F.Out,")</tt>"
|
|
|
|
|
"</span>");
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_UNIQUE_CHOICE:
|
|
|
|
|
case Tst_ANS_MULTIPLE_CHOICE:
|
|
|
|
|
case Tst_ANS_TEXT:
|
2014-12-21 19:43:39 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"<table class=\"CELLS_PAD_2\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Gbl.Test.Answer.NumOptions;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
/* Convert the answer (row[1]), that is in HTML, to rigorous HTML */
|
|
|
|
|
LengthAnswer = strlen (row[1]) * Str_MAX_LENGTH_SPEC_CHAR_HTML;
|
|
|
|
|
if ((Answer = malloc (LengthAnswer+1)) == NULL)
|
|
|
|
|
Lay_ShowErrorAndExit ("Not enough memory to store answer.");
|
|
|
|
|
strncpy (Answer,row[1],LengthAnswer);
|
|
|
|
|
Answer[LengthAnswer] = '\0';
|
|
|
|
|
Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML,
|
|
|
|
|
Answer,LengthAnswer,false);
|
|
|
|
|
|
|
|
|
|
/* Convert the feedback (row[3]), that is in HTML, to rigorous HTML */
|
|
|
|
|
LengthFeedback = 0;
|
|
|
|
|
Feedback = NULL;
|
|
|
|
|
if (row[3])
|
|
|
|
|
if (row[3][0])
|
|
|
|
|
{
|
|
|
|
|
LengthFeedback = strlen (row[3]) * Str_MAX_LENGTH_SPEC_CHAR_HTML;
|
|
|
|
|
if ((Feedback = malloc (LengthFeedback+1)) == NULL)
|
|
|
|
|
Lay_ShowErrorAndExit ("Not enough memory to store feedback.");
|
|
|
|
|
strncpy (Feedback,row[3],LengthFeedback);
|
|
|
|
|
Feedback[LengthFeedback] = '\0';
|
|
|
|
|
Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML,
|
|
|
|
|
Feedback,LengthFeedback,false);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Put an icon that indicates whether the answer is correct or wrong */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-03 00:59:03 +02:00
|
|
|
|
"<td class=\"BT%u\">",Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Str_ConvertToUpperLetter (row[2][0]) == 'Y')
|
|
|
|
|
fprintf (Gbl.F.Out,"<img src=\"%s/ok_on16x16.gif\""
|
2015-07-22 18:59:44 +02:00
|
|
|
|
" alt=\"%s\" title=\"%s\""
|
|
|
|
|
" class=\"ICON16x16\" />",
|
|
|
|
|
Gbl.Prefs.IconsURL,
|
|
|
|
|
Txt_TEST_Correct_answer,
|
|
|
|
|
Txt_TEST_Correct_answer);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Write the number of option */
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL LEFT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%c) "
|
|
|
|
|
"</td>",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
'a' + (char) NumOpt);
|
|
|
|
|
|
|
|
|
|
/* Write the text of the answer */
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"TEST_EDI LEFT_TOP\">"
|
2015-04-11 13:05:44 +02:00
|
|
|
|
"%s"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</td>",
|
|
|
|
|
Answer);
|
|
|
|
|
|
|
|
|
|
/* Write the text of the feedback */
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"TEST_EDI_LIGHT LEFT_TOP\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (LengthFeedback)
|
2015-09-06 11:36:34 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"%s",Feedback);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/* Free memory allocated for the answer and the feedback */
|
|
|
|
|
free ((void *) Answer);
|
|
|
|
|
if (LengthFeedback)
|
|
|
|
|
free ((void *) Feedback);
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</table>");
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/**************** Write answers of a question when seeing an exam ************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteAnswersOfAQstSeeExam (unsigned NumQst,long QstCod,bool Shuffle)
|
|
|
|
|
{
|
|
|
|
|
/***** Write parameter with question code *****/
|
|
|
|
|
Tst_WriteParamQstCod (NumQst,QstCod);
|
|
|
|
|
|
|
|
|
|
/***** Write answer depending on type *****/
|
|
|
|
|
switch (Gbl.Test.AnswerType)
|
|
|
|
|
{
|
|
|
|
|
case Tst_ANS_INT:
|
|
|
|
|
Tst_WriteIntAnsSeeExam (NumQst);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_FLOAT:
|
|
|
|
|
Tst_WriteFloatAnsSeeExam (NumQst);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_TRUE_FALSE:
|
|
|
|
|
Tst_WriteFormAnsTF (NumQst);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_UNIQUE_CHOICE:
|
|
|
|
|
case Tst_ANS_MULTIPLE_CHOICE:
|
|
|
|
|
Tst_WriteChoiceAnsSeeExam (NumQst,QstCod,Shuffle);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_TEXT:
|
|
|
|
|
Tst_WriteTextAnsSeeExam (NumQst);
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************* Write answers of a question when assessing an exam ************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteAnswersOfAQstAssessExam (unsigned NumQst,long QstCod,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank)
|
|
|
|
|
{
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
|
|
|
|
|
/***** Get answers of a question from database *****/
|
|
|
|
|
Gbl.Test.Answer.NumOptions = Tst_GetAnswersQst (QstCod,&mysql_res,false); // Result: AnsInd,Answer,Correct
|
|
|
|
|
|
|
|
|
|
/***** Write answer depending on type *****/
|
|
|
|
|
switch (Gbl.Test.AnswerType)
|
|
|
|
|
{
|
|
|
|
|
case Tst_ANS_INT:
|
|
|
|
|
Tst_WriteIntAnsAssessExam (NumQst,mysql_res,ScoreThisQst,AnswerIsNotBlank);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_FLOAT:
|
|
|
|
|
Tst_WriteFloatAnsAssessExam (NumQst,mysql_res,ScoreThisQst,AnswerIsNotBlank);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_TRUE_FALSE:
|
|
|
|
|
Tst_WriteTFAnsAssessExam (NumQst,mysql_res,ScoreThisQst,AnswerIsNotBlank);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_UNIQUE_CHOICE:
|
|
|
|
|
case Tst_ANS_MULTIPLE_CHOICE:
|
|
|
|
|
Tst_WriteChoiceAnsAssessExam (NumQst,mysql_res,ScoreThisQst,AnswerIsNotBlank);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_TEXT:
|
|
|
|
|
Tst_WriteTextAnsAssessExam (NumQst,mysql_res,ScoreThisQst,AnswerIsNotBlank);
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************** Write false / true answer when seeing an exam ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteFormAnsTF (unsigned NumQst)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_TF_QST[2];
|
|
|
|
|
|
|
|
|
|
/***** Write selector for the answer *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<select name=\"Ans%06u\">"
|
|
|
|
|
"<option value=\"\" selected=\"selected\"> </option>"
|
|
|
|
|
"<option value=\"T\">%s</option>"
|
|
|
|
|
"<option value=\"F\">%s</option>"
|
|
|
|
|
"</select>",
|
|
|
|
|
NumQst,
|
|
|
|
|
Txt_TF_QST[0],
|
|
|
|
|
Txt_TF_QST[1]);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************** Write false / true answer when seeing an exam ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_WriteAnsTF (char AnsTF)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_TF_QST[2];
|
|
|
|
|
|
|
|
|
|
switch (AnsTF)
|
|
|
|
|
{
|
|
|
|
|
case 'T': // true
|
|
|
|
|
fprintf (Gbl.F.Out,"%s",Txt_TF_QST[0]);
|
|
|
|
|
break;
|
|
|
|
|
case 'F': // false
|
|
|
|
|
fprintf (Gbl.F.Out,"%s",Txt_TF_QST[1]);
|
|
|
|
|
break;
|
|
|
|
|
default: // no answer
|
|
|
|
|
fprintf (Gbl.F.Out," ");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************* Write false / true answer when assessing an exam **************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteTFAnsAssessExam (unsigned NumQst,MYSQL_RES *mysql_res,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank)
|
|
|
|
|
{
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
char AnsTF;
|
|
|
|
|
|
|
|
|
|
/***** Check if number of rows is correct *****/
|
|
|
|
|
Tst_CheckIfNumberOfAnswersIsOne ();
|
|
|
|
|
|
|
|
|
|
/***** Get answer true or false *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
/***** Compute the mark for this question *****/
|
|
|
|
|
AnsTF = Gbl.Test.StrAnswersOneQst[NumQst][0];
|
|
|
|
|
if (AnsTF == '\0') // User has omitted the answer (the answer is blank)
|
|
|
|
|
{
|
|
|
|
|
*AnswerIsNotBlank = false;
|
|
|
|
|
*ScoreThisQst = 0.0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
*AnswerIsNotBlank = true;
|
|
|
|
|
if (AnsTF == row[1][0]) // Correct
|
|
|
|
|
*ScoreThisQst = 1.0;
|
|
|
|
|
else // Wrong
|
|
|
|
|
*ScoreThisQst = -1.0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Header with the title of each column *****/
|
2014-12-21 19:43:39 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"<table>"
|
|
|
|
|
"<tr>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_WriteHeadUserCorrect ();
|
|
|
|
|
fprintf (Gbl.F.Out,"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Write the user answer *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"%s CENTER_MIDDLE\">",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
(Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK) ?
|
|
|
|
|
(AnsTF == row[1][0] ? "ANS_OK" :
|
|
|
|
|
"ANS_BAD") :
|
|
|
|
|
"ANS");
|
|
|
|
|
Tst_WriteAnsTF (AnsTF);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/***** Write the correct answer *****/
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"ANS CENTER_MIDDLE\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
Tst_WriteAnsTF (row[1][0]);
|
|
|
|
|
else
|
|
|
|
|
fprintf (Gbl.F.Out,"?");
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Write the mark *****/
|
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_RESULT ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
{
|
|
|
|
|
Tst_WriteScoreStart (2);
|
|
|
|
|
if (AnsTF == '\0') // If user has omitted the answer
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS\">%.2lf",0.0);
|
|
|
|
|
else if (AnsTF == row[1][0]) // If correct
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS_OK\">%.2lf",1.0);
|
|
|
|
|
else // If wrong
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS_BAD\">%.2lf",-1.0);
|
|
|
|
|
Tst_WriteScoreEnd ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"</table>");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******** Write single or multiple choice answer when seeing an exam *********/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteChoiceAnsSeeExam (unsigned NumQst,long QstCod,bool Shuffle)
|
|
|
|
|
{
|
|
|
|
|
unsigned NumOpt;
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned Index;
|
|
|
|
|
bool ErrorInIndex = false;
|
|
|
|
|
char ParamName[3+6+1];
|
|
|
|
|
|
|
|
|
|
/***** Start of table *****/
|
2014-12-21 19:43:39 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"<table>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Get answers of a question from database *****/
|
|
|
|
|
Gbl.Test.Answer.NumOptions = Tst_GetAnswersQst (QstCod,&mysql_res,Shuffle); // Result: AnsInd,Answer,Correct
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Gbl.Test.Answer.NumOptions;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
{
|
|
|
|
|
/***** Get next answer *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
/***** Allocate memory for text in this choice answer *****/
|
|
|
|
|
if (!Tst_AllocateTextChoiceAnswer (NumOpt))
|
|
|
|
|
Lay_ShowErrorAndExit (Gbl.Message);
|
|
|
|
|
|
|
|
|
|
/***** Assign index (row[0]). Index is 0,1,2,3... if no shuffle or 1,3,0,2... (example) if shuffle *****/
|
|
|
|
|
// Index is got from databse query
|
|
|
|
|
if (sscanf (row[0],"%u",&Index) == 1)
|
|
|
|
|
{
|
|
|
|
|
if (Index >= Tst_MAX_OPTIONS_PER_QUESTION)
|
|
|
|
|
ErrorInIndex = true;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
ErrorInIndex = true;
|
|
|
|
|
if (ErrorInIndex)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong index of answer when showing an exam.");
|
|
|
|
|
|
|
|
|
|
/***** Copy text (row[1]) and convert it, that is in HTML, to rigorous HTML ******/
|
|
|
|
|
strncpy (Gbl.Test.Answer.Options[NumOpt].Text,row[1],Tst_MAX_BYTES_ANSWER_OR_FEEDBACK);
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Text[Tst_MAX_BYTES_ANSWER_OR_FEEDBACK] = '\0';
|
|
|
|
|
Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML,
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Text,Tst_MAX_BYTES_ANSWER_OR_FEEDBACK,false);
|
|
|
|
|
|
|
|
|
|
/***** Write selectors and letter of this option *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"LEFT_TOP\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
sprintf (ParamName,"Ind%06u",NumQst);
|
|
|
|
|
Par_PutHiddenParamUnsigned (ParamName,Index);
|
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"");
|
|
|
|
|
if (Gbl.Test.AnswerType == Tst_ANS_UNIQUE_CHOICE)
|
|
|
|
|
fprintf (Gbl.F.Out,"radio\" onclick=\"selectUnselectRadio(this,this.form.Ans%06u,%u)\"",
|
|
|
|
|
NumQst,Gbl.Test.Answer.NumOptions);
|
|
|
|
|
else // Gbl.Test.AnswerType == Tst_ANS_MULTIPLE_CHOICE
|
|
|
|
|
fprintf (Gbl.F.Out,"checkbox\"");
|
|
|
|
|
fprintf (Gbl.F.Out," name=\"Ans%06u\" value=\"%u\" /> </td>",NumQst,Index);
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"TEST LEFT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%c) "
|
|
|
|
|
"</td>",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
'a' + (char) NumOpt);
|
|
|
|
|
|
|
|
|
|
/***** Write the option text *****/
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"TEST_EXA LEFT_TOP\">"
|
2015-04-11 13:05:44 +02:00
|
|
|
|
"%s"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Text);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** End of table *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"</table>");
|
|
|
|
|
|
|
|
|
|
/***** Free answers *****/
|
|
|
|
|
Tst_FreeTextChoiceAnswers ();
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******* Write single or multiple choice answer when assessing an exam *******/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteChoiceAnsAssessExam (unsigned NumQst,MYSQL_RES *mysql_res,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_TEST_User_answer;
|
|
|
|
|
extern const char *Txt_TEST_Correct_answer;
|
|
|
|
|
unsigned NumOpt;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
char StrOneIndex[10+1];
|
|
|
|
|
const char *Ptr;
|
|
|
|
|
unsigned Indexes[Tst_MAX_OPTIONS_PER_QUESTION]; // Indexes of all answers of this question
|
|
|
|
|
int AnsUsr;
|
|
|
|
|
bool AnswersUsr[Tst_MAX_OPTIONS_PER_QUESTION];
|
|
|
|
|
unsigned NumOptTotInQst = 0;
|
|
|
|
|
unsigned NumOptCorrInQst = 0;
|
|
|
|
|
unsigned NumAnsGood = 0;
|
|
|
|
|
unsigned NumAnsBad = 0;
|
|
|
|
|
|
|
|
|
|
/***** Get text and correctness of answers for this question
|
|
|
|
|
from database (one row per answer) *****/
|
|
|
|
|
/*
|
|
|
|
|
row[0] AnsInd
|
|
|
|
|
row[1] Answer
|
|
|
|
|
row[2] Correct
|
|
|
|
|
row[3] Feedback
|
|
|
|
|
*/
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Gbl.Test.Answer.NumOptions;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
{
|
|
|
|
|
/***** Get next answer *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
/***** Allocate memory for text in this choice option *****/
|
|
|
|
|
if (!Tst_AllocateTextChoiceAnswer (NumOpt))
|
|
|
|
|
Lay_ShowErrorAndExit (Gbl.Message);
|
|
|
|
|
|
|
|
|
|
/***** Copy answer text (row[1]) and convert it,
|
|
|
|
|
that is in HTML, to rigorous HTML ******/
|
|
|
|
|
strncpy (Gbl.Test.Answer.Options[NumOpt].Text,row[1],Tst_MAX_BYTES_ANSWER_OR_FEEDBACK);
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Text[Tst_MAX_BYTES_ANSWER_OR_FEEDBACK] = '\0';
|
|
|
|
|
Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML,
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Text,Tst_MAX_BYTES_ANSWER_OR_FEEDBACK,false);
|
|
|
|
|
|
|
|
|
|
/***** Copy answer feedback (row[3]) and convert it,
|
|
|
|
|
that is in HTML, to rigorous HTML ******/
|
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
if (row[3])
|
|
|
|
|
if (row[3][0])
|
|
|
|
|
{
|
|
|
|
|
strncpy (Gbl.Test.Answer.Options[NumOpt].Feedback,row[3],Tst_MAX_BYTES_ANSWER_OR_FEEDBACK);
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Feedback[Tst_MAX_BYTES_ANSWER_OR_FEEDBACK] = '\0';
|
|
|
|
|
Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML,
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Feedback,Tst_MAX_BYTES_ANSWER_OR_FEEDBACK,false);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Assign correctness (row[2]) of this answer (this option) *****/
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Correct = (Str_ConvertToUpperLetter (row[2][0]) == 'Y');
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Get indexes for this question from string *****/
|
|
|
|
|
for (NumOpt = 0, Ptr = Gbl.Test.StrIndexesOneQst[NumQst];
|
|
|
|
|
NumOpt < Gbl.Test.Answer.NumOptions;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
{
|
|
|
|
|
Par_GetNextStrUntilSeparParamMult (&Ptr,StrOneIndex,10);
|
|
|
|
|
if (sscanf (StrOneIndex,"%u",&(Indexes[NumOpt])) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong index of answer when assessing an exam.");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Get the user's answers for this question from string *****/
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Tst_MAX_OPTIONS_PER_QUESTION;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
AnswersUsr[NumOpt] = false;
|
|
|
|
|
for (NumOpt = 0, Ptr = Gbl.Test.StrAnswersOneQst[NumQst];
|
|
|
|
|
NumOpt < Gbl.Test.Answer.NumOptions;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
if (*Ptr)
|
|
|
|
|
{
|
|
|
|
|
Par_GetNextStrUntilSeparParamMult (&Ptr,StrOneIndex,10);
|
|
|
|
|
if (sscanf (StrOneIndex,"%d",&AnsUsr) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Bad user's answer.");
|
|
|
|
|
if (AnsUsr < 0 || AnsUsr >= Tst_MAX_OPTIONS_PER_QUESTION)
|
|
|
|
|
Lay_ShowErrorAndExit ("Bad user's answer.");
|
|
|
|
|
AnswersUsr[AnsUsr] = true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Start of table *****/
|
2014-12-21 19:43:39 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"<table>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<tr>");
|
|
|
|
|
Tst_WriteHeadUserCorrect ();
|
2014-12-26 14:45:14 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"<td></td>"
|
|
|
|
|
"<td></td>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Write answers (one row per answer) *****/
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Gbl.Test.Answer.NumOptions;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
{
|
|
|
|
|
/* Draw icon depending on user's answer */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"CENTER_TOP\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnswersUsr[Indexes[NumOpt]] == true) // This answer has been selected by the user
|
|
|
|
|
fprintf (Gbl.F.Out,"<img src=\"%s/%s16x16.gif\""
|
2015-07-22 18:59:44 +02:00
|
|
|
|
" alt=\"%s\" title=\"%s\""
|
|
|
|
|
" class=\"ICON16x16\" />",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Prefs.IconsURL,
|
|
|
|
|
(Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK) ?
|
|
|
|
|
(Gbl.Test.Answer.Options[Indexes[NumOpt]].Correct ? "ok_green" :
|
|
|
|
|
"ok_red") :
|
|
|
|
|
"ok_on",
|
2015-07-22 18:59:44 +02:00
|
|
|
|
Txt_TEST_User_answer,
|
|
|
|
|
Txt_TEST_User_answer);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Draw icon that indicates whether the answer is correct */
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"ANS CENTER_TOP\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
{
|
|
|
|
|
if (Gbl.Test.Answer.Options[Indexes[NumOpt]].Correct)
|
|
|
|
|
fprintf (Gbl.F.Out,"<img src=\"%s/ok_on16x16.gif\""
|
2015-07-22 18:59:44 +02:00
|
|
|
|
" alt=\"%s\" title=\"%s\""
|
|
|
|
|
" class=\"ICON16x16\" />",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Prefs.IconsURL,
|
2015-07-22 18:59:44 +02:00
|
|
|
|
Txt_TEST_Correct_answer,
|
|
|
|
|
Txt_TEST_Correct_answer);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
fprintf (Gbl.F.Out,"?");
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Answer letter (a, b, c,...) */
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"TEST LEFT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%c) "
|
|
|
|
|
"</td>",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
'a' + (char) NumOpt);
|
|
|
|
|
|
|
|
|
|
/* Answer text and feedback */
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">"
|
2015-09-06 11:36:34 +02:00
|
|
|
|
"<div class=\"TEST_EXA\">"
|
2015-04-11 13:05:44 +02:00
|
|
|
|
"%s"
|
|
|
|
|
"</div>",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Test.Answer.Options[Indexes[NumOpt]].Text);
|
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
if (Gbl.Test.Answer.Options[Indexes[NumOpt]].Feedback)
|
|
|
|
|
if (Gbl.Test.Answer.Options[Indexes[NumOpt]].Feedback[0])
|
2015-09-06 11:36:34 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<div class=\"TEST_EXA_LIGHT\">"
|
2015-04-11 13:05:44 +02:00
|
|
|
|
"%s"
|
|
|
|
|
"</div>",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Test.Answer.Options[Indexes[NumOpt]].Feedback);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
NumOptTotInQst++;
|
|
|
|
|
if (AnswersUsr[Indexes[NumOpt]] == true) // This answer has been selected by the user
|
|
|
|
|
{
|
|
|
|
|
if (Gbl.Test.Answer.Options[Indexes[NumOpt]].Correct)
|
|
|
|
|
NumAnsGood++;
|
|
|
|
|
else
|
|
|
|
|
NumAnsBad++;
|
|
|
|
|
}
|
|
|
|
|
if (Gbl.Test.Answer.Options[Indexes[NumOpt]].Correct)
|
|
|
|
|
NumOptCorrInQst++;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** The answer is blank? *****/
|
|
|
|
|
*AnswerIsNotBlank = NumAnsGood != 0 || NumAnsBad != 0;
|
|
|
|
|
|
|
|
|
|
/***** Compute and write the total score of this question *****/
|
|
|
|
|
if (*AnswerIsNotBlank)
|
|
|
|
|
{
|
|
|
|
|
/* Compute the score */
|
|
|
|
|
if (Gbl.Test.AnswerType == Tst_ANS_UNIQUE_CHOICE)
|
|
|
|
|
{
|
|
|
|
|
if (NumOptTotInQst >= 2) // It should be 2 options at least
|
|
|
|
|
*ScoreThisQst = (double) NumAnsGood -
|
|
|
|
|
(double) NumAnsBad / (double) (NumOptTotInQst - 1);
|
|
|
|
|
else // 0 or 1 options (impossible)
|
|
|
|
|
*ScoreThisQst = (double) NumAnsGood;
|
|
|
|
|
}
|
|
|
|
|
else // Gbl.Test.AnswerType == Tst_ANS_MULTIPLE_CHOICE
|
|
|
|
|
{
|
|
|
|
|
if (NumOptCorrInQst) // There are correct options in the question
|
|
|
|
|
{
|
|
|
|
|
if (NumOptCorrInQst < NumOptTotInQst) // If there are correct options and wrong options (typical case)
|
|
|
|
|
*ScoreThisQst = (double) NumAnsGood / (double) NumOptCorrInQst -
|
|
|
|
|
(double) NumAnsBad / (double) (NumOptTotInQst-NumOptCorrInQst);
|
|
|
|
|
else // Si todas the opciones son correctas (caso raro)
|
|
|
|
|
*ScoreThisQst = (double) NumAnsGood / (double) NumOptCorrInQst;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (NumOptTotInQst) // There are options but none is correct (extrange case)
|
|
|
|
|
*ScoreThisQst = - (double) NumAnsBad / (double) NumOptTotInQst;
|
|
|
|
|
else // There are no options (impossible!)
|
|
|
|
|
*ScoreThisQst = 0.0;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else // Answer is blank
|
|
|
|
|
*ScoreThisQst = 0.0;
|
|
|
|
|
|
|
|
|
|
/* Write the score */
|
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_RESULT ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
{
|
|
|
|
|
Tst_WriteScoreStart (4);
|
|
|
|
|
if (*ScoreThisQst == 0.0)
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS");
|
|
|
|
|
else if (*ScoreThisQst > 0.0)
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS_OK");
|
|
|
|
|
else
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS_BAD");
|
|
|
|
|
fprintf (Gbl.F.Out,"\">%.2lf",*ScoreThisQst);
|
|
|
|
|
Tst_WriteScoreEnd ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** End of table *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"</table>");
|
|
|
|
|
|
|
|
|
|
/***** Free answers *****/
|
|
|
|
|
Tst_FreeTextChoiceAnswers ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************** Write text answer when seeing an exam ******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteTextAnsSeeExam (unsigned NumQst)
|
|
|
|
|
{
|
|
|
|
|
/***** Write input field for the answer *****/
|
2015-10-23 01:31:08 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"text\" name=\"Ans%06u\""
|
|
|
|
|
" size=\"40\" maxlength=\"%u\" value=\"\" />",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
NumQst,Tst_MAX_SIZE_ANSWERS_ONE_QST);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/***************** Write text answer when assessing an exam ******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteTextAnsAssessExam (unsigned NumQst,MYSQL_RES *mysql_res,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank)
|
|
|
|
|
{
|
|
|
|
|
unsigned NumOpt;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
char TextAnsUsr[Tst_MAX_SIZE_ANSWERS_ONE_QST],TextAnsOK[Tst_MAX_SIZE_ANSWERS_ONE_QST];
|
|
|
|
|
bool Correct = false;
|
|
|
|
|
|
|
|
|
|
/***** Get text and correctness of answers for this question from database (one row per answer) *****/
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Gbl.Test.Answer.NumOptions;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
{
|
|
|
|
|
/***** Get next answer *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
/***** Allocate memory for text in this choice answer *****/
|
|
|
|
|
if (!Tst_AllocateTextChoiceAnswer (NumOpt))
|
|
|
|
|
Lay_ShowErrorAndExit (Gbl.Message);
|
|
|
|
|
|
|
|
|
|
/***** Copy answer text (row[1]) and convert it, that is in HTML, to rigorous HTML ******/
|
|
|
|
|
strncpy (Gbl.Test.Answer.Options[NumOpt].Text,row[1],Tst_MAX_BYTES_ANSWER_OR_FEEDBACK);
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Text[Tst_MAX_BYTES_ANSWER_OR_FEEDBACK] = '\0';
|
|
|
|
|
Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML,Gbl.Test.Answer.Options[NumOpt].Text,Tst_MAX_BYTES_ANSWER_OR_FEEDBACK,false);
|
|
|
|
|
|
|
|
|
|
/***** Copy answer feedback (row[3]) and convert it, that is in HTML, to rigorous HTML ******/
|
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
if (row[3])
|
|
|
|
|
if (row[3][0])
|
|
|
|
|
{
|
|
|
|
|
strncpy (Gbl.Test.Answer.Options[NumOpt].Feedback,row[3],Tst_MAX_BYTES_ANSWER_OR_FEEDBACK);
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Feedback[Tst_MAX_BYTES_ANSWER_OR_FEEDBACK] = '\0';
|
|
|
|
|
Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML,
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Feedback,Tst_MAX_BYTES_ANSWER_OR_FEEDBACK,false);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Assign correctness (row[2]) of this answer (this option) *****/
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Correct = (Str_ConvertToUpperLetter (row[2][0]) == 'Y');
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Header with the title of each column *****/
|
2014-12-21 19:43:39 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"<table>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<tr>");
|
|
|
|
|
Tst_WriteHeadUserCorrect ();
|
|
|
|
|
fprintf (Gbl.F.Out,"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Write the user answer *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"");
|
2014-12-26 14:45:14 +01:00
|
|
|
|
if (Gbl.Test.StrAnswersOneQst[NumQst][0]) // If user has answered the question
|
2014-12-01 23:55:08 +01:00
|
|
|
|
{
|
|
|
|
|
/* Filter the user answer */
|
|
|
|
|
strcpy (TextAnsUsr,Gbl.Test.StrAnswersOneQst[NumQst]);
|
|
|
|
|
Str_ReplaceSeveralSpacesForOne (TextAnsUsr); // Join several spaces into one in answer
|
|
|
|
|
Str_ConvertToComparable (TextAnsUsr);
|
|
|
|
|
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Gbl.Test.Answer.NumOptions;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
{
|
|
|
|
|
/* Filter this correct answer */
|
|
|
|
|
strcpy (TextAnsOK,Gbl.Test.Answer.Options[NumOpt].Text);
|
|
|
|
|
Str_ConvertToComparable (TextAnsOK);
|
|
|
|
|
|
|
|
|
|
/* Check is user answer is correct */
|
|
|
|
|
if (!strcoll (TextAnsUsr,TextAnsOK))
|
|
|
|
|
{
|
|
|
|
|
Correct = true;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"%s CENTER_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
" %s ",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
(Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK) ?
|
|
|
|
|
(Correct ? "ANS_OK" :
|
|
|
|
|
"ANS_BAD") :
|
|
|
|
|
"ANS",
|
|
|
|
|
Gbl.Test.StrAnswersOneQst[NumQst]);
|
|
|
|
|
}
|
2014-12-26 14:45:14 +01:00
|
|
|
|
else // If user has omitted the answer
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"ANS CENTER_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
" ");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/***** Write the correct answers *****/
|
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
{
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"CENTER_TOP\">"
|
2014-12-21 19:43:39 +01:00
|
|
|
|
"<table>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Gbl.Test.Answer.NumOptions;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
{
|
|
|
|
|
/* Answer letter (a, b, c,...) */
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"TEST LEFT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%c) "
|
|
|
|
|
"</td>",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
'a' + (char) NumOpt);
|
|
|
|
|
|
|
|
|
|
/* Answer text and feedback */
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"LEFT_TOP\">"
|
2015-09-06 11:36:34 +02:00
|
|
|
|
"<div class=\"ANS\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s"
|
2015-04-11 13:05:44 +02:00
|
|
|
|
"</div>",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Text);
|
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Feedback)
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Feedback[0])
|
2015-09-06 11:36:34 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<div class=\"TEST_EXA_LIGHT\">"
|
2015-04-11 13:05:44 +02:00
|
|
|
|
"%s"
|
|
|
|
|
"</div>",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Feedback);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</table>");
|
|
|
|
|
}
|
|
|
|
|
else
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"ANS CENTER_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"?");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Compute the mark *****/
|
|
|
|
|
if (!Gbl.Test.StrAnswersOneQst[NumQst][0]) // If user has omitted the answer
|
|
|
|
|
{
|
|
|
|
|
*AnswerIsNotBlank = false;
|
|
|
|
|
*ScoreThisQst = 0.0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
*AnswerIsNotBlank = true;
|
|
|
|
|
if (Correct) // If correct
|
|
|
|
|
*ScoreThisQst = 1.0;
|
|
|
|
|
else // If wrong
|
|
|
|
|
*ScoreThisQst = 0.0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Write the mark *****/
|
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_RESULT ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
{
|
|
|
|
|
Tst_WriteScoreStart (4);
|
|
|
|
|
if (!Gbl.Test.StrAnswersOneQst[NumQst][0]) // If user has omitted the answer
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS\">%.2lf",0.0);
|
|
|
|
|
else if (Correct) // If correct
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS_OK\">%.2lf",1.0);
|
|
|
|
|
else // If wrong
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS_BAD\">%.2lf",0.0);
|
|
|
|
|
Tst_WriteScoreEnd ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"</table>");
|
|
|
|
|
|
|
|
|
|
/***** Free answers *****/
|
|
|
|
|
Tst_FreeTextChoiceAnswers ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/****************** Write integer answer when seeing an exam *****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteIntAnsSeeExam (unsigned NumQst)
|
|
|
|
|
{
|
|
|
|
|
/***** Write input field for the answer *****/
|
2015-10-23 01:31:08 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"text\" name=\"Ans%06u\""
|
|
|
|
|
" size=\"11\" maxlength=\"11\" value=\"\" />",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
NumQst);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/**************** Write integer answer when assessing an exam ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteIntAnsAssessExam (unsigned NumQst,MYSQL_RES *mysql_res,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank)
|
|
|
|
|
{
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
long IntAnswerUsr,IntAnswerCorr;
|
|
|
|
|
|
|
|
|
|
/***** Check if number of rows is correct *****/
|
|
|
|
|
Tst_CheckIfNumberOfAnswersIsOne ();
|
|
|
|
|
|
|
|
|
|
/***** Get the numerical value of the correct answer *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
if (sscanf (row[1],"%ld",&IntAnswerCorr) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong integer answer.");
|
|
|
|
|
|
|
|
|
|
/***** Header with the title of each column *****/
|
2014-12-21 19:43:39 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"<table>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<tr>");
|
|
|
|
|
Tst_WriteHeadUserCorrect ();
|
|
|
|
|
fprintf (Gbl.F.Out,"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Write the user answer *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Gbl.Test.StrAnswersOneQst[NumQst][0]) // If user has answered the question
|
|
|
|
|
{
|
|
|
|
|
if (sscanf (Gbl.Test.StrAnswersOneQst[NumQst],"%ld",&IntAnswerUsr) == 1)
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"%s CENTER_MIDDLE\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
" %ld ",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
(Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK) ?
|
|
|
|
|
(IntAnswerUsr == IntAnswerCorr ? "ANS_OK" :
|
|
|
|
|
"ANS_BAD") :
|
|
|
|
|
"ANS",
|
|
|
|
|
IntAnswerUsr);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
Gbl.Test.StrAnswersOneQst[NumQst][0] = '\0';
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"ANS CENTER_MIDDLE\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"?");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else // If user has omitted the answer
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"ANS CENTER_MIDDLE\"> ");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/***** Write the correct answer *****/
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"ANS CENTER_MIDDLE\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
fprintf (Gbl.F.Out," %ld ",IntAnswerCorr);
|
|
|
|
|
else
|
|
|
|
|
fprintf (Gbl.F.Out,"?");
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Compute the score *****/
|
|
|
|
|
if (!Gbl.Test.StrAnswersOneQst[NumQst][0]) // If user has omitted the answer
|
|
|
|
|
{
|
|
|
|
|
*AnswerIsNotBlank = false;
|
|
|
|
|
*ScoreThisQst = 0.0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
*AnswerIsNotBlank = true;
|
|
|
|
|
if (IntAnswerUsr == IntAnswerCorr) // If correct
|
|
|
|
|
*ScoreThisQst = 1.0;
|
|
|
|
|
else // If wrong
|
|
|
|
|
*ScoreThisQst = 0.0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Write the score *****/
|
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_RESULT ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
{
|
|
|
|
|
Tst_WriteScoreStart (2);
|
|
|
|
|
if (!Gbl.Test.StrAnswersOneQst[NumQst][0]) // If user has omitted the answer
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS\">%.2lf",0.0);
|
|
|
|
|
else if (IntAnswerUsr == IntAnswerCorr) // If correct
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS_OK\">%.2lf",1.0);
|
|
|
|
|
else // If wrong
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS_BAD\">%.2lf",0.0);
|
|
|
|
|
Tst_WriteScoreEnd ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"</table>");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/****************** Write float answer when seeing an exam *******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteFloatAnsSeeExam (unsigned NumQst)
|
|
|
|
|
{
|
|
|
|
|
/***** Write input field for the answer *****/
|
2015-10-23 01:31:08 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"text\" name=\"Ans%06u\""
|
|
|
|
|
" size=\"11\" maxlength=\"%u\" value=\"\" />",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
NumQst,Tst_MAX_BYTES_FLOAT_ANSWER);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/***************** Write float answer when assessing an exam *****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteFloatAnsAssessExam (unsigned NumQst,MYSQL_RES *mysql_res,
|
|
|
|
|
double *ScoreThisQst,bool *AnswerIsNotBlank)
|
|
|
|
|
{
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned i;
|
|
|
|
|
double FloatAnsUsr = 0.0,Tmp;
|
|
|
|
|
double FloatAnsCorr[2];
|
|
|
|
|
|
|
|
|
|
/***** Check if number of rows is correct *****/
|
|
|
|
|
if (Gbl.Test.Answer.NumOptions != 2)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong float range.");
|
|
|
|
|
|
|
|
|
|
/***** Get the numerical value of the minimum and maximum correct answers *****/
|
|
|
|
|
for (i = 0;
|
|
|
|
|
i < 2;
|
|
|
|
|
i++)
|
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
FloatAnsCorr[i] = Tst_GetFloatAnsFromStr (row[1]);
|
|
|
|
|
}
|
|
|
|
|
if (FloatAnsCorr[0] > FloatAnsCorr[1]) // The maximum and the minimum are swapped
|
|
|
|
|
{
|
|
|
|
|
/* Swap maximum and minimum */
|
|
|
|
|
Tmp = FloatAnsCorr[0];
|
|
|
|
|
FloatAnsCorr[0] = FloatAnsCorr[1];
|
|
|
|
|
FloatAnsCorr[1] = Tmp;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Header with the title of each column *****/
|
2014-12-21 19:43:39 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"<table>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<tr>");
|
|
|
|
|
Tst_WriteHeadUserCorrect ();
|
|
|
|
|
fprintf (Gbl.F.Out,"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Write the user answer *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Gbl.Test.StrAnswersOneQst[NumQst][0]) // If user has answered the question
|
|
|
|
|
{
|
|
|
|
|
FloatAnsUsr = Tst_GetFloatAnsFromStr (Gbl.Test.StrAnswersOneQst[NumQst]);
|
|
|
|
|
if (Gbl.Test.StrAnswersOneQst[NumQst][0]) // It's a correct floating point number
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"%s CENTER_MIDDLE\"> %lg ",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
(Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK) ?
|
|
|
|
|
((FloatAnsUsr >= FloatAnsCorr[0] &&
|
|
|
|
|
FloatAnsUsr <= FloatAnsCorr[1]) ? "ANS_OK" :
|
|
|
|
|
"ANS_BAD") :
|
|
|
|
|
"ANS",
|
|
|
|
|
FloatAnsUsr);
|
|
|
|
|
else // Not a floating point number
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"ANS CENTER_MIDDLE\">?");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
else // If user has omitted the answer
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"ANS CENTER_MIDDLE\"> ");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/***** Write the correct answer *****/
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"ANS CENTER_MIDDLE\">");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
fprintf (Gbl.F.Out," [%lg; %lg] ",FloatAnsCorr[0],FloatAnsCorr[1]);
|
|
|
|
|
else
|
|
|
|
|
fprintf (Gbl.F.Out,"?");
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Compute mark *****/
|
|
|
|
|
if (!Gbl.Test.StrAnswersOneQst[NumQst][0]) // If user has omitted the answer
|
|
|
|
|
{
|
|
|
|
|
*AnswerIsNotBlank = false;
|
|
|
|
|
*ScoreThisQst = 0.0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
*AnswerIsNotBlank = true;
|
|
|
|
|
if (FloatAnsUsr >= FloatAnsCorr[0] &&
|
|
|
|
|
FloatAnsUsr <= FloatAnsCorr[1]) // If correct (inside the interval)
|
|
|
|
|
*ScoreThisQst = 1.0;
|
|
|
|
|
else // If wrong (outside the interval)
|
|
|
|
|
*ScoreThisQst = 0.0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Write mark *****/
|
|
|
|
|
if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_RESULT ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK)
|
|
|
|
|
{
|
|
|
|
|
Tst_WriteScoreStart (2);
|
|
|
|
|
if (!Gbl.Test.StrAnswersOneQst[NumQst][0]) // If user has omitted the answer
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS\">%.2lf",0.0);
|
|
|
|
|
else if (FloatAnsUsr >= FloatAnsCorr[0] &&
|
|
|
|
|
FloatAnsUsr <= FloatAnsCorr[1]) // If correct (inside the interval)
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS_OK\">%.2lf",1.0);
|
|
|
|
|
else // If wrong (outside the interval)
|
|
|
|
|
fprintf (Gbl.F.Out,"ANS_BAD\">%.2lf",0.0);
|
|
|
|
|
Tst_WriteScoreEnd ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"</table>");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********* Write head with two columns: ********/
|
|
|
|
|
/********* one for the user's answer and other for the correct answer ********/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteHeadUserCorrect (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_User;
|
|
|
|
|
extern const char *Txt_TST_Correct_ANSWER;
|
|
|
|
|
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_SMALL CENTER_MIDDLE\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
" %s "
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT_SMALL CENTER_MIDDLE\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
" %s "
|
|
|
|
|
"</td>",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_User,Txt_TST_Correct_ANSWER);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********** Write the start ans the end of the score of an answer ***********/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteScoreStart (unsigned ColSpan)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Score;
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td colspan=\"%u\" class=\"DAT_SMALL LEFT_MIDDLE\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"%s: <span class=\"",
|
|
|
|
|
ColSpan,Txt_Score);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteScoreEnd (void)
|
|
|
|
|
{
|
|
|
|
|
fprintf (Gbl.F.Out,"</span>"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*************** Write parameter with the code of a question *****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_WriteParamQstCod (unsigned NumQst,long QstCod)
|
|
|
|
|
{
|
|
|
|
|
char ParamName[3+6+1];
|
|
|
|
|
|
|
|
|
|
sprintf (ParamName,"Qst%06u",NumQst);
|
|
|
|
|
Par_PutHiddenParamLong (ParamName,QstCod);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********************* Check if number of answers is one *********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_CheckIfNumberOfAnswersIsOne (void)
|
|
|
|
|
{
|
|
|
|
|
if (Gbl.Test.Answer.NumOptions != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong answer.");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************************* Get tags of a test question ***********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
unsigned long Tst_GetTagsQst (long QstCod,MYSQL_RES **mysql_res)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Get the tags of a question from database *****/
|
|
|
|
|
sprintf (Query,"SELECT tst_tags.TagTxt FROM tst_question_tags,tst_tags"
|
|
|
|
|
" WHERE tst_question_tags.QstCod='%ld' AND tst_question_tags.TagCod=tst_tags.TagCod AND tst_tags.CrsCod='%ld'"
|
|
|
|
|
" ORDER BY tst_question_tags.TagInd",
|
|
|
|
|
QstCod,Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
return DB_QuerySELECT (Query,mysql_res,"can not get the tags of a question");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************** Get and write tags of a test question ******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_GetAndWriteTagsQst (long QstCod)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_no_tags;
|
|
|
|
|
unsigned long NumRow,NumRows;
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
|
|
|
|
|
if ((NumRows = Tst_GetTagsQst (QstCod,&mysql_res))) // Result: TagTxt
|
|
|
|
|
{
|
|
|
|
|
/***** Write the tags *****/
|
2014-12-21 19:43:39 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"<table>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
for (NumRow = 0;
|
|
|
|
|
NumRow < NumRows;
|
|
|
|
|
NumRow++)
|
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT_SMALL LEFT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
" • "
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT_SMALL LEFT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</td>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</tr>",
|
|
|
|
|
row[0]);
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</table>");
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
fprintf (Gbl.F.Out,"<span class=\"DAT_SMALL\"> (%s) </span>",
|
|
|
|
|
Txt_no_tags);
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************ Get parameters for the selection of test questions *************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// Return 1 (OK) if all parameters are found, or 0 (error) if any necessary parameter is not found
|
|
|
|
|
|
|
|
|
|
static int Tst_GetParamsTst (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_You_must_select_one_ore_more_tags;
|
|
|
|
|
extern const char *Txt_You_must_select_one_ore_more_types_of_answer;
|
|
|
|
|
extern const char *Txt_The_number_of_questions_must_be_in_the_interval_X;
|
|
|
|
|
char YN[1+1];
|
|
|
|
|
bool Error = false;
|
|
|
|
|
char UnsignedStr[10+1];
|
|
|
|
|
unsigned UnsignedNum;
|
|
|
|
|
|
|
|
|
|
/***** Tags *****/
|
|
|
|
|
/* Get parameter that indicates whether all tags are selected */
|
|
|
|
|
Par_GetParToText ("AllTags",YN,1);
|
|
|
|
|
Gbl.Test.AllTags = (Str_ConvertToUpperLetter (YN[0]) == 'Y');
|
|
|
|
|
|
|
|
|
|
/* Get the tags */
|
|
|
|
|
if ((Gbl.Test.TagsList = malloc (Tst_MAX_BYTES_TAGS_LIST+1)) == NULL)
|
|
|
|
|
Lay_ShowErrorAndExit ("Not enough memory to store tags.");
|
|
|
|
|
Par_GetParMultiToText ("ChkTag",Gbl.Test.TagsList,Tst_MAX_BYTES_TAGS_LIST);
|
|
|
|
|
|
|
|
|
|
/* Check number of tags selected */
|
|
|
|
|
if (Tst_CountNumTagsInList () == 0) // If no tags selected...
|
|
|
|
|
{ // ...write alert
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_select_one_ore_more_tags);
|
|
|
|
|
Error = true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Types of answer *****/
|
|
|
|
|
/* Get parameter that indicates if all types of answer are selected */
|
|
|
|
|
Par_GetParToText ("AllAnsTypes",YN,1);
|
|
|
|
|
Gbl.Test.AllAnsTypes = (Str_ConvertToUpperLetter (YN[0]) == 'Y');
|
|
|
|
|
|
|
|
|
|
/* Get types of answer */
|
|
|
|
|
Par_GetParMultiToText ("AnswerType",Gbl.Test.ListAnsTypes,Tst_MAX_BYTES_LIST_ANSWER_TYPES);
|
|
|
|
|
|
|
|
|
|
/* Check number of types of answer */
|
|
|
|
|
if (Tst_CountNumAnswerTypesInList () == 0) // If no types of answer selected...
|
|
|
|
|
{ // ...write warning alert
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_select_one_ore_more_types_of_answer);
|
|
|
|
|
Error = true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Get other parameters, depending on action *****/
|
|
|
|
|
if (Gbl.CurrentAct == ActSeeTst)
|
|
|
|
|
{
|
|
|
|
|
Tst_GetParamNumQst ();
|
|
|
|
|
if (Gbl.Test.NumQsts < Gbl.Test.Config.Min ||
|
|
|
|
|
Gbl.Test.NumQsts > Gbl.Test.Config.Max)
|
|
|
|
|
{
|
|
|
|
|
sprintf (Gbl.Message,Txt_The_number_of_questions_must_be_in_the_interval_X,
|
|
|
|
|
Gbl.Test.Config.Min,Gbl.Test.Config.Max);
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Gbl.Message);
|
|
|
|
|
Error = true;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Get starting and ending dates */
|
|
|
|
|
Dat_GetIniEndDatesFromForm ();
|
|
|
|
|
|
|
|
|
|
/* Get ordering criteria */
|
|
|
|
|
Par_GetParMultiToText ("Order",UnsignedStr,10);
|
|
|
|
|
if (sscanf (UnsignedStr,"%u",&UnsignedNum) == 1)
|
|
|
|
|
Gbl.Test.SelectedOrderType = (Tst_QuestionsOrder_t) ((UnsignedNum < Tst_NUM_TYPES_ORDER_QST) ? UnsignedNum :
|
|
|
|
|
0);
|
|
|
|
|
else
|
|
|
|
|
Gbl.Test.SelectedOrderType = (Tst_QuestionsOrder_t) 0;
|
|
|
|
|
|
|
|
|
|
/* Get whether we must create the XML file or not */
|
|
|
|
|
Gbl.Test.XML.CreateXML = Tst_GetCreateXMLFromForm ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return Error ? 0 :
|
|
|
|
|
1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************** Get parameter with the number of test ******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static unsigned Tst_GetAndCheckParamNumTst (void)
|
|
|
|
|
{
|
|
|
|
|
char IntStr[1+10+1];
|
|
|
|
|
int IntNum;
|
|
|
|
|
|
|
|
|
|
/***** Get number of test exam *****/
|
|
|
|
|
Par_GetParToText ("NumTst",IntStr,10);
|
|
|
|
|
if (!IntStr[0])
|
|
|
|
|
Lay_ShowErrorAndExit ("Number of test is missing.");
|
|
|
|
|
|
|
|
|
|
if (sscanf (IntStr,"%d",&IntNum) == 1)
|
|
|
|
|
{
|
|
|
|
|
if (IntNum < (int) 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong number of test.");
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong number of test.");
|
|
|
|
|
|
|
|
|
|
return (unsigned) IntNum;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/***** Get parameter with the number of questions to generate in an test *****/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_GetParamNumQst (void)
|
|
|
|
|
{
|
|
|
|
|
char UnsignedStr[10+1];
|
|
|
|
|
unsigned UnsignedNum;
|
|
|
|
|
|
|
|
|
|
/***** Set default number of questions *****/
|
|
|
|
|
Gbl.Test.NumQsts = Gbl.Test.Config.Def;
|
|
|
|
|
|
|
|
|
|
/***** Get number of questions from form *****/
|
|
|
|
|
Par_GetParToText ("NumQst",UnsignedStr,10);
|
|
|
|
|
if (UnsignedStr[0])
|
|
|
|
|
if (sscanf (UnsignedStr,"%u",&UnsignedNum) == 1)
|
|
|
|
|
Gbl.Test.NumQsts = UnsignedNum;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/****************** Get whether to create XML file from form *****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static bool Tst_GetCreateXMLFromForm (void)
|
|
|
|
|
{
|
|
|
|
|
char YN[1+1];
|
|
|
|
|
|
|
|
|
|
Par_GetParToText ("CreateXML",YN,1);
|
|
|
|
|
return (Str_ConvertToUpperLetter (YN[0]) == 'Y');
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/***************** Count number of tags in the list of tags ******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static int Tst_CountNumTagsInList (void)
|
|
|
|
|
{
|
|
|
|
|
const char *Ptr;
|
|
|
|
|
int NumTags = 0;
|
|
|
|
|
char TagText[Tst_MAX_BYTES_TAG+1];
|
|
|
|
|
|
|
|
|
|
/***** Go over the list Gbl.Test.TagsList counting the number of tags *****/
|
|
|
|
|
if (Gbl.Test.TagsList)
|
|
|
|
|
{
|
|
|
|
|
Ptr = Gbl.Test.TagsList;
|
|
|
|
|
while (*Ptr)
|
|
|
|
|
{
|
|
|
|
|
Par_GetNextStrUntilSeparParamMult (&Ptr,TagText,Tst_MAX_BYTES_TAG);
|
|
|
|
|
NumTags++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
return NumTags;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/**** Count the number of types of answers in the list of types of answers ***/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static int Tst_CountNumAnswerTypesInList (void)
|
|
|
|
|
{
|
|
|
|
|
const char *Ptr;
|
|
|
|
|
int NumAnsTypes = 0;
|
|
|
|
|
char UnsignedStr[10+1];
|
|
|
|
|
|
|
|
|
|
/***** Go over the list Gbl.Test.ListAnsTypes counting the number of types of answer *****/
|
|
|
|
|
Ptr = Gbl.Test.ListAnsTypes;
|
|
|
|
|
while (*Ptr)
|
|
|
|
|
{
|
|
|
|
|
Par_GetNextStrUntilSeparParamMult (&Ptr,UnsignedStr,10);
|
|
|
|
|
Tst_ConvertFromUnsignedStrToAnsTyp (UnsignedStr);
|
|
|
|
|
NumAnsTypes++;
|
|
|
|
|
}
|
|
|
|
|
return NumAnsTypes;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/**************** Free memory allocated for the list of tags *****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_FreeTagsList (void)
|
|
|
|
|
{
|
|
|
|
|
if (Gbl.Test.TagsList)
|
|
|
|
|
{
|
|
|
|
|
free ((void *) Gbl.Test.TagsList);
|
|
|
|
|
Gbl.Test.TagsList = NULL;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************** Show form to edit one test question ********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_ShowFormEditOneQst (void)
|
|
|
|
|
{
|
|
|
|
|
char Stem[Cns_MAX_BYTES_TEXT+1];
|
|
|
|
|
char Feedback[Cns_MAX_BYTES_TEXT+1];
|
|
|
|
|
|
|
|
|
|
Stem[0] = Feedback[0] = '\0';
|
|
|
|
|
Tst_PutFormEditOneQst (Stem,Feedback);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************** Show form to edit one test question ********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
// This function may be called from three places:
|
|
|
|
|
// 1. Pressing edition of question in the menu
|
|
|
|
|
// 2. Pressing button to edit question in a listing of existing questions
|
|
|
|
|
// 3. From the action associated to reception of a question, on error in the parameters received from the form
|
|
|
|
|
|
|
|
|
|
static void Tst_PutFormEditOneQst (char *Stem,char *Feedback)
|
|
|
|
|
{
|
2015-07-28 00:16:09 +02:00
|
|
|
|
extern const char *The_ClassForm[The_NUM_THEMES];
|
2014-12-01 23:55:08 +01:00
|
|
|
|
extern const char *Txt_Question_code_X;
|
|
|
|
|
extern const char *Txt_New_question;
|
|
|
|
|
extern const char *Txt_Tags;
|
|
|
|
|
extern const char *Txt_new_tag;
|
|
|
|
|
extern const char *Txt_Stem;
|
|
|
|
|
extern const char *Txt_Feedback;
|
|
|
|
|
extern const char *Txt_Type;
|
|
|
|
|
extern const char *Txt_TST_STR_ANSWER_TYPES[Tst_NUM_ANS_TYPES];
|
|
|
|
|
extern const char *Txt_Answers;
|
|
|
|
|
extern const char *Txt_Integer_number;
|
|
|
|
|
extern const char *Txt_Real_number_between_A_and_B_1;
|
|
|
|
|
extern const char *Txt_Real_number_between_A_and_B_2;
|
|
|
|
|
extern const char *Txt_TF_QST[2];
|
|
|
|
|
extern const char *Txt_Answer;
|
|
|
|
|
extern const char *Txt_Shuffle;
|
|
|
|
|
extern const char *Txt_Save;
|
2015-04-11 20:18:30 +02:00
|
|
|
|
extern const char *Txt_Create_question;
|
2015-04-11 13:05:44 +02:00
|
|
|
|
char Title[512];
|
2014-12-01 23:55:08 +01:00
|
|
|
|
char Query[512];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned long NumRow,NumRows;
|
|
|
|
|
unsigned NumOpt;
|
|
|
|
|
Tst_AnswerType_t AnsType;
|
|
|
|
|
bool Shuffle = false;
|
|
|
|
|
unsigned NumTag;
|
|
|
|
|
bool TagNotFound;
|
|
|
|
|
bool OptionsDisabled;
|
|
|
|
|
|
|
|
|
|
if (Gbl.CurrentAct == ActEdiOneTstQst) // If no receiving the question, but editing a new or existing question
|
|
|
|
|
{
|
|
|
|
|
Tst_InitQst ();
|
|
|
|
|
if (Tst_GetQstCod ()) // If parameter QstCod received ==> question already exists in the database
|
|
|
|
|
{
|
|
|
|
|
/***** Get the type of answer and the stem from the database *****/
|
|
|
|
|
/* Get the question from database */
|
|
|
|
|
sprintf (Query,"SELECT AnsType,Shuffle,Stem,Feedback"
|
|
|
|
|
" FROM tst_questions"
|
|
|
|
|
" WHERE QstCod='%ld' AND CrsCod='%ld'",
|
|
|
|
|
Gbl.Test.QstCod,
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
DB_QuerySELECT (Query,&mysql_res,"can not get a question");
|
|
|
|
|
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
/* Get the type of answer */
|
|
|
|
|
Gbl.Test.AnswerType = Tst_ConvertFromStrAnsTypDBToAnsTyp (row[0]);
|
|
|
|
|
|
|
|
|
|
/* Get shuffle (row[1]) */
|
|
|
|
|
Shuffle = (Str_ConvertToUpperLetter (row[1][0]) == 'Y');
|
|
|
|
|
|
|
|
|
|
/* Get the stem of the question from the database (row[2]) */
|
|
|
|
|
strncpy (Stem,row[2],Cns_MAX_BYTES_TEXT);
|
|
|
|
|
Stem[Cns_MAX_BYTES_TEXT] = '\0';
|
|
|
|
|
|
|
|
|
|
/* Get the feedback of the question from the database (row[3]) */
|
|
|
|
|
Feedback[0] = '\0';
|
|
|
|
|
if (row[3])
|
|
|
|
|
if (row[3][0])
|
|
|
|
|
{
|
|
|
|
|
strncpy (Feedback,row[3],Cns_MAX_BYTES_TEXT);
|
|
|
|
|
Feedback[Cns_MAX_BYTES_TEXT] = '\0';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Free structure that stores the query result */
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
|
|
|
|
|
/***** Get the tags from the database *****/
|
|
|
|
|
NumRows = Tst_GetTagsQst (Gbl.Test.QstCod,&mysql_res);
|
|
|
|
|
for (NumRow = 0;
|
|
|
|
|
NumRow < NumRows;
|
|
|
|
|
NumRow++)
|
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
strncpy (Gbl.Test.TagText[NumRow],row[0],Tst_MAX_BYTES_TAG);
|
|
|
|
|
Gbl.Test.TagText[NumRow][Tst_MAX_BYTES_TAG] = '\0';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Free structure that stores the query result */
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
|
|
|
|
|
/***** Get the answers from the database *****/
|
|
|
|
|
Gbl.Test.Answer.NumOptions = Tst_GetAnswersQst (Gbl.Test.QstCod,&mysql_res,false); // Result: AnsInd,Answer,Correct,Feedback
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Gbl.Test.Answer.NumOptions;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
switch (Gbl.Test.AnswerType)
|
|
|
|
|
{
|
|
|
|
|
case Tst_ANS_INT:
|
|
|
|
|
if (Gbl.Test.Answer.NumOptions != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong answer.");
|
|
|
|
|
Gbl.Test.Answer.Integer = Tst_GetIntAnsFromStr (row[1]);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_FLOAT:
|
|
|
|
|
if (Gbl.Test.Answer.NumOptions != 2)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong answer.");
|
|
|
|
|
Gbl.Test.Answer.FloatingPoint[NumOpt] = Tst_GetFloatAnsFromStr (row[1]);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_TRUE_FALSE:
|
|
|
|
|
if (Gbl.Test.Answer.NumOptions != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong answer.");
|
|
|
|
|
Gbl.Test.Answer.TF = row[1][0];
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_UNIQUE_CHOICE:
|
|
|
|
|
case Tst_ANS_MULTIPLE_CHOICE:
|
|
|
|
|
case Tst_ANS_TEXT:
|
|
|
|
|
if (Gbl.Test.Answer.NumOptions > Tst_MAX_OPTIONS_PER_QUESTION)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong answer.");
|
|
|
|
|
if (!Tst_AllocateTextChoiceAnswer (NumOpt))
|
|
|
|
|
Lay_ShowErrorAndExit (Gbl.Message);
|
|
|
|
|
|
|
|
|
|
strncpy (Gbl.Test.Answer.Options[NumOpt].Text,row[1],Tst_MAX_BYTES_ANSWER_OR_FEEDBACK);
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Text[Tst_MAX_BYTES_ANSWER_OR_FEEDBACK] = '\0';
|
|
|
|
|
|
|
|
|
|
// Feedback is initialized to empty string
|
|
|
|
|
if (row[3])
|
|
|
|
|
if (row[3][0])
|
|
|
|
|
{
|
|
|
|
|
strncpy (Gbl.Test.Answer.Options[NumOpt].Feedback,row[3],Tst_MAX_BYTES_ANSWER_OR_FEEDBACK);
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Feedback[Tst_MAX_BYTES_ANSWER_OR_FEEDBACK] = '\0';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Correct = (Str_ConvertToUpperLetter (row[2][0]) == 'Y');
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
/* Free structure that stores the query result */
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2015-04-11 13:05:44 +02:00
|
|
|
|
/***** Start form and table *****/
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Act_FormStart (ActRcvTstQst);
|
2015-04-11 13:05:44 +02:00
|
|
|
|
if (Gbl.Test.QstCod > 0) // The question already has assigned a code
|
|
|
|
|
{
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Par_PutHiddenParamLong ("QstCod",Gbl.Test.QstCod);
|
|
|
|
|
|
2015-04-11 13:05:44 +02:00
|
|
|
|
sprintf (Title,Txt_Question_code_X,Gbl.Test.QstCod);
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_StartRoundFrameTable (NULL,2,Title);
|
2015-04-11 13:05:44 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_StartRoundFrameTable (NULL,2,Txt_New_question);
|
2015-04-11 13:05:44 +02:00
|
|
|
|
|
|
|
|
|
/***** Help for text editor *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
|
|
|
|
"<td colspan=\"2\">");
|
|
|
|
|
Lay_HelpPlainEditor ();
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Get tags already existing for questions in current course *****/
|
|
|
|
|
NumRows = Tst_GetAllTagsFromCurrentCrs (&mysql_res);
|
|
|
|
|
|
|
|
|
|
/***** Write the tags *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s RIGHT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"LEFT_TOP\">"
|
2014-12-21 19:43:39 +01:00
|
|
|
|
"<table>",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],Txt_Tags);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
for (NumTag = 0;
|
|
|
|
|
NumTag < Tst_MAX_TAGS_PER_QUESTION;
|
|
|
|
|
NumTag++)
|
|
|
|
|
{
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>");
|
|
|
|
|
|
|
|
|
|
/***** Write the tags already existing in a selector *****/
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"LEFT_MIDDLE\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<select id=\"SelDesc%u\" name=\"SelDesc%u\""
|
2015-09-28 18:28:29 +02:00
|
|
|
|
" style=\"width:288px;\" onchange=\"changeTxtTag('%u')\">",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
NumTag,NumTag,NumTag);
|
|
|
|
|
fprintf (Gbl.F.Out,"<option value=\"\"> </option>");
|
|
|
|
|
mysql_data_seek (mysql_res, 0);
|
|
|
|
|
TagNotFound = true;
|
|
|
|
|
for (NumRow = 1;
|
|
|
|
|
NumRow <= NumRows;
|
|
|
|
|
NumRow++)
|
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"<option value=\"%s\"",row[1]);
|
|
|
|
|
if (!strcasecmp (Gbl.Test.TagText[NumTag],row[1]))
|
|
|
|
|
{
|
|
|
|
|
fprintf (Gbl.F.Out," selected=\"selected\"");
|
|
|
|
|
TagNotFound = false;
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,">%s</option>",row[1]);
|
|
|
|
|
}
|
|
|
|
|
/* If it's a new tag received from the form */
|
|
|
|
|
if (TagNotFound && Gbl.Test.TagText[NumTag][0])
|
|
|
|
|
fprintf (Gbl.F.Out,"<option value=\"%s\" selected=\"selected\">%s</option>",
|
|
|
|
|
Gbl.Test.TagText[NumTag],Gbl.Test.TagText[NumTag]);
|
|
|
|
|
fprintf (Gbl.F.Out,"<option value=\"\">[%s]</option>"
|
|
|
|
|
"</select>"
|
|
|
|
|
"</td>",
|
|
|
|
|
Txt_new_tag);
|
|
|
|
|
|
|
|
|
|
/***** Input of a new tag *****/
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"RIGHT_MIDDLE\">"
|
2015-10-23 01:31:08 +02:00
|
|
|
|
"<input type=\"text\" id=\"TagTxt%u\" name=\"TagTxt%u\""
|
|
|
|
|
" size=\"36\" maxlength=\"%u\" value=\"%s\""
|
2014-12-26 14:45:14 +01:00
|
|
|
|
" onchange=\"changeSelTag('%u')\" />"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</td>",
|
|
|
|
|
NumTag,NumTag,Tst_MAX_TAG_LENGTH,Gbl.Test.TagText[NumTag],NumTag);
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"</tr>");
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</table>"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/* Free structure that stores the query result */
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
|
|
|
|
|
/***** Stem *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s RIGHT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"LEFT_TOP\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<textarea name=\"Stem\" cols=\"70\" rows=\"8\">"
|
|
|
|
|
"%s"
|
|
|
|
|
"</textarea>"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_Stem,
|
|
|
|
|
Stem);
|
|
|
|
|
|
|
|
|
|
/***** Feedback *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s RIGHT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"LEFT_TOP\">"
|
2015-04-11 02:19:32 +02:00
|
|
|
|
"<textarea name=\"Feedback\" cols=\"70\" rows=\"8\">",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],
|
2015-04-11 02:19:32 +02:00
|
|
|
|
Txt_Feedback);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Feedback)
|
|
|
|
|
if (Feedback[0])
|
|
|
|
|
fprintf (Gbl.F.Out,"%s",Feedback);
|
|
|
|
|
fprintf (Gbl.F.Out,"</textarea>"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Type of answer *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s RIGHT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s LEFT_TOP\">",
|
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_Type,
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme]);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
for (AnsType = (Tst_AnswerType_t) 0;
|
|
|
|
|
AnsType < Tst_NUM_ANS_TYPES;
|
|
|
|
|
AnsType++)
|
|
|
|
|
{
|
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"radio\" name=\"AnswerType\" value=\"%u\"",
|
|
|
|
|
(unsigned) AnsType);
|
|
|
|
|
if (AnsType == Gbl.Test.AnswerType)
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
fprintf (Gbl.F.Out," onclick=\"enableDisableAns(this.form)\" />%s <br />",
|
|
|
|
|
Txt_TST_STR_ANSWER_TYPES[AnsType]);
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Answers *****/
|
|
|
|
|
/* Integer answer */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s RIGHT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s LEFT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s: "
|
2015-10-23 01:31:08 +02:00
|
|
|
|
"<input type=\"text\" name=\"AnsInt\""
|
|
|
|
|
" size=\"11\" maxlength=\"11\" value=\"%ld\"",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],Txt_Answers,
|
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],Txt_Integer_number,
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Test.Answer.Integer);
|
|
|
|
|
if (Gbl.Test.AnswerType != Tst_ANS_INT)
|
|
|
|
|
fprintf (Gbl.F.Out," disabled=\"disabled\"");
|
|
|
|
|
fprintf (Gbl.F.Out," /></td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/* Floating point answer */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"<td></td>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s LEFT_TOP\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s "
|
2015-10-23 01:31:08 +02:00
|
|
|
|
"<input type=\"text\" name=\"AnsFloatMin\""
|
|
|
|
|
" size=\"11\" maxlength=\"%u\" value=\"%lg\"",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],Txt_Real_number_between_A_and_B_1,
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_MAX_BYTES_FLOAT_ANSWER,Gbl.Test.Answer.FloatingPoint[0]);
|
|
|
|
|
if (Gbl.Test.AnswerType != Tst_ANS_FLOAT)
|
|
|
|
|
fprintf (Gbl.F.Out," disabled=\"disabled\"");
|
2015-10-23 01:31:08 +02:00
|
|
|
|
fprintf (Gbl.F.Out," /> %s "
|
|
|
|
|
"<input type=\"text\" name=\"AnsFloatMax\""
|
|
|
|
|
" size=\"11\" maxlength=\"%u\" value=\"%lg\"",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_Real_number_between_A_and_B_2,
|
|
|
|
|
Tst_MAX_BYTES_FLOAT_ANSWER,Gbl.Test.Answer.FloatingPoint[1]);
|
|
|
|
|
if (Gbl.Test.AnswerType != Tst_ANS_FLOAT)
|
|
|
|
|
fprintf (Gbl.F.Out," disabled=\"disabled\"");
|
|
|
|
|
fprintf (Gbl.F.Out," /></td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/* T/F answer */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"<td></td>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"LEFT_TOP\">"
|
2014-12-21 19:43:39 +01:00
|
|
|
|
"<table>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<tr>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s LEFT_TOP\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<input type=\"radio\" name=\"AnsTF\" value=\"T\"",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme]);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Gbl.Test.Answer.TF == 'T')
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
if (Gbl.Test.AnswerType != Tst_ANS_TRUE_FALSE)
|
|
|
|
|
fprintf (Gbl.F.Out," disabled=\"disabled\"");
|
|
|
|
|
fprintf (Gbl.F.Out," />%s <input type=\"radio\" name=\"AnsTF\" value=\"F\"",
|
|
|
|
|
Txt_TF_QST[0]);
|
|
|
|
|
if (Gbl.Test.Answer.TF == 'F')
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
if (Gbl.Test.AnswerType != Tst_ANS_TRUE_FALSE)
|
|
|
|
|
fprintf (Gbl.F.Out," disabled=\"disabled\"");
|
|
|
|
|
fprintf (Gbl.F.Out," />%s</td>"
|
|
|
|
|
"</tr>"
|
|
|
|
|
"</table>"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_TF_QST[1]);
|
|
|
|
|
|
|
|
|
|
/* Questions can be shuffled? */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"<td></td>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s LEFT_TOP\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<input type=\"checkbox\" name=\"Shuffle\" value=\"Y\"",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme]);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (Shuffle)
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
if (Gbl.Test.AnswerType != Tst_ANS_UNIQUE_CHOICE &&
|
|
|
|
|
Gbl.Test.AnswerType != Tst_ANS_MULTIPLE_CHOICE)
|
|
|
|
|
fprintf (Gbl.F.Out," disabled=\"disabled\"");
|
|
|
|
|
fprintf (Gbl.F.Out," />%s</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_Shuffle);
|
|
|
|
|
|
|
|
|
|
/* Simple or multiple choice answers */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"<td></td>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"LEFT_TOP\">"
|
2014-12-21 19:43:39 +01:00
|
|
|
|
"<table>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<tr>"
|
|
|
|
|
"<td></td>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s LEFT_MIDDLE\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</td>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s LEFT_MIDDLE\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</td>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</tr>",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],Txt_Answer,
|
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],Txt_Feedback);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
OptionsDisabled = Gbl.Test.AnswerType != Tst_ANS_UNIQUE_CHOICE &&
|
|
|
|
|
Gbl.Test.AnswerType != Tst_ANS_MULTIPLE_CHOICE &&
|
|
|
|
|
Gbl.Test.AnswerType != Tst_ANS_TEXT;
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Tst_MAX_OPTIONS_PER_QUESTION;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
{
|
|
|
|
|
/* Selectors and label with the letter of the answer */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-07-28 00:16:09 +02:00
|
|
|
|
"<td class=\"%s LEFT_TOP\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<input type=\"radio\" name=\"AnsUni\" value=\"%u\"",
|
2015-07-28 00:16:09 +02:00
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],
|
2014-12-01 23:55:08 +01:00
|
|
|
|
NumOpt);
|
|
|
|
|
if (Gbl.Test.AnswerType != Tst_ANS_UNIQUE_CHOICE)
|
|
|
|
|
fprintf (Gbl.F.Out," disabled=\"disabled\"");
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Correct)
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
fprintf (Gbl.F.Out," />"
|
|
|
|
|
"<input type=\"checkbox\" name=\"AnsMulti\" value=\"%u\"",
|
|
|
|
|
NumOpt);
|
|
|
|
|
if (Gbl.Test.AnswerType != Tst_ANS_MULTIPLE_CHOICE)
|
|
|
|
|
fprintf (Gbl.F.Out," disabled=\"disabled\"");
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Correct)
|
|
|
|
|
fprintf (Gbl.F.Out," checked=\"checked\"");
|
|
|
|
|
fprintf (Gbl.F.Out," /> %c) </td>",
|
|
|
|
|
'a' + (char) NumOpt);
|
|
|
|
|
|
|
|
|
|
/* Answer text */
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<textarea name=\"AnsStr%u\" cols=\"30\" rows=\"5\"",
|
|
|
|
|
NumOpt);
|
|
|
|
|
if (OptionsDisabled)
|
|
|
|
|
fprintf (Gbl.F.Out," disabled=\"disabled\"");
|
|
|
|
|
fprintf (Gbl.F.Out,">");
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Text)
|
|
|
|
|
fprintf (Gbl.F.Out,"%s",Gbl.Test.Answer.Options[NumOpt].Text);
|
|
|
|
|
fprintf (Gbl.F.Out,"</textarea>"
|
|
|
|
|
"</td>");
|
|
|
|
|
|
|
|
|
|
/* Feedback */
|
2015-09-02 23:26:18 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<textarea name=\"FbStr%u\" cols=\"30\" rows=\"5\"",
|
|
|
|
|
NumOpt);
|
|
|
|
|
if (OptionsDisabled)
|
|
|
|
|
fprintf (Gbl.F.Out," disabled=\"disabled\"");
|
|
|
|
|
fprintf (Gbl.F.Out,">");
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Feedback)
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Feedback[0])
|
|
|
|
|
fprintf (Gbl.F.Out,"%s",Gbl.Test.Answer.Options[NumOpt].Feedback);
|
|
|
|
|
fprintf (Gbl.F.Out,"</textarea>"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</table>"
|
2015-04-11 13:05:44 +02:00
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
2015-04-11 23:46:21 +02:00
|
|
|
|
/***** Send button and end frame *****/
|
2015-04-11 20:18:30 +02:00
|
|
|
|
if (Gbl.Test.QstCod > 0) // The question already has assigned a code
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_EndRoundFrameTableWithButton (Lay_CONFIRM_BUTTON,Txt_Save);
|
2015-04-11 20:18:30 +02:00
|
|
|
|
else
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_EndRoundFrameTableWithButton (Lay_CREATE_BUTTON,Txt_Create_question);
|
2015-04-11 13:05:44 +02:00
|
|
|
|
|
|
|
|
|
/***** End form *****/
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
2015-04-11 13:05:44 +02:00
|
|
|
|
/***** Free memory for answers *****/
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_FreeTextChoiceAnswers ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********************* Initialize a new question to zero *********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_InitQst (void)
|
|
|
|
|
{
|
|
|
|
|
unsigned NumOpt;
|
|
|
|
|
unsigned NumTag;
|
|
|
|
|
|
|
|
|
|
Gbl.Test.QstCod = -1;
|
|
|
|
|
for (NumTag = 0;
|
|
|
|
|
NumTag < Tst_MAX_TAGS_PER_QUESTION;
|
|
|
|
|
NumTag++)
|
|
|
|
|
Gbl.Test.TagText[NumTag][0] = '\0';
|
|
|
|
|
Gbl.Test.NumTags = 0;
|
|
|
|
|
Gbl.Test.TagsList = NULL;
|
|
|
|
|
Gbl.Test.Stem.Text = NULL;
|
|
|
|
|
Gbl.Test.Stem.Length = 0;
|
|
|
|
|
Gbl.Test.Feedback.Text = NULL;
|
|
|
|
|
Gbl.Test.Feedback.Length = 0;
|
|
|
|
|
Gbl.Test.AnswerType = Tst_ANS_UNIQUE_CHOICE;
|
|
|
|
|
Gbl.Test.Answer.NumOptions = 0;
|
|
|
|
|
Gbl.Test.Answer.TF = ' ';
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Tst_MAX_OPTIONS_PER_QUESTION;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
{
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Correct = false;
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Text = NULL;
|
|
|
|
|
}
|
|
|
|
|
Gbl.Test.Answer.Integer = 0;
|
|
|
|
|
Gbl.Test.Answer.FloatingPoint[0] =
|
|
|
|
|
Gbl.Test.Answer.FloatingPoint[1] = 0.0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/** Convert a string with the type of answer in database to type of answer ***/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
Tst_AnswerType_t Tst_ConvertFromStrAnsTypDBToAnsTyp (const char *StrAnsTypeBD)
|
|
|
|
|
{
|
|
|
|
|
Tst_AnswerType_t AnsType;
|
|
|
|
|
|
|
|
|
|
if (StrAnsTypeBD != NULL)
|
|
|
|
|
for (AnsType = (Tst_AnswerType_t) 0;
|
|
|
|
|
AnsType < Tst_NUM_ANS_TYPES;
|
|
|
|
|
AnsType++)
|
|
|
|
|
if (!strcmp (StrAnsTypeBD,Tst_StrAnswerTypesDB[AnsType]))
|
|
|
|
|
return AnsType;
|
|
|
|
|
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong type of answer.");
|
|
|
|
|
return (Tst_AnswerType_t) 0; // Not reached
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************ Convert a string with an unsigned to answer type ***************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static Tst_AnswerType_t Tst_ConvertFromUnsignedStrToAnsTyp (const char *UnsignedStr)
|
|
|
|
|
{
|
|
|
|
|
unsigned AnsType;
|
|
|
|
|
|
|
|
|
|
if (sscanf (UnsignedStr,"%u",&AnsType) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong type of answer.");
|
|
|
|
|
if (AnsType >= Tst_NUM_ANS_TYPES)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong type of answer.");
|
|
|
|
|
return (Tst_AnswerType_t) AnsType;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*************** Receive a question of the self-assessment test **************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_ReceiveQst (void)
|
|
|
|
|
{
|
|
|
|
|
char Stem[Cns_MAX_BYTES_TEXT+1];
|
|
|
|
|
char Feedback[Cns_MAX_BYTES_TEXT+1];
|
|
|
|
|
|
|
|
|
|
/***** Initialize new question to zero *****/
|
|
|
|
|
Tst_InitQst ();
|
|
|
|
|
Stem[0] = Feedback[0] = '\0';
|
|
|
|
|
|
|
|
|
|
/***** Get parameters of the question from form *****/
|
|
|
|
|
Tst_GetQstFromForm (Stem,Feedback);
|
|
|
|
|
|
|
|
|
|
/***** Make sure that tags, text and answer are not empty *****/
|
|
|
|
|
if (Tst_CheckIfQstFormatIsCorrectAndCountNumOptions ())
|
|
|
|
|
{
|
|
|
|
|
/***** Form is received OK ==> insert or update question and answer in the database *****/
|
|
|
|
|
/* Insert or update question, tags and answer in the database */
|
|
|
|
|
Tst_InsertOrUpdateQstTagsAnsIntoDB ();
|
|
|
|
|
|
|
|
|
|
/***** Show the question just inserted in the database *****/
|
|
|
|
|
Tst_ListOneQstToEdit ();
|
|
|
|
|
}
|
|
|
|
|
else // Question is wrong
|
|
|
|
|
Tst_PutFormEditOneQst (Stem,Feedback);
|
|
|
|
|
|
|
|
|
|
/***** Free answers *****/
|
|
|
|
|
Tst_FreeTextChoiceAnswers ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/**************** Get parameters of a test question from form ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_GetQstFromForm (char *Stem,char *Feedback)
|
|
|
|
|
{
|
|
|
|
|
char UnsignedStr[10+1];
|
|
|
|
|
char YN[1+1];
|
|
|
|
|
unsigned NumTag;
|
|
|
|
|
unsigned NumTagRead;
|
|
|
|
|
unsigned NumOpt;
|
|
|
|
|
char TagStr[6+10+1];
|
|
|
|
|
char AnsStr[6+10+1];
|
|
|
|
|
char FbStr[5+10+1];
|
|
|
|
|
char StrMultiAns[Tst_MAX_SIZE_ANSWERS_ONE_QST+1];
|
|
|
|
|
const char *Ptr;
|
|
|
|
|
unsigned NumCorrectAns;
|
|
|
|
|
|
|
|
|
|
/***** Get question code *****/
|
|
|
|
|
Tst_GetQstCod ();
|
|
|
|
|
|
|
|
|
|
/***** Get answer type *****/
|
|
|
|
|
Par_GetParToText ("AnswerType",UnsignedStr,10);
|
|
|
|
|
Gbl.Test.AnswerType = Tst_ConvertFromUnsignedStrToAnsTyp (UnsignedStr);
|
|
|
|
|
|
|
|
|
|
/***** Get question tags *****/
|
|
|
|
|
for (NumTag = 0;
|
|
|
|
|
NumTag < Tst_MAX_TAGS_PER_QUESTION;
|
|
|
|
|
NumTag++)
|
|
|
|
|
{
|
|
|
|
|
sprintf (TagStr,"TagTxt%u",NumTag);
|
|
|
|
|
Par_GetParToText (TagStr,Gbl.Test.TagText[NumTag],Tst_MAX_BYTES_TAG);
|
|
|
|
|
if (Gbl.Test.TagText[NumTag][0])
|
|
|
|
|
{
|
|
|
|
|
Str_ChangeFormat (Str_FROM_FORM,Str_TO_TEXT,
|
|
|
|
|
Gbl.Test.TagText[NumTag],Tst_MAX_BYTES_TAG,true);
|
|
|
|
|
/* Check if not repeated */
|
|
|
|
|
for (NumTagRead = 0;
|
|
|
|
|
NumTagRead < NumTag;
|
|
|
|
|
NumTagRead++)
|
|
|
|
|
if (!strcmp (Gbl.Test.TagText[NumTagRead],Gbl.Test.TagText[NumTag]))
|
|
|
|
|
{
|
|
|
|
|
Gbl.Test.TagText[NumTag][0] = '\0';
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Get question stem *****/
|
|
|
|
|
Par_GetParToHTML ("Stem",Stem,Cns_MAX_BYTES_TEXT);
|
|
|
|
|
|
|
|
|
|
/***** Get question feedback *****/
|
|
|
|
|
Par_GetParToHTML ("Feedback",Feedback,Cns_MAX_BYTES_TEXT);
|
|
|
|
|
|
|
|
|
|
/***** Get answers *****/
|
|
|
|
|
Gbl.Test.Shuffle = false;
|
|
|
|
|
switch (Gbl.Test.AnswerType)
|
|
|
|
|
{
|
|
|
|
|
case Tst_ANS_INT:
|
|
|
|
|
if (!Tst_AllocateTextChoiceAnswer (0))
|
|
|
|
|
Lay_ShowErrorAndExit (Gbl.Message);
|
|
|
|
|
|
|
|
|
|
Par_GetParToText ("AnsInt",Gbl.Test.Answer.Options[0].Text,1+10);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_FLOAT:
|
|
|
|
|
if (!Tst_AllocateTextChoiceAnswer (0))
|
|
|
|
|
Lay_ShowErrorAndExit (Gbl.Message);
|
|
|
|
|
Par_GetParToText ("AnsFloatMin",Gbl.Test.Answer.Options[0].Text,Tst_MAX_BYTES_FLOAT_ANSWER);
|
|
|
|
|
|
|
|
|
|
if (!Tst_AllocateTextChoiceAnswer (1))
|
|
|
|
|
Lay_ShowErrorAndExit (Gbl.Message);
|
|
|
|
|
Par_GetParToText ("AnsFloatMax",Gbl.Test.Answer.Options[1].Text,Tst_MAX_BYTES_FLOAT_ANSWER);
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_TRUE_FALSE:
|
|
|
|
|
Par_GetParToText ("AnsTF",YN,1);
|
|
|
|
|
Gbl.Test.Answer.TF = YN[0];
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_UNIQUE_CHOICE:
|
|
|
|
|
case Tst_ANS_MULTIPLE_CHOICE:
|
|
|
|
|
/* Get shuffle */
|
|
|
|
|
Par_GetParToText ("Shuffle",YN,1);
|
|
|
|
|
Gbl.Test.Shuffle = (Str_ConvertToUpperLetter (YN[0]) == 'Y');
|
|
|
|
|
// No break
|
|
|
|
|
case Tst_ANS_TEXT:
|
|
|
|
|
/* Get the texts of the answers */
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Tst_MAX_OPTIONS_PER_QUESTION;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
{
|
|
|
|
|
if (!Tst_AllocateTextChoiceAnswer (NumOpt))
|
|
|
|
|
Lay_ShowErrorAndExit (Gbl.Message);
|
|
|
|
|
|
|
|
|
|
/* Get answer */
|
|
|
|
|
sprintf (AnsStr,"AnsStr%u",NumOpt);
|
|
|
|
|
Par_GetParToHTML (AnsStr,Gbl.Test.Answer.Options[NumOpt].Text,Tst_MAX_BYTES_ANSWER_OR_FEEDBACK);
|
|
|
|
|
Str_ReplaceSeveralSpacesForOne (Gbl.Test.Answer.Options[NumOpt].Text); // Join several spaces into one in answer
|
|
|
|
|
|
|
|
|
|
/* Get feedback */
|
|
|
|
|
sprintf (FbStr,"FbStr%u",NumOpt);
|
|
|
|
|
Par_GetParToHTML (FbStr,Gbl.Test.Answer.Options[NumOpt].Feedback,Tst_MAX_BYTES_ANSWER_OR_FEEDBACK);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Get the numbers of correct answers */
|
|
|
|
|
if (Gbl.Test.AnswerType == Tst_ANS_UNIQUE_CHOICE)
|
|
|
|
|
{
|
|
|
|
|
Par_GetParToText ("AnsUni",UnsignedStr,10);
|
|
|
|
|
if (UnsignedStr[0])
|
|
|
|
|
{
|
|
|
|
|
if (sscanf (UnsignedStr,"%u",&NumCorrectAns) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong selected answer.");
|
|
|
|
|
if (NumCorrectAns >= Tst_MAX_OPTIONS_PER_QUESTION)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong selected answer.");
|
|
|
|
|
Gbl.Test.Answer.Options[NumCorrectAns].Correct = true;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (Gbl.Test.AnswerType == Tst_ANS_MULTIPLE_CHOICE)
|
|
|
|
|
{
|
|
|
|
|
Par_GetParMultiToText ("AnsMulti",StrMultiAns,Tst_MAX_SIZE_ANSWERS_ONE_QST);
|
|
|
|
|
Ptr = StrMultiAns;
|
|
|
|
|
while (*Ptr)
|
|
|
|
|
{
|
|
|
|
|
Par_GetNextStrUntilSeparParamMult (&Ptr,UnsignedStr,10);
|
|
|
|
|
if (sscanf (UnsignedStr,"%u",&NumCorrectAns) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong selected answer.");
|
|
|
|
|
if (NumCorrectAns >= Tst_MAX_OPTIONS_PER_QUESTION)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong selected answer.");
|
|
|
|
|
Gbl.Test.Answer.Options[NumCorrectAns].Correct = true;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else // Tst_ANS_TEXT
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Tst_MAX_OPTIONS_PER_QUESTION;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Text[0])
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Correct = true; // All the answers are correct
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Adjust global variables related to this test question *****/
|
|
|
|
|
for (NumTag = 0, Gbl.Test.NumTags = 0;
|
|
|
|
|
NumTag < Tst_MAX_TAGS_PER_QUESTION;
|
|
|
|
|
NumTag++)
|
|
|
|
|
if (Gbl.Test.TagText[NumTag][0])
|
|
|
|
|
Gbl.Test.NumTags++;
|
|
|
|
|
Gbl.Test.Stem.Text = Stem;
|
|
|
|
|
Gbl.Test.Stem.Length = strlen (Gbl.Test.Stem.Text);
|
|
|
|
|
Gbl.Test.Feedback.Text = Feedback;
|
|
|
|
|
Gbl.Test.Feedback.Length = strlen (Gbl.Test.Feedback.Text);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********************** Check if a question is correct **********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// Returns false if question format is wrong
|
|
|
|
|
// Counts Gbl.Test.Answer.NumOptions
|
|
|
|
|
// Computes Gbl.Test.Answer.Integer and Gbl.Test.Answer.FloatingPoint[0..1]
|
|
|
|
|
|
|
|
|
|
bool Tst_CheckIfQstFormatIsCorrectAndCountNumOptions (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_You_must_type_at_least_one_tag_for_the_question;
|
|
|
|
|
extern const char *Txt_You_must_type_the_stem_of_the_question;
|
|
|
|
|
extern const char *Txt_You_must_select_a_T_F_answer;
|
|
|
|
|
extern const char *Txt_You_can_not_leave_empty_intermediate_answers;
|
|
|
|
|
extern const char *Txt_You_must_type_at_least_the_first_two_answers;
|
|
|
|
|
extern const char *Txt_You_must_mark_an_answer_as_correct;
|
|
|
|
|
extern const char *Txt_You_must_type_at_least_the_first_answer;
|
|
|
|
|
extern const char *Txt_You_must_enter_an_integer_value_as_the_correct_answer;
|
|
|
|
|
extern const char *Txt_You_must_enter_the_range_of_floating_point_values_allowed_as_answer;
|
|
|
|
|
extern const char *Txt_The_lower_limit_of_correct_answers_must_be_less_than_or_equal_to_the_upper_limit;
|
|
|
|
|
unsigned NumOpt;
|
|
|
|
|
unsigned NumLastOpt;
|
|
|
|
|
bool ThereIsEndOfAnswers;
|
|
|
|
|
unsigned i;
|
|
|
|
|
|
|
|
|
|
/***** This function also counts the number of options. Initialize this number to 0. *****/
|
|
|
|
|
Gbl.Test.Answer.NumOptions = 0;
|
|
|
|
|
|
|
|
|
|
/***** A question must have at least one tag *****/
|
|
|
|
|
if (!Gbl.Test.NumTags) // There are no tags with text
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_type_at_least_one_tag_for_the_question);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** A question must have a stem*****/
|
|
|
|
|
if (!Gbl.Test.Stem.Length)
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_type_the_stem_of_the_question);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Check answer *****/
|
|
|
|
|
switch (Gbl.Test.AnswerType)
|
|
|
|
|
{
|
|
|
|
|
case Tst_ANS_INT:
|
|
|
|
|
if (!Gbl.Test.Answer.Options[0].Text)
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_enter_an_integer_value_as_the_correct_answer);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
if (!Gbl.Test.Answer.Options[0].Text[0])
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_enter_an_integer_value_as_the_correct_answer);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
Gbl.Test.Answer.Integer = Tst_GetIntAnsFromStr (Gbl.Test.Answer.Options[0].Text);
|
|
|
|
|
Gbl.Test.Answer.NumOptions = 1;
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_FLOAT:
|
|
|
|
|
if (!Gbl.Test.Answer.Options[0].Text ||
|
|
|
|
|
!Gbl.Test.Answer.Options[1].Text)
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_enter_the_range_of_floating_point_values_allowed_as_answer);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
if (!Gbl.Test.Answer.Options[0].Text[0] ||
|
|
|
|
|
!Gbl.Test.Answer.Options[1].Text[0])
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_enter_the_range_of_floating_point_values_allowed_as_answer);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
for (i = 0;
|
|
|
|
|
i < 2;
|
|
|
|
|
i++)
|
|
|
|
|
Gbl.Test.Answer.FloatingPoint[i] = Tst_GetFloatAnsFromStr (Gbl.Test.Answer.Options[i].Text);
|
|
|
|
|
if (Gbl.Test.Answer.FloatingPoint[0] >
|
|
|
|
|
Gbl.Test.Answer.FloatingPoint[1])
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_The_lower_limit_of_correct_answers_must_be_less_than_or_equal_to_the_upper_limit);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
Gbl.Test.Answer.NumOptions = 2;
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_TRUE_FALSE:
|
|
|
|
|
if (Gbl.Test.Answer.TF != 'T' &&
|
|
|
|
|
Gbl.Test.Answer.TF != 'F')
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_select_a_T_F_answer);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
Gbl.Test.Answer.NumOptions = 1;
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_UNIQUE_CHOICE:
|
|
|
|
|
case Tst_ANS_MULTIPLE_CHOICE:
|
|
|
|
|
if (!Gbl.Test.Answer.Options[0].Text) // If the first answer is empty
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_type_at_least_the_first_two_answers);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
if (!Gbl.Test.Answer.Options[0].Text[0]) // If the first answer is empty
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_type_at_least_the_first_two_answers);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (NumOpt = 0, NumLastOpt = 0, ThereIsEndOfAnswers = false;
|
|
|
|
|
NumOpt < Tst_MAX_OPTIONS_PER_QUESTION;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Text)
|
|
|
|
|
{
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Text[0])
|
|
|
|
|
{
|
|
|
|
|
if (ThereIsEndOfAnswers)
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_can_not_leave_empty_intermediate_answers);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
NumLastOpt = NumOpt;
|
|
|
|
|
Gbl.Test.Answer.NumOptions++;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
ThereIsEndOfAnswers = true;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
ThereIsEndOfAnswers = true;
|
|
|
|
|
|
|
|
|
|
if (NumLastOpt < 1)
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_type_at_least_the_first_two_answers);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt <= NumLastOpt;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Correct)
|
|
|
|
|
break;
|
|
|
|
|
if (NumOpt > NumLastOpt)
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_mark_an_answer_as_correct);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_TEXT:
|
|
|
|
|
if (!Gbl.Test.Answer.Options[0].Text) // If the first answer is empty
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_type_at_least_the_first_two_answers);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
if (!Gbl.Test.Answer.Options[0].Text[0]) // If the first answer is empty
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_type_at_least_the_first_answer);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (NumOpt=0, ThereIsEndOfAnswers=false;
|
|
|
|
|
NumOpt<Tst_MAX_OPTIONS_PER_QUESTION;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Text)
|
|
|
|
|
{
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Text[0])
|
|
|
|
|
{
|
|
|
|
|
if (ThereIsEndOfAnswers)
|
|
|
|
|
{
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_can_not_leave_empty_intermediate_answers);
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
Gbl.Test.Answer.NumOptions++;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
ThereIsEndOfAnswers = true;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
ThereIsEndOfAnswers = true;
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return true; // Question format without errors
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************** Get a integer number from a string *********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
long Tst_GetIntAnsFromStr (char *Str)
|
|
|
|
|
{
|
|
|
|
|
long LongNum;
|
|
|
|
|
|
|
|
|
|
if (Str == NULL)
|
|
|
|
|
return 0.0;
|
|
|
|
|
|
|
|
|
|
/***** The string is "scanned" as long *****/
|
|
|
|
|
if (sscanf (Str,"%ld",&LongNum) != 1) // If the string does not hold a valid integer number...
|
|
|
|
|
{
|
|
|
|
|
LongNum = 0L; // ...the number is reset to 0
|
|
|
|
|
Str[0] = '\0'; // ...and the string is reset to ""
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return LongNum;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************ Get a float number from a string in floating point *************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
double Tst_GetFloatAnsFromStr (char *Str)
|
|
|
|
|
{
|
|
|
|
|
double DoubleNum;
|
|
|
|
|
|
|
|
|
|
if (Str == NULL)
|
|
|
|
|
return 0.0;
|
|
|
|
|
|
|
|
|
|
/***** Change commnas to points *****/
|
|
|
|
|
Str_ConvertStrFloatCommaToStrFloatPoint (Str);
|
|
|
|
|
|
|
|
|
|
/***** The string is "scanned" in floating point (it must have a point, not a colon as decimal separator) *****/
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"en_US.utf8"); // To get decimal point
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (sscanf (Str,"%lg",&DoubleNum) != 1) // If the string does not hold a valid floating point number...
|
|
|
|
|
{
|
|
|
|
|
DoubleNum = 0.0; // ...the number is reset to 0
|
|
|
|
|
Str[0] = '\0'; // ...and the string is reset to ""
|
|
|
|
|
}
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"es_ES.utf8"); // Return to spanish system (TODO: this should be internationalized!!!!!!!)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
return DoubleNum;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/***************** Check if this tag exists for current course ***************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static long Tst_GetTagCodFromTagTxt (const char *TagTxt)
|
|
|
|
|
{
|
|
|
|
|
char Query[256+Tst_MAX_BYTES_TAG];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned long NumRows;
|
|
|
|
|
long TagCod = -1L; // -1 means that the tag does not exist in database
|
|
|
|
|
bool Error = false;
|
|
|
|
|
|
|
|
|
|
/***** Get tag code from database *****/
|
|
|
|
|
sprintf (Query,"SELECT TagCod FROM tst_tags"
|
|
|
|
|
" WHERE tst_tags.CrsCod='%ld' AND tst_tags.TagTxt='%s'",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,TagTxt);
|
|
|
|
|
NumRows = DB_QuerySELECT (Query,&mysql_res,"can not get tag");
|
|
|
|
|
|
|
|
|
|
if (NumRows == 1)
|
|
|
|
|
{
|
|
|
|
|
/***** Get tag code *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
if ((TagCod = Str_ConvertStrCodToLongCod (row[0])) < 0)
|
|
|
|
|
{
|
|
|
|
|
strcpy (Gbl.Message,"Wrong code of tag.");
|
|
|
|
|
Error = true;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (NumRows > 1)
|
|
|
|
|
{
|
|
|
|
|
strcpy (Gbl.Message,"Duplicated tag.");
|
|
|
|
|
Error = true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
|
|
|
|
|
if (Error)
|
|
|
|
|
Lay_ShowErrorAndExit (Gbl.Message);
|
|
|
|
|
|
|
|
|
|
return TagCod;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********************* Insert new tag into tst_tags table ********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static long Tst_CreateNewTag (long CrsCod,const char *TagTxt)
|
|
|
|
|
{
|
|
|
|
|
char Query[256+Tst_MAX_BYTES_TAG];
|
|
|
|
|
|
|
|
|
|
/***** Insert new tag into tst_tags table *****/
|
|
|
|
|
sprintf (Query,"INSERT INTO tst_tags (CrsCod,ChangeTime,TagTxt,TagHidden)"
|
|
|
|
|
" VALUES ('%ld',NOW(),'%s','N')",
|
|
|
|
|
CrsCod,TagTxt);
|
|
|
|
|
return DB_QueryINSERTandReturnCode (Query,"can not create new tag");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********** Change visibility of an existing tag into tst_tags table *********/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_EnableOrDisableTag (long TagCod,bool TagHidden)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Insert new tag into tst_tags table *****/
|
|
|
|
|
sprintf (Query,"UPDATE tst_tags SET TagHidden='%c',ChangeTime=NOW()"
|
|
|
|
|
" WHERE TagCod='%ld' AND CrsCod='%ld'",
|
|
|
|
|
TagHidden ? 'Y' :
|
|
|
|
|
'N',
|
|
|
|
|
TagCod,Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
DB_QueryUPDATE (Query,"can not update the visibility of a tag");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************************* Remove a question ***************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_RemoveQst (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Question_removed;
|
|
|
|
|
char Query[512];
|
|
|
|
|
char YN[1+1];
|
|
|
|
|
bool EditingOnlyThisQst;
|
|
|
|
|
|
|
|
|
|
/***** Get the question code *****/
|
|
|
|
|
if (!Tst_GetQstCod ())
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong code of question.");
|
|
|
|
|
|
|
|
|
|
/***** Get a parameter that indicates whether it's necessary to continue listing the rest of questions ******/
|
|
|
|
|
Par_GetParToText ("OnlyThisQst",YN,1);
|
|
|
|
|
EditingOnlyThisQst = (Str_ConvertToUpperLetter (YN[0]) == 'Y');
|
|
|
|
|
|
|
|
|
|
/***** Remove the question from all the tables *****/
|
|
|
|
|
/* Remove answers and tags from this test question */
|
|
|
|
|
Tst_RemAnsFromQst ();
|
|
|
|
|
Tst_RemTagsFromQst ();
|
|
|
|
|
Tst_RemoveUnusedTagsFromCurrentCrs ();
|
|
|
|
|
|
|
|
|
|
/* Remove the question itself */
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_questions"
|
|
|
|
|
" WHERE QstCod='%ld' AND CrsCod='%ld'",
|
|
|
|
|
Gbl.Test.QstCod,Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove a question");
|
|
|
|
|
|
|
|
|
|
if (!mysql_affected_rows (&Gbl.mysql))
|
|
|
|
|
Lay_ShowErrorAndExit ("The question to be removed does not exist or belongs to another course.");
|
|
|
|
|
|
|
|
|
|
/***** Write message *****/
|
|
|
|
|
Lay_ShowAlert (Lay_SUCCESS,Txt_Question_removed);
|
|
|
|
|
|
|
|
|
|
/***** Continue editing questions *****/
|
|
|
|
|
if (!EditingOnlyThisQst)
|
|
|
|
|
Tst_ListQuestionsToEdit ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********************** Change the shuffle of a question ********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_ChangeShuffleQst (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_The_answers_of_the_question_with_code_X_will_appear_shuffled;
|
|
|
|
|
extern const char *Txt_The_answers_of_the_question_with_code_X_will_appear_without_shuffling;
|
|
|
|
|
char Query[512];
|
|
|
|
|
char YN[1+1];
|
|
|
|
|
bool EditingOnlyThisQst;
|
|
|
|
|
bool Shuffle;
|
|
|
|
|
|
|
|
|
|
/***** Get the question code *****/
|
|
|
|
|
if (!Tst_GetQstCod ())
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong code of question.");
|
|
|
|
|
|
|
|
|
|
/***** Get a parameter that indicates whether it's necessary to continue listing the rest of questions ******/
|
|
|
|
|
Par_GetParToText ("OnlyThisQst",YN,1);
|
|
|
|
|
EditingOnlyThisQst = (Str_ConvertToUpperLetter (YN[0]) == 'Y');
|
|
|
|
|
|
|
|
|
|
/***** Get a parameter that indicates whether it's possible to shuffle the answers of this question ******/
|
|
|
|
|
Par_GetParToText ("Shuffle",YN,1);
|
|
|
|
|
Shuffle = (Str_ConvertToUpperLetter (YN[0]) == 'Y');
|
|
|
|
|
|
|
|
|
|
/***** Remove the question from all the tables *****/
|
|
|
|
|
/* Update the question changing the current shuffle */
|
|
|
|
|
sprintf (Query,"UPDATE tst_questions SET Shuffle='%c'"
|
|
|
|
|
" WHERE QstCod='%ld' AND CrsCod='%ld'",
|
|
|
|
|
Shuffle ? 'Y' :
|
|
|
|
|
'N',
|
|
|
|
|
Gbl.Test.QstCod,Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
DB_QueryUPDATE (Query,"can not update the shuffle type of a question");
|
|
|
|
|
|
|
|
|
|
/***** Write message *****/
|
|
|
|
|
sprintf (Gbl.Message,
|
|
|
|
|
Shuffle ? Txt_The_answers_of_the_question_with_code_X_will_appear_shuffled :
|
|
|
|
|
Txt_The_answers_of_the_question_with_code_X_will_appear_without_shuffling,
|
|
|
|
|
Gbl.Test.QstCod);
|
|
|
|
|
Lay_ShowAlert (Lay_SUCCESS,Gbl.Message);
|
|
|
|
|
|
|
|
|
|
/***** Continue editing questions *****/
|
|
|
|
|
if (EditingOnlyThisQst)
|
|
|
|
|
Tst_ListOneQstToEdit ();
|
|
|
|
|
else
|
|
|
|
|
Tst_ListQuestionsToEdit ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************ Get the parameter with the code of a test question *************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// Return 1 if parameter exists; 0 if not found
|
|
|
|
|
|
|
|
|
|
static int Tst_GetQstCod (void)
|
|
|
|
|
{
|
|
|
|
|
char LongStr[1+10+1];
|
|
|
|
|
|
|
|
|
|
Par_GetParToText ("QstCod",LongStr,1+10);
|
|
|
|
|
if ((Gbl.Test.QstCod = Str_ConvertStrCodToLongCod (LongStr)) < 0)
|
|
|
|
|
return 0;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******** Insert or update question, tags and anser in the database **********/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_InsertOrUpdateQstTagsAnsIntoDB (void)
|
|
|
|
|
{
|
|
|
|
|
/***** Insert or update question in the table of questions *****/
|
|
|
|
|
Tst_InsertOrUpdateQstIntoDB ();
|
|
|
|
|
|
|
|
|
|
/***** Insert tags in the tags table *****/
|
|
|
|
|
Tst_InsertTagsIntoDB ();
|
|
|
|
|
|
|
|
|
|
/***** Remove unused tags in current course *****/
|
|
|
|
|
Tst_RemoveUnusedTagsFromCurrentCrs ();
|
|
|
|
|
|
|
|
|
|
/***** Insert answers in the answers table *****/
|
|
|
|
|
Tst_InsertAnswersIntoDB ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********** Insert or update question in the table of questions *************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_InsertOrUpdateQstIntoDB (void)
|
|
|
|
|
{
|
|
|
|
|
char *Query;
|
|
|
|
|
|
|
|
|
|
/***** Allocate space for query *****/
|
|
|
|
|
if ((Query = malloc (256 +
|
|
|
|
|
Gbl.Test.Stem.Length +
|
|
|
|
|
Gbl.Test.Feedback.Length)) == NULL)
|
|
|
|
|
Lay_ShowErrorAndExit ("Not enough memory to store database query.");
|
|
|
|
|
|
|
|
|
|
/***** Make database query *****/
|
|
|
|
|
if (Gbl.Test.QstCod < 0) // It's a new question
|
|
|
|
|
{
|
|
|
|
|
/* Insert question in the table of questions */
|
|
|
|
|
sprintf (Query,"INSERT INTO tst_questions (CrsCod,EditTime,AnsType,Shuffle,Stem,Feedback,NumHits,Score)"
|
|
|
|
|
" VALUES ('%ld',NOW(),'%s','%c','%s','%s','0','0')",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[Gbl.Test.AnswerType],
|
|
|
|
|
Gbl.Test.Shuffle ? 'Y' :
|
|
|
|
|
'N',
|
|
|
|
|
Gbl.Test.Stem.Text,
|
|
|
|
|
Gbl.Test.Feedback.Text ? Gbl.Test.Feedback.Text : "");
|
|
|
|
|
Gbl.Test.QstCod = DB_QueryINSERTandReturnCode (Query,"can not create question");
|
|
|
|
|
}
|
|
|
|
|
else // It's an existing question
|
|
|
|
|
{
|
|
|
|
|
/* Update question */
|
|
|
|
|
sprintf (Query,"UPDATE tst_questions"
|
|
|
|
|
" SET EditTime=NOW(),AnsType='%s',Shuffle='%c',Stem='%s',Feedback='%s'"
|
|
|
|
|
" WHERE QstCod='%ld' AND CrsCod='%ld'",
|
|
|
|
|
Tst_StrAnswerTypesDB[Gbl.Test.AnswerType],
|
|
|
|
|
Gbl.Test.Shuffle ? 'Y' :
|
|
|
|
|
'N',
|
|
|
|
|
Gbl.Test.Stem.Text,
|
|
|
|
|
Gbl.Test.Feedback.Text ? Gbl.Test.Feedback.Text : "",
|
|
|
|
|
Gbl.Test.QstCod,Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
DB_QueryUPDATE (Query,"can not update question");
|
|
|
|
|
|
|
|
|
|
/* Remove answers and tags from this test question */
|
|
|
|
|
Tst_RemAnsFromQst ();
|
|
|
|
|
Tst_RemTagsFromQst ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free space user for query *****/
|
|
|
|
|
free ((void *) Query);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********************** Insert tags in the tags table ***********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_InsertTagsIntoDB (void)
|
|
|
|
|
{
|
|
|
|
|
char Query[256];
|
|
|
|
|
unsigned NumTag;
|
|
|
|
|
unsigned TagIdx;
|
|
|
|
|
long TagCod;
|
|
|
|
|
|
|
|
|
|
/***** For each tag... *****/
|
|
|
|
|
for (NumTag = 0, TagIdx = 0;
|
|
|
|
|
TagIdx < Gbl.Test.NumTags;
|
|
|
|
|
NumTag++)
|
|
|
|
|
if (Gbl.Test.TagText[NumTag][0])
|
|
|
|
|
{
|
|
|
|
|
/***** Check if this tag exists for current course *****/
|
|
|
|
|
if ((TagCod = Tst_GetTagCodFromTagTxt (Gbl.Test.TagText[NumTag])) < 0)
|
|
|
|
|
/* This tag is new for current course. Add it to tags table */
|
|
|
|
|
TagCod = Tst_CreateNewTag (Gbl.CurrentCrs.Crs.CrsCod,Gbl.Test.TagText[NumTag]);
|
|
|
|
|
|
|
|
|
|
/***** Insert tag in tst_question_tags *****/
|
|
|
|
|
sprintf (Query,"INSERT INTO tst_question_tags (QstCod,TagCod,TagInd)"
|
|
|
|
|
" VALUES ('%ld','%ld','%u')",
|
|
|
|
|
Gbl.Test.QstCod,TagCod,TagIdx);
|
|
|
|
|
DB_QueryINSERT (Query,"can not create tag");
|
|
|
|
|
|
|
|
|
|
TagIdx++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************* Insert answers in the answers table *********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_InsertAnswersIntoDB (void)
|
|
|
|
|
{
|
|
|
|
|
char *Query;
|
|
|
|
|
unsigned NumOpt;
|
|
|
|
|
unsigned i;
|
|
|
|
|
|
|
|
|
|
/***** Allocate space for query *****/
|
|
|
|
|
if ((Query = malloc (256+Tst_MAX_BYTES_ANSWER_OR_FEEDBACK*2)) == NULL)
|
|
|
|
|
Lay_ShowErrorAndExit ("Not enough memory to store database query.");
|
|
|
|
|
|
|
|
|
|
/***** Insert answers in the answers table *****/
|
|
|
|
|
switch (Gbl.Test.AnswerType)
|
|
|
|
|
{
|
|
|
|
|
case Tst_ANS_INT:
|
|
|
|
|
sprintf (Query,"INSERT INTO tst_answers (QstCod,AnsInd,Answer,Feedback,Correct)"
|
|
|
|
|
" VALUES (%ld,0,'%ld','','Y')",
|
|
|
|
|
Gbl.Test.QstCod,
|
|
|
|
|
Gbl.Test.Answer.Integer);
|
|
|
|
|
DB_QueryINSERT (Query,"can not create answer");
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_FLOAT:
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"en_US.utf8"); // To print the floating point as a dot
|
2014-12-01 23:55:08 +01:00
|
|
|
|
for (i = 0;
|
|
|
|
|
i < 2;
|
|
|
|
|
i++)
|
|
|
|
|
{
|
|
|
|
|
sprintf (Query,"INSERT INTO tst_answers (QstCod,AnsInd,Answer,Feedback,Correct)"
|
|
|
|
|
" VALUES (%ld,%u,'%lg','','Y')",
|
|
|
|
|
Gbl.Test.QstCod,i,
|
|
|
|
|
Gbl.Test.Answer.FloatingPoint[i]);
|
|
|
|
|
DB_QueryINSERT (Query,"can not create answer");
|
|
|
|
|
}
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"es_ES.utf8"); // Return to spanish system (TODO: this should be internationalized!!!!!!!)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_TRUE_FALSE:
|
|
|
|
|
sprintf (Query,"INSERT INTO tst_answers (QstCod,AnsInd,Answer,Feedback,Correct)"
|
|
|
|
|
" VALUES (%ld,0,'%c','','Y')",
|
|
|
|
|
Gbl.Test.QstCod,
|
|
|
|
|
Gbl.Test.Answer.TF);
|
|
|
|
|
DB_QueryINSERT (Query,"can not create answer");
|
|
|
|
|
break;
|
|
|
|
|
case Tst_ANS_UNIQUE_CHOICE:
|
|
|
|
|
case Tst_ANS_MULTIPLE_CHOICE:
|
|
|
|
|
case Tst_ANS_TEXT:
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Gbl.Test.Answer.NumOptions;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Text[0])
|
|
|
|
|
{
|
|
|
|
|
sprintf (Query,"INSERT INTO tst_answers (QstCod,AnsInd,Answer,Feedback,Correct)"
|
|
|
|
|
" VALUES (%ld,%u,'%s','%s','%c')",
|
|
|
|
|
Gbl.Test.QstCod,NumOpt,
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Text,
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Feedback,
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Correct ? 'Y' :
|
|
|
|
|
'N');
|
|
|
|
|
DB_QueryINSERT (Query,"can not create answer");
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free space allocated for query *****/
|
|
|
|
|
free ((void *) Query);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************** Remove answers from a test question ********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_RemAnsFromQst (void)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Remove answers *****/
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_answers WHERE QstCod='%ld'",
|
|
|
|
|
Gbl.Test.QstCod);
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove the answers of a question");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************************** Remove tags from a test question *****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_RemTagsFromQst (void)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Remove tags *****/
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_question_tags WHERE QstCod='%ld'",
|
|
|
|
|
Gbl.Test.QstCod);
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove the tags of a question");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************** Remove unused tags in current course *******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_RemoveUnusedTagsFromCurrentCrs (void)
|
|
|
|
|
{
|
|
|
|
|
char Query[1024];
|
|
|
|
|
|
|
|
|
|
/***** Remove unused tags from tst_tags *****/
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_tags WHERE CrsCod='%ld' AND TagCod NOT IN"
|
|
|
|
|
" (SELECT DISTINCT tst_question_tags.TagCod FROM tst_questions,tst_question_tags"
|
|
|
|
|
" WHERE tst_questions.CrsCod='%ld' AND tst_questions.QstCod=tst_question_tags.QstCod)",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove unused tags");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************* Allocate memory for a choice answer *********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
int Tst_AllocateTextChoiceAnswer (unsigned NumOpt)
|
|
|
|
|
{
|
|
|
|
|
Tst_FreeTextChoiceAnswer (NumOpt);
|
|
|
|
|
|
|
|
|
|
if ((Gbl.Test.Answer.Options[NumOpt].Text =
|
|
|
|
|
malloc (Tst_MAX_BYTES_ANSWER_OR_FEEDBACK + 1)) == NULL)
|
|
|
|
|
{
|
|
|
|
|
sprintf (Gbl.Message,"Not enough memory to store answer.");
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
if ((Gbl.Test.Answer.Options[NumOpt].Feedback =
|
|
|
|
|
malloc (Tst_MAX_BYTES_ANSWER_OR_FEEDBACK + 1)) == NULL)
|
|
|
|
|
{
|
|
|
|
|
sprintf (Gbl.Message,"Not enough memory to store feedback.");
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Text[0] =
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Feedback[0] = '\0';
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************** Free memory of all choice answers **********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_FreeTextChoiceAnswers (void)
|
|
|
|
|
{
|
|
|
|
|
unsigned NumOpt;
|
|
|
|
|
|
|
|
|
|
for (NumOpt = 0;
|
|
|
|
|
NumOpt < Tst_MAX_OPTIONS_PER_QUESTION;
|
|
|
|
|
NumOpt++)
|
|
|
|
|
Tst_FreeTextChoiceAnswer (NumOpt);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********************** Free memory of a choice answer ***********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_FreeTextChoiceAnswer (unsigned NumOpt)
|
|
|
|
|
{
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Text)
|
|
|
|
|
{
|
|
|
|
|
free ((void *) Gbl.Test.Answer.Options[NumOpt].Text);
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Text = NULL;
|
|
|
|
|
}
|
|
|
|
|
if (Gbl.Test.Answer.Options[NumOpt].Feedback)
|
|
|
|
|
{
|
|
|
|
|
free ((void *) Gbl.Test.Answer.Options[NumOpt].Feedback);
|
|
|
|
|
Gbl.Test.Answer.Options[NumOpt].Feedback = NULL;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********************** Get stats about test questions **********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_GetTestStats (Tst_AnswerType_t AnsType,struct Tst_Stats *Stats)
|
|
|
|
|
{
|
|
|
|
|
Stats->NumQsts = 0;
|
|
|
|
|
Stats->NumCoursesWithQuestions = Stats->NumCoursesWithPluggableQuestions = 0;
|
|
|
|
|
Stats->AvgQstsPerCourse = 0.0;
|
|
|
|
|
Stats->NumHits = 0L;
|
|
|
|
|
Stats->AvgHitsPerCourse = 0.0;
|
|
|
|
|
Stats->AvgHitsPerQuestion = 0.0;
|
|
|
|
|
Stats->TotalScore = 0.0;
|
|
|
|
|
Stats->AvgScorePerQuestion = 0.0;
|
|
|
|
|
|
|
|
|
|
if (Tst_GetNumTstQuestions (Gbl.Scope.Current,AnsType,Stats))
|
|
|
|
|
{
|
|
|
|
|
if ((Stats->NumCoursesWithQuestions = Tst_GetNumCoursesWithTstQuestions (Gbl.Scope.Current,AnsType)) != 0)
|
|
|
|
|
{
|
|
|
|
|
Stats->NumCoursesWithPluggableQuestions = Tst_GetNumCoursesWithPluggableTstQuestions (Gbl.Scope.Current,AnsType);
|
|
|
|
|
Stats->AvgQstsPerCourse = (float) Stats->NumQsts / (float) Stats->NumCoursesWithQuestions;
|
|
|
|
|
Stats->AvgHitsPerCourse = (float) Stats->NumHits / (float) Stats->NumCoursesWithQuestions;
|
|
|
|
|
}
|
|
|
|
|
Stats->AvgHitsPerQuestion = (float) Stats->NumHits / (float) Stats->NumQsts;
|
|
|
|
|
if (Stats->NumHits)
|
|
|
|
|
Stats->AvgScorePerQuestion = Stats->TotalScore / (double) Stats->NumHits;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********************** Get number of test questions ************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// Returns the number of test questions
|
|
|
|
|
// in this location (all the platform, current degree or current course)
|
|
|
|
|
|
|
|
|
|
static unsigned Tst_GetNumTstQuestions (Sco_Scope_t Scope,Tst_AnswerType_t AnsType,struct Tst_Stats *Stats)
|
|
|
|
|
{
|
|
|
|
|
char Query[1024];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
|
|
|
|
|
/***** Get number of test questions from database *****/
|
|
|
|
|
switch (Scope)
|
|
|
|
|
{
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_SYS:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*),SUM(NumHits),SUM(Score)"
|
|
|
|
|
" FROM tst_questions");
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*),SUM(NumHits),SUM(Score)"
|
|
|
|
|
" FROM tst_questions"
|
|
|
|
|
" WHERE AnsType='%s'",
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
break;
|
2015-03-09 11:03:55 +01:00
|
|
|
|
case Sco_SCOPE_CTY:
|
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*),SUM(NumHits),SUM(Score)"
|
|
|
|
|
" FROM institutions,centres,degrees,courses,tst_questions"
|
|
|
|
|
" WHERE institutions.CtyCod='%ld'"
|
|
|
|
|
" AND institutions.InsCod=centres.InsCod"
|
|
|
|
|
" AND centres.CtrCod=degrees.CtrCod"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod",
|
|
|
|
|
Gbl.CurrentCty.Cty.CtyCod);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*),SUM(NumHits),SUM(Score)"
|
|
|
|
|
" FROM institutions,centres,degrees,courses,tst_questions"
|
|
|
|
|
" WHERE institutions.CtyCod='%ld'"
|
|
|
|
|
" AND institutions.InsCod=centres.InsCod"
|
|
|
|
|
" AND centres.CtrCod=degrees.CtrCod"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.AnsType='%s'",
|
|
|
|
|
Gbl.CurrentCty.Cty.CtyCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
break;
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_INS:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*),SUM(NumHits),SUM(Score)"
|
|
|
|
|
" FROM centres,degrees,courses,tst_questions"
|
|
|
|
|
" WHERE centres.InsCod='%ld'"
|
|
|
|
|
" AND centres.CtrCod=degrees.CtrCod"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod",
|
|
|
|
|
Gbl.CurrentIns.Ins.InsCod);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*),SUM(NumHits),SUM(Score)"
|
|
|
|
|
" FROM centres,degrees,courses,tst_questions"
|
|
|
|
|
" WHERE centres.InsCod='%ld'"
|
|
|
|
|
" AND centres.CtrCod=degrees.CtrCod"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.AnsType='%s'",
|
|
|
|
|
Gbl.CurrentIns.Ins.InsCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
break;
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_CTR:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*),SUM(NumHits),SUM(Score)"
|
|
|
|
|
" FROM degrees,courses,tst_questions"
|
|
|
|
|
" WHERE degrees.CtrCod='%ld'"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod",
|
|
|
|
|
Gbl.CurrentCtr.Ctr.CtrCod);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*),SUM(NumHits),SUM(Score)"
|
|
|
|
|
" FROM degrees,courses,tst_questions"
|
|
|
|
|
" WHERE degrees.CtrCod='%ld'"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.AnsType='%s'",
|
|
|
|
|
Gbl.CurrentCtr.Ctr.CtrCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
break;
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_DEG:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*),SUM(NumHits),SUM(Score)"
|
|
|
|
|
" FROM courses,tst_questions"
|
|
|
|
|
" WHERE courses.DegCod='%ld'"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod",
|
|
|
|
|
Gbl.CurrentDeg.Deg.DegCod);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*),SUM(NumHits),SUM(Score)"
|
|
|
|
|
" FROM courses,tst_questions"
|
|
|
|
|
" WHERE courses.DegCod='%ld'"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.AnsType='%s'",
|
|
|
|
|
Gbl.CurrentDeg.Deg.DegCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
break;
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_CRS:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*),SUM(NumHits),SUM(Score)"
|
|
|
|
|
" FROM tst_questions"
|
|
|
|
|
" WHERE CrsCod='%ld'",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(*),SUM(NumHits),SUM(Score)"
|
|
|
|
|
" FROM tst_questions"
|
|
|
|
|
" WHERE CrsCod='%ld' AND AnsType='%s'",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong scope.");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
DB_QuerySELECT (Query,&mysql_res,"can not get number of test questions");
|
|
|
|
|
|
|
|
|
|
/***** Get number of questions *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
if (sscanf (row[0],"%u",&(Stats->NumQsts)) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Error when getting number of test questions.");
|
|
|
|
|
|
|
|
|
|
if (Stats->NumQsts)
|
|
|
|
|
{
|
|
|
|
|
if (sscanf (row[1],"%lu",&(Stats->NumHits)) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Error when getting total number of hits in test questions.");
|
|
|
|
|
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"en_US.utf8"); // To get decimal point
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (sscanf (row[2],"%lf",&(Stats->TotalScore)) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Error when getting total score in test questions.");
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"es_ES.utf8"); // Return to spanish system (TODO: this should be internationalized!!!!!!!)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
Stats->NumHits = 0L;
|
|
|
|
|
Stats->TotalScore = 0.0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
|
|
|
|
|
return Stats->NumQsts;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/**************** Get number of courses with test questions ******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// Returns the number of courses with test questions
|
|
|
|
|
// in this location (all the platform, current degree or current course)
|
|
|
|
|
|
|
|
|
|
static unsigned Tst_GetNumCoursesWithTstQuestions (Sco_Scope_t Scope,Tst_AnswerType_t AnsType)
|
|
|
|
|
{
|
|
|
|
|
char Query[1024];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned NumCourses;
|
|
|
|
|
|
|
|
|
|
/***** Get number of courses with test questions from database *****/
|
|
|
|
|
switch (Scope)
|
|
|
|
|
{
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_SYS:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (CrsCod))"
|
|
|
|
|
" FROM tst_questions");
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (CrsCod))"
|
|
|
|
|
" FROM tst_questions"
|
|
|
|
|
" WHERE AnsType='%s'",
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
break;
|
2015-03-09 11:03:55 +01:00
|
|
|
|
case Sco_SCOPE_CTY:
|
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM institutions,centres,degrees,courses,tst_questions"
|
|
|
|
|
" WHERE institutions.CtyCod='%ld'"
|
|
|
|
|
" AND institutions.InsCod=centres.InsCod"
|
|
|
|
|
" AND centres.CtrCod=degrees.CtrCod"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod",
|
|
|
|
|
Gbl.CurrentCty.Cty.CtyCod);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM institutions,centres,degrees,courses,tst_questions"
|
|
|
|
|
" WHERE institutions.CtyCod='%ld'"
|
|
|
|
|
" AND institutions.InsCod=centres.InsCod"
|
|
|
|
|
" AND centres.CtrCod=degrees.CtrCod"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.AnsType='%s'",
|
|
|
|
|
Gbl.CurrentCty.Cty.CtyCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
break;
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_INS:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM centres,degrees,courses,tst_questions"
|
|
|
|
|
" WHERE centres.InsCod='%ld'"
|
|
|
|
|
" AND centres.CtrCod=degrees.CtrCod"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod",
|
|
|
|
|
Gbl.CurrentIns.Ins.InsCod);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM centres,degrees,courses,tst_questions"
|
|
|
|
|
" WHERE centres.InsCod='%ld'"
|
|
|
|
|
" AND centres.CtrCod=degrees.CtrCod"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.AnsType='%s'",
|
|
|
|
|
Gbl.CurrentIns.Ins.InsCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
break;
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_CTR:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM degrees,courses,tst_questions"
|
|
|
|
|
" WHERE degrees.CtrCod='%ld'"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod",
|
|
|
|
|
Gbl.CurrentCtr.Ctr.CtrCod);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM degrees,courses,tst_questions"
|
|
|
|
|
" WHERE degrees.CtrCod='%ld'"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.AnsType='%s'",
|
|
|
|
|
Gbl.CurrentCtr.Ctr.CtrCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
break;
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_DEG:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM courses,tst_questions"
|
|
|
|
|
" WHERE courses.DegCod='%ld'"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod",
|
|
|
|
|
Gbl.CurrentDeg.Deg.DegCod);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM courses,tst_questions"
|
|
|
|
|
" WHERE courses.DegCod='%ld'"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.AnsType='%s'",
|
|
|
|
|
Gbl.CurrentDeg.Deg.DegCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
break;
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_CRS:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (CrsCod))"
|
|
|
|
|
" FROM tst_questions"
|
|
|
|
|
" WHERE CrsCod='%ld'",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (CrsCod))"
|
|
|
|
|
" FROM tst_questions"
|
|
|
|
|
" WHERE CrsCod='%ld'"
|
|
|
|
|
" AND AnsType='%s'",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType]);
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong scope.");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
DB_QuerySELECT (Query,&mysql_res,"can not get number of courses with test questions");
|
|
|
|
|
|
|
|
|
|
/***** Get number of courses *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
if (sscanf (row[0],"%u",&NumCourses) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Error when getting number of courses with test questions.");
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
|
|
|
|
|
return NumCourses;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*********** Get number of courses with pluggable test questions *************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
// Returns the number of courses with pluggable test questions
|
|
|
|
|
// in this location (all the platform, current degree or current course)
|
|
|
|
|
|
|
|
|
|
static unsigned Tst_GetNumCoursesWithPluggableTstQuestions (Sco_Scope_t Scope,Tst_AnswerType_t AnsType)
|
|
|
|
|
{
|
|
|
|
|
char Query[1024];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned NumCourses;
|
|
|
|
|
|
|
|
|
|
/***** Get number of courses with test questions from database *****/
|
|
|
|
|
switch (Scope)
|
|
|
|
|
{
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_SYS:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT tst_questions.CrsCod)"
|
|
|
|
|
" FROM tst_questions,tst_config"
|
|
|
|
|
" WHERE tst_questions.CrsCod=tst_config.CrsCod"
|
|
|
|
|
" AND tst_config.pluggable='%s'",
|
|
|
|
|
Tst_PluggableDB[Tst_PLUGGABLE_YES]);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT tst_questions.CrsCod)"
|
|
|
|
|
" FROM tst_questions,tst_config"
|
|
|
|
|
" WHERE tst_questions.AnsType='%s'"
|
|
|
|
|
" AND tst_questions.CrsCod=tst_config.CrsCod"
|
|
|
|
|
" AND tst_config.pluggable='%s'",
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType],
|
|
|
|
|
Tst_PluggableDB[Tst_PLUGGABLE_YES]);
|
|
|
|
|
break;
|
2015-03-09 11:03:55 +01:00
|
|
|
|
case Sco_SCOPE_CTY:
|
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM institutions,centres,degrees,courses,tst_questions,tst_config"
|
|
|
|
|
" WHERE institutions.CtyCod='%ld'"
|
|
|
|
|
" AND institutions.InsCod=centres.InsCod"
|
|
|
|
|
" AND centres.CtrCod=degrees.CtrCod"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.CrsCod=tst_config.CrsCod"
|
|
|
|
|
" AND tst_config.pluggable='%s'",
|
|
|
|
|
Gbl.CurrentCty.Cty.CtyCod,
|
|
|
|
|
Tst_PluggableDB[Tst_PLUGGABLE_YES]);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM institutions,centres,degrees,courses,tst_questions,tst_config"
|
|
|
|
|
" WHERE institutions.CtyCod='%ld'"
|
|
|
|
|
" AND institutions.InsCod=centres.InsCod"
|
|
|
|
|
" AND centres.CtrCod=degrees.CtrCod"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.AnsType='%s'"
|
|
|
|
|
" AND tst_questions.CrsCod=tst_config.CrsCod"
|
|
|
|
|
" AND tst_config.pluggable='%s'",
|
|
|
|
|
Gbl.CurrentCty.Cty.CtyCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType],
|
|
|
|
|
Tst_PluggableDB[Tst_PLUGGABLE_YES]);
|
|
|
|
|
break;
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_INS:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM centres,degrees,courses,tst_questions,tst_config"
|
|
|
|
|
" WHERE centres.InsCod='%ld'"
|
|
|
|
|
" AND centres.CtrCod=degrees.CtrCod"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.CrsCod=tst_config.CrsCod"
|
|
|
|
|
" AND tst_config.pluggable='%s'",
|
|
|
|
|
Gbl.CurrentIns.Ins.InsCod,
|
|
|
|
|
Tst_PluggableDB[Tst_PLUGGABLE_YES]);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM centres,degrees,courses,tst_questions,tst_config"
|
|
|
|
|
" WHERE centres.InsCod='%ld'"
|
|
|
|
|
" AND centres.CtrCod=degrees.CtrCod"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.AnsType='%s'"
|
|
|
|
|
" AND tst_questions.CrsCod=tst_config.CrsCod"
|
|
|
|
|
" AND tst_config.pluggable='%s'",
|
|
|
|
|
Gbl.CurrentIns.Ins.InsCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType],
|
|
|
|
|
Tst_PluggableDB[Tst_PLUGGABLE_YES]);
|
|
|
|
|
break;
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_CTR:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM degrees,courses,tst_questions,tst_config"
|
|
|
|
|
" WHERE degrees.CtrCod='%ld'"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.CrsCod=tst_config.CrsCod"
|
|
|
|
|
" AND tst_config.pluggable='%s'",
|
|
|
|
|
Gbl.CurrentCtr.Ctr.CtrCod,
|
|
|
|
|
Tst_PluggableDB[Tst_PLUGGABLE_YES]);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM degrees,courses,tst_questions,tst_config"
|
|
|
|
|
" WHERE degrees.CtrCod='%ld'"
|
|
|
|
|
" AND degrees.DegCod=courses.DegCod"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.AnsType='%s'"
|
|
|
|
|
" AND tst_questions.CrsCod=tst_config.CrsCod"
|
|
|
|
|
" AND tst_config.pluggable='%s'",
|
|
|
|
|
Gbl.CurrentCtr.Ctr.CtrCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType],
|
|
|
|
|
Tst_PluggableDB[Tst_PLUGGABLE_YES]);
|
|
|
|
|
break;
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_DEG:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM courses,tst_questions,tst_config"
|
|
|
|
|
" WHERE courses.DegCod='%ld'"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.CrsCod=tst_config.CrsCod"
|
|
|
|
|
" AND tst_config.pluggable='%s'",
|
|
|
|
|
Gbl.CurrentDeg.Deg.DegCod,
|
|
|
|
|
Tst_PluggableDB[Tst_PLUGGABLE_YES]);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT (tst_questions.CrsCod))"
|
|
|
|
|
" FROM courses,tst_questions,tst_config"
|
|
|
|
|
" WHERE courses.DegCod='%ld'"
|
|
|
|
|
" AND courses.CrsCod=tst_questions.CrsCod"
|
|
|
|
|
" AND tst_questions.AnsType='%s'"
|
|
|
|
|
" AND tst_questions.CrsCod=tst_config.CrsCod"
|
|
|
|
|
" AND tst_config.pluggable='%s'",
|
|
|
|
|
Gbl.CurrentDeg.Deg.DegCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType],
|
|
|
|
|
Tst_PluggableDB[Tst_PLUGGABLE_YES]);
|
|
|
|
|
break;
|
2015-02-01 20:17:24 +01:00
|
|
|
|
case Sco_SCOPE_CRS:
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (AnsType == Tst_ANS_ALL)
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT tst_questions.CrsCod)"
|
|
|
|
|
" FROM tst_questions,tst_config"
|
|
|
|
|
" WHERE tst_questions.CrsCod='%ld'"
|
|
|
|
|
" AND tst_questions.CrsCod=tst_config.CrsCod"
|
|
|
|
|
" AND tst_config.pluggable='%s'",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,
|
|
|
|
|
Tst_PluggableDB[Tst_PLUGGABLE_YES]);
|
|
|
|
|
else
|
|
|
|
|
sprintf (Query,"SELECT COUNT(DISTINCT tst_questions.CrsCod)"
|
|
|
|
|
" FROM tst_questions,tst_config"
|
|
|
|
|
" WHERE tst_questions.CrsCod='%ld'"
|
|
|
|
|
" AND tst_questions.AnsType='%s'"
|
|
|
|
|
" AND tst_questions.CrsCod=tst_config.CrsCod"
|
|
|
|
|
" AND tst_config.pluggable='%s'",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,
|
|
|
|
|
Tst_StrAnswerTypesDB[AnsType],
|
|
|
|
|
Tst_PluggableDB[Tst_PLUGGABLE_YES]);
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong scope.");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
DB_QuerySELECT (Query,&mysql_res,"can not get number of courses with pluggable test questions");
|
|
|
|
|
|
|
|
|
|
/***** Get number of courses *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
if (sscanf (row[0],"%u",&NumCourses) != 1)
|
|
|
|
|
Lay_ShowErrorAndExit ("Error when getting number of courses with pluggable test questions.");
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
|
|
|
|
|
return NumCourses;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******* Select users and dates to show their results in test exams **********/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_SelUsrsToSeeUsrsTstExams (void)
|
|
|
|
|
{
|
2015-10-02 12:28:52 +02:00
|
|
|
|
extern const char *The_ClassForm[The_NUM_THEMES];
|
|
|
|
|
extern const char *Txt_Exams;
|
2015-04-11 23:46:21 +02:00
|
|
|
|
extern const char *Txt_Users;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
extern const char *Txt_See_exams;
|
|
|
|
|
|
2015-10-19 21:49:45 +02:00
|
|
|
|
/***** Get and update type of list,
|
|
|
|
|
number of columns in class photo
|
2014-12-01 23:55:08 +01:00
|
|
|
|
and preference about view photos *****/
|
|
|
|
|
Usr_GetAndUpdatePrefsAboutUsrList ();
|
|
|
|
|
|
|
|
|
|
/***** Show form to select the groups *****/
|
|
|
|
|
Grp_ShowFormToSelectSeveralGroups (ActReqSeeUsrTstExa);
|
|
|
|
|
|
|
|
|
|
/***** Get and order lists of users from this course *****/
|
2015-04-07 21:44:24 +02:00
|
|
|
|
Usr_GetUsrsLst (Rol_TEACHER,Sco_SCOPE_CRS,NULL,false);
|
|
|
|
|
Usr_GetUsrsLst (Rol_STUDENT,Sco_SCOPE_CRS,NULL,false);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
if (Gbl.Usrs.LstTchs.NumUsrs ||
|
|
|
|
|
Gbl.Usrs.LstStds.NumUsrs)
|
|
|
|
|
{
|
|
|
|
|
if (Usr_GetIfShowBigList (Gbl.Usrs.LstTchs.NumUsrs +
|
|
|
|
|
Gbl.Usrs.LstStds.NumUsrs))
|
|
|
|
|
{
|
2015-10-02 01:04:28 +02:00
|
|
|
|
/***** Start frame *****/
|
2015-10-02 12:28:52 +02:00
|
|
|
|
Lay_StartRoundFrame (NULL,Txt_Exams);
|
2015-10-02 01:04:28 +02:00
|
|
|
|
|
|
|
|
|
/***** Form to select type of list used for select several users *****/
|
|
|
|
|
Usr_ShowFormsToSelectUsrListType (ActReqSeeUsrTstExa);
|
|
|
|
|
|
2015-04-11 17:33:14 +02:00
|
|
|
|
/***** Start form *****/
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Act_FormStart (ActSeeUsrTstExa);
|
|
|
|
|
Grp_PutParamsCodGrps ();
|
|
|
|
|
|
|
|
|
|
/***** Put list of users to select some of them *****/
|
2015-10-02 12:28:52 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<table class=\"CELLS_PAD_2\""
|
|
|
|
|
" style=\"margin:0 auto;\">"
|
|
|
|
|
"<tr>"
|
|
|
|
|
"<td class=\"%s RIGHT_TOP\">"
|
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
|
|
|
|
"<td colspan=\"2\" class=\"%s LEFT_TOP\">"
|
|
|
|
|
"<table>",
|
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme],Txt_Users,
|
|
|
|
|
The_ClassForm[Gbl.Prefs.Theme]);
|
2015-04-07 21:44:24 +02:00
|
|
|
|
Usr_ListUsersToSelect (Rol_TEACHER);
|
|
|
|
|
Usr_ListUsersToSelect (Rol_STUDENT);
|
2015-10-02 12:28:52 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"</table>"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Starting and ending dates in the search *****/
|
2015-10-25 00:23:22 +02:00
|
|
|
|
Dat_PutFormStartEndClientLocalDateTimesWithYesterdayToday ();
|
2015-10-02 12:28:52 +02:00
|
|
|
|
|
2015-10-02 01:04:28 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"</table>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
2015-10-02 01:04:28 +02:00
|
|
|
|
/***** Send button *****/
|
|
|
|
|
Lay_PutConfirmButton (Txt_See_exams);
|
|
|
|
|
|
|
|
|
|
/***** End form *****/
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
2015-10-02 01:04:28 +02:00
|
|
|
|
|
|
|
|
|
/***** End frame *****/
|
|
|
|
|
Lay_EndRoundFrame ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
2015-04-07 21:44:24 +02:00
|
|
|
|
Usr_ShowWarningNoUsersFound (Rol_UNKNOWN);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Free memory for users' list *****/
|
|
|
|
|
Usr_FreeUsrsList (&Gbl.Usrs.LstTchs);
|
|
|
|
|
Usr_FreeUsrsList (&Gbl.Usrs.LstStds);
|
|
|
|
|
|
|
|
|
|
/***** Free the memory used by the list of users *****/
|
2015-09-30 23:10:15 +02:00
|
|
|
|
Usr_FreeListsSelectedUsrCods ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Free memory for list of selected groups *****/
|
|
|
|
|
Grp_FreeListCodSelectedGrps ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************** Select dates to show my results in test exams ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_SelDatesToSeeMyTstExams (void)
|
|
|
|
|
{
|
2015-10-02 12:28:52 +02:00
|
|
|
|
extern const char *Txt_Exams;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
extern const char *Txt_See_exams;
|
|
|
|
|
|
2015-04-11 17:33:14 +02:00
|
|
|
|
/***** Start form *****/
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Act_FormStart (ActSeeMyTstExa);
|
|
|
|
|
|
|
|
|
|
/***** Starting and ending dates in the search *****/
|
2015-10-02 12:28:52 +02:00
|
|
|
|
Lay_StartRoundFrameTable (NULL,2,Txt_Exams);
|
2015-10-25 00:23:22 +02:00
|
|
|
|
Dat_PutFormStartEndClientLocalDateTimesWithYesterdayToday ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
2015-10-02 12:28:52 +02:00
|
|
|
|
/***** Send button and end frame *****/
|
|
|
|
|
Lay_EndRoundFrameTableWithButton (Lay_CONFIRM_BUTTON,Txt_See_exams);
|
|
|
|
|
|
|
|
|
|
/***** End form *****/
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********************* Store test result in database *************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static long Tst_CreateTestExamInDB (void)
|
|
|
|
|
{
|
|
|
|
|
char Query[256];
|
|
|
|
|
|
|
|
|
|
/***** Insert new tag into tst_tags table *****/
|
|
|
|
|
sprintf (Query,"INSERT INTO tst_exams (CrsCod,UsrCod,AllowTeachers,TstTime,NumQsts)"
|
|
|
|
|
" VALUES ('%ld','%ld','%c',NOW(),'%u')",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,
|
|
|
|
|
Gbl.Usrs.Me.UsrDat.UsrCod,
|
|
|
|
|
Gbl.Test.AllowTeachers ? 'Y' :
|
|
|
|
|
'N',
|
|
|
|
|
Gbl.Test.NumQsts);
|
|
|
|
|
return DB_QueryINSERTandReturnCode (Query,"can not create new test exam");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********************* Store test result in database *************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_StoreScoreOfTestExamInDB (long TstCod,
|
|
|
|
|
unsigned NumQstsNotBlank,double Score)
|
|
|
|
|
{
|
|
|
|
|
char Query[256];
|
|
|
|
|
|
|
|
|
|
/***** Update score in test exam *****/
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"en_US.utf8"); // To print the floating point as a dot
|
2014-12-01 23:55:08 +01:00
|
|
|
|
sprintf (Query,"UPDATE tst_exams"
|
|
|
|
|
" SET NumQstsNotBlank='%u',Score='%lf'"
|
|
|
|
|
" WHERE TstCod='%ld'",
|
|
|
|
|
NumQstsNotBlank,Score,
|
|
|
|
|
TstCod);
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"es_ES.utf8"); // Return to spanish system (TODO: this should be internationalized!!!!!!!)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
DB_QueryUPDATE (Query,"can not update result of test exam");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*************** Show results in test exams for several users ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_ShowUsrsTestResults (void)
|
|
|
|
|
{
|
2015-04-12 18:01:06 +02:00
|
|
|
|
extern const char *Txt_Exams;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
extern const char *Txt_You_must_select_one_ore_more_users;
|
|
|
|
|
const char *Ptr;
|
|
|
|
|
|
|
|
|
|
/***** Get list of the selected users's IDs *****/
|
2015-09-30 23:10:15 +02:00
|
|
|
|
Usr_GetListsSelectedUsrs ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Get starting and ending dates *****/
|
|
|
|
|
Dat_GetIniEndDatesFromForm ();
|
|
|
|
|
|
|
|
|
|
/***** Check the number of users whose tests results will be shown *****/
|
2015-09-30 23:10:15 +02:00
|
|
|
|
if (Usr_CountNumUsrsInListOfSelectedUsrs ()) // If some users are selected...
|
2014-12-01 23:55:08 +01:00
|
|
|
|
{
|
|
|
|
|
/***** Header of the table with the list of users *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_StartRoundFrameTable (NULL,2,Txt_Exams);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_ShowHeaderTestResults ();
|
|
|
|
|
|
|
|
|
|
/***** List the assignments and works of the selected users *****/
|
|
|
|
|
Ptr = Gbl.Usrs.Select.All;
|
|
|
|
|
while (*Ptr)
|
|
|
|
|
{
|
|
|
|
|
Par_GetNextStrUntilSeparParamMult (&Ptr,Gbl.Usrs.Other.UsrDat.EncryptedUsrCod,Cry_LENGTH_ENCRYPTED_STR_SHA256_BASE64);
|
|
|
|
|
Usr_GetUsrCodFromEncryptedUsrCod (&Gbl.Usrs.Other.UsrDat);
|
|
|
|
|
if (Usr_ChkUsrCodAndGetAllUsrDataFromUsrCod (&Gbl.Usrs.Other.UsrDat)) // Get of the database the data of the user
|
2015-09-17 11:21:49 +02:00
|
|
|
|
if (Usr_CheckIfUsrBelongsToCrs (Gbl.Usrs.Other.UsrDat.UsrCod,
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,
|
|
|
|
|
false))
|
2014-12-01 23:55:08 +01:00
|
|
|
|
/***** Show the result of test exams *****/
|
|
|
|
|
Tst_ShowResultsOfTestExams (&Gbl.Usrs.Other.UsrDat);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** End of the table *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_EndRoundFrameTable ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
else // If no users are selected...
|
|
|
|
|
{
|
|
|
|
|
// ...write warning alert
|
|
|
|
|
Lay_ShowAlert (Lay_WARNING,Txt_You_must_select_one_ore_more_users);
|
|
|
|
|
// ...and show again the form
|
|
|
|
|
Tst_SelUsrsToSeeUsrsTstExams ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free the memory used for the list of users *****/
|
2015-09-30 23:10:15 +02:00
|
|
|
|
Usr_FreeListsSelectedUsrCods ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************************ Show my results in test exams **********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_ShowHeaderTestResults (void)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_User;
|
|
|
|
|
extern const char *Txt_Date;
|
|
|
|
|
extern const char *Txt_Questions;
|
|
|
|
|
extern const char *Txt_Non_blank_BR_questions;
|
|
|
|
|
extern const char *Txt_Total_BR_score;
|
|
|
|
|
extern const char *Txt_Average_BR_score_BR_per_question_BR_from_0_to_1;
|
|
|
|
|
extern const char *Txt_Score;
|
|
|
|
|
extern const char *Txt_out_of_PART_OF_A_SCORE;
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th colspan=\"2\" class=\"CENTER_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</th>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th class=\"RIGHT_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</th>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th class=\"RIGHT_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</th>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th class=\"RIGHT_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</th>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th class=\"RIGHT_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</th>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th class=\"RIGHT_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</th>"
|
2015-09-06 20:02:14 +02:00
|
|
|
|
"<th class=\"RIGHT_TOP\">"
|
2014-12-27 00:28:19 +01:00
|
|
|
|
"%s<br />%s<br />%u"
|
|
|
|
|
"</th>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"<th></th>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_User,
|
|
|
|
|
Txt_Date,
|
|
|
|
|
Txt_Questions,
|
|
|
|
|
Txt_Non_blank_BR_questions,
|
|
|
|
|
Txt_Total_BR_score,
|
|
|
|
|
Txt_Average_BR_score_BR_per_question_BR_from_0_to_1,
|
|
|
|
|
Txt_Score,Txt_out_of_PART_OF_A_SCORE,Tst_SCORE_MAX);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************************ Show my results in test exams **********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_ShowMyTestResults (void)
|
|
|
|
|
{
|
2015-04-12 18:01:06 +02:00
|
|
|
|
extern const char *Txt_Exams;
|
|
|
|
|
|
2014-12-01 23:55:08 +01:00
|
|
|
|
/***** Get starting and ending dates *****/
|
|
|
|
|
Dat_GetIniEndDatesFromForm ();
|
|
|
|
|
|
|
|
|
|
/***** Header of the table with the list of users *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_StartRoundFrameTable (NULL,2,Txt_Exams);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Tst_ShowHeaderTestResults ();
|
|
|
|
|
|
|
|
|
|
/***** List my results in test exams *****/
|
|
|
|
|
Tst_GetConfigTstFromDB (); // To get feedback type
|
|
|
|
|
Tst_ShowResultsOfTestExams (&Gbl.Usrs.Me.UsrDat);
|
|
|
|
|
|
|
|
|
|
/***** End of the table *****/
|
2015-04-12 18:01:06 +02:00
|
|
|
|
Lay_EndRoundFrameTable ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/****** Show the results of test exams of a user in the current course *******/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_ShowResultsOfTestExams (struct UsrData *UsrDat)
|
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Visible_exams;
|
|
|
|
|
extern const char *Txt_See_exam;
|
|
|
|
|
char Query[512];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
2015-10-26 14:11:30 +01:00
|
|
|
|
unsigned NumExams;
|
|
|
|
|
unsigned NumExam;
|
2015-11-09 16:23:39 +01:00
|
|
|
|
static unsigned UniqueId = 0;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
long TstCod;
|
|
|
|
|
unsigned NumQstsInThisExam;
|
|
|
|
|
unsigned NumQstsNotBlankInThisExam;
|
|
|
|
|
unsigned NumTotalQsts = 0;
|
|
|
|
|
unsigned NumTotalQstsNotBlank = 0;
|
|
|
|
|
double ScoreInThisExam;
|
|
|
|
|
double TotalScoreOfAllExams = 0.0;
|
|
|
|
|
unsigned NumExamsVisibleByTchs = 0;
|
|
|
|
|
bool ItsMe = (UsrDat->UsrCod == Gbl.Usrs.Me.UsrDat.UsrCod);
|
2015-04-07 21:44:24 +02:00
|
|
|
|
bool IAmATeacher = (Gbl.Usrs.Me.LoggedRole >= Rol_TEACHER);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
bool ICanViewExam;
|
|
|
|
|
bool ICanViewScore;
|
2015-10-26 14:11:30 +01:00
|
|
|
|
time_t TimeUTC;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
char *ClassDat;
|
|
|
|
|
|
|
|
|
|
/***** Make database query *****/
|
|
|
|
|
sprintf (Query,"SELECT TstCod,AllowTeachers,"
|
2015-11-09 14:22:25 +01:00
|
|
|
|
"UNIX_TIMESTAMP(TstTime),"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"NumQsts,NumQstsNotBlank,Score"
|
|
|
|
|
" FROM tst_exams"
|
|
|
|
|
" WHERE CrsCod='%ld' AND UsrCod='%ld'"
|
2015-11-11 03:00:22 +01:00
|
|
|
|
" AND TstTime>=FROM_UNIXTIME('%ld')"
|
|
|
|
|
" AND TstTime<=FROM_UNIXTIME('%ld')"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
" ORDER BY TstCod",
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod,
|
|
|
|
|
UsrDat->UsrCod,
|
2015-10-27 19:00:21 +01:00
|
|
|
|
(long) Gbl.DateRange.TimeUTC[0],
|
|
|
|
|
(long) Gbl.DateRange.TimeUTC[1]);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
NumExams = (unsigned) DB_QuerySELECT (Query,&mysql_res,"can not get test exams of a user");
|
|
|
|
|
|
|
|
|
|
/***** Show user's data *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>");
|
|
|
|
|
Tst_ShowDataUsr (UsrDat,NumExams);
|
|
|
|
|
|
|
|
|
|
/***** Get and print exams results *****/
|
|
|
|
|
if (NumExams)
|
|
|
|
|
{
|
2015-11-09 16:23:39 +01:00
|
|
|
|
for (NumExam = 0;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
NumExam < NumExams;
|
2015-11-09 16:23:39 +01:00
|
|
|
|
NumExam++)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
/* Get test code (row[0]) */
|
|
|
|
|
if ((TstCod = Str_ConvertStrCodToLongCod (row[0])) < 0)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong code of test exam.");
|
|
|
|
|
|
|
|
|
|
/* Get if teachers are allowed to see this test exam (row[1]) */
|
|
|
|
|
Gbl.Test.AllowTeachers = (Str_ConvertToUpperLetter (row[1][0]) == 'Y');
|
|
|
|
|
ClassDat = Gbl.Test.AllowTeachers ? "DAT" :
|
|
|
|
|
"DAT_LIGHT";
|
|
|
|
|
ICanViewExam = ItsMe || Gbl.Test.AllowTeachers;
|
|
|
|
|
ICanViewScore = ICanViewExam && (IAmATeacher ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType != Tst_FEEDBACK_NOTHING);
|
|
|
|
|
|
|
|
|
|
if (NumExam)
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>");
|
|
|
|
|
|
2015-10-26 14:11:30 +01:00
|
|
|
|
/* Write date and time (row[2] holds UTC date-time) */
|
|
|
|
|
TimeUTC = Dat_GetUNIXTimeFromStr (row[2]);
|
2015-11-09 16:23:39 +01:00
|
|
|
|
UniqueId++;
|
2015-10-26 14:11:30 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"<td id =\"tst_date_%u\" class=\"%s RIGHT_TOP COLOR%u\">"
|
|
|
|
|
"<script type=\"text/javascript\">"
|
|
|
|
|
"writeLocalDateTimeFromUTC('tst_date_%u',%ld,' ');"
|
|
|
|
|
"</script>"
|
|
|
|
|
"</td>",
|
|
|
|
|
UniqueId,ClassDat,Gbl.RowEvenOdd,
|
|
|
|
|
UniqueId,(long) TimeUTC);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/* Get number of questions (row[3]) */
|
|
|
|
|
if (sscanf (row[3],"%u",&NumQstsInThisExam) == 1)
|
|
|
|
|
{
|
|
|
|
|
if (Gbl.Test.AllowTeachers)
|
|
|
|
|
NumTotalQsts += NumQstsInThisExam;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
NumQstsInThisExam = 0;
|
|
|
|
|
|
|
|
|
|
/* Get number of questions not blank (row[4]) */
|
|
|
|
|
if (sscanf (row[4],"%u",&NumQstsNotBlankInThisExam) == 1)
|
|
|
|
|
{
|
|
|
|
|
if (Gbl.Test.AllowTeachers)
|
|
|
|
|
NumTotalQstsNotBlank += NumQstsNotBlankInThisExam;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
NumQstsNotBlankInThisExam = 0;
|
|
|
|
|
|
|
|
|
|
/* Get score (row[5]) */
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"en_US.utf8"); // To get decimal point
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (sscanf (row[5],"%lf",&ScoreInThisExam) == 1)
|
|
|
|
|
{
|
|
|
|
|
if (Gbl.Test.AllowTeachers)
|
|
|
|
|
TotalScoreOfAllExams += ScoreInThisExam;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
ScoreInThisExam = 0.0;
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"es_ES.utf8"); // Return to spanish system (TODO: this should be internationalized!!!!!!!)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/* Write number of questions */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP COLOR%u\">",
|
|
|
|
|
ClassDat,Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (ICanViewExam)
|
|
|
|
|
fprintf (Gbl.F.Out,"%u",NumQstsInThisExam);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Write number of questions not blank */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP COLOR%u\">",
|
|
|
|
|
ClassDat,Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (ICanViewExam)
|
|
|
|
|
fprintf (Gbl.F.Out,"%u",NumQstsNotBlankInThisExam);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Write score */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP COLOR%u\">",
|
|
|
|
|
ClassDat,Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (ICanViewScore)
|
|
|
|
|
fprintf (Gbl.F.Out,"%.2lf",ScoreInThisExam);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Write average score per question */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP COLOR%u\">",
|
|
|
|
|
ClassDat,Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (ICanViewScore)
|
|
|
|
|
fprintf (Gbl.F.Out,"%.2lf",
|
|
|
|
|
NumQstsInThisExam ? ScoreInThisExam / (double) NumQstsInThisExam :
|
|
|
|
|
0.0);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Write score over Tst_SCORE_MAX */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"%s RIGHT_TOP COLOR%u\">",
|
|
|
|
|
ClassDat,Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (ICanViewScore)
|
|
|
|
|
fprintf (Gbl.F.Out,"%.2lf",
|
|
|
|
|
NumQstsInThisExam ? ScoreInThisExam * Tst_SCORE_MAX / (double) NumQstsInThisExam :
|
|
|
|
|
0.0);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Link to show this exam */
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"RIGHT_TOP COLOR%u\">",
|
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (ICanViewExam)
|
|
|
|
|
{
|
|
|
|
|
Act_FormStart (Gbl.CurrentAct == ActSeeMyTstExa ? ActSeeOneTstExaMe :
|
|
|
|
|
ActSeeOneTstExaOth);
|
|
|
|
|
Tst_PutParamTstCod (TstCod);
|
|
|
|
|
fprintf (Gbl.F.Out,"<input type=\"image\" src=\"%s/file16x16.gif\""
|
2014-12-30 19:09:25 +01:00
|
|
|
|
" alt=\"%s\" title=\"%s\""
|
2015-03-13 00:16:02 +01:00
|
|
|
|
" class=\"ICON16x16B\" />",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Prefs.IconsURL,
|
|
|
|
|
Txt_See_exam,
|
|
|
|
|
Txt_See_exam);
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
if (Gbl.Test.AllowTeachers)
|
|
|
|
|
NumExamsVisibleByTchs++;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Write totals for this user *****/
|
|
|
|
|
ICanViewScore = NumExamsVisibleByTchs && (IAmATeacher ||
|
|
|
|
|
Gbl.Test.Config.FeedbackType != Tst_FEEDBACK_NOTHING);
|
|
|
|
|
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-06 15:34:44 +02:00
|
|
|
|
"<td class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s: %u"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</td>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd,
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_Visible_exams,NumExamsVisibleByTchs);
|
|
|
|
|
|
|
|
|
|
/* Write total number of questions */
|
2015-09-06 15:34:44 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\">",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (NumExamsVisibleByTchs)
|
|
|
|
|
fprintf (Gbl.F.Out,"%u",NumTotalQsts);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Write total number of questions not blank */
|
2015-09-06 15:34:44 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\">",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (NumExamsVisibleByTchs)
|
|
|
|
|
fprintf (Gbl.F.Out,"%u",NumTotalQstsNotBlank);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Write total score */
|
2015-09-06 15:34:44 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\">",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (ICanViewScore)
|
|
|
|
|
fprintf (Gbl.F.Out,"%.2lf",TotalScoreOfAllExams);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Write average score per question */
|
2015-09-06 15:34:44 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\">",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (ICanViewScore)
|
|
|
|
|
fprintf (Gbl.F.Out,"%.2lf",
|
|
|
|
|
NumTotalQsts ? TotalScoreOfAllExams / (double) NumTotalQsts :
|
|
|
|
|
0.0);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Write score over Tst_SCORE_MAX */
|
2015-09-06 15:34:44 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP RIGHT_MIDDLE COLOR%u\">",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (ICanViewScore)
|
|
|
|
|
fprintf (Gbl.F.Out,"%.2lf",
|
|
|
|
|
NumTotalQsts ? TotalScoreOfAllExams * Tst_SCORE_MAX / (double) NumTotalQsts :
|
|
|
|
|
0.0);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/* Last cell */
|
2015-09-06 15:34:44 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"DAT_N_LINE_TOP COLOR%u\"></td>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</tr>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out,"<td class=\"COLOR%u\"></td>"
|
|
|
|
|
"<td class=\"COLOR%u\"></td>"
|
|
|
|
|
"<td class=\"COLOR%u\"></td>"
|
|
|
|
|
"<td class=\"COLOR%u\"></td>"
|
|
|
|
|
"<td class=\"COLOR%u\"></td>"
|
|
|
|
|
"<td class=\"COLOR%u\"></td>"
|
|
|
|
|
"<td class=\"COLOR%u\"></td>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</tr>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd,
|
|
|
|
|
Gbl.RowEvenOdd,
|
|
|
|
|
Gbl.RowEvenOdd,
|
|
|
|
|
Gbl.RowEvenOdd,
|
|
|
|
|
Gbl.RowEvenOdd,
|
|
|
|
|
Gbl.RowEvenOdd,
|
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
|
|
|
|
|
Gbl.RowEvenOdd = 1 - Gbl.RowEvenOdd;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************** Show a row with the data of a user *********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_ShowDataUsr (struct UsrData *UsrDat,unsigned NumExams)
|
|
|
|
|
{
|
|
|
|
|
bool ShowPhoto;
|
|
|
|
|
char PhotoURL[PATH_MAX+1];
|
|
|
|
|
|
|
|
|
|
/***** Show user's photo and name *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<td ");
|
|
|
|
|
if (NumExams)
|
|
|
|
|
fprintf (Gbl.F.Out,"rowspan=\"%u\"",NumExams + 1);
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out," class=\"LEFT_TOP COLOR%u\">",
|
|
|
|
|
Gbl.RowEvenOdd);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
ShowPhoto = Pho_ShowUsrPhotoIsAllowed (UsrDat,PhotoURL);
|
2014-12-30 15:14:43 +01:00
|
|
|
|
Pho_ShowUsrPhoto (UsrDat,ShowPhoto ? PhotoURL :
|
|
|
|
|
NULL,
|
2015-03-13 00:16:02 +01:00
|
|
|
|
"PHOTO36x48",Pho_ZOOM);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
|
|
|
|
|
|
|
|
|
/***** Start form to go to user's record card *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<td ");
|
|
|
|
|
if (NumExams)
|
|
|
|
|
fprintf (Gbl.F.Out,"rowspan=\"%u\"",NumExams + 1);
|
2015-09-03 17:14:30 +02:00
|
|
|
|
fprintf (Gbl.F.Out," class=\"LEFT_TOP COLOR%u\">",
|
|
|
|
|
Gbl.RowEvenOdd);
|
2015-04-07 21:44:24 +02:00
|
|
|
|
Act_FormStart (UsrDat->RoleInCurrentCrsDB == Rol_STUDENT ? ActSeeRecOneStd :
|
2015-09-03 17:14:30 +02:00
|
|
|
|
ActSeeRecOneTch);
|
2015-04-02 18:39:49 +02:00
|
|
|
|
Usr_PutParamUsrCodEncrypted (UsrDat->EncryptedUsrCod);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Act_LinkFormSubmit (UsrDat->FullName,"MSG_AUT");
|
|
|
|
|
|
|
|
|
|
/***** Show user's ID *****/
|
|
|
|
|
ID_WriteUsrIDs (UsrDat,
|
2015-04-07 21:44:24 +02:00
|
|
|
|
(UsrDat->RoleInCurrentCrsDB == Rol_TEACHER ? ID_ICanSeeTeacherID (UsrDat) :
|
|
|
|
|
(Gbl.Usrs.Me.LoggedRole >= Rol_TEACHER)));
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Show user's name *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<br />%s",UsrDat->Surname1);
|
|
|
|
|
if (UsrDat->Surname2[0])
|
|
|
|
|
fprintf (Gbl.F.Out," %s",UsrDat->Surname2);
|
|
|
|
|
if (UsrDat->FirstName[0])
|
|
|
|
|
fprintf (Gbl.F.Out,",<br />%s",UsrDat->FirstName);
|
|
|
|
|
|
|
|
|
|
/***** End form *****/
|
2015-03-13 00:16:02 +01:00
|
|
|
|
Act_FormEnd ();
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>");
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/***************** Write parameter with code of test exam ********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_PutParamTstCod (long TstCod)
|
|
|
|
|
{
|
|
|
|
|
Par_PutHiddenParamLong ("TstCod",TstCod);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/****************** Get parameter with code of test exam *********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static long Tst_GetParamTstCod (void)
|
|
|
|
|
{
|
|
|
|
|
char LongStr[1+10+1];
|
|
|
|
|
|
|
|
|
|
/***** Get parameter with code of test exam *****/
|
|
|
|
|
Par_GetParToText ("TstCod",LongStr,1+10);
|
|
|
|
|
return Str_ConvertStrCodToLongCod (LongStr);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************* Show one test exam of another user **********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_ShowOneTestExam (void)
|
|
|
|
|
{
|
2015-03-12 14:45:40 +01:00
|
|
|
|
extern const char *Txt_ROLES_SINGUL_Abc[Rol_NUM_ROLES][Usr_NUM_SEXS];
|
2014-12-01 23:55:08 +01:00
|
|
|
|
extern const char *Txt_Date;
|
|
|
|
|
extern const char *Txt_Questions;
|
|
|
|
|
extern const char *Txt_non_blank_QUESTIONS;
|
|
|
|
|
extern const char *Txt_Score;
|
|
|
|
|
extern const char *Txt_out_of_PART_OF_A_SCORE;
|
|
|
|
|
extern const char *Txt_Tags;
|
|
|
|
|
long TstCod;
|
2015-10-26 14:11:30 +01:00
|
|
|
|
time_t TstTimeUTC = 0; // Test exam UTC date-time, initialized to avoid warning
|
2014-12-01 23:55:08 +01:00
|
|
|
|
unsigned NumQstsNotBlank;
|
|
|
|
|
double TotalScore;
|
|
|
|
|
bool ShowPhoto;
|
|
|
|
|
char PhotoURL[PATH_MAX+1];
|
|
|
|
|
bool ICanViewScore;
|
|
|
|
|
|
|
|
|
|
/***** Get the code of the test exam *****/
|
|
|
|
|
if ((TstCod = Tst_GetParamTstCod ()) == -1L)
|
|
|
|
|
Lay_ShowErrorAndExit ("Code of test exam is missing.");
|
|
|
|
|
|
|
|
|
|
/***** Get exam data and check if I can view this test exam) *****/
|
2015-10-26 14:11:30 +01:00
|
|
|
|
Tst_GetExamDataByTstCod (TstCod,&TstTimeUTC,&Gbl.Test.NumQsts,&NumQstsNotBlank,&TotalScore);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Gbl.Test.Config.FeedbackType = Tst_FEEDBACK_FULL_FEEDBACK; // Initialize feedback to maximum
|
|
|
|
|
ICanViewScore = true;
|
|
|
|
|
switch (Gbl.CurrentAct)
|
|
|
|
|
{
|
|
|
|
|
case ActSeeOneTstExaMe:
|
|
|
|
|
if (Gbl.Usrs.Other.UsrDat.UsrCod != Gbl.Usrs.Me.UsrDat.UsrCod) // The exam is not mine
|
|
|
|
|
Lay_ShowErrorAndExit ("You can not view this test exam.");
|
2015-04-07 21:44:24 +02:00
|
|
|
|
if (Gbl.Usrs.Me.LoggedRole < Rol_TEACHER)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
{
|
|
|
|
|
// Students only can view score if feedback type allows it
|
|
|
|
|
Tst_GetConfigTstFromDB (); // To get feedback type
|
|
|
|
|
ICanViewScore = (Gbl.Test.Config.FeedbackType != Tst_FEEDBACK_NOTHING);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
case ActSeeOneTstExaOth:
|
|
|
|
|
if (Gbl.Usrs.Other.UsrDat.UsrCod != Gbl.Usrs.Me.UsrDat.UsrCod && // The exam is not mine
|
|
|
|
|
!Gbl.Test.AllowTeachers) // I am not allowed to see this exam
|
|
|
|
|
Lay_ShowErrorAndExit ("You can not view this test exam.");
|
|
|
|
|
break;
|
|
|
|
|
default: // Not applicable here
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Get questions and user's answers of the test exam from database *****/
|
|
|
|
|
Tst_GetExamQuestionsFromDB (TstCod);
|
|
|
|
|
|
|
|
|
|
/***** Write head of test *****/
|
|
|
|
|
Tst_WriteTestHead (0);
|
|
|
|
|
|
|
|
|
|
/***** Header row *****/
|
|
|
|
|
/* Get data of the user who made the exam */
|
|
|
|
|
if (!Usr_ChkUsrCodAndGetAllUsrDataFromUsrCod (&Gbl.Usrs.Other.UsrDat))
|
|
|
|
|
Lay_ShowErrorAndExit ("User does not exists.");
|
|
|
|
|
|
|
|
|
|
/* User */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
|
|
|
|
"<td></td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT_N RIGHT_TOP\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT LEFT_TOP\">",
|
2015-03-12 14:45:40 +01:00
|
|
|
|
Txt_ROLES_SINGUL_Abc[Gbl.Usrs.Other.UsrDat.RoleInCurrentCrsDB][Gbl.Usrs.Other.UsrDat.Sex]);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
ID_WriteUsrIDs (&Gbl.Usrs.Other.UsrDat,true);
|
|
|
|
|
fprintf (Gbl.F.Out," %s",
|
|
|
|
|
Gbl.Usrs.Other.UsrDat.Surname1);
|
|
|
|
|
if (Gbl.Usrs.Other.UsrDat.Surname2[0])
|
|
|
|
|
fprintf (Gbl.F.Out," %s",
|
|
|
|
|
Gbl.Usrs.Other.UsrDat.Surname2);
|
|
|
|
|
if (Gbl.Usrs.Other.UsrDat.FirstName[0])
|
|
|
|
|
fprintf (Gbl.F.Out,", %s",
|
|
|
|
|
Gbl.Usrs.Other.UsrDat.FirstName);
|
|
|
|
|
fprintf (Gbl.F.Out,"<br />");
|
|
|
|
|
ShowPhoto = Pho_ShowUsrPhotoIsAllowed (&Gbl.Usrs.Other.UsrDat,PhotoURL);
|
2014-12-30 15:14:43 +01:00
|
|
|
|
Pho_ShowUsrPhoto (&Gbl.Usrs.Other.UsrDat,ShowPhoto ? PhotoURL :
|
|
|
|
|
NULL,
|
2015-03-13 00:16:02 +01:00
|
|
|
|
"PHOTO36x48",Pho_ZOOM);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/* Exam date */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
|
|
|
|
"<td></td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT_N RIGHT_TOP\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-10-26 14:11:30 +01:00
|
|
|
|
"<td id=\"exam\" class=\"DAT LEFT_TOP\">"
|
|
|
|
|
"<script type=\"text/javascript\">"
|
|
|
|
|
"writeLocalDateTimeFromUTC('exam',%ld,' ');"
|
|
|
|
|
"</script>"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_Date,TstTimeUTC);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/* Number of questions */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
|
|
|
|
"<td></td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT_N RIGHT_TOP\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT LEFT_TOP\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"%u (%u %s)"
|
|
|
|
|
"</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_Questions,
|
|
|
|
|
Gbl.Test.NumQsts,NumQstsNotBlank,Txt_non_blank_QUESTIONS);
|
|
|
|
|
|
|
|
|
|
/* Score */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
|
|
|
|
"<td></td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT_N RIGHT_TOP\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT LEFT_TOP\">",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_Score);
|
|
|
|
|
if (ICanViewScore)
|
|
|
|
|
fprintf (Gbl.F.Out,"%.2lf (%.2lf",
|
|
|
|
|
TotalScore,
|
|
|
|
|
Gbl.Test.NumQsts ? TotalScore * Tst_SCORE_MAX / (double) Gbl.Test.NumQsts :
|
|
|
|
|
0.0);
|
|
|
|
|
else
|
|
|
|
|
fprintf (Gbl.F.Out,"? (?"); // No feedback
|
|
|
|
|
fprintf (Gbl.F.Out," %s %u)</td>"
|
|
|
|
|
"</tr>",
|
|
|
|
|
Txt_out_of_PART_OF_A_SCORE,Tst_SCORE_MAX);
|
|
|
|
|
|
|
|
|
|
/* Tags present in this exam */
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
|
|
|
|
"<td></td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT_N RIGHT_TOP\">"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"%s:"
|
|
|
|
|
"</td>"
|
2015-09-02 23:26:18 +02:00
|
|
|
|
"<td class=\"DAT LEFT_TOP\">",
|
2014-12-01 23:55:08 +01:00
|
|
|
|
Txt_Tags);
|
|
|
|
|
Tst_ShowTstTagsPresentInAnExam (TstCod);
|
|
|
|
|
fprintf (Gbl.F.Out,"</td>"
|
|
|
|
|
"</tr>");
|
|
|
|
|
|
|
|
|
|
/***** Write answers and solutions *****/
|
2015-10-26 14:11:30 +01:00
|
|
|
|
Tst_ShowExamTstResult (TstTimeUTC);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Write total mark of test *****/
|
|
|
|
|
if (ICanViewScore)
|
|
|
|
|
Tst_ShowTstTotalMark (TotalScore);
|
|
|
|
|
|
|
|
|
|
/***** End of table *****/
|
|
|
|
|
Tst_WriteTestFoot ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********************* Show the result of a test exam ************************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
2015-10-26 14:11:30 +01:00
|
|
|
|
static void Tst_ShowExamTstResult (time_t TstTimeUTC)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
{
|
|
|
|
|
extern const char *Txt_Question_modified;
|
|
|
|
|
extern const char *Txt_Question_removed;
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned NumQst;
|
|
|
|
|
long QstCod;
|
|
|
|
|
double ScoreThisQst;
|
|
|
|
|
bool AnswerIsNotBlank;
|
|
|
|
|
bool ThisQuestionHasBeenEdited;
|
2015-10-26 14:11:30 +01:00
|
|
|
|
time_t EditTimeUTC;
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
for (NumQst = 0;
|
|
|
|
|
NumQst < Gbl.Test.NumQsts;
|
|
|
|
|
NumQst++)
|
|
|
|
|
{
|
|
|
|
|
Gbl.RowEvenOdd = NumQst % 2;
|
|
|
|
|
|
|
|
|
|
/***** Query database *****/
|
|
|
|
|
if (Tst_GetOneQuestionByCod (Gbl.Test.QstCodes[NumQst],&mysql_res)) // Question exists
|
|
|
|
|
{
|
|
|
|
|
/***** Get row of the result of the query *****/
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
/*
|
|
|
|
|
row[0] QstCod
|
2015-10-26 14:11:30 +01:00
|
|
|
|
row[1] UNIX_TIMESTAMP(EditTime)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
row[2] AnsType
|
|
|
|
|
row[3] Shuffle
|
|
|
|
|
row[4] Stem
|
|
|
|
|
row[5] Feedback
|
|
|
|
|
row[6] NumHits
|
|
|
|
|
row[7] NumHitsNotBlank
|
|
|
|
|
row[8] Score
|
|
|
|
|
*/
|
|
|
|
|
/***** If this question has been edited later than test exam time ==> don't show question ****/
|
2015-10-26 14:11:30 +01:00
|
|
|
|
EditTimeUTC = Dat_GetUNIXTimeFromStr (row[1]);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
ThisQuestionHasBeenEdited = false;
|
2015-10-26 14:11:30 +01:00
|
|
|
|
// if (TstTimeUTC)
|
|
|
|
|
if (EditTimeUTC > TstTimeUTC)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
ThisQuestionHasBeenEdited = true;
|
|
|
|
|
|
|
|
|
|
if (ThisQuestionHasBeenEdited)
|
|
|
|
|
/***** Question has been edited *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-03 17:14:30 +02:00
|
|
|
|
"<td class=\"DAT_LIGHT RIGHT_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%u. "
|
|
|
|
|
"</td>"
|
2015-09-03 17:14:30 +02:00
|
|
|
|
"<td class=\"COLOR%u\"></td>"
|
|
|
|
|
"<td class=\"DAT_LIGHT LEFT_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</td>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</tr>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd,NumQst + 1,
|
|
|
|
|
Gbl.RowEvenOdd,
|
|
|
|
|
Gbl.RowEvenOdd,Txt_Question_modified);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/***** Get the code of question (row[0]) *****/
|
|
|
|
|
if ((QstCod = Str_ConvertStrCodToLongCod (row[0])) < 0)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong code of question.");
|
|
|
|
|
|
|
|
|
|
/***** Write questions and answers *****/
|
|
|
|
|
Tst_WriteQstAndAnsExam (NumQst,QstCod,row,
|
|
|
|
|
&ScoreThisQst, // Not used here
|
|
|
|
|
&AnswerIsNotBlank); // Not used here
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
/***** Question does not exists *****/
|
|
|
|
|
fprintf (Gbl.F.Out,"<tr>"
|
2015-09-03 17:14:30 +02:00
|
|
|
|
"<td class=\"DAT_LIGHT RIGHT_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%u. "
|
|
|
|
|
"</td>"
|
2015-09-03 17:14:30 +02:00
|
|
|
|
"<td class=\"COLOR%u\"></td>"
|
|
|
|
|
"<td class=\"DAT_LIGHT LEFT_TOP COLOR%u\">"
|
2014-12-26 14:45:14 +01:00
|
|
|
|
"%s"
|
|
|
|
|
"</td>"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"</tr>",
|
2015-09-03 17:14:30 +02:00
|
|
|
|
Gbl.RowEvenOdd,NumQst + 1,
|
|
|
|
|
Gbl.RowEvenOdd,
|
|
|
|
|
Gbl.RowEvenOdd,Txt_Question_removed);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************ Get data of a test exam using its test exam code ***************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
2015-10-26 14:11:30 +01:00
|
|
|
|
static void Tst_GetExamDataByTstCod (long TstCod,time_t *TstTimeUTC,
|
|
|
|
|
unsigned *NumQsts,unsigned *NumQstsNotBlank,double *Score)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
|
|
|
|
|
/***** Make database query *****/
|
|
|
|
|
sprintf (Query,"SELECT UsrCod,AllowTeachers,"
|
2015-10-26 14:11:30 +01:00
|
|
|
|
"UNIX_TIMESTAMP(TstTime),"
|
2014-12-01 23:55:08 +01:00
|
|
|
|
"NumQsts,NumQstsNotBlank,Score"
|
|
|
|
|
" FROM tst_exams"
|
|
|
|
|
" WHERE TstCod='%ld' AND CrsCod='%ld'",
|
|
|
|
|
TstCod,
|
|
|
|
|
Gbl.CurrentCrs.Crs.CrsCod);
|
|
|
|
|
if (DB_QuerySELECT (Query,&mysql_res,"can not get data of a test exam of a user") == 1)
|
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
/* Get user code (row[0]) */
|
|
|
|
|
Gbl.Usrs.Other.UsrDat.UsrCod = Str_ConvertStrCodToLongCod (row[0]);
|
|
|
|
|
|
|
|
|
|
/* Get if teachers are allowed to see this test exam (row[1]) */
|
|
|
|
|
Gbl.Test.AllowTeachers = (Str_ConvertToUpperLetter (row[1][0]) == 'Y');
|
|
|
|
|
|
2015-10-26 14:11:30 +01:00
|
|
|
|
/* Get date-time (row[2] holds UTC date-time) */
|
|
|
|
|
*TstTimeUTC = Dat_GetUNIXTimeFromStr (row[2]);
|
2014-12-01 23:55:08 +01:00
|
|
|
|
|
|
|
|
|
/* Get number of questions (row[3]) */
|
|
|
|
|
if (sscanf (row[3],"%u",NumQsts) != 1)
|
|
|
|
|
*NumQsts = 0;
|
|
|
|
|
|
|
|
|
|
/* Get number of questions not blank (row[4]) */
|
|
|
|
|
if (sscanf (row[4],"%u",NumQstsNotBlank) != 1)
|
|
|
|
|
*NumQstsNotBlank = 0;
|
|
|
|
|
|
|
|
|
|
/* Get score (row[5]) */
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"en_US.utf8"); // To get decimal point
|
2014-12-01 23:55:08 +01:00
|
|
|
|
if (sscanf (row[5],"%lf",Score) != 1)
|
|
|
|
|
*Score = 0.0;
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"es_ES.utf8"); // Return to spanish system (TODO: this should be internationalized!!!!!!!)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************** Store user's answers of an exam into database ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_StoreOneExamQstInDB (long TstCod,long QstCod,unsigned NumQst,double Score)
|
|
|
|
|
{
|
|
|
|
|
char Query[256+Tst_MAX_SIZE_INDEXES_ONE_QST+Tst_MAX_SIZE_ANSWERS_ONE_QST];
|
|
|
|
|
char Indexes[Tst_MAX_SIZE_INDEXES_ONE_QST+1];
|
|
|
|
|
char Answers[Tst_MAX_SIZE_ANSWERS_ONE_QST+1];
|
|
|
|
|
|
|
|
|
|
/***** Replace each separator of multiple parameters by a comma *****/
|
|
|
|
|
/* In database commas are used as separators instead of special chars */
|
|
|
|
|
Par_ReplaceSeparatorMultipleByComma (Gbl.Test.StrIndexesOneQst[NumQst],Indexes);
|
|
|
|
|
Par_ReplaceSeparatorMultipleByComma (Gbl.Test.StrAnswersOneQst[NumQst],Answers);
|
|
|
|
|
|
|
|
|
|
/***** Insert question and user's answers into database *****/
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"en_US.utf8"); // To print the floating point as a dot
|
2014-12-01 23:55:08 +01:00
|
|
|
|
sprintf (Query,"INSERT INTO tst_exam_questions"
|
|
|
|
|
" (TstCod,QstCod,QstInd,Score,Indexes,Answers)"
|
|
|
|
|
" VALUES ('%ld','%ld','%u','%lf','%s','%s')",
|
|
|
|
|
TstCod,QstCod,
|
|
|
|
|
NumQst, // 0, 1, 2, 3...
|
|
|
|
|
Score,
|
|
|
|
|
Indexes,
|
|
|
|
|
Answers);
|
2014-12-21 19:43:39 +01:00
|
|
|
|
setlocale (LC_NUMERIC,"es_ES.utf8"); // Return to spanish system (TODO: this should be internationalized!!!!!!!)
|
2014-12-01 23:55:08 +01:00
|
|
|
|
DB_QueryINSERT (Query,"can not insert a question of an exam");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/************* Get the questions of a test exam from database ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
static void Tst_GetExamQuestionsFromDB (long TstCod)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
MYSQL_RES *mysql_res;
|
|
|
|
|
MYSQL_ROW row;
|
|
|
|
|
unsigned NumQst;
|
|
|
|
|
|
|
|
|
|
/***** Get questions of a test exam from database *****/
|
|
|
|
|
sprintf (Query,"SELECT QstCod,Indexes,Answers"
|
|
|
|
|
" FROM tst_exam_questions"
|
|
|
|
|
" WHERE TstCod='%ld' ORDER BY QstInd",
|
|
|
|
|
TstCod);
|
|
|
|
|
Gbl.Test.NumQsts = (unsigned) DB_QuerySELECT (Query,&mysql_res,"can not get questions of a test exam");
|
|
|
|
|
|
|
|
|
|
/***** Get questions codes *****/
|
|
|
|
|
for (NumQst = 0;
|
|
|
|
|
NumQst < Gbl.Test.NumQsts;
|
|
|
|
|
NumQst++)
|
|
|
|
|
{
|
|
|
|
|
row = mysql_fetch_row (mysql_res);
|
|
|
|
|
|
|
|
|
|
/* Get question code */
|
|
|
|
|
if ((Gbl.Test.QstCodes[NumQst] = Str_ConvertStrCodToLongCod (row[0])) < 0)
|
|
|
|
|
Lay_ShowErrorAndExit ("Wrong code of question.");
|
|
|
|
|
|
|
|
|
|
/* Get indexes for this question (row[1]) */
|
|
|
|
|
strncpy (Gbl.Test.StrIndexesOneQst[NumQst],row[1],Tst_MAX_SIZE_INDEXES_ONE_QST);
|
|
|
|
|
Gbl.Test.StrIndexesOneQst[NumQst][Tst_MAX_SIZE_INDEXES_ONE_QST] = '\0';
|
|
|
|
|
|
|
|
|
|
/* Get answers selected by user for this question (row[2]) */
|
|
|
|
|
strncpy (Gbl.Test.StrAnswersOneQst[NumQst],row[2],Tst_MAX_SIZE_ANSWERS_ONE_QST);
|
|
|
|
|
Gbl.Test.StrAnswersOneQst[NumQst][Tst_MAX_SIZE_ANSWERS_ONE_QST] = '\0';
|
|
|
|
|
|
|
|
|
|
/* Replace each comma by a separator of multiple parameters */
|
|
|
|
|
/* In database commas are used as separators instead of special chars */
|
|
|
|
|
Par_ReplaceCommaBySeparatorMultiple (Gbl.Test.StrIndexesOneQst[NumQst]);
|
|
|
|
|
Par_ReplaceCommaBySeparatorMultiple (Gbl.Test.StrAnswersOneQst[NumQst]);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/***** Free structure that stores the query result *****/
|
|
|
|
|
DB_FreeMySQLResult (&mysql_res);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/********************** Remove test exams made by a user *********************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_RemoveExamsMadeByUsrInAllCrss (long UsrCod)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Remove exams made by the specified user *****/
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_exam_questions"
|
|
|
|
|
" USING tst_exams,tst_exam_questions"
|
|
|
|
|
" WHERE tst_exams.UsrCod='%ld'"
|
|
|
|
|
" AND tst_exams.TstCod=tst_exam_questions.TstCod",
|
|
|
|
|
UsrCod);
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove exams made by a user");
|
|
|
|
|
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_exams"
|
|
|
|
|
" WHERE UsrCod='%ld'",
|
|
|
|
|
UsrCod);
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove exams made by a user");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/*************** Remove test exams made by a user in a course ****************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_RemoveExamsMadeByUsrInCrs (long UsrCod,long CrsCod)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Remove exams made by the specified user *****/
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_exam_questions"
|
|
|
|
|
" USING tst_exams,tst_exam_questions"
|
|
|
|
|
" WHERE tst_exams.CrsCod='%ld' AND tst_exams.UsrCod='%ld'"
|
|
|
|
|
" AND tst_exams.TstCod=tst_exam_questions.TstCod",
|
|
|
|
|
CrsCod,UsrCod);
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove exams made by a user in a course");
|
|
|
|
|
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_exams"
|
|
|
|
|
" WHERE CrsCod='%ld' AND UsrCod='%ld'",
|
|
|
|
|
CrsCod,UsrCod);
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove exams made by a user in a course");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
/******************* Remove all test exams made in a course ******************/
|
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
void Tst_RemoveAllExamsMadeInCrs (long CrsCod)
|
|
|
|
|
{
|
|
|
|
|
char Query[512];
|
|
|
|
|
|
|
|
|
|
/***** Remove exams made by the specified user *****/
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_exam_questions"
|
|
|
|
|
" USING tst_exams,tst_exam_questions"
|
|
|
|
|
" WHERE tst_exams.CrsCod='%ld'"
|
|
|
|
|
" AND tst_exams.TstCod=tst_exam_questions.TstCod",
|
|
|
|
|
CrsCod);
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove exams made in a course");
|
|
|
|
|
|
|
|
|
|
sprintf (Query,"DELETE FROM tst_exams"
|
|
|
|
|
" WHERE CrsCod='%ld'",
|
|
|
|
|
CrsCod);
|
|
|
|
|
DB_QueryDELETE (Query,"can not remove exams made in a course");
|
|
|
|
|
}
|