// 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. Copyright (C) 1999-2017 Antonio Caņas Vargas 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 . */ /*****************************************************************************/ /*********************************** Headers *********************************/ /*****************************************************************************/ #include // For UINT_MAX #include // For PATH_MAX #include // For NULL #include // To access MySQL databases #include // For boolean type #include // For fprintf, etc. #include // For exit, system, malloc, free, etc #include // For string functions #include // For mkdir #include // For mkdir #include "swad_action.h" #include "swad_database.h" #include "swad_global.h" #include "swad_ID.h" #include "swad_image.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 ******************************/ /*****************************************************************************/ // strings are limited to Tst_MAX_BYTES_FEEDBACK_TYPE bytes const char *Tst_FeedbackXML[Tst_NUM_TYPES_FEEDBACK] = { "nothing", "totalResult", "eachResult", "eachGoodBad", "fullFeedback", }; // strings are limited to Tst_MAX_BYTES_ANSWER_TYPE characters 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 tests 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", }; // Test images will be saved with: // - maximum width of Tst_IMAGE_SAVED_MAX_HEIGHT // - maximum height of Tst_IMAGE_SAVED_MAX_HEIGHT // - maintaining the original aspect ratio (aspect ratio recommended: 3:2) #define Tst_IMAGE_SAVED_MAX_WIDTH 768 #define Tst_IMAGE_SAVED_MAX_HEIGHT 512 #define Tst_IMAGE_SAVED_QUALITY 75 // 1 to 100 /*****************************************************************************/ /******************************* 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 ***************************/ /*****************************************************************************/ static void Tst_PutFormToViewResultsOfUsersTests (Act_Action_t Action); 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_ShowTestQuestionsWhenSeeing (MYSQL_RES *mysql_res); static void Tst_ShowTestResultAfterAssess (long TstCod,unsigned *NumQstsNotBlank,double *TotalScore); static void Tst_WriteQstAndAnsTest (unsigned NumQst,long QstCod,MYSQL_ROW row, double *ScoreThisQst,bool *AnswerIsNotBlank); static void Tst_PutFormToEditQstImage (struct Image *Image,int NumImgInForm, const char *ClassContainer, const char *ClassImg, const char *ClassImgTitURL, bool OptionsDisabled); static void Tst_UpdateScoreQst (long QstCod,float ScoreThisQst,bool AnswerIsNotBlank); static void Tst_UpdateMyNumAccessTst (unsigned NumAccessesTst); static void Tst_UpdateLastAccTst (void); static bool Tst_CheckIfICanEditTests (void); static void Tst_PutIconsTests (void); static void Tst_PutButtonToAddQuestion (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,unsigned NumCols); 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_PutInputFieldNumQst (const char *Field,const char *Label, unsigned Value); 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 (unsigned NumCols); static unsigned long Tst_GetQuestionsForEdit (MYSQL_RES **mysql_res); static unsigned long Tst_GetQuestionsForTest (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_WriteAnswersOfAQstViewTest (unsigned NumQst,long QstCod,bool Shuffle); static void Tst_WriteAnswersOfAQstAssessTest (unsigned NumQst,long QstCod, double *ScoreThisQst,bool *AnswerIsNotBlank); static void Tst_WriteFormAnsTF (unsigned NumQst); static void Tst_WriteTFAnsAssessTest (unsigned NumQst,MYSQL_RES *mysql_res, double *ScoreThisQst,bool *AnswerIsNotBlank); static void Tst_WriteChoiceAnsViewTest (unsigned NumQst,long QstCod,bool Shuffle); static void Tst_WriteChoiceAnsAssessTest (unsigned NumQst,MYSQL_RES *mysql_res, double *ScoreThisQst,bool *AnswerIsNotBlank); static void Tst_WriteTextAnsViewTest (unsigned NumQst); static void Tst_WriteTextAnsAssessTest (unsigned NumQst,MYSQL_RES *mysql_res, double *ScoreThisQst,bool *AnswerIsNotBlank); static void Tst_WriteIntAnsViewTest (unsigned NumQst); static void Tst_WriteIntAnsAssessTest (unsigned NumQst,MYSQL_RES *mysql_res, double *ScoreThisQst,bool *AnswerIsNotBlank); static void Tst_WriteFloatAnsViewTest (unsigned NumQst); static void Tst_WriteFloatAnsAssessTest (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 bool 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[Cns_MAX_BYTES_TEXT + 1], char Feedback[Cns_MAX_BYTES_TEXT + 1]); static void Tst_PutFloatInputField (const char *Label,const char *Field, double Value); static void Tst_PutTFInputField (const char *Label,char Value); static void Tst_FreeTextChoiceAnswers (void); static void Tst_FreeTextChoiceAnswer (unsigned NumOpt); static void Tst_InitImagesOfQuestion (void); static void Tst_FreeImagesOfQuestion (void); static void Tst_GetQstDataFromDB (char Stem[Cns_MAX_BYTES_TEXT + 1], char Feedback[Cns_MAX_BYTES_TEXT + 1]); static void Tst_GetImageFromDB (int NumOpt,struct Image *Image); static Tst_AnswerType_t Tst_ConvertFromUnsignedStrToAnsTyp (const char *UnsignedStr); static void Tst_GetQstFromForm (char *Stem,char *Feedback); static void Tst_MoveImagesToDefinitiveDirectories (void); 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 void Tst_PutIconToRemoveOneQst (void); static void Tst_PutParamsRemoveOneQst (void); static void Tst_PutParamsRemoveQst (void); static long Tst_GetQstCod (void); static void Tst_PutParamQstCod (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_RemoveImgFileFromStemOfQst (long CrsCod,long QstCod); static void Tst_RemoveAllImgFilesFromStemOfAllQstsInCrs (long CrsCod); static void Tst_RemoveImgFileFromAnsOfQst (long CrsCod,long QstCod,unsigned AnsInd); static void Tst_RemoveAllImgFilesFromAnsOfQst (long CrsCod,long QstCod); static void Tst_RemoveAllImgFilesFromAnsOfAllQstsInCrs (long CrsCod); 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_CreateTestResultInDB (void); static void Tst_StoreScoreOfTestResultInDB (long TstCod, unsigned NumQstsNotBlank,double Score); static void Tst_ShowHeaderTestResults (void); static void Tst_ShowTestResults (struct UsrData *UsrDat); static void Tst_ShowDataUsr (struct UsrData *UsrDat,unsigned NumTestResults); static void Tst_PutParamTstCod (long TstCod); static long Tst_GetParamTstCod (void); static void Tst_ShowTestResult (time_t TstTimeUTC); static void Tst_GetTestResultDataByTstCod (long TstCod,time_t *TstTimeUTC, unsigned *NumQsts,unsigned *NumQstsNotBlank,double *Score); static void Tst_StoreOneTestResultQstInDB (long TstCod,long QstCod,unsigned NumQst,double Score); static void Tst_GetTestResultQuestionsFromDB (long TstCod); /*****************************************************************************/ /*************** Show form to generate a self-assessment test ****************/ /*****************************************************************************/ void Tst_ShowFormAskTst (void) { extern const char *Hlp_ASSESSMENT_Tests; extern const char *The_ClassForm[The_NUM_THEMES]; extern const char *Txt_Take_a_test; extern const char *Txt_No_of_questions; extern const char *Txt_Generate_test; extern const char *Txt_No_test_questions; MYSQL_RES *mysql_res; unsigned long NumRows; /***** Read test configuration from database *****/ Tst_GetConfigTstFromDB (); /***** Put link to view tests results *****/ switch (Gbl.Usrs.Me.Role.Logged) { case Rol_STD: Tst_PutFormToViewResultsOfUsersTests (ActReqSeeMyTstRes); break; case Rol_NET: case Rol_TCH: case Rol_SYS_ADM: Tst_PutFormToViewResultsOfUsersTests (ActReqSeeUsrTstRes); break; default: break; } /***** Start frame *****/ Lay_StartRoundFrame (NULL,Txt_Take_a_test,Tst_PutIconsTests, Hlp_ASSESSMENT_Tests, false); // Not closable /***** 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); Lay_StartTable (2); /***** Selection of tags *****/ Tst_ShowFormSelTags (NumRows,mysql_res,true,1); /***** Selection of types of answers *****/ Tst_ShowFormAnswerTypes (1); /***** Number of questions to generate ****/ fprintf (Gbl.F.Out,"" "" "" "" "" "" "" ""); Lay_EndTable (); /***** Send button *****/ Lay_PutConfirmButton (Txt_Generate_test); Act_FormEnd (); } } else { /***** Warning message *****/ Ale_ShowAlert (Ale_INFO,Txt_No_test_questions); /***** Button to create a new question *****/ if (Tst_CheckIfICanEditTests ()) Tst_PutButtonToAddQuestion (); } /***** End frame *****/ Lay_EndRoundFrame (); /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /*************** Write a form to go to result of users' tests ****************/ /*****************************************************************************/ static void Tst_PutFormToViewResultsOfUsersTests (Act_Action_t Action) { extern const char *Txt_Test_results; fprintf (Gbl.F.Out,"
"); Lay_PutContextualLink (Action,NULL,NULL, "exam64x64.png", Txt_Test_results,Txt_Test_results, NULL); fprintf (Gbl.F.Out,"
"); } /*****************************************************************************/ /********************** Generate self-assessment test ************************/ /*****************************************************************************/ void Tst_ShowNewTest (void) { extern const char *Hlp_ASSESSMENT_Tests; extern const char *The_ClassForm[The_NUM_THEMES]; extern const char *Txt_No_questions_found_matching_your_search_criteria; extern const char *Txt_Test; extern const char *Txt_Allow_teachers_to_consult_this_test; extern const char *Txt_Done_assess_test; 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_GetQuestionsForTest (&mysql_res)) == 0) // Query database { Ale_ShowAlert (Ale_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); /***** Start frame *****/ Lay_StartRoundFrame (NULL,Txt_Test,NULL, Hlp_ASSESSMENT_Tests, false); // Not closable Lay_WriteHeaderClassPhoto (false,false, Gbl.CurrentIns.Ins.InsCod, Gbl.CurrentDeg.Deg.DegCod, Gbl.CurrentCrs.Crs.CrsCod); /***** Start form *****/ Act_FormStart (ActAssTst); Gbl.Test.NumQsts = (unsigned) NumRows; Par_PutHiddenParamUnsigned ("NumTst",NumAccessesTst); Par_PutHiddenParamUnsigned ("NumQst",Gbl.Test.NumQsts); /***** List the questions *****/ Lay_StartTableWideMargin (10); Tst_ShowTestQuestionsWhenSeeing (mysql_res); Lay_EndTable (); /***** Test result will be saved? *****/ fprintf (Gbl.F.Out,"
" "" "
", Txt_Allow_teachers_to_consult_this_test); /***** End form *****/ Lay_PutConfirmButton (Txt_Done_assess_test); Act_FormEnd (); /***** End frame *****/ Lay_EndRoundFrame (); /***** Set test status *****/ Tst_SetTstStatus (NumAccessesTst,Tst_STATUS_SHOWN_BUT_NOT_ASSESSED); /***** Update date-time of my next allowed access to test *****/ if (Gbl.Usrs.Me.Role.Logged == Rol_STD) 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 ******************************/ /*****************************************************************************/ void Tst_AssessTest (void) { extern const char *Hlp_ASSESSMENT_Tests; extern const char *Txt_Test_result; extern const char *Txt_Test_No_X_that_you_make_in_this_course; 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; 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 test must be saved *****/ Gbl.Test.AllowTeachers = Par_GetParToBool ("Save"); /***** Get questions and answers from form to assess a test *****/ Tst_GetQuestionsAndAnswersFromForm (); /***** Create new test in database to store the result *****/ TstCod = Tst_CreateTestResultInDB (); /***** Start frame *****/ Lay_StartRoundFrame (NULL,Txt_Test_result,NULL, Hlp_ASSESSMENT_Tests, false); // Not closable Lay_WriteHeaderClassPhoto (false,false, Gbl.CurrentIns.Ins.InsCod, Gbl.CurrentDeg.Deg.DegCod, Gbl.CurrentCrs.Crs.CrsCod); /***** Header *****/ if (Gbl.Usrs.Me.IBelongToCurrentCrs) { fprintf (Gbl.F.Out,"
"); fprintf (Gbl.F.Out,Txt_Test_No_X_that_you_make_in_this_course,NumTst); fprintf (Gbl.F.Out,"
"); } /***** Write answers and solutions *****/ Lay_StartTableWideMargin (10); Tst_ShowTestResultAfterAssess (TstCod,&NumQstsNotBlank,&TotalScore); Lay_EndTable (); /***** Write total mark of test *****/ if (Gbl.Test.Config.FeedbackType != Tst_FEEDBACK_NOTHING) Tst_ShowTstTotalMark (TotalScore); /***** End frame *****/ Lay_EndRoundFrame (); /***** Store test result in database *****/ Tst_StoreScoreOfTestResultInDB (TstCod, NumQstsNotBlank,TotalScore); /***** Set test status *****/ Tst_SetTstStatus (NumTst,Tst_STATUS_ASSESSED); break; case Tst_STATUS_ASSESSED: sprintf (Gbl.Alert.Txt,Txt_The_test_X_has_already_been_assessed_previously, NumTst); Ale_ShowAlert (Ale_WARNING,Gbl.Alert.Txt); break; case Tst_STATUS_ERROR: sprintf (Gbl.Alert.Txt,Txt_There_was_an_error_in_assessing_the_test_X, NumTst); Ale_ShowAlert (Ale_WARNING,Gbl.Alert.Txt); break; } } /*****************************************************************************/ /*********** Get questions and answers from form to assess a test ************/ /*****************************************************************************/ static void Tst_GetQuestionsAndAnswersFromForm (void) { unsigned NumQst; char StrQstIndOrAns[3 + 10 + 1]; // "Qstxx...x", "Indxx...x" or "Ansxx...x" /***** Get questions and answers *****/ for (NumQst = 0; NumQst < Gbl.Test.NumQsts; NumQst++) { /* Get question code */ sprintf (StrQstIndOrAns,"Qst%06u",NumQst); if ((Gbl.Test.QstCodes[NumQst] = Par_GetParToLong (StrQstIndOrAns)) <= 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_BYTES_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_BYTES_ANSWERS_ONE_QST); /* If answer type == T/F ==> " ", "T", "F"; if choice ==> "0", "2",... */ } } /*****************************************************************************/ /************************** Show total mark of a test ************************/ /*****************************************************************************/ 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,"
" "%s: %.2lf (%.2lf %s %u)" "
", 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) { extern const char *Hlp_ASSESSMENT_Tests; extern const char *Txt_Test; extern const char *Txt_You_can_not_take_a_new_test_until; extern const char *Txt_Today; char Query[512]; MYSQL_RES *mysql_res; MYSQL_ROW row; long NumSecondsFromNowToNextAccTst = -1L; // Access allowed when this number <= 0 time_t TimeNextTestUTC = (time_t) 0; /***** Teachers and superusers are allowed to do all tests they want *****/ if (Gbl.Usrs.Me.Role.Logged == Rol_TCH || Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM) return true; /***** Get date of next allowed access to test from database *****/ sprintf (Query,"SELECT UNIX_TIMESTAMP(LastAccTst+INTERVAL (NumQstsLastTst*%lu) SECOND)-UNIX_TIMESTAMP()," "UNIX_TIMESTAMP(LastAccTst+INTERVAL (NumQstsLastTst*%lu) SECOND)" " 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) /* Time UTC of next access allowed (row[1]) */ TimeNextTestUTC = Dat_GetUNIXTimeFromStr (row[1]); } 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) { /***** Write warning *****/ sprintf (Gbl.Alert.Txt,"%s:
." "", Txt_You_can_not_take_a_new_test_until, (long) TimeNextTestUTC, (unsigned) Gbl.Prefs.DateFormat,Txt_Today); Ale_ShowAlert (Ale_WARNING,Gbl.Alert.Txt); return false; } return true; } /*****************************************************************************/ /****************************** Update test status ***************************/ /*****************************************************************************/ static void Tst_SetTstStatus (unsigned NumTst,Tst_Status_t TstStatus) { char Query[256 + Ses_BYTES_SESSION_ID]; /***** 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[256 + Ses_BYTES_SESSION_ID]; 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[256]; 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 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_WriteQstAndAnsTest (NumQst,QstCod,row, &ScoreThisQst, // Not used here &AnswerIsNotBlank); // Not used here } } /*****************************************************************************/ /******************** Show test tags in this test result *********************/ /*****************************************************************************/ static void Tst_ShowTstTagsPresentInATestResult (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 *****/ 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 result"))) { /***** Write the tags *****/ fprintf (Gbl.F.Out,"
    "); for (NumRow = 0; NumRow < NumRows; NumRow++) { row = mysql_fetch_row (mysql_res); fprintf (Gbl.F.Out,"
  • %s
    • ", row[0]); } fprintf (Gbl.F.Out,"
"); } 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_ShowTestResultAfterAssess (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 row[ 1] UNIX_TIMESTAMP(EditTime) row[ 2] AnsType row[ 3] Shuffle row[ 4] Stem row[ 5] Feedback row[ 6] ImageName row[ 7] ImageTitle row[ 8] ImageURL row[ 9] NumHits row[10] NumHitsNotBlank row[11] Score */ /***** Get the code of question (row[0]) *****/ if ((QstCod = Str_ConvertStrCodToLongCod (row[0])) < 0) Lay_ShowErrorAndExit ("Wrong code of question."); /***** Write question and answers *****/ Tst_WriteQstAndAnsTest (NumQst,QstCod,row, &ScoreThisQst,&AnswerIsNotBlank); /***** Store test result question in database *****/ Tst_StoreOneTestResultQstInDB (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 *****/ if (Gbl.Usrs.Me.Role.Logged == Rol_STD) Tst_UpdateScoreQst (QstCod,ScoreThisQst,AnswerIsNotBlank); } else /***** Question does not exists *****/ fprintf (Gbl.F.Out,"" "" "%u" "" "" "%s" "" "", Gbl.RowEvenOdd,NumQst + 1, Gbl.RowEvenOdd,Txt_Question_removed); /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } } /*****************************************************************************/ /********** Write a row of a test, with one question and its answer **********/ /*****************************************************************************/ static void Tst_WriteQstAndAnsTest (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 row[ 1] UNIX_TIMESTAMP(EditTime) row[ 2] AnsType row[ 3] Shuffle row[ 4] Stem row[ 5] Feedback row[ 6] ImageName row[ 7] ImageTitle row[ 8] ImageURL row[ 9] NumHits row[10] NumHitsNotBlank row[11] Score */ /***** Create test question *****/ Tst_QstConstructor (); Gbl.Test.QstCod = QstCod; /***** Write number of question *****/ fprintf (Gbl.F.Out,"" "" "
%u
", Gbl.RowEvenOdd, NumQst + 1); /***** Write answer type (row[2]) *****/ Gbl.Test.AnswerType = Tst_ConvertFromStrAnsTypDBToAnsTyp (row[2]); fprintf (Gbl.F.Out,"
%s
" "", Txt_TST_STR_ANSWER_TYPES[Gbl.Test.AnswerType]); /***** Write stem (row[4]), image (row[6], row[7], row[8]), answers depending on shuffle (row[3]) and feedback (row[5]) *****/ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); Tst_WriteQstStem (row[4],"TEST_EXA"); Img_GetImageNameTitleAndURLFromRow (row[6],row[7],row[8],&Gbl.Test.Image); Img_ShowImage (&Gbl.Test.Image, "TEST_IMG_SHOW_STEM_CONTAINER", "TEST_IMG_SHOW_STEM"); if (Gbl.Action.Act == ActSeeTst) Tst_WriteAnswersOfAQstViewTest (NumQst,QstCod,(row[3][0] == 'Y')); else // Assessing test / Viewing old test result { Tst_WriteAnswersOfAQstAssessTest (NumQst,QstCod,ScoreThisQst,AnswerIsNotBlank); /* Write question feedback (row[5]) */ if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK) Tst_WriteQstFeedback (row[5],"TEST_EXA_LIGHT"); } fprintf (Gbl.F.Out,"" ""); /***** Destroy test question *****/ Tst_QstDestructor (); } /*****************************************************************************/ /********************* Write the stem 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_BYTES_PER_CHAR; if ((StemRigorousHTML = malloc (StemLength + 1)) == NULL) Lay_ShowErrorAndExit ("Not enough memory to store stem of question."); Str_Copy (StemRigorousHTML,Stem, StemLength); Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML, StemRigorousHTML,StemLength,false); /***** Write the stem *****/ fprintf (Gbl.F.Out,"
" "%s" "
", ClassStem,StemRigorousHTML); /***** Free memory allocated for the stem *****/ free ((void *) StemRigorousHTML); } /*****************************************************************************/ /************* Put form to upload a new image for a test question ************/ /*****************************************************************************/ static void Tst_PutFormToEditQstImage (struct Image *Image,int NumImgInForm, const char *ClassContainer, const char *ClassImg, const char *ClassImgTitURL, bool OptionsDisabled) { extern const char *The_ClassForm[The_NUM_THEMES]; extern const char *Txt_No_image; extern const char *Txt_Current_image; extern const char *Txt_Change_image; extern const char *Txt_Image_title_attribution; extern const char *Txt_Link; extern const char *Txt_optional; static unsigned UniqueId = 0; struct ParamUploadImg ParamUploadImg; if (Image->Name[0]) { /***** Set names of parameters depending on number of image in form *****/ Img_SetParamNames (&ParamUploadImg,NumImgInForm); /***** Start container *****/ fprintf (Gbl.F.Out,"
"); /***** Choice 1: No image *****/ fprintf (Gbl.F.Out,"
", Txt_No_image); /***** Choice 2: Current image *****/ fprintf (Gbl.F.Out,"", Txt_Current_image); Img_ShowImage (Image,ClassContainer,ClassImg); /***** Choice 3: Change/new image *****/ UniqueId++; fprintf (Gbl.F.Out,"" "", UniqueId); /***** Image title/attribution *****/ fprintf (Gbl.F.Out,"
" "", ParamUploadImg.Title,Txt_Image_title_attribution,Txt_optional, ClassImgTitURL,Img_MAX_CHARS_TITLE, Image->Title ? Image->Title : ""); /***** Image URL *****/ fprintf (Gbl.F.Out,"
" "", ParamUploadImg.URL,Txt_Link,Txt_optional, ClassImgTitURL,Cns_MAX_CHARS_WWW, Image->URL ? Image->URL : ""); /***** End container *****/ fprintf (Gbl.F.Out,"
"); } else // No current image /***** Attached image (optional) *****/ Img_PutImageUploader (NumImgInForm,ClassImgTitURL); } /*****************************************************************************/ /******************* 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_BYTES_PER_CHAR; if ((FeedbackRigorousHTML = malloc (FeedbackLength + 1)) == NULL) Lay_ShowErrorAndExit ("Not enough memory to store stem of question."); Str_Copy (FeedbackRigorousHTML,Feedback, FeedbackLength); Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML, FeedbackRigorousHTML,FeedbackLength,false); /***** Write the feedback *****/ fprintf (Gbl.F.Out,"
" "%s" "
", 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 *****/ Str_SetDecimalPointToUS (); // To print the floating point as a dot 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); Str_SetDecimalPointToLocal (); // Return to local system 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[256]; /***** 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[256]; /***** 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"); } /*****************************************************************************/ /************ 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; Gbl.DateRange.TimeUTC[1] = Gbl.StartExecutionTimeUTC; } /*****************************************************************************/ /******* Select tags and dates for edition of the self-assessment test *******/ /*****************************************************************************/ void Tst_ShowFormAskEditTsts (void) { extern const char *Hlp_ASSESSMENT_Tests; extern const char *Txt_No_test_questions; extern const char *Txt_List_edit_questions; extern const char *Txt_Show_questions; MYSQL_RES *mysql_res; unsigned long NumRows; /***** Contextual menu *****/ fprintf (Gbl.F.Out,"
"); TsI_PutFormToImportQuestions (); // Put link (form) to import questions from XML file fprintf (Gbl.F.Out,"
"); /***** Start frame *****/ Lay_StartRoundFrame (NULL,Txt_List_edit_questions,Tst_PutIconsTests, Hlp_ASSESSMENT_Tests, false); // Not closable /***** Get tags already present in the table of questions *****/ if ((NumRows = Tst_GetAllTagsFromCurrentCrs (&mysql_res))) { Act_FormStart (ActLstTstQst); Par_PutHiddenParamUnsigned ("Order",(unsigned) Tst_ORDER_STEM); Lay_StartTable (2); /***** Selection of tags *****/ Tst_ShowFormSelTags (NumRows,mysql_res,false,2); /***** Selection of types of answers *****/ Tst_ShowFormAnswerTypes (2); /***** Starting and ending dates in the search *****/ Dat_PutFormStartEndClientLocalDateTimesWithYesterdayToday (false); Lay_EndTable (); /***** Send button *****/ Lay_PutConfirmButton (Txt_Show_questions); Act_FormEnd (); } else // No test questions { /***** Warning message *****/ Ale_ShowAlert (Ale_INFO,Txt_No_test_questions); /***** Button to create a new question *****/ Tst_PutButtonToAddQuestion (); } /***** End frame *****/ Lay_EndRoundFrame (); /* Free structure that stores the query result */ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /************************* Check if I can edit tests *************************/ /*****************************************************************************/ static bool Tst_CheckIfICanEditTests (void) { return (bool) (Gbl.Usrs.Me.Role.Logged == Rol_TCH || Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM); } /*****************************************************************************/ /********************* Put contextual icons in tests *************************/ /*****************************************************************************/ static void Tst_PutIconsTests (void) { extern const char *Txt_New_question; extern const char *Txt_Configure; if (Tst_CheckIfICanEditTests ()) { /***** Put form to edit existing test questions *****/ if (Gbl.Action.Act != ActEdiTstQst) Lay_PutContextualIconToEdit (ActEdiTstQst,NULL); /***** Put form to create a new test question *****/ if (Gbl.Action.Act != ActEdiOneTstQst) Lay_PutContextualLink (ActEdiOneTstQst,NULL,NULL, "plus64x64.png", Txt_New_question,NULL, NULL); /***** Put form to go to test configuration *****/ if (Gbl.Action.Act != ActCfgTst) Lay_PutContextualLink (ActCfgTst,NULL,NULL, "config64x64.gif", Txt_Configure,NULL, NULL); } /***** Put icon to show a figure *****/ Gbl.Stat.FigureType = Sta_TESTS; Sta_PutIconToShowFigure (); } /*****************************************************************************/ /**************** Put button to create a new test question *******************/ /*****************************************************************************/ static void Tst_PutButtonToAddQuestion (void) { extern const char *Txt_New_question; Act_FormStart (ActEdiOneTstQst); Lay_PutConfirmButton (Txt_New_question); Act_FormEnd (); } /*****************************************************************************/ /***************************** 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 ()) Ale_ShowAlert (Ale_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) { long TagCod; /***** Get tag code *****/ if ((TagCod = Par_GetParToLong ("TagCod")) <= 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 ExistingTagCod; long OldTagCod; bool ComplexRenaming; /***** 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]) // New tag empty { sprintf (Gbl.Alert.Txt,Txt_You_can_not_leave_the_name_of_the_tag_X_empty, OldTagTxt); Ale_ShowAlert (Ale_WARNING,Gbl.Alert.Txt); } else // New tag not empty { /***** Check if the old tag is equal to the new one *****/ if (!strcmp (OldTagTxt,NewTagTxt)) // The old and the new tag // are exactly the same (case sensitively). // This happens when user press INTRO // without changing anything in the form. { sprintf (Gbl.Alert.Txt,Txt_The_tag_X_has_not_changed, NewTagTxt); Ale_ShowAlert (Ale_INFO,Gbl.Alert.Txt); } else // The old and the new tag // are not exactly the same (case sensitively). { /***** Check if renaming is complex or easy *****/ ComplexRenaming = false; if (strcasecmp (OldTagTxt,NewTagTxt)) // The old and the new tag // are not the same (case insensitively) /* Check if the new tag text is equal to any of the tags already present in the database */ if ((ExistingTagCod = Tst_GetTagCodFromTagTxt (NewTagTxt)) > 0) // The new tag was already in database ComplexRenaming = true; if (ComplexRenaming) // Renaming is not easy { /***** Complex update made to not repeat tags: - 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 *****/ /* Get tag code of the old tag */ if ((OldTagCod = Tst_GetTagCodFromTagTxt (OldTagTxt)) < 0) Lay_ShowErrorAndExit ("Tag does not exists."); /* Create a temporary table with all the question codes that had the new tag as one of their tags */ sprintf (Query,"DROP TEMPORARY 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", ExistingTagCod); if (mysql_query (&Gbl.mysql,Query)) DB_ExitOnMySQLError ("can not create temporary table"); /* Remove old tag in questions where it would be repeated */ // New tag existed for a question ==> delete old tag sprintf (Query,"DELETE FROM tst_question_tags" " WHERE TagCod=%ld" " AND QstCod IN" " (SELECT QstCod FROM tst_question_tags_tmp)", OldTagCod); DB_QueryDELETE (Query,"can not remove a tag from some questions"); /* Change old tag to new tag in questions where it would not be repeated */ // New tag did not exist for a question ==> change old tag to new tag sprintf (Query,"UPDATE tst_question_tags" " SET TagCod=%ld" " WHERE TagCod=%ld" " AND QstCod NOT IN" " (SELECT QstCod FROM tst_question_tags_tmp)", ExistingTagCod, OldTagCod); DB_QueryUPDATE (Query,"can not update a tag in some questions"); /* Drop temporary table, no longer necessary */ sprintf (Query,"DROP TEMPORARY 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"); } else // Renaming is easy { /***** 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.Alert.Txt,Txt_The_tag_X_has_been_renamed_as_Y, OldTagTxt,NewTagTxt); Ale_ShowAlert (Ale_SUCCESS,Gbl.Alert.Txt); } } /***** 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[128]; /***** 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[256]; /***** 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[256]; /***** 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,unsigned NumCols) { extern const char *The_ClassForm[The_NUM_THEMES]; extern const char *Txt_Tags; extern const char *Txt_All_tags; 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]; /***** Label *****/ fprintf (Gbl.F.Out,"" "" "%s:" "", The_ClassForm[Gbl.Prefs.Theme],Txt_Tags); /***** Select all tags *****/ fprintf (Gbl.F.Out," 1) fprintf (Gbl.F.Out," colspan=\"%u\"",NumCols); fprintf (Gbl.F.Out," class=\"LEFT_TOP\">"); Lay_StartTable (2); fprintf (Gbl.F.Out,""); if (!ShowOnlyEnabledTags) fprintf (Gbl.F.Out,""); fprintf (Gbl.F.Out,"" "" "" "", Txt_All_tags); /***** Select tags one by one *****/ for (NumRow = 1; NumRow <= NumRows; NumRow++) { row = mysql_fetch_row (mysql_res); fprintf (Gbl.F.Out,""); if (!ShowOnlyEnabledTags) { TagHidden = (row[2][0] == 'Y'); fprintf (Gbl.F.Out,"" "\"%s\"" ""); } fprintf (Gbl.F.Out,"" "" "" "", row[1]); } Lay_EndTable (); fprintf (Gbl.F.Out,"" ""); } /*****************************************************************************/ /************* Show a form to enable/disable and rename test tags ************/ /*****************************************************************************/ static void Tst_ShowFormEditTags (void) { extern const char *Hlp_ASSESSMENT_Tests; extern const char *Txt_No_test_questions; 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))) { /***** Start table *****/ Lay_StartRoundFrameTable (NULL,Txt_Tags,NULL, Hlp_ASSESSMENT_Tests, false, // Not closable 2); /***** 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,""); /* Form to enable / disable this tag */ if (row[2][0] == 'Y') // Tag disabled Tst_PutIconEnable (TagCod,row[1]); else Tst_PutIconDisable (TagCod,row[1]); /* Form to rename this tag */ fprintf (Gbl.F.Out,""); Act_FormStart (ActRenTag); Par_PutHiddenParamString ("OldTagTxt",row[1]); fprintf (Gbl.F.Out,"", Tst_MAX_CHARS_TAG,row[1],Gbl.Form.Id); Act_FormEnd (); fprintf (Gbl.F.Out,"" ""); } /***** End table *****/ Lay_EndRoundFrameTable (); } else Ale_ShowAlert (Ale_INFO,Txt_No_test_questions); /* 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,""); Act_FormStart (ActEnableTag); Par_PutHiddenParamLong ("TagCod",TagCod); sprintf (Gbl.Title,Txt_Tag_X_not_allowed_Click_to_allow_it,TagTxt); fprintf (Gbl.F.Out,"", Gbl.Prefs.IconsURL, Gbl.Title, Gbl.Title); Act_FormEnd (); fprintf (Gbl.F.Out,""); } /*****************************************************************************/ /****************** 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,""); Act_FormStart (ActDisableTag); Par_PutHiddenParamLong ("TagCod",TagCod); sprintf (Gbl.Title,Txt_Tag_X_allowed_Click_to_disable_it,TagTxt); fprintf (Gbl.F.Out,"", Gbl.Prefs.IconsURL, Gbl.Title, Gbl.Title); Act_FormEnd (); fprintf (Gbl.F.Out,""); } /*****************************************************************************/ /********************* Show a form to to configure test **********************/ /*****************************************************************************/ static void Tst_ShowFormConfigTst (void) { extern const char *Hlp_ASSESSMENT_Tests; extern const char *The_ClassForm[The_NUM_THEMES]; 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 frame *****/ Lay_StartRoundFrame (NULL,Txt_Configure_tests,Tst_PutIconsTests, Hlp_ASSESSMENT_Tests, false); // Not closable /***** Start form *****/ Act_FormStart (ActRcvCfgTst); /***** Tests are visible from plugins? *****/ Lay_StartTable (2); fprintf (Gbl.F.Out,"" "" "%s:" "" "", The_ClassForm[Gbl.Prefs.Theme], Txt_Plugins); for (Pluggable = Tst_PLUGGABLE_NO; Pluggable <= Tst_PLUGGABLE_YES; Pluggable++) { fprintf (Gbl.F.Out,"
", Txt_TST_PLUGGABLE[Pluggable]); } fprintf (Gbl.F.Out,"" ""); /***** Number of questions *****/ fprintf (Gbl.F.Out,"" "" "%s:" "" "", The_ClassForm[Gbl.Prefs.Theme], Txt_No_of_questions); Lay_StartTable (2); Tst_PutInputFieldNumQst ("NumQstMin",Txt_minimum, Gbl.Test.Config.Min); // Minimum number of questions Tst_PutInputFieldNumQst ("NumQstDef",Txt_default, Gbl.Test.Config.Def); // Default number of questions Tst_PutInputFieldNumQst ("NumQstMax",Txt_maximum, Gbl.Test.Config.Max); // Maximum number of questions Lay_EndTable (); fprintf (Gbl.F.Out,"" ""); /***** Minimum time between consecutive tests, per question *****/ fprintf (Gbl.F.Out,"" "" "" "" "" "" "" "", The_ClassForm[Gbl.Prefs.Theme], Txt_Minimum_time_seconds_per_question_between_two_tests, Gbl.Test.Config.MinTimeNxtTstPerQst); /***** Feedback to students *****/ fprintf (Gbl.F.Out,"" "" "%s:" "" "", The_ClassForm[Gbl.Prefs.Theme],Txt_Feedback_to_students); for (FeedbTyp = (Tst_Feedback_t) 0; FeedbTyp < Tst_NUM_TYPES_FEEDBACK; FeedbTyp++) { fprintf (Gbl.F.Out,"
", Txt_TST_STR_FEEDBACK[FeedbTyp]); } fprintf (Gbl.F.Out,"" ""); Lay_EndTable (); /***** Send button *****/ Lay_PutConfirmButton (Txt_Save); /***** End form *****/ Act_FormEnd (); /***** End frame *****/ Lay_EndRoundFrame (); } /*****************************************************************************/ /*************** Get configuration of test for current course ****************/ /*****************************************************************************/ static void Tst_PutInputFieldNumQst (const char *Field,const char *Label, unsigned Value) { fprintf (Gbl.F.Out,"" "" "" "" "" "" "" "", Field,Label, Field,Field, Value); } /*****************************************************************************/ /*************** Get configuration of test for current course ****************/ /*****************************************************************************/ static void Tst_GetConfigTstFromDB (void) { char Query[256]; 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 consecutive tests, 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[128]; 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 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 */ Gbl.Test.Config.Min = (unsigned) Par_GetParToUnsignedLong ("NumQstMin", 1, UINT_MAX, 1); /* Get default number of questions */ Gbl.Test.Config.Def = (unsigned) Par_GetParToUnsignedLong ("NumQstDef", 1, UINT_MAX, 1); /* Get maximum number of questions */ Gbl.Test.Config.Max = (unsigned) Par_GetParToUnsignedLong ("NumQstMax", 1, UINT_MAX, 1); /* Check and correct numbers */ Tst_CheckAndCorrectNumbersQst (); /***** Get minimum time between consecutive tests, per question *****/ Gbl.Test.Config.MinTimeNxtTstPerQst = Par_GetParToUnsignedLong ("MinTimeNxtTstPerQst", 0, ULONG_MAX, 0); /***** 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 tests"); /***** Show confirmation message *****/ Ale_ShowAlert (Ale_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) { return (Tst_Pluggable_t) Par_GetParToUnsignedLong ("Pluggable", 0, Tst_NUM_OPTIONS_PLUGGABLE - 1, (unsigned long) Tst_PLUGGABLE_UNKNOWN); } /*****************************************************************************/ /*********************** Get type of feedback from form **********************/ /*****************************************************************************/ static Tst_Feedback_t Tst_GetFeedbackTypeFromForm (void) { return (Tst_Feedback_t) Par_GetParToUnsignedLong ("Feedback", 0, Tst_NUM_TYPES_FEEDBACK - 1, (unsigned long) Tst_FEEDBACK_DEFAULT); } /*****************************************************************************/ /**** 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_TEST) Gbl.Test.Config.Min = Tst_MAX_QUESTIONS_PER_TEST; /***** 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_TEST) Gbl.Test.Config.Max = Tst_MAX_QUESTIONS_PER_TEST; /***** 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 (unsigned NumCols) { extern const char *The_ClassForm[The_NUM_THEMES]; extern const char *Txt_Types_of_answers; 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; /***** Label *****/ fprintf (Gbl.F.Out,"" "" "%s:" "", The_ClassForm[Gbl.Prefs.Theme],Txt_Types_of_answers); /***** Select all types of answers *****/ fprintf (Gbl.F.Out," 1) fprintf (Gbl.F.Out," colspan=\"%u\"",NumCols); fprintf (Gbl.F.Out," class=\"LEFT_TOP\">"); Lay_StartTable (2); fprintf (Gbl.F.Out,"" "" "" "" "", Txt_All_types_of_answers); /***** Type of answer *****/ for (AnsType = (Tst_AnswerType_t) 0; AnsType < Tst_NUM_ANS_TYPES; AnsType++) { fprintf (Gbl.F.Out,"" "" "" "" "", Txt_TST_STR_ANSWER_TYPES[AnsType]); } Lay_EndTable (); fprintf (Gbl.F.Out,"" ""); } /*****************************************************************************/ /***************** 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 from the form { if ((NumRows = Tst_GetQuestionsForEdit (&mysql_res)) != 0) // Query database { /* Buttons for edition */ fprintf (Gbl.F.Out,"
"); if (Gbl.Test.XML.CreateXML) /* Create XML file for exporting questions and put a link to download it */ TsI_CreateXML (NumRows,mysql_res); else /* Button to export questions */ TsI_PutFormToExportQuestions (); fprintf (Gbl.F.Out,"
"); /* Show the table with the questions */ Tst_ListOneOrMoreQuestionsToEdit (NumRows,mysql_res); } /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } else /* Show the form again */ Tst_ShowFormAskEditTsts (); /***** Free memory used by the list of tags *****/ Tst_FreeTagsList (); } /*****************************************************************************/ /********** Get from the database several test questions for listing *********/ /*****************************************************************************/ #define Tst_MAX_BYTES_QUERY_TEST (16 * 1024 - 1) 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[Tst_MAX_BYTES_QUERY_TEST + 1]; long LengthQuery; unsigned NumItemInList; const char *Ptr; char TagText[Tst_MAX_BYTES_TAG + 1]; char LongStr[1 + 10 + 1]; char UnsignedStr[10 + 1]; Tst_AnswerType_t AnsType; char CrsCodStr[1 + 10 + 1]; /***** Select questions *****/ /* Start query */ /* row[ 0] QstCod row[ 1] UNIX_TIMESTAMP(EditTime) row[ 2] AnsType row[ 3] Shuffle row[ 4] Stem row[ 5] Feedback row[ 6] ImageName row[ 7] ImageTitle row[ 8] ImageURL row[ 9] NumHits row[10] NumHitsNotBlank row[11] Score */ sprintf (Query,"SELECT tst_questions.QstCod," "UNIX_TIMESTAMP(tst_questions.EditTime) AS F," "tst_questions.AnsType,tst_questions.Shuffle," "tst_questions.Stem,tst_questions.Feedback," "tst_questions.ImageName," "tst_questions.ImageTitle," "tst_questions.ImageURL," "tst_questions.NumHits,tst_questions.NumHitsNotBlank," "tst_questions.Score" " FROM tst_questions"); if (!Gbl.Test.Tags.All) Str_Concat (Query,",tst_question_tags,tst_tags", Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query," WHERE tst_questions.CrsCod='", Tst_MAX_BYTES_QUERY_TEST); sprintf (CrsCodStr,"%ld",Gbl.CurrentCrs.Crs.CrsCod); Str_Concat (Query,CrsCodStr, Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,"' AND tst_questions.EditTime>=FROM_UNIXTIME('", Tst_MAX_BYTES_QUERY_TEST); sprintf (LongStr,"%ld",(long) Gbl.DateRange.TimeUTC[0]); Str_Concat (Query,LongStr, Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,"') AND tst_questions.EditTime<=FROM_UNIXTIME('", Tst_MAX_BYTES_QUERY_TEST); sprintf (LongStr,"%ld",(long) Gbl.DateRange.TimeUTC[1]); Str_Concat (Query,LongStr, Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,"')", Tst_MAX_BYTES_QUERY_TEST); /* Add the tags selected */ if (!Gbl.Test.Tags.All) { Str_Concat (Query," AND tst_questions.QstCod=tst_question_tags.QstCod" " AND tst_question_tags.TagCod=tst_tags.TagCod" " AND tst_tags.CrsCod='", Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,CrsCodStr, Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,"'", Tst_MAX_BYTES_QUERY_TEST); LengthQuery = strlen (Query); NumItemInList = 0; Ptr = Gbl.Test.Tags.List; while (*Ptr) { Par_GetNextStrUntilSeparParamMult (&Ptr,TagText,Tst_MAX_BYTES_TAG); LengthQuery = LengthQuery + 35 + strlen (TagText) + 1; if (LengthQuery > Tst_MAX_BYTES_QUERY_TEST - 256) Lay_ShowErrorAndExit ("Query size exceed."); Str_Concat (Query, NumItemInList ? " OR tst_tags.TagTxt='" : " AND (tst_tags.TagTxt='", Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,TagText, Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,"'", Tst_MAX_BYTES_QUERY_TEST); NumItemInList++; } Str_Concat (Query,")", Tst_MAX_BYTES_QUERY_TEST); } /* 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 > Tst_MAX_BYTES_QUERY_TEST - 256) Lay_ShowErrorAndExit ("Query size exceed."); Str_Concat (Query, NumItemInList ? " OR tst_questions.AnsType='" : " AND (tst_questions.AnsType='", Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,Tst_StrAnswerTypesDB[AnsType], Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,"'", Tst_MAX_BYTES_QUERY_TEST); NumItemInList++; } Str_Concat (Query,")", Tst_MAX_BYTES_QUERY_TEST); } /* End the query */ Str_Concat (Query," GROUP BY tst_questions.QstCod", Tst_MAX_BYTES_QUERY_TEST); switch (Gbl.Test.SelectedOrder) { case Tst_ORDER_STEM: Str_Concat (Query," ORDER BY tst_questions.Stem", Tst_MAX_BYTES_QUERY_TEST); break; case Tst_ORDER_NUM_HITS: Str_Concat (Query," ORDER BY tst_questions.NumHits DESC," "tst_questions.Stem", Tst_MAX_BYTES_QUERY_TEST); break; case Tst_ORDER_AVERAGE_SCORE: Str_Concat (Query," ORDER BY tst_questions.Score/tst_questions.NumHits DESC," "tst_questions.NumHits DESC," "tst_questions.Stem", Tst_MAX_BYTES_QUERY_TEST); break; case Tst_ORDER_NUM_HITS_NOT_BLANK: Str_Concat (Query," ORDER BY tst_questions.NumHitsNotBlank DESC," "tst_questions.Stem", Tst_MAX_BYTES_QUERY_TEST); break; case Tst_ORDER_AVERAGE_SCORE_NOT_BLANK: Str_Concat (Query," ORDER BY tst_questions.Score/tst_questions.NumHitsNotBlank DESC," "tst_questions.NumHitsNotBlank DESC," "tst_questions.Stem", Tst_MAX_BYTES_QUERY_TEST); break; } /* Make the query */ NumRows = DB_QuerySELECT (Query,mysql_res,"can not get questions"); if (NumRows == 0) Ale_ShowAlert (Ale_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_GetQuestionsForTest (MYSQL_RES **mysql_res) { char Query[Tst_MAX_BYTES_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 row[ 1] UNIX_TIMESTAMP(EditTime) row[ 2] AnsType row[ 3] Shuffle row[ 4] Stem row[ 5] Feedback row[ 6] ImageName row[ 7] ImageTitle row[ 8] ImageURL row[ 9] NumHits row[10] NumHitsNotBlank row[11] Score */ /* Start query */ // Reject questions with any tag hidden // Select only questions with tags // DISTINCTROW is necessary to not repeat questions sprintf (Query,"SELECT DISTINCTROW tst_questions.QstCod," "UNIX_TIMESTAMP(tst_questions.EditTime)," "tst_questions.AnsType,tst_questions.Shuffle," "tst_questions.Stem,tst_questions.Feedback," "tst_questions.ImageName," "tst_questions.ImageTitle," "tst_questions.ImageURL," "tst_questions.NumHits,tst_questions.NumHitsNotBlank," "tst_questions.Score" " FROM tst_questions,tst_question_tags,tst_tags" " WHERE tst_questions.CrsCod=%ld" " AND tst_questions.QstCod NOT IN" " (SELECT tst_question_tags.QstCod" " FROM tst_tags,tst_question_tags" " 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.Tags.All) // User has not selected all the tags { /* Add selected tags */ LengthQuery = strlen (Query); NumItemInList = 0; Ptr = Gbl.Test.Tags.List; while (*Ptr) { Par_GetNextStrUntilSeparParamMult (&Ptr,TagText,Tst_MAX_BYTES_TAG); LengthQuery = LengthQuery + 35 + strlen (TagText) + 1; if (LengthQuery > Tst_MAX_BYTES_QUERY_TEST - 128) Lay_ShowErrorAndExit ("Query size exceed."); Str_Concat (Query, NumItemInList ? " OR tst_tags.TagTxt='" : " AND (tst_tags.TagTxt='", Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,TagText, Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,"'", Tst_MAX_BYTES_QUERY_TEST); NumItemInList++; } Str_Concat (Query,")", Tst_MAX_BYTES_QUERY_TEST); } /* 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 > Tst_MAX_BYTES_QUERY_TEST - 128) Lay_ShowErrorAndExit ("Query size exceed."); Str_Concat (Query, NumItemInList ? " OR tst_questions.AnsType='" : " AND (tst_questions.AnsType='", Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,Tst_StrAnswerTypesDB[AnsType], Tst_MAX_BYTES_QUERY_TEST); Str_Concat (Query,"'", Tst_MAX_BYTES_QUERY_TEST); NumItemInList++; } Str_Concat (Query,")", Tst_MAX_BYTES_QUERY_TEST); } /* End query */ Str_Concat (Query," ORDER BY RAND(NOW()) LIMIT ", Tst_MAX_BYTES_QUERY_TEST); sprintf (StrNumQsts,"%u",Gbl.Test.NumQsts); Str_Concat (Query,StrNumQsts, Tst_MAX_BYTES_QUERY_TEST); /* if (Gbl.Usrs.Me.Roles.LoggedRole == Rol_SYS_ADM) Lay_ShowAlert (Lay_INFO,Query); */ /* 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)) /***** 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 row[ 1] UNIX_TIMESTAMP(EditTime) row[ 2] AnsType row[ 3] Shuffle row[ 4] Stem row[ 5] Feedback row[ 6] ImageName row[ 7] ImageTitle row[ 8] ImageURL row[ 9] NumHits row[10] NumHitsNotBlank row[11] Score */ sprintf (Query,"SELECT QstCod,UNIX_TIMESTAMP(EditTime)," "AnsType,Shuffle,Stem,Feedback," "ImageName,ImageTitle,ImageURL," "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) { extern const char *Hlp_ASSESSMENT_Tests; extern const char *Txt_Questions; 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; extern const char *Txt_Today; Tst_QuestionsOrder_t Order; unsigned long NumRow; MYSQL_ROW row; unsigned UniqueId; time_t TimeUTC; unsigned long NumHitsThisQst; unsigned long NumHitsNotBlankThisQst; double TotalScoreThisQst; /***** Table start *****/ Lay_StartRoundFrame (NULL,Txt_Questions,Tst_PutIconsTests, Hlp_ASSESSMENT_Tests, false); // Not closable /***** Write the heading *****/ Lay_StartTableWideMargin (2); fprintf (Gbl.F.Out,"" "" "" "%s" "" "" "%s" "" "" "%s" "" "" "%s" "" "" "%s" "" "" "%s" "", 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++) { fprintf (Gbl.F.Out,""); if (NumRows > 1) { Act_FormStart (ActLstTstQst); Sta_WriteParamsDatesSeeAccesses (); Tst_WriteParamEditQst (); Par_PutHiddenParamUnsigned ("Order",(unsigned) Order); Act_LinkFormSubmit (Txt_TST_STR_ORDER_FULL[Order],"TIT_TBL",NULL); if (Order == Gbl.Test.SelectedOrder) fprintf (Gbl.F.Out,""); } fprintf (Gbl.F.Out,"%s",Txt_TST_STR_ORDER_SHORT[Order]); if (NumRows > 1) { if (Order == Gbl.Test.SelectedOrder) fprintf (Gbl.F.Out,""); fprintf (Gbl.F.Out,""); Act_FormEnd (); } fprintf (Gbl.F.Out,""); } fprintf (Gbl.F.Out,""); /***** Write rows *****/ for (NumRow = 0, UniqueId = 1; NumRow < NumRows; NumRow++, UniqueId++) { Gbl.RowEvenOdd = NumRow % 2; row = mysql_fetch_row (mysql_res); /* row[ 0] QstCod row[ 1] UNIX_TIMESTAMP(EditTime) row[ 2] AnsType row[ 3] Shuffle row[ 4] Stem row[ 5] Feedback row[ 6] ImageName row[ 7] ImageTitle row[ 8] ImageURL row[ 9] NumHits row[10] NumHitsNotBlank row[11] Score */ /***** Create test question *****/ Tst_QstConstructor (); /* row[0] holds the code of the question */ if ((Gbl.Test.QstCod = Str_ConvertStrCodToLongCod (row[0])) < 0) Lay_ShowErrorAndExit ("Wrong code of question."); /* Write icon to remove the question */ fprintf (Gbl.F.Out,"" "",Gbl.RowEvenOdd); Act_FormStart (ActReqRemTstQst); Tst_PutParamQstCod (); if (NumRows == 1) Par_PutHiddenParamChar ("OnlyThisQst",'Y'); // If there are only one row, don't list again after removing Sta_WriteParamsDatesSeeAccesses (); Tst_WriteParamEditQst (); Lay_PutIconRemove (); Act_FormEnd (); fprintf (Gbl.F.Out,""); /* Write icon to edit the question */ fprintf (Gbl.F.Out,"",Gbl.RowEvenOdd); Act_FormStart (ActEdiOneTstQst); Tst_PutParamQstCod (); fprintf (Gbl.F.Out,"", Gbl.Prefs.IconsURL, Txt_Edit_question, Txt_Edit_question); Act_FormEnd (); fprintf (Gbl.F.Out,""); /* Write number of question */ fprintf (Gbl.F.Out,"" "%lu " "", Gbl.RowEvenOdd,NumRow + 1); /* Write question code */ fprintf (Gbl.F.Out,"" "%ld " "", Gbl.RowEvenOdd,Gbl.Test.QstCod); /* Write the date (row[1] has the UTC date-time) */ TimeUTC = Dat_GetUNIXTimeFromStr (row[1]); fprintf (Gbl.F.Out,"" "" "", UniqueId,Gbl.RowEvenOdd, UniqueId,(long) TimeUTC, (unsigned) Gbl.Prefs.DateFormat,Txt_Today); /* Write the question tags */ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); Tst_GetAndWriteTagsQst (Gbl.Test.QstCod); fprintf (Gbl.F.Out,""); /* Write the question type (row[2]) */ Gbl.Test.AnswerType = Tst_ConvertFromStrAnsTypDBToAnsTyp (row[2]); fprintf (Gbl.F.Out,"" "%s " "", Gbl.RowEvenOdd, Txt_TST_STR_ANSWER_TYPES[Gbl.Test.AnswerType]); /* Write if shuffle is enabled (row[3]) */ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); if (Gbl.Test.AnswerType == Tst_ANS_UNIQUE_CHOICE || Gbl.Test.AnswerType == Tst_ANS_MULTIPLE_CHOICE) { Act_FormStart (ActShfTstQst); Tst_PutParamQstCod (); Sta_WriteParamsDatesSeeAccesses (); Tst_WriteParamEditQst (); if (NumRows == 1) Par_PutHiddenParamChar ("OnlyThisQst",'Y'); // If editing only one question, don't edit others Par_PutHiddenParamUnsigned ("Order",(unsigned) Gbl.Test.SelectedOrder); fprintf (Gbl.F.Out,"", Gbl.Form.Id); Act_FormEnd (); } fprintf (Gbl.F.Out,""); /* Write the stem (row[4]), the image (row[6], row[7], row[8]), the feedback (row[5]) and the answers */ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); Tst_WriteQstStem (row[4],"TEST_EDI"); Img_GetImageNameTitleAndURLFromRow (row[6],row[7],row[8],&Gbl.Test.Image); Img_ShowImage (&Gbl.Test.Image, "TEST_IMG_EDIT_LIST_STEM_CONTAINER", "TEST_IMG_EDIT_LIST_STEM"); Tst_WriteQstFeedback (row[5],"TEST_EDI_LIGHT"); Tst_WriteAnswersOfAQstEdit (Gbl.Test.QstCod); fprintf (Gbl.F.Out,""); /* Get number of hits (number of times that the question has been answered, including blank answers) (row[9]) */ if (sscanf (row[9],"%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[10]) */ if (sscanf (row[10],"%lu",&NumHitsNotBlankThisQst) != 1) Lay_ShowErrorAndExit ("Wrong number of hits not blank to a question."); /* Get the acumulated score of the question (row[11]) */ Str_SetDecimalPointToUS (); // To get the decimal point as a dot if (sscanf (row[11],"%lf",&TotalScoreThisQst) != 1) Lay_ShowErrorAndExit ("Wrong score of a question."); Str_SetDecimalPointToLocal (); // Return to local system /* Write number of times this question has been answered */ fprintf (Gbl.F.Out,"" "%lu" "", Gbl.RowEvenOdd,NumHitsThisQst); /* Write average score */ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); if (NumHitsThisQst) fprintf (Gbl.F.Out,"%.2f",TotalScoreThisQst / (double) NumHitsThisQst); else fprintf (Gbl.F.Out,"N.A."); fprintf (Gbl.F.Out,""); /* Write number of times this question has been answered (not blank) */ fprintf (Gbl.F.Out,"" "%lu" "", Gbl.RowEvenOdd, NumHitsNotBlankThisQst); /* Write average score (not blank) */ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); if (NumHitsNotBlankThisQst) fprintf (Gbl.F.Out,"%.2f",TotalScoreThisQst / (double) NumHitsNotBlankThisQst); else fprintf (Gbl.F.Out,"N.A."); fprintf (Gbl.F.Out,"" ""); /***** Destroy test question *****/ Tst_QstDestructor (); } /***** End table *****/ Lay_EndTable (); /***** Button to add a new question *****/ Tst_PutButtonToAddQuestion (); /***** End frame *****/ Lay_EndRoundFrame (); } /*****************************************************************************/ /*********** Write hidden parameters for edition of test questions ***********/ /*****************************************************************************/ void Tst_WriteParamEditQst (void) { Par_PutHiddenParamChar ("AllTags", Gbl.Test.Tags.All ? 'Y' : 'N'); Par_PutHiddenParamString ("ChkTag", Gbl.Test.Tags.List ? Gbl.Test.Tags.List : ""); 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,Feedback," "ImageName,ImageTitle,ImageURL,Correct" " 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"))) Ale_ShowAlert (Ale_ERROR,"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 /* row[ 0] AnsInd row[ 1] Answer row[ 2] Feedback row[ 3] ImageName row[ 4] ImageTitle row[ 5] ImageURL row[ 6] Correct */ /***** Write the answers *****/ switch (Gbl.Test.AnswerType) { case Tst_ANS_INT: Tst_CheckIfNumberOfAnswersIsOne (); row = mysql_fetch_row (mysql_res); fprintf (Gbl.F.Out,"(%ld)", 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,"([%lg; %lg])", FloatNum[0],FloatNum[1]); break; case Tst_ANS_TRUE_FALSE: Tst_CheckIfNumberOfAnswersIsOne (); row = mysql_fetch_row (mysql_res); fprintf (Gbl.F.Out,"("); Tst_WriteAnsTF (row[1][0]); fprintf (Gbl.F.Out,")"); break; case Tst_ANS_UNIQUE_CHOICE: case Tst_ANS_MULTIPLE_CHOICE: case Tst_ANS_TEXT: Lay_StartTable (2); 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_BYTES_PER_CHAR; if ((Answer = malloc (LengthAnswer + 1)) == NULL) Lay_ShowErrorAndExit ("Not enough memory to store answer."); Str_Copy (Answer,row[1], LengthAnswer); Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML, Answer,LengthAnswer,false); /* Convert the feedback (row[2]), that is in HTML, to rigorous HTML */ LengthFeedback = 0; Feedback = NULL; if (row[2]) if (row[2][0]) { LengthFeedback = strlen (row[2]) * Str_MAX_BYTES_PER_CHAR; if ((Feedback = malloc (LengthFeedback + 1)) == NULL) Lay_ShowErrorAndExit ("Not enough memory to store feedback."); Str_Copy (Feedback,row[2], LengthFeedback); Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML, Feedback,LengthFeedback,false); } /* Copy image */ Img_GetImageNameTitleAndURLFromRow (row[3],row[4],row[5],&Gbl.Test.Answer.Options[NumOpt].Image); /* Put an icon that indicates whether the answer is correct or wrong */ fprintf (Gbl.F.Out,"" "", Gbl.RowEvenOdd); if (row[6][0] == 'Y') fprintf (Gbl.F.Out,"\"%s\"", Gbl.Prefs.IconsURL, Txt_TEST_Correct_answer, Txt_TEST_Correct_answer); fprintf (Gbl.F.Out,""); /* Write the number of option */ fprintf (Gbl.F.Out,"" "%c) " "", 'a' + (char) NumOpt); /* Write the text of the answer and the image */ fprintf (Gbl.F.Out,"" "
" "%s", Answer); Img_ShowImage (&Gbl.Test.Answer.Options[NumOpt].Image, "TEST_IMG_EDIT_LIST_ANS_CONTAINER", "TEST_IMG_EDIT_LIST_ANS"); fprintf (Gbl.F.Out,"
"); /* Write the text of the feedback */ fprintf (Gbl.F.Out,"
"); if (LengthFeedback) fprintf (Gbl.F.Out,"%s",Feedback); fprintf (Gbl.F.Out,"
" "" ""); /* Free memory allocated for the answer and the feedback */ free ((void *) Answer); if (LengthFeedback) free ((void *) Feedback); } Lay_EndTable (); break; default: break; } /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /************** Write answers of a question when viewing a test **************/ /*****************************************************************************/ static void Tst_WriteAnswersOfAQstViewTest (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_WriteIntAnsViewTest (NumQst); break; case Tst_ANS_FLOAT: Tst_WriteFloatAnsViewTest (NumQst); break; case Tst_ANS_TRUE_FALSE: Tst_WriteFormAnsTF (NumQst); break; case Tst_ANS_UNIQUE_CHOICE: case Tst_ANS_MULTIPLE_CHOICE: Tst_WriteChoiceAnsViewTest (NumQst,QstCod,Shuffle); break; case Tst_ANS_TEXT: Tst_WriteTextAnsViewTest (NumQst); break; default: break; } } /*****************************************************************************/ /************* Write answers of a question when assessing a test *************/ /*****************************************************************************/ static void Tst_WriteAnswersOfAQstAssessTest (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 /* row[ 0] AnsInd row[ 1] Answer row[ 2] Feedback row[ 3] ImageName row[ 4] ImageTitle row[ 5] ImageURL row[ 6] Correct */ /***** Write answer depending on type *****/ switch (Gbl.Test.AnswerType) { case Tst_ANS_INT: Tst_WriteIntAnsAssessTest (NumQst,mysql_res,ScoreThisQst,AnswerIsNotBlank); break; case Tst_ANS_FLOAT: Tst_WriteFloatAnsAssessTest (NumQst,mysql_res,ScoreThisQst,AnswerIsNotBlank); break; case Tst_ANS_TRUE_FALSE: Tst_WriteTFAnsAssessTest (NumQst,mysql_res,ScoreThisQst,AnswerIsNotBlank); break; case Tst_ANS_UNIQUE_CHOICE: case Tst_ANS_MULTIPLE_CHOICE: Tst_WriteChoiceAnsAssessTest (NumQst,mysql_res,ScoreThisQst,AnswerIsNotBlank); break; case Tst_ANS_TEXT: Tst_WriteTextAnsAssessTest (NumQst,mysql_res,ScoreThisQst,AnswerIsNotBlank); break; default: break; } /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /************** Write false / true answer when viewing a test ****************/ /*****************************************************************************/ static void Tst_WriteFormAnsTF (unsigned NumQst) { extern const char *Txt_TF_QST[2]; /***** Write selector for the answer *****/ fprintf (Gbl.F.Out,"", NumQst, Txt_TF_QST[0], Txt_TF_QST[1]); } /*****************************************************************************/ /************** Write false / true answer when viewing a test ****************/ /*****************************************************************************/ 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 a test **************/ /*****************************************************************************/ static void Tst_WriteTFAnsAssessTest (unsigned NumQst,MYSQL_RES *mysql_res, double *ScoreThisQst,bool *AnswerIsNotBlank) { MYSQL_ROW row; char AnsTF; /* row[ 0] AnsInd row[ 1] Answer row[ 2] Feedback row[ 3] ImageName row[ 4] ImageTitle row[ 5] ImageURL row[ 6] Correct */ /***** 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 *****/ Lay_StartTable (2); fprintf (Gbl.F.Out,""); Tst_WriteHeadUserCorrect (); fprintf (Gbl.F.Out,""); /***** Write the user answer *****/ fprintf (Gbl.F.Out,"" "", (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,""); /***** Write the correct answer *****/ fprintf (Gbl.F.Out,""); 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,"" ""); /***** 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 (); } Lay_EndTable (); } /*****************************************************************************/ /******** Write single or multiple choice answer when viewing a test *********/ /*****************************************************************************/ static void Tst_WriteChoiceAnsViewTest (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]; /***** Get answers of a question from database *****/ Gbl.Test.Answer.NumOptions = Tst_GetAnswersQst (QstCod,&mysql_res,Shuffle); // Result: AnsInd,Answer,Correct /* row[ 0] AnsInd row[ 1] Answer row[ 2] Feedback row[ 3] ImageName row[ 4] ImageTitle row[ 5] ImageURL row[ 6] Correct */ /***** Start table *****/ Lay_StartTable (2); 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.Alert.Txt); /***** 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 a test."); /***** Copy text (row[1]) and convert it, that is in HTML, to rigorous HTML ******/ Str_Copy (Gbl.Test.Answer.Options[NumOpt].Text,row[1], Tst_MAX_BYTES_ANSWER_OR_FEEDBACK); Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML, Gbl.Test.Answer.Options[NumOpt].Text, Tst_MAX_BYTES_ANSWER_OR_FEEDBACK,false); /***** Copy image *****/ Img_GetImageNameTitleAndURLFromRow (row[3],row[4],row[5],&Gbl.Test.Answer.Options[NumOpt].Image); /***** Write selectors and letter of this option *****/ fprintf (Gbl.F.Out,"" ""); sprintf (ParamName,"Ind%06u",NumQst); Par_PutHiddenParamUnsigned (ParamName,Index); fprintf (Gbl.F.Out,"" "", NumQst,NumOpt, NumQst,Index); fprintf (Gbl.F.Out,"" "" "", NumQst,NumOpt, 'a' + (char) NumOpt); /***** Write the option text *****/ fprintf (Gbl.F.Out,"" "", NumQst,NumOpt, Gbl.Test.Answer.Options[NumOpt].Text); Img_ShowImage (&Gbl.Test.Answer.Options[NumOpt].Image, "TEST_IMG_SHOW_ANS_CONTAINER", "TEST_IMG_SHOW_ANS"); fprintf (Gbl.F.Out,"" ""); } /***** End table *****/ Lay_EndTable (); /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /******* Write single or multiple choice answer when assessing a test ********/ /*****************************************************************************/ static void Tst_WriteChoiceAnsAssessTest (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] Feedback row[ 3] ImageName row[ 4] ImageTitle row[ 5] ImageURL row[ 6] 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 option *****/ if (!Tst_AllocateTextChoiceAnswer (NumOpt)) Lay_ShowErrorAndExit (Gbl.Alert.Txt); /***** Copy answer text (row[1]) and convert it, that is in HTML, to rigorous HTML ******/ Str_Copy (Gbl.Test.Answer.Options[NumOpt].Text,row[1], Tst_MAX_BYTES_ANSWER_OR_FEEDBACK); 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[2]) and convert it, that is in HTML, to rigorous HTML ******/ if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK) if (row[2]) if (row[2][0]) { Str_Copy (Gbl.Test.Answer.Options[NumOpt].Feedback,row[2], Tst_MAX_BYTES_ANSWER_OR_FEEDBACK); Str_ChangeFormat (Str_FROM_HTML,Str_TO_RIGOROUS_HTML, Gbl.Test.Answer.Options[NumOpt].Feedback, Tst_MAX_BYTES_ANSWER_OR_FEEDBACK,false); } /***** Copy image *****/ Img_GetImageNameTitleAndURLFromRow (row[3],row[4],row[5],&Gbl.Test.Answer.Options[NumOpt].Image); /***** Assign correctness (row[6]) of this answer (this option) *****/ Gbl.Test.Answer.Options[NumOpt].Correct = (row[6][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 a test."); } /***** 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 table *****/ Lay_StartTable (2); fprintf (Gbl.F.Out,""); Tst_WriteHeadUserCorrect (); fprintf (Gbl.F.Out,"" "" ""); /***** 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,"" ""); if (AnswersUsr[Indexes[NumOpt]] == true) // This answer has been selected by the user fprintf (Gbl.F.Out,"\"%s\"", 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", Txt_TEST_User_answer, Txt_TEST_User_answer); fprintf (Gbl.F.Out,""); /* Draw icon that indicates whether the answer is correct */ fprintf (Gbl.F.Out,""); 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,"\"%s\"", Gbl.Prefs.IconsURL, Txt_TEST_Correct_answer, Txt_TEST_Correct_answer); } else fprintf (Gbl.F.Out,"?"); fprintf (Gbl.F.Out,""); /* Answer letter (a, b, c,...) */ fprintf (Gbl.F.Out,"" "%c) " "", 'a' + (char) NumOpt); /* Answer text and feedback */ fprintf (Gbl.F.Out,"" "
" "%s", Gbl.Test.Answer.Options[Indexes[NumOpt]].Text); Img_ShowImage (&Gbl.Test.Answer.Options[Indexes[NumOpt]].Image, "TEST_IMG_SHOW_ANS_CONTAINER", "TEST_IMG_SHOW_ANS"); fprintf (Gbl.F.Out,"
"); 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]) fprintf (Gbl.F.Out,"
" "%s" "
", Gbl.Test.Answer.Options[Indexes[NumOpt]].Feedback); fprintf (Gbl.F.Out,"" ""); 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 *****/ Lay_EndTable (); } /*****************************************************************************/ /******************** Write text answer when viewing a test ******************/ /*****************************************************************************/ static void Tst_WriteTextAnsViewTest (unsigned NumQst) { /***** Write input field for the answer *****/ fprintf (Gbl.F.Out,"", NumQst,Tst_MAX_BYTES_ANSWERS_ONE_QST); } /*****************************************************************************/ /***************** Write text answer when assessing a test *******************/ /*****************************************************************************/ static void Tst_WriteTextAnsAssessTest (unsigned NumQst,MYSQL_RES *mysql_res, double *ScoreThisQst,bool *AnswerIsNotBlank) { unsigned NumOpt; MYSQL_ROW row; char TextAnsUsr[Tst_MAX_BYTES_ANSWERS_ONE_QST + 1]; char TextAnsOK[Tst_MAX_BYTES_ANSWERS_ONE_QST + 1]; bool Correct = false; /* row[ 0] AnsInd row[ 1] Answer row[ 2] Feedback row[ 3] ImageName row[ 4] ImageTitle row[ 5] ImageURL row[ 6] Correct */ /***** 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.Alert.Txt); /***** Copy answer text (row[1]) and convert it, that is in HTML, to rigorous HTML ******/ Str_Copy (Gbl.Test.Answer.Options[NumOpt].Text,row[1], Tst_MAX_BYTES_ANSWER_OR_FEEDBACK); 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[2]) and convert it, that is in HTML, to rigorous HTML ******/ if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK) if (row[2]) if (row[2][0]) { Str_Copy (Gbl.Test.Answer.Options[NumOpt].Feedback,row[2], Tst_MAX_BYTES_ANSWER_OR_FEEDBACK); 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[6]) of this answer (this option) *****/ Gbl.Test.Answer.Options[NumOpt].Correct = (row[6][0] == 'Y'); } /***** Header with the title of each column *****/ Lay_StartTable (2); fprintf (Gbl.F.Out,""); Tst_WriteHeadUserCorrect (); fprintf (Gbl.F.Out,""); /***** Write the user answer *****/ fprintf (Gbl.F.Out,"" "" " %s ", (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]); } else // If user has omitted the answer fprintf (Gbl.F.Out,"ANS CENTER_TOP\">" " "); fprintf (Gbl.F.Out,""); /***** Write the correct answers *****/ if (Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_EACH_GOOD_BAD || Gbl.Test.Config.FeedbackType == Tst_FEEDBACK_FULL_FEEDBACK) { fprintf (Gbl.F.Out,""); Lay_StartTable (2); for (NumOpt = 0; NumOpt < Gbl.Test.Answer.NumOptions; NumOpt++) { /* Answer letter (a, b, c,...) */ fprintf (Gbl.F.Out,"" "%c) " "", 'a' + (char) NumOpt); /* Answer text and feedback */ fprintf (Gbl.F.Out,"" "
" "%s" "
", 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]) fprintf (Gbl.F.Out,"
" "%s" "
", Gbl.Test.Answer.Options[NumOpt].Feedback); fprintf (Gbl.F.Out,"" ""); } Lay_EndTable (); } else fprintf (Gbl.F.Out,"" "?"); fprintf (Gbl.F.Out,"" ""); /***** 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 (); } Lay_EndTable (); } /*****************************************************************************/ /****************** Write integer answer when viewing a test *****************/ /*****************************************************************************/ static void Tst_WriteIntAnsViewTest (unsigned NumQst) { /***** Write input field for the answer *****/ fprintf (Gbl.F.Out,"", NumQst); } /*****************************************************************************/ /**************** Write integer answer when assessing a test *****************/ /*****************************************************************************/ static void Tst_WriteIntAnsAssessTest (unsigned NumQst,MYSQL_RES *mysql_res, double *ScoreThisQst,bool *AnswerIsNotBlank) { MYSQL_ROW row; long IntAnswerUsr,IntAnswerCorr; /* row[ 0] AnsInd row[ 1] Answer row[ 2] Feedback row[ 3] ImageName row[ 4] ImageTitle row[ 5] ImageURL row[ 6] Correct */ /***** 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 *****/ Lay_StartTable (2); fprintf (Gbl.F.Out,""); Tst_WriteHeadUserCorrect (); fprintf (Gbl.F.Out,""); /***** Write the user answer *****/ fprintf (Gbl.F.Out,"" "" " %ld ", (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'; fprintf (Gbl.F.Out,"ANS CENTER_MIDDLE\">" "?"); } } else // If user has omitted the answer fprintf (Gbl.F.Out,"ANS CENTER_MIDDLE\"> "); fprintf (Gbl.F.Out,""); /***** Write the correct answer *****/ fprintf (Gbl.F.Out,""); 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,"" ""); /***** 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 (); } Lay_EndTable (); } /*****************************************************************************/ /****************** Write float answer when viewing a test *******************/ /*****************************************************************************/ static void Tst_WriteFloatAnsViewTest (unsigned NumQst) { /***** Write input field for the answer *****/ fprintf (Gbl.F.Out,"", NumQst,Tst_MAX_BYTES_FLOAT_ANSWER); } /*****************************************************************************/ /***************** Write float answer when assessing a test ******************/ /*****************************************************************************/ static void Tst_WriteFloatAnsAssessTest (unsigned NumQst,MYSQL_RES *mysql_res, double *ScoreThisQst,bool *AnswerIsNotBlank) { MYSQL_ROW row; unsigned i; double FloatAnsUsr = 0.0,Tmp; double FloatAnsCorr[2]; /* row[ 0] AnsInd row[ 1] Answer row[ 2] Feedback row[ 3] ImageName row[ 4] ImageTitle row[ 5] ImageURL row[ 6] Correct */ /***** 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 *****/ Lay_StartTable (2); fprintf (Gbl.F.Out,""); Tst_WriteHeadUserCorrect (); fprintf (Gbl.F.Out,""); /***** Write the user answer *****/ fprintf (Gbl.F.Out,"" " %lg ", (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 fprintf (Gbl.F.Out,"ANS CENTER_MIDDLE\">?"); } else // If user has omitted the answer fprintf (Gbl.F.Out,"ANS CENTER_MIDDLE\"> "); fprintf (Gbl.F.Out,""); /***** Write the correct answer *****/ fprintf (Gbl.F.Out,""); 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,"" ""); /***** 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 (); } Lay_EndTable (); } /*****************************************************************************/ /********* 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[Usr_NUM_SEXS]; extern const char *Txt_TST_Correct_ANSWER; fprintf (Gbl.F.Out,"" " %s " "" "" " %s " "", Txt_User[Usr_SEX_UNKNOWN],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,"" "" "%s: " "" ""); } /*****************************************************************************/ /*************** 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 *****/ Lay_StartTable (2); for (NumRow = 0; NumRow < NumRows; NumRow++) { row = mysql_fetch_row (mysql_res); fprintf (Gbl.F.Out,"" "" " • " "" "" "%s" "" "", row[0]); } Lay_EndTable (); } else fprintf (Gbl.F.Out," (%s) ", Txt_no_tags); /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /************ Get parameters for the selection of test questions *************/ /*****************************************************************************/ // Return true (OK) if all parameters are found, or false (error) if any necessary parameter is not found static bool 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; bool Error = false; char UnsignedStr[10 + 1]; unsigned UnsignedNum; /***** Tags *****/ /* Get parameter that indicates whether all tags are selected */ Gbl.Test.Tags.All = Par_GetParToBool ("AllTags"); /* Get the tags */ if ((Gbl.Test.Tags.List = malloc (Tst_MAX_BYTES_TAGS_LIST + 1)) == NULL) Lay_ShowErrorAndExit ("Not enough memory to store tags."); Par_GetParMultiToText ("ChkTag",Gbl.Test.Tags.List,Tst_MAX_BYTES_TAGS_LIST); /* Check number of tags selected */ if (Tst_CountNumTagsInList () == 0) // If no tags selected... { // ...write alert Ale_ShowAlert (Ale_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 */ Gbl.Test.AllAnsTypes = Par_GetParToBool ("AllAnsTypes"); /* 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 Ale_ShowAlert (Ale_WARNING,Txt_You_must_select_one_ore_more_types_of_answer); Error = true; } /***** Get other parameters, depending on action *****/ if (Gbl.Action.Act == ActSeeTst) { Tst_GetParamNumQst (); if (Gbl.Test.NumQsts < Gbl.Test.Config.Min || Gbl.Test.NumQsts > Gbl.Test.Config.Max) { sprintf (Gbl.Alert.Txt,Txt_The_number_of_questions_must_be_in_the_interval_X, Gbl.Test.Config.Min,Gbl.Test.Config.Max); Ale_ShowAlert (Ale_WARNING,Gbl.Alert.Txt); 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.SelectedOrder = (Tst_QuestionsOrder_t) ((UnsignedNum < Tst_NUM_TYPES_ORDER_QST) ? UnsignedNum : 0); else Gbl.Test.SelectedOrder = (Tst_QuestionsOrder_t) 0; /* Get whether we must create the XML file or not */ Gbl.Test.XML.CreateXML = Tst_GetCreateXMLFromForm (); } return !Error; } /*****************************************************************************/ /******************** Get parameter with the number of test ******************/ /*****************************************************************************/ static unsigned Tst_GetAndCheckParamNumTst (void) { return (unsigned) Par_GetParToUnsignedLong ("NumTst", 1, UINT_MAX, 1); } /*****************************************************************************/ /***** Get parameter with the number of questions to generate in an test *****/ /*****************************************************************************/ static void Tst_GetParamNumQst (void) { Gbl.Test.NumQsts = (unsigned) Par_GetParToUnsignedLong ("NumQst", (unsigned long) Gbl.Test.Config.Min, (unsigned long) Gbl.Test.Config.Max, (unsigned long) Gbl.Test.Config.Def); } /*****************************************************************************/ /****************** Get whether to create XML file from form *****************/ /*****************************************************************************/ static bool Tst_GetCreateXMLFromForm (void) { return Par_GetParToBool ("CreateXML"); } /*****************************************************************************/ /***************** 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.Tags.List counting the number of tags *****/ if (Gbl.Test.Tags.List) { Ptr = Gbl.Test.Tags.List; 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.Tags.List) { free ((void *) Gbl.Test.Tags.List); Gbl.Test.Tags.List = NULL; Gbl.Test.Tags.Num = 0; } } /*****************************************************************************/ /******************** 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]; /***** Create test question *****/ Tst_QstConstructor (); Gbl.Test.QstCod = Tst_GetQstCod (); Stem[0] = Feedback[0] = '\0'; if (Gbl.Test.QstCod > 0) // If question already exists in the database Tst_GetQstDataFromDB (Stem,Feedback); /***** Put form to edit question *****/ Tst_PutFormEditOneQst (Stem,Feedback); /***** Destroy test question *****/ Tst_QstDestructor (); } /*****************************************************************************/ /******************** Show form to edit one test question ********************/ /*****************************************************************************/ // This function may be called from three places: // 1. By clicking "New question" icon // 2. By clicking "Edit" icon 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[Cns_MAX_BYTES_TEXT + 1], char Feedback[Cns_MAX_BYTES_TEXT + 1]) { extern const char *Hlp_ASSESSMENT_Tests; extern const char *The_ClassForm[The_NUM_THEMES]; 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_optional; 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_Shuffle; extern const char *Txt_Expand; extern const char *Txt_Contract; extern const char *Txt_Save; extern const char *Txt_Create_question; char Title[512]; MYSQL_RES *mysql_res; MYSQL_ROW row; unsigned long NumRows; unsigned long NumRow; unsigned NumOpt; Tst_AnswerType_t AnsType; unsigned NumTag; bool TagNotFound; bool OptionsDisabled; bool AnswerHasContent; bool DisplayRightColumn; /***** Start frame *****/ if (Gbl.Test.QstCod > 0) // The question already has assigned a code { sprintf (Title,Txt_Question_code_X,Gbl.Test.QstCod); Lay_StartRoundFrame (NULL,Title,Tst_PutIconToRemoveOneQst, Hlp_ASSESSMENT_Tests, false); // Not closable } else Lay_StartRoundFrame (NULL,Txt_New_question,NULL, Hlp_ASSESSMENT_Tests, false); // Not closable /***** Start form *****/ Act_FormStart (ActRcvTstQst); if (Gbl.Test.QstCod > 0) // The question already has assigned a code Tst_PutParamQstCod (); /***** Start table *****/ Lay_StartTable (2); // Table for this question /***** Help for text editor *****/ fprintf (Gbl.F.Out,"" ""); Lay_HelpPlainEditor (); fprintf (Gbl.F.Out,"" ""); /***** Get tags already existing for questions in current course *****/ NumRows = Tst_GetAllTagsFromCurrentCrs (&mysql_res); /***** Write the tags *****/ fprintf (Gbl.F.Out,"" "" "%s:" "" "", The_ClassForm[Gbl.Prefs.Theme],Txt_Tags); Lay_StartTable (2); // Table for tags for (NumTag = 0; NumTag < Tst_MAX_TAGS_PER_QUESTION; NumTag++) { fprintf (Gbl.F.Out,""); /***** Write the tags already existing in a selector *****/ fprintf (Gbl.F.Out,"" "" "", Txt_new_tag); /***** Input of a new tag *****/ fprintf (Gbl.F.Out,"" "" "", NumTag,NumTag,Tst_MAX_CHARS_TAG,Gbl.Test.Tags.Txt[NumTag],NumTag); fprintf (Gbl.F.Out,""); } Lay_EndTable (); // Table for tags fprintf (Gbl.F.Out,"" ""); /* Free structure that stores the query result */ DB_FreeMySQLResult (&mysql_res); /***** Stem and image *****/ fprintf (Gbl.F.Out,"" "" "" "" "" "
", The_ClassForm[Gbl.Prefs.Theme], Txt_Stem, Stem); Tst_PutFormToEditQstImage (&Gbl.Test.Image,-1, "TEST_IMG_EDIT_ONE_STEM_CONTAINER", "TEST_IMG_EDIT_ONE_STEM", "STEM", // Title / attribution false); /***** Feedback *****/ fprintf (Gbl.F.Out,"" "" ""); /***** Type of answer *****/ fprintf (Gbl.F.Out,"" "" "%s:" "" "", The_ClassForm[Gbl.Prefs.Theme], Txt_Type, The_ClassForm[Gbl.Prefs.Theme]); for (AnsType = (Tst_AnswerType_t) 0; AnsType < Tst_NUM_ANS_TYPES; AnsType++) { fprintf (Gbl.F.Out,"
", Txt_TST_STR_ANSWER_TYPES[AnsType]); } fprintf (Gbl.F.Out,"" ""); /***** Answers *****/ /* Integer answer */ fprintf (Gbl.F.Out,"" "" "%s:" "" "" "" "" ""); /* Floating point answer */ fprintf (Gbl.F.Out,"" "" ""); Tst_PutFloatInputField (Txt_Real_number_between_A_and_B_1,"AnsFloatMin", Gbl.Test.Answer.FloatingPoint[0]); Tst_PutFloatInputField (Txt_Real_number_between_A_and_B_2,"AnsFloatMax", Gbl.Test.Answer.FloatingPoint[1]); fprintf (Gbl.F.Out,"" ""); /* T/F answer */ fprintf (Gbl.F.Out,"" "" ""); Tst_PutTFInputField (Txt_TF_QST[0],'T'); Tst_PutTFInputField (Txt_TF_QST[1],'F'); fprintf (Gbl.F.Out,"" ""); /* Questions can be shuffled? */ fprintf (Gbl.F.Out,"" "" "" "" "" "", Txt_Shuffle); /* Simple or multiple choice answers */ fprintf (Gbl.F.Out,"" "" ""); Lay_StartTable (2); // Table with choice answers 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++) { Gbl.RowEvenOdd = NumOpt % 2; AnswerHasContent = false; if (Gbl.Test.Answer.Options[NumOpt].Text) if (Gbl.Test.Answer.Options[NumOpt].Text[0]) AnswerHasContent = true; DisplayRightColumn = NumOpt < 2 || // Display at least the two first options AnswerHasContent; /***** Left column: selectors *****/ fprintf (Gbl.F.Out,"" "", Gbl.RowEvenOdd); /* Radio selector for unique choice answers */ fprintf (Gbl.F.Out,""); /* Checkbox for multiple choice answers */ fprintf (Gbl.F.Out,""); fprintf (Gbl.F.Out,""); /***** Center column: letter of the answer and expand / contract icon *****/ fprintf (Gbl.F.Out,"" "%c)", The_ClassForm[Gbl.Prefs.Theme],Gbl.RowEvenOdd, 'a' + (char) NumOpt); /* Icon to expand (show the answer) */ sprintf (Gbl.Title,"%s %c)",Txt_Expand,'a' + (char) NumOpt); fprintf (Gbl.F.Out,"" "\"%s\"" "", NumOpt,Gbl.Prefs.IconsURL, Gbl.Title,Gbl.Title); /* Icon to contract (hide the answer) */ sprintf (Gbl.Title,"%s %c)",Txt_Contract,'a' + (char) NumOpt); fprintf (Gbl.F.Out,"" "\"%s\"" "", NumOpt,Gbl.Prefs.IconsURL, Gbl.Title,Gbl.Title); fprintf (Gbl.F.Out,""); /***** Right column: content of the answer *****/ fprintf (Gbl.F.Out,"" "
"); /* Answer text */ fprintf (Gbl.F.Out,""); /* Image */ Tst_PutFormToEditQstImage (&Gbl.Test.Answer.Options[NumOpt].Image, (int) NumOpt, "TEST_IMG_EDIT_ONE_ANS_CONTAINER", "TEST_IMG_EDIT_ONE_ANS", "ANS_STR", // Title / attribution OptionsDisabled); /* Feedback */ fprintf (Gbl.F.Out,""); /* End of right column */ fprintf (Gbl.F.Out,"
" "" ""); } Lay_EndTable (); // Table with choice answers fprintf (Gbl.F.Out,"" ""); /***** End table *****/ Lay_EndTable (); // Table for this question /***** Send button *****/ if (Gbl.Test.QstCod > 0) // The question already has assigned a code Lay_PutConfirmButton (Txt_Save); else Lay_PutCreateButton (Txt_Create_question); /***** End form *****/ Act_FormEnd (); /***** End frame *****/ Lay_EndRoundFrame (); } /*****************************************************************************/ /********************* Put input field for floating answer *******************/ /*****************************************************************************/ static void Tst_PutFloatInputField (const char *Label,const char *Field, double Value) { extern const char *The_ClassForm[The_NUM_THEMES]; fprintf (Gbl.F.Out,""); } /*****************************************************************************/ /*********************** Put input field for T/F answer **********************/ /*****************************************************************************/ static void Tst_PutTFInputField (const char *Label,char Value) { extern const char *The_ClassForm[The_NUM_THEMES]; fprintf (Gbl.F.Out,"", Label); } /*****************************************************************************/ /********************* Initialize a new question to zero *********************/ /*****************************************************************************/ void Tst_QstConstructor (void) { unsigned NumOpt; Gbl.Test.QstCod = -1L; Gbl.Test.Stem.Text = NULL; Gbl.Test.Stem.Length = 0; Gbl.Test.Feedback.Text = NULL; Gbl.Test.Feedback.Length = 0; Gbl.Test.Shuffle = false; Gbl.Test.AnswerType = Tst_ANS_UNIQUE_CHOICE; Gbl.Test.Answer.NumOptions = 0; Gbl.Test.Answer.TF = ' '; /***** Initialize image attached to stem *****/ Img_ImageConstructor (&Gbl.Test.Image); 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.Options[NumOpt].Feedback = NULL; /***** Initialize image attached to option *****/ Img_ImageConstructor (&Gbl.Test.Answer.Options[NumOpt].Image); } Gbl.Test.Answer.Integer = 0; Gbl.Test.Answer.FloatingPoint[0] = Gbl.Test.Answer.FloatingPoint[1] = 0.0; } /*****************************************************************************/ /***************** Free memory allocated for test question *******************/ /*****************************************************************************/ void Tst_QstDestructor (void) { Tst_FreeTextChoiceAnswers (); Tst_FreeImagesOfQuestion (); } /*****************************************************************************/ /******************* 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.Alert.Txt,"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.Alert.Txt,"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 **********************/ /*****************************************************************************/ static 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; } } /*****************************************************************************/ /***************** Initialize images of a question to zero *******************/ /*****************************************************************************/ static void Tst_InitImagesOfQuestion (void) { unsigned NumOpt; /***** Initialize image *****/ Img_ResetImageExceptTitleAndURL (&Gbl.Test.Image); Img_FreeImageTitle (&Gbl.Test.Image); Img_FreeImageURL (&Gbl.Test.Image); for (NumOpt = 0; NumOpt < Tst_MAX_OPTIONS_PER_QUESTION; NumOpt++) { /***** Initialize image *****/ Img_ResetImageExceptTitleAndURL (&Gbl.Test.Answer.Options[NumOpt].Image); Img_FreeImageTitle (&Gbl.Test.Image); Img_FreeImageURL (&Gbl.Test.Image); } } /*****************************************************************************/ /*********************** Free images of a question ***************************/ /*****************************************************************************/ static void Tst_FreeImagesOfQuestion (void) { unsigned NumOpt; Img_ImageDestructor (&Gbl.Test.Image); for (NumOpt = 0; NumOpt < Tst_MAX_OPTIONS_PER_QUESTION; NumOpt++) Img_ImageDestructor (&Gbl.Test.Answer.Options[NumOpt].Image); } /*****************************************************************************/ /****************** Get data of a question from database *********************/ /*****************************************************************************/ static void Tst_GetQstDataFromDB (char Stem[Cns_MAX_BYTES_TEXT + 1], char Feedback[Cns_MAX_BYTES_TEXT + 1]) { char Query[512]; MYSQL_RES *mysql_res; MYSQL_ROW row; unsigned long NumRows; unsigned long NumRow; unsigned NumOpt; /***** Get the type of answer and the stem from the database *****/ /* Get the question from database */ sprintf (Query,"SELECT AnsType,Shuffle,Stem,Feedback," "ImageName,ImageTitle,ImageURL" " 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); /* row[ 0] AnsType row[ 1] Shuffle row[ 2] Stem row[ 3] Feedback row[ 4] ImageName row[ 5] ImageTitle row[ 6] ImageURL */ /* Get the type of answer */ Gbl.Test.AnswerType = Tst_ConvertFromStrAnsTypDBToAnsTyp (row[0]); /* Get shuffle (row[1]) */ Gbl.Test.Shuffle = (row[1][0] == 'Y'); /* Get the stem of the question from the database (row[2]) */ Str_Copy (Stem,row[2], Cns_MAX_BYTES_TEXT); /* Get the feedback of the question from the database (row[3]) */ Feedback[0] = '\0'; if (row[3]) if (row[3][0]) Str_Copy (Feedback,row[3], Cns_MAX_BYTES_TEXT); /* Get the image name, title and URL of the question from the database (row[4], row[5], row[6]) */ Img_GetImageNameTitleAndURLFromRow (row[4],row[5],row[6],&Gbl.Test.Image); /* 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); Str_Copy (Gbl.Test.Tags.Txt[NumRow],row[0], Tst_MAX_BYTES_TAG); } /* 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 /* row[ 0] AnsInd row[ 1] Answer row[ 2] Feedback row[ 3] ImageName row[ 4] ImageTitle row[ 5] ImageURL row[ 6] Correct */ 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.Alert.Txt); Str_Copy (Gbl.Test.Answer.Options[NumOpt].Text,row[1], Tst_MAX_BYTES_ANSWER_OR_FEEDBACK); // Feedback (row[2]) is initialized to empty string if (row[2]) if (row[2][0]) Str_Copy (Gbl.Test.Answer.Options[NumOpt].Feedback,row[2], Tst_MAX_BYTES_ANSWER_OR_FEEDBACK); /* Copy image */ Img_GetImageNameTitleAndURLFromRow (row[3],row[4],row[5],&Gbl.Test.Answer.Options[NumOpt].Image); Gbl.Test.Answer.Options[NumOpt].Correct = (row[6][0] == 'Y'); break; default: break; } } /* Free structure that stores the query result */ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /***** Get possible image associated with a test question from database ******/ /*****************************************************************************/ // NumOpt < 0 ==> image associated to stem // NumOpt >= 0 ==> image associated to answer static void Tst_GetImageFromDB (int NumOpt,struct Image *Image) { char Query[256]; MYSQL_RES *mysql_res; MYSQL_ROW row; /***** Build query depending on NumOpt *****/ if (NumOpt < 0) // Get image associated to stem sprintf (Query,"SELECT ImageName,ImageTitle,ImageURL FROM tst_questions" " WHERE QstCod=%ld AND CrsCod=%ld", Gbl.Test.QstCod,Gbl.CurrentCrs.Crs.CrsCod); // Get image associated to answer else sprintf (Query,"SELECT ImageName,ImageTitle,ImageURL FROM tst_answers" " WHERE QstCod=%ld AND AnsInd=%u", Gbl.Test.QstCod,(unsigned) NumOpt); /***** Query database *****/ DB_QuerySELECT (Query,&mysql_res,"can not get image name"); row = mysql_fetch_row (mysql_res); /***** Get the image name, title and URL (row[0], row[1], row[2]) *****/ Img_GetImageNameTitleAndURLFromRow (row[0],row[1],row[2],Image); /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /** 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]; /***** Create test question *****/ Tst_QstConstructor (); /***** Get parameters of the question from form *****/ Stem[0] = Feedback[0] = '\0'; Tst_GetQstFromForm (Stem,Feedback); /***** Make sure that tags, text and answer are not empty *****/ if (Tst_CheckIfQstFormatIsCorrectAndCountNumOptions ()) { /***** Move images to definitive directories *****/ Tst_MoveImagesToDefinitiveDirectories (); /***** 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 { /***** Whether images has been received or not, reset images *****/ Tst_InitImagesOfQuestion (); /***** Put form to edit question again *****/ Tst_PutFormEditOneQst (Stem,Feedback); } /***** Destroy test question *****/ Tst_QstDestructor (); } /*****************************************************************************/ /**************** Get parameters of a test question from form ****************/ /*****************************************************************************/ static void Tst_GetQstFromForm (char *Stem,char *Feedback) { unsigned NumTag; unsigned NumTagRead; unsigned NumOpt; char UnsignedStr[10 + 1]; char TagStr[6 + 10 + 1]; char AnsStr[6 + 10 + 1]; char FbStr[5 + 10 + 1]; char StrMultiAns[Tst_MAX_BYTES_ANSWERS_ONE_QST + 1]; char TF[1 + 1]; // (T)rue or (F)alse const char *Ptr; unsigned NumCorrectAns; /***** Get question code *****/ Gbl.Test.QstCod = Tst_GetQstCod (); /***** Get answer type *****/ Gbl.Test.AnswerType = (Tst_AnswerType_t) Par_GetParToUnsignedLong ("AnswerType", 0, Tst_NUM_ANS_TYPES - 1, (unsigned long) Tst_ANS_ALL); if (Gbl.Test.AnswerType == Tst_ANS_ALL) Lay_ShowErrorAndExit ("Wrong type of answer."); /***** Get question tags *****/ for (NumTag = 0; NumTag < Tst_MAX_TAGS_PER_QUESTION; NumTag++) { sprintf (TagStr,"TagTxt%u",NumTag); Par_GetParToText (TagStr,Gbl.Test.Tags.Txt[NumTag],Tst_MAX_BYTES_TAG); if (Gbl.Test.Tags.Txt[NumTag][0]) { Str_ChangeFormat (Str_FROM_FORM,Str_TO_TEXT, Gbl.Test.Tags.Txt[NumTag],Tst_MAX_BYTES_TAG,true); /* Check if not repeated */ for (NumTagRead = 0; NumTagRead < NumTag; NumTagRead++) if (!strcmp (Gbl.Test.Tags.Txt[NumTagRead],Gbl.Test.Tags.Txt[NumTag])) { Gbl.Test.Tags.Txt[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 image associated to the stem (action, file and title) *****/ Gbl.Test.Image.Width = Tst_IMAGE_SAVED_MAX_WIDTH; Gbl.Test.Image.Height = Tst_IMAGE_SAVED_MAX_HEIGHT; Gbl.Test.Image.Quality = Tst_IMAGE_SAVED_QUALITY; Img_GetImageFromForm (-1, // < 0 ==> the image associated to the stem &Gbl.Test.Image,Tst_GetImageFromDB); /***** Get answers *****/ Gbl.Test.Shuffle = false; switch (Gbl.Test.AnswerType) { case Tst_ANS_INT: if (!Tst_AllocateTextChoiceAnswer (0)) Lay_ShowErrorAndExit (Gbl.Alert.Txt); Par_GetParToText ("AnsInt",Gbl.Test.Answer.Options[0].Text,1 + 10); break; case Tst_ANS_FLOAT: if (!Tst_AllocateTextChoiceAnswer (0)) Lay_ShowErrorAndExit (Gbl.Alert.Txt); Par_GetParToText ("AnsFloatMin",Gbl.Test.Answer.Options[0].Text, Tst_MAX_BYTES_FLOAT_ANSWER); if (!Tst_AllocateTextChoiceAnswer (1)) Lay_ShowErrorAndExit (Gbl.Alert.Txt); Par_GetParToText ("AnsFloatMax",Gbl.Test.Answer.Options[1].Text, Tst_MAX_BYTES_FLOAT_ANSWER); break; case Tst_ANS_TRUE_FALSE: Par_GetParToText ("AnsTF",TF,1); Gbl.Test.Answer.TF = TF[0]; break; case Tst_ANS_UNIQUE_CHOICE: case Tst_ANS_MULTIPLE_CHOICE: /* Get shuffle */ Gbl.Test.Shuffle = Par_GetParToBool ("Shuffle"); // 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.Alert.Txt); /* Get answer */ sprintf (AnsStr,"AnsStr%u",NumOpt); Par_GetParToHTML (AnsStr,Gbl.Test.Answer.Options[NumOpt].Text, Tst_MAX_BYTES_ANSWER_OR_FEEDBACK); if (Gbl.Test.AnswerType == Tst_ANS_TEXT) /* In order to compare student answer to stored answer, the text answers are stored avoiding two or more consecurive spaces */ Str_ReplaceSeveralSpacesForOne (Gbl.Test.Answer.Options[NumOpt].Text); /* Get feedback */ sprintf (FbStr,"FbStr%u",NumOpt); Par_GetParToHTML (FbStr,Gbl.Test.Answer.Options[NumOpt].Feedback, Tst_MAX_BYTES_ANSWER_OR_FEEDBACK); /* Get image associated to the answer (action, file and title) */ if (Gbl.Test.AnswerType == Tst_ANS_UNIQUE_CHOICE || Gbl.Test.AnswerType == Tst_ANS_MULTIPLE_CHOICE) { Gbl.Test.Answer.Options[NumOpt].Image.Width = Tst_IMAGE_SAVED_MAX_WIDTH; Gbl.Test.Answer.Options[NumOpt].Image.Height = Tst_IMAGE_SAVED_MAX_HEIGHT; Gbl.Test.Answer.Options[NumOpt].Image.Quality = Tst_IMAGE_SAVED_QUALITY; Img_GetImageFromForm ((int) NumOpt, // >= 0 ==> the image associated to an answer &Gbl.Test.Answer.Options[NumOpt].Image, Tst_GetImageFromDB); } } /* Get the numbers of correct answers */ if (Gbl.Test.AnswerType == Tst_ANS_UNIQUE_CHOICE) { NumCorrectAns = (unsigned) Par_GetParToUnsignedLong ("AnsUni", 0, Tst_MAX_OPTIONS_PER_QUESTION - 1, 0); Gbl.Test.Answer.Options[NumCorrectAns].Correct = true; } else if (Gbl.Test.AnswerType == Tst_ANS_MULTIPLE_CHOICE) { Par_GetParMultiToText ("AnsMulti",StrMultiAns,Tst_MAX_BYTES_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.Tags.Num = 0; NumTag < Tst_MAX_TAGS_PER_QUESTION; NumTag++) if (Gbl.Test.Tags.Txt[NumTag][0]) Gbl.Test.Tags.Num++; 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_Error_receiving_or_processing_image; 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; if ((Gbl.Test.Image.Action == Img_ACTION_NEW_IMAGE || // Upload new image Gbl.Test.Image.Action == Img_ACTION_CHANGE_IMAGE) && // Replace existing image by new image Gbl.Test.Image.Status != Img_FILE_PROCESSED) { Ale_ShowAlert (Ale_WARNING,Txt_Error_receiving_or_processing_image); return false; } /***** 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.Tags.Num) // There are no tags with text { Ale_ShowAlert (Ale_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) { Ale_ShowAlert (Ale_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) { Ale_ShowAlert (Ale_WARNING,Txt_You_must_enter_an_integer_value_as_the_correct_answer); return false; } if (!Gbl.Test.Answer.Options[0].Text[0]) { Ale_ShowAlert (Ale_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) { Ale_ShowAlert (Ale_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]) { Ale_ShowAlert (Ale_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]) { Ale_ShowAlert (Ale_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') { Ale_ShowAlert (Ale_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 { Ale_ShowAlert (Ale_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 { Ale_ShowAlert (Ale_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) { Ale_ShowAlert (Ale_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) { Ale_ShowAlert (Ale_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) { Ale_ShowAlert (Ale_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 { Ale_ShowAlert (Ale_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 { Ale_ShowAlert (Ale_WARNING,Txt_You_must_type_at_least_the_first_answer); return false; } for (NumOpt=0, ThereIsEndOfAnswers=false; NumOpt 0 && // Question already exists Gbl.Test.Image.Action != Img_ACTION_KEEP_IMAGE) // Don't keep the current image /* Remove possible file with the old image (the new image file is already processed and moved to the definitive directory) */ Tst_RemoveImgFileFromStemOfQst (Gbl.CurrentCrs.Crs.CrsCod,Gbl.Test.QstCod); if ((Gbl.Test.Image.Action == Img_ACTION_NEW_IMAGE || // Upload new image Gbl.Test.Image.Action == Img_ACTION_CHANGE_IMAGE) && // Replace existing image by new image Gbl.Test.Image.Status == Img_FILE_PROCESSED) // The new image received has been processed /* Move processed image to definitive directory */ Img_MoveImageToDefinitiveDirectory (&Gbl.Test.Image); /****** Move images associated to answers *****/ if (Gbl.Test.AnswerType == Tst_ANS_UNIQUE_CHOICE || Gbl.Test.AnswerType == Tst_ANS_MULTIPLE_CHOICE) for (NumOpt = 0; NumOpt < Gbl.Test.Answer.NumOptions; NumOpt++) { if (Gbl.Test.QstCod > 0 && // Question already exists Gbl.Test.Answer.Options[NumOpt].Image.Action != Img_ACTION_KEEP_IMAGE) // Don't keep the current image /* Remove possible file with the old image (the new image file is already processed and moved to the definitive directory) */ Tst_RemoveImgFileFromAnsOfQst (Gbl.CurrentCrs.Crs.CrsCod,Gbl.Test.QstCod,NumOpt); if ((Gbl.Test.Answer.Options[NumOpt].Image.Action == Img_ACTION_NEW_IMAGE || // Upload new image Gbl.Test.Answer.Options[NumOpt].Image.Action == Img_ACTION_CHANGE_IMAGE) && // Replace existing image by new image Gbl.Test.Answer.Options[NumOpt].Image.Status == Img_FILE_PROCESSED) // The new image received has been processed /* Move processed image to definitive directory */ Img_MoveImageToDefinitiveDirectory (&Gbl.Test.Answer.Options[NumOpt].Image); } } /*****************************************************************************/ /******************** 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) *****/ Str_SetDecimalPointToUS (); // To get the decimal point as a dot 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 "" } Str_SetDecimalPointToLocal (); // Return to local system 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 CrsCod=%ld AND 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) { sprintf (Gbl.Alert.Txt,"%s","Wrong code of tag."); Error = true; } } else if (NumRows > 1) { sprintf (Gbl.Alert.Txt,"%s","Duplicated tag."); Error = true; } /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); if (Error) Lay_ShowErrorAndExit (Gbl.Alert.Txt); 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"); } /*****************************************************************************/ /********************* Put icon to remove one question ***********************/ /*****************************************************************************/ static void Tst_PutIconToRemoveOneQst (void) { Lay_PutContextualIconToRemove (ActReqRemTstQst,Tst_PutParamsRemoveOneQst); } /*****************************************************************************/ /******************** Request the removal of a question **********************/ /*****************************************************************************/ void Tst_RequestRemoveQst (void) { extern const char *Txt_Do_you_really_want_to_remove_the_question_X; extern const char *Txt_Remove_question; bool EditingOnlyThisQst; /***** Get main parameters from form *****/ /* Get the question code */ Gbl.Test.QstCod = Tst_GetQstCod (); if (Gbl.Test.QstCod <= 0) Lay_ShowErrorAndExit ("Wrong code of question."); /* Get a parameter that indicates whether it's necessary to continue listing the rest of questions */ EditingOnlyThisQst = Par_GetParToBool ("OnlyThisQst"); /* Get other parameters */ if (!EditingOnlyThisQst) if (!Tst_GetParamsTst ()) Lay_ShowErrorAndExit ("Wrong test parameters."); /***** Show question and button to remove question *****/ sprintf (Gbl.Alert.Txt,Txt_Do_you_really_want_to_remove_the_question_X, (unsigned long) Gbl.Test.QstCod); if (EditingOnlyThisQst) Ale_ShowAlertAndButton (Ale_QUESTION,Gbl.Alert.Txt, ActRemTstQst,NULL,NULL, Tst_PutParamsRemoveOneQst, Lay_REMOVE_BUTTON,Txt_Remove_question); else { Ale_ShowAlertAndButton (Ale_QUESTION,Gbl.Alert.Txt, ActRemTstQst,NULL,NULL, Tst_PutParamsRemoveQst, Lay_REMOVE_BUTTON,Txt_Remove_question); Tst_FreeTagsList (); } /***** Continue editing questions *****/ if (EditingOnlyThisQst) Tst_ListOneQstToEdit (); else Tst_ListQuestionsToEdit (); } /*****************************************************************************/ /***** Put parameter to remove question when editing only one question *******/ /*****************************************************************************/ static void Tst_PutParamsRemoveOneQst (void) { Tst_PutParamQstCod (); Par_PutHiddenParamChar ("OnlyThisQst",'Y'); } /*****************************************************************************/ /***** Put parameter to remove question when editing several questions *******/ /*****************************************************************************/ static void Tst_PutParamsRemoveQst (void) { Tst_PutParamQstCod (); Sta_WriteParamsDatesSeeAccesses (); Tst_WriteParamEditQst (); } /*****************************************************************************/ /***************************** Remove a question *****************************/ /*****************************************************************************/ void Tst_RemoveQst (void) { extern const char *Txt_Question_removed; char Query[256]; bool EditingOnlyThisQst; /***** Get the question code *****/ Gbl.Test.QstCod = Tst_GetQstCod (); if (Gbl.Test.QstCod <= 0) Lay_ShowErrorAndExit ("Wrong code of question."); /***** Get a parameter that indicates whether it's necessary to continue listing the rest of questions ******/ EditingOnlyThisQst = Par_GetParToBool ("OnlyThisQst"); /***** Remove images associated to question *****/ Tst_RemoveAllImgFilesFromAnsOfQst (Gbl.CurrentCrs.Crs.CrsCod,Gbl.Test.QstCod); Tst_RemoveImgFileFromStemOfQst (Gbl.CurrentCrs.Crs.CrsCod,Gbl.Test.QstCod); /***** 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 *****/ Ale_ShowAlert (Ale_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[256]; bool EditingOnlyThisQst; bool Shuffle; /***** Get the question code *****/ Gbl.Test.QstCod = Tst_GetQstCod (); if (Gbl.Test.QstCod <= 0) Lay_ShowErrorAndExit ("Wrong code of question."); /***** Get a parameter that indicates whether it's necessary to continue listing the rest of questions ******/ EditingOnlyThisQst = Par_GetParToBool ("OnlyThisQst"); /***** Get a parameter that indicates whether it's possible to shuffle the answers of this question ******/ Shuffle = Par_GetParToBool ("Shuffle"); /***** 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.Alert.Txt, 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); Ale_ShowAlert (Ale_SUCCESS,Gbl.Alert.Txt); /***** Continue editing questions *****/ if (EditingOnlyThisQst) Tst_ListOneQstToEdit (); else Tst_ListQuestionsToEdit (); } /*****************************************************************************/ /************ Get the parameter with the code of a test question *************/ /*****************************************************************************/ static long Tst_GetQstCod (void) { /***** Get code of test question *****/ return Par_GetParToLong ("QstCod"); } /*****************************************************************************/ /************ Put parameter with question code to edit, remove... ************/ /*****************************************************************************/ static void Tst_PutParamQstCod (void) { Par_PutHiddenParamLong ("QstCod",Gbl.Test.QstCod); } /*****************************************************************************/ /******** 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 (512 + Gbl.Test.Stem.Length + Gbl.Test.Feedback.Length + Img_BYTES_NAME + Img_MAX_BYTES_TITLE + Cns_MAX_BYTES_WWW)) == NULL) Lay_ShowErrorAndExit ("Not enough memory to store 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,ImageName,ImageTitle,ImageURL," "NumHits,Score)" " VALUES" " (%ld,NOW(),'%s','%c'," "'%s','%s','%s','%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.Image.Name, Gbl.Test.Image.Title ? Gbl.Test.Image.Title : "", Gbl.Test.Image.URL ? Gbl.Test.Image.URL : ""); Gbl.Test.QstCod = DB_QueryINSERTandReturnCode (Query,"can not create question"); /* Update image status */ if (Gbl.Test.Image.Name[0]) Gbl.Test.Image.Status = Img_NAME_STORED_IN_DB; } else // It's an existing question { /***** Update existing question *****/ /* Update question in database */ sprintf (Query,"UPDATE tst_questions" " SET EditTime=NOW(),AnsType='%s',Shuffle='%c'," "Stem='%s',Feedback='%s'," "ImageName='%s',ImageTitle='%s',ImageURL='%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.Image.Name, Gbl.Test.Image.Title ? Gbl.Test.Image.Title : "", Gbl.Test.Image.URL ? Gbl.Test.Image.URL : "", Gbl.Test.QstCod,Gbl.CurrentCrs.Crs.CrsCod); DB_QueryUPDATE (Query,"can not update question"); /* Update image status */ if (Gbl.Test.Image.Name[0]) Gbl.Test.Image.Status = Img_NAME_STORED_IN_DB; /* Remove answers and tags from this test question */ Tst_RemAnsFromQst (); Tst_RemTagsFromQst (); } /***** Free space used 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.Tags.Num; NumTag++) if (Gbl.Test.Tags.Txt[NumTag][0]) { /***** Check if this tag exists for current course *****/ if ((TagCod = Tst_GetTagCodFromTagTxt (Gbl.Test.Tags.Txt[NumTag])) < 0) /* This tag is new for current course. Add it to tags table */ TagCod = Tst_CreateNewTag (Gbl.CurrentCrs.Crs.CrsCod,Gbl.Test.Tags.Txt[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 + Img_BYTES_NAME + Img_MAX_BYTES_TITLE + Cns_MAX_BYTES_WWW)) == 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," "ImageName,ImageTitle,ImageURL,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: Str_SetDecimalPointToUS (); // To print the floating point as a dot for (i = 0; i < 2; i++) { sprintf (Query,"INSERT INTO tst_answers" " (QstCod,AnsInd,Answer,Feedback," "ImageName,ImageTitle,ImageURL,Correct)" " VALUES" " (%ld,%u,'%lg','','','','','Y')", Gbl.Test.QstCod,i, Gbl.Test.Answer.FloatingPoint[i]); DB_QueryINSERT (Query,"can not create answer"); } Str_SetDecimalPointToLocal (); // Return to local system break; case Tst_ANS_TRUE_FALSE: sprintf (Query,"INSERT INTO tst_answers" " (QstCod,AnsInd,Answer,Feedback," "ImageName,ImageTitle,ImageURL,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," "ImageName,ImageTitle,ImageURL,Correct)" " VALUES" " (%ld,%u,'%s','%s','%s','%s','%s','%c')", Gbl.Test.QstCod,NumOpt, Gbl.Test.Answer.Options[NumOpt].Text, Gbl.Test.Answer.Options[NumOpt].Feedback ? Gbl.Test.Answer.Options[NumOpt].Feedback : "", Gbl.Test.Answer.Options[NumOpt].Image.Name, Gbl.Test.Answer.Options[NumOpt].Image.Title ? Gbl.Test.Answer.Options[NumOpt].Image.Title : "", Gbl.Test.Answer.Options[NumOpt].Image.URL ? Gbl.Test.Answer.Options[NumOpt].Image.URL : "", Gbl.Test.Answer.Options[NumOpt].Correct ? 'Y' : 'N'); DB_QueryINSERT (Query,"can not create answer"); /* Update image status */ if (Gbl.Test.Answer.Options[NumOpt].Image.Name[0]) Gbl.Test.Answer.Options[NumOpt].Image.Status = Img_NAME_STORED_IN_DB; } break; default: break; } /***** Free space allocated for query *****/ free ((void *) Query); } /*****************************************************************************/ /******************** Remove answers from a test question ********************/ /*****************************************************************************/ static void Tst_RemAnsFromQst (void) { char Query[128]; /***** 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[128]; /***** 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[512]; /***** 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"); } /*****************************************************************************/ /******** Remove one file associated to one stem of one test question ********/ /*****************************************************************************/ static void Tst_RemoveImgFileFromStemOfQst (long CrsCod,long QstCod) { char Query[256]; MYSQL_RES *mysql_res; MYSQL_ROW row; /***** Get names of images associated to stems of test questions from database *****/ sprintf (Query,"SELECT ImageName FROM tst_questions" " WHERE QstCod=%ld AND CrsCod=%ld", QstCod,CrsCod); if (DB_QuerySELECT (Query,&mysql_res,"can not get image")) { /***** Get image name (row[0]) *****/ row = mysql_fetch_row (mysql_res); /***** Remove image file *****/ Img_RemoveImageFile (row[0]); } /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /****** Remove all image files associated to stems of all test questions *****/ /****** in a course *****/ /*****************************************************************************/ static void Tst_RemoveAllImgFilesFromStemOfAllQstsInCrs (long CrsCod) { char Query[128]; MYSQL_RES *mysql_res; MYSQL_ROW row; unsigned NumImages; unsigned NumImg; /***** Get names of images associated to stems of test questions from database *****/ sprintf (Query,"SELECT ImageName FROM tst_questions WHERE CrsCod=%ld", CrsCod); NumImages = (unsigned) DB_QuerySELECT (Query,&mysql_res,"can not get images"); /***** Go over result removing image files *****/ for (NumImg = 0; NumImg < NumImages; NumImg++) { /***** Get image name (row[0]) *****/ row = mysql_fetch_row (mysql_res); /***** Remove image file *****/ Img_RemoveImageFile (row[0]); } /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /**** Remove one image file associated to one answer of one test question ****/ /*****************************************************************************/ static void Tst_RemoveImgFileFromAnsOfQst (long CrsCod,long QstCod,unsigned AnsInd) { char Query[512]; MYSQL_RES *mysql_res; MYSQL_ROW row; /***** Get names of images associated to answers of test questions from database *****/ sprintf (Query,"SELECT tst_answers.ImageName" " FROM tst_questions,tst_answers" " WHERE tst_questions.CrsCod=%ld" // Extra check " AND tst_questions.QstCod=%ld" // Extra check " AND tst_questions.QstCod=tst_answers.QstCod" " AND tst_answers.QstCod=%ld" " AND tst_answers.AnsInd=%u", CrsCod,QstCod,QstCod,AnsInd); if (DB_QuerySELECT (Query,&mysql_res,"can not get images")) { /***** Get image name (row[0]) *****/ row = mysql_fetch_row (mysql_res); /***** Remove image file *****/ Img_RemoveImageFile (row[0]); } /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /*** Remove all image files associated to all answers of one test question ***/ /*****************************************************************************/ static void Tst_RemoveAllImgFilesFromAnsOfQst (long CrsCod,long QstCod) { char Query[512]; MYSQL_RES *mysql_res; MYSQL_ROW row; unsigned NumImages; unsigned NumImg; /***** Get names of images associated to answers of test questions from database *****/ sprintf (Query,"SELECT tst_answers.ImageName" " FROM tst_questions,tst_answers" " WHERE tst_questions.CrsCod=%ld" // Extra check " AND tst_questions.QstCod=%ld" // Extra check " AND tst_questions.QstCod=tst_answers.QstCod" " AND tst_answers.QstCod=%ld", CrsCod,QstCod,QstCod); NumImages = (unsigned) DB_QuerySELECT (Query,&mysql_res,"can not get images"); /***** Go over result removing image files *****/ for (NumImg = 0; NumImg < NumImages; NumImg++) { /***** Get image name (row[0]) *****/ row = mysql_fetch_row (mysql_res); /***** Remove image file *****/ Img_RemoveImageFile (row[0]); } /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /** Remove all image files associated to all answers of all test questions ***/ /** in a course ***/ /*****************************************************************************/ static void Tst_RemoveAllImgFilesFromAnsOfAllQstsInCrs (long CrsCod) { char Query[512]; MYSQL_RES *mysql_res; MYSQL_ROW row; unsigned NumImages; unsigned NumImg; /***** Get names of images associated to answers of test questions from database *****/ sprintf (Query,"SELECT tst_answers.ImageName" " FROM tst_questions,tst_answers" " WHERE tst_questions.CrsCod=%ld" " AND tst_questions.QstCod=tst_answers.QstCod", CrsCod); NumImages = (unsigned) DB_QuerySELECT (Query,&mysql_res,"can not get images"); /***** Go over result removing image files *****/ for (NumImg = 0; NumImg < NumImages; NumImg++) { /***** Get image name (row[0]) *****/ row = mysql_fetch_row (mysql_res); /***** Remove image file *****/ Img_RemoveImageFile (row[0]); } /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /*********************** 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) { case Sco_SCOPE_SYS: 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; 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; case Sco_SCOPE_INS: 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; case Sco_SCOPE_CTR: 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; case Sco_SCOPE_DEG: 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; case Sco_SCOPE_CRS: 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."); Str_SetDecimalPointToUS (); // To get the decimal point as a dot if (sscanf (row[2],"%lf",&(Stats->TotalScore)) != 1) Lay_ShowErrorAndExit ("Error when getting total score in test questions."); Str_SetDecimalPointToLocal (); // Return to local system } 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) { case Sco_SCOPE_SYS: 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; 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; case Sco_SCOPE_INS: 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; case Sco_SCOPE_CTR: 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; case Sco_SCOPE_DEG: if (AnsType == Tst_ANS_ALL) sprintf (Query,"SELECT COUNTDISTINCT (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; case Sco_SCOPE_CRS: 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) { case Sco_SCOPE_SYS: 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; 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; case Sco_SCOPE_INS: 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; case Sco_SCOPE_CTR: 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; case Sco_SCOPE_DEG: 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; case Sco_SCOPE_CRS: 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 test results **************/ /*****************************************************************************/ void Tst_SelUsrsToSeeUsrsTestResults (void) { extern const char *Hlp_ASSESSMENT_Tests_test_results; extern const char *The_ClassForm[The_NUM_THEMES]; extern const char *Txt_Test_results; extern const char *Txt_Users; extern const char *Txt_View_test_results; unsigned NumTotalUsrs; /***** Get and update type of list, number of columns in class photo and preference about view photos *****/ Usr_GetAndUpdatePrefsAboutUsrList (); /***** Get groups to show ******/ Grp_GetParCodsSeveralGrpsToShowUsrs (); /***** Get and order lists of users from this course *****/ Usr_GetListUsrs (Sco_SCOPE_CRS,Rol_STD); Usr_GetListUsrs (Sco_SCOPE_CRS,Rol_NET); Usr_GetListUsrs (Sco_SCOPE_CRS,Rol_TCH); NumTotalUsrs = Gbl.Usrs.LstUsrs[Rol_STD].NumUsrs + Gbl.Usrs.LstUsrs[Rol_NET].NumUsrs + Gbl.Usrs.LstUsrs[Rol_TCH].NumUsrs; /***** Start frame *****/ Lay_StartRoundFrame (NULL,Txt_Test_results,NULL, Hlp_ASSESSMENT_Tests_test_results, false); // Not closable /***** Show form to select the groups *****/ Grp_ShowFormToSelectSeveralGroups (ActReqSeeUsrTstRes); /***** Start section with user list *****/ Lay_StartSection (Usr_USER_LIST_SECTION_ID); if (NumTotalUsrs) { if (Usr_GetIfShowBigList (NumTotalUsrs,NULL)) { /***** Form to select type of list used for select several users *****/ Usr_ShowFormsToSelectUsrListType (ActReqSeeUsrTstRes); /***** Start form *****/ Act_FormStart (ActSeeUsrTstRes); Grp_PutParamsCodGrps (); /***** Put list of users to select some of them *****/ Lay_StartTableCenter (2); fprintf (Gbl.F.Out,"" "" "%s:" "" "", The_ClassForm[Gbl.Prefs.Theme],Txt_Users, The_ClassForm[Gbl.Prefs.Theme]); Lay_StartTable (2); Usr_ListUsersToSelect (Rol_TCH); Usr_ListUsersToSelect (Rol_NET); Usr_ListUsersToSelect (Rol_STD); Lay_EndTable (); fprintf (Gbl.F.Out,"" ""); /***** Starting and ending dates in the search *****/ Dat_PutFormStartEndClientLocalDateTimesWithYesterdayToday (false); Lay_EndTable (); /***** Send button *****/ Lay_PutConfirmButton (Txt_View_test_results); /***** End form *****/ Act_FormEnd (); } } else // NumTotalUsrs == 0 /***** Show warning indicating no students found *****/ Usr_ShowWarningNoUsersFound (Rol_UNK); /***** End section with user list *****/ Lay_EndSection (); /***** End frame *****/ Lay_EndRoundFrame (); /***** Free memory for users' list *****/ Usr_FreeUsrsList (Rol_TCH); Usr_FreeUsrsList (Rol_NET); Usr_FreeUsrsList (Rol_STD); /***** Free memory used by list of selected users' codes *****/ Usr_FreeListsSelectedUsrsCods (); /***** Free memory for list of selected groups *****/ Grp_FreeListCodSelectedGrps (); } /*****************************************************************************/ /******************* Select dates to show my test results ********************/ /*****************************************************************************/ void Tst_SelDatesToSeeMyTestResults (void) { extern const char *Hlp_ASSESSMENT_Tests_test_results; extern const char *Txt_Test_results; extern const char *Txt_View_test_results; /***** Start form *****/ Act_FormStart (ActSeeMyTstRes); /***** Starting and ending dates in the search *****/ Lay_StartRoundFrameTable (NULL,Txt_Test_results,NULL, Hlp_ASSESSMENT_Tests_test_results, false, // Not closable 2); Dat_PutFormStartEndClientLocalDateTimesWithYesterdayToday (false); /***** Send button and end frame *****/ Lay_EndRoundFrameTableWithButton (Lay_CONFIRM_BUTTON,Txt_View_test_results); /***** End form *****/ Act_FormEnd (); } /*****************************************************************************/ /********************* Store test result in database *************************/ /*****************************************************************************/ static long Tst_CreateTestResultInDB (void) { char Query[256]; /***** Insert new test result into 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 result"); } /*****************************************************************************/ /********************* Store test result in database *************************/ /*****************************************************************************/ static void Tst_StoreScoreOfTestResultInDB (long TstCod, unsigned NumQstsNotBlank,double Score) { char Query[256]; /***** Update score in test result *****/ Str_SetDecimalPointToUS (); // To print the floating point as a dot sprintf (Query,"UPDATE tst_exams" " SET NumQstsNotBlank=%u,Score='%lf'" " WHERE TstCod=%ld", NumQstsNotBlank,Score, TstCod); Str_SetDecimalPointToLocal (); // Return to local system DB_QueryUPDATE (Query,"can not update result of test result"); } /*****************************************************************************/ /******************** Show test results for several users ********************/ /*****************************************************************************/ void Tst_ShowUsrsTestResults (void) { extern const char *Hlp_ASSESSMENT_Tests_test_results; extern const char *Txt_Test_results; extern const char *Txt_You_must_select_one_ore_more_users; const char *Ptr; /***** Get list of the selected users's IDs *****/ Usr_GetListsSelectedUsrsCods (); /***** Get starting and ending dates *****/ Dat_GetIniEndDatesFromForm (); /***** Check the number of users whose tests results will be shown *****/ if (Usr_CountNumUsrsInListOfSelectedUsrs ()) // If some users are selected... { /***** Header of the table with the list of users *****/ Lay_StartRoundFrameTable (NULL,Txt_Test_results,NULL, Hlp_ASSESSMENT_Tests_test_results, false, // Not closable 2); Tst_ShowHeaderTestResults (); /***** List the assignments and works of the selected users *****/ Ptr = Gbl.Usrs.Select[Rol_UNK]; while (*Ptr) { Par_GetNextStrUntilSeparParamMult (&Ptr,Gbl.Usrs.Other.UsrDat.EncryptedUsrCod, Cry_BYTES_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 if (Usr_CheckIfICanViewWrkTstAtt (&Gbl.Usrs.Other.UsrDat)) /***** Show test results *****/ Tst_ShowTestResults (&Gbl.Usrs.Other.UsrDat); } /***** End of the table *****/ Lay_EndRoundFrameTable (); } else // If no users are selected... { // ...write warning alert Ale_ShowAlert (Ale_WARNING,Txt_You_must_select_one_ore_more_users); // ...and show again the form Tst_SelUsrsToSeeUsrsTestResults (); } /***** Free memory used by list of selected users' codes *****/ Usr_FreeListsSelectedUsrsCods (); } /*****************************************************************************/ /*********************** Show header of my test results **********************/ /*****************************************************************************/ static void Tst_ShowHeaderTestResults (void) { extern const char *Txt_User[Usr_NUM_SEXS]; 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,"" "" "%s" "" "" "%s" "" "" "%s" "" "" "%s" "" "" "%s" "" "" "%s" "" "" "%s
%s
%u" "" "" "", Txt_User[Usr_SEX_UNKNOWN], 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 test results **************************/ /*****************************************************************************/ void Tst_ShowMyTestResults (void) { extern const char *Hlp_ASSESSMENT_Tests_test_results; extern const char *Txt_Test_results; /***** Get starting and ending dates *****/ Dat_GetIniEndDatesFromForm (); /***** Header of the table with the list of users *****/ Lay_StartRoundFrameTable (NULL,Txt_Test_results,NULL, Hlp_ASSESSMENT_Tests_test_results, false, // Not closable 2); Tst_ShowHeaderTestResults (); /***** List my test results *****/ Tst_GetConfigTstFromDB (); // To get feedback type Tst_ShowTestResults (&Gbl.Usrs.Me.UsrDat); /***** End of the table *****/ Lay_EndRoundFrameTable (); } /*****************************************************************************/ /*********** Show the test results of a user in the current course ***********/ /*****************************************************************************/ static void Tst_ShowTestResults (struct UsrData *UsrDat) { extern const char *Txt_Today; extern const char *Txt_Visible_tests; extern const char *Txt_View_test; char Query[512]; MYSQL_RES *mysql_res; MYSQL_ROW row; unsigned NumTestResults; unsigned NumTest; static unsigned UniqueId = 0; long TstCod; unsigned NumQstsInThisTest; unsigned NumQstsNotBlankInThisTest; unsigned NumTotalQsts = 0; unsigned NumTotalQstsNotBlank = 0; double ScoreInThisTest; double TotalScoreOfAllTests = 0.0; unsigned NumTestResultsVisibleByTchs = 0; bool ItsMe = (UsrDat->UsrCod == Gbl.Usrs.Me.UsrDat.UsrCod); bool ICanViewTest; bool ICanViewScore; bool ICanViewTotalScore; time_t TimeUTC; char *ClassDat; /***** Make database query *****/ sprintf (Query,"SELECT TstCod,AllowTeachers," "UNIX_TIMESTAMP(TstTime)," "NumQsts,NumQstsNotBlank,Score" " FROM tst_exams" " WHERE CrsCod=%ld AND UsrCod=%ld" " AND TstTime>=FROM_UNIXTIME(%ld)" " AND TstTime<=FROM_UNIXTIME(%ld)" " ORDER BY TstCod", Gbl.CurrentCrs.Crs.CrsCod, UsrDat->UsrCod, (long) Gbl.DateRange.TimeUTC[0], (long) Gbl.DateRange.TimeUTC[1]); NumTestResults = (unsigned) DB_QuerySELECT (Query,&mysql_res,"can not get test exams of a user"); /***** Show user's data *****/ fprintf (Gbl.F.Out,""); Tst_ShowDataUsr (UsrDat,NumTestResults); /***** Get and print test results *****/ if (NumTestResults) { for (NumTest = 0; NumTest < NumTestResults; NumTest++) { row = mysql_fetch_row (mysql_res); /* Get test code (row[0]) */ if ((TstCod = Str_ConvertStrCodToLongCod (row[0])) < 0) Lay_ShowErrorAndExit ("Wrong code of test result."); /* Get if teachers are allowed to see this test result (row[1]) */ Gbl.Test.AllowTeachers = (row[1][0] == 'Y'); ClassDat = Gbl.Test.AllowTeachers ? "DAT" : "DAT_LIGHT"; switch (Gbl.Usrs.Me.Role.Logged) { case Rol_STD: ICanViewTest = ItsMe; ICanViewScore = ItsMe && Gbl.Test.Config.FeedbackType != Tst_FEEDBACK_NOTHING; break; case Rol_NET: case Rol_TCH: case Rol_DEG_ADM: case Rol_CTR_ADM: case Rol_INS_ADM: ICanViewTest = ICanViewScore = ItsMe || Gbl.Test.AllowTeachers; break; case Rol_SYS_ADM: ICanViewTest = ICanViewScore = true; break; default: ICanViewTest = ICanViewScore = false; break; } if (NumTest) fprintf (Gbl.F.Out,""); /* Write date and time (row[2] holds UTC date-time) */ TimeUTC = Dat_GetUNIXTimeFromStr (row[2]); UniqueId++; fprintf (Gbl.F.Out,"" "" "", UniqueId,ClassDat,Gbl.RowEvenOdd, UniqueId,(long) TimeUTC, (unsigned) Gbl.Prefs.DateFormat,Txt_Today); /* Get number of questions (row[3]) */ if (sscanf (row[3],"%u",&NumQstsInThisTest) != 1) NumQstsInThisTest = 0; if (Gbl.Test.AllowTeachers) NumTotalQsts += NumQstsInThisTest; /* Get number of questions not blank (row[4]) */ if (sscanf (row[4],"%u",&NumQstsNotBlankInThisTest) != 1) NumQstsNotBlankInThisTest = 0; if (Gbl.Test.AllowTeachers) NumTotalQstsNotBlank += NumQstsNotBlankInThisTest; /* Get score (row[5]) */ Str_SetDecimalPointToUS (); // To get the decimal point as a dot if (sscanf (row[5],"%lf",&ScoreInThisTest) != 1) ScoreInThisTest = 0.0; Str_SetDecimalPointToLocal (); // Return to local system if (Gbl.Test.AllowTeachers) TotalScoreOfAllTests += ScoreInThisTest; /* Write number of questions */ fprintf (Gbl.F.Out,"", ClassDat,Gbl.RowEvenOdd); if (ICanViewTest) fprintf (Gbl.F.Out,"%u",NumQstsInThisTest); fprintf (Gbl.F.Out,""); /* Write number of questions not blank */ fprintf (Gbl.F.Out,"", ClassDat,Gbl.RowEvenOdd); if (ICanViewTest) fprintf (Gbl.F.Out,"%u",NumQstsNotBlankInThisTest); fprintf (Gbl.F.Out,""); /* Write score */ fprintf (Gbl.F.Out,"", ClassDat,Gbl.RowEvenOdd); if (ICanViewScore) fprintf (Gbl.F.Out,"%.2lf",ScoreInThisTest); fprintf (Gbl.F.Out,""); /* Write average score per question */ fprintf (Gbl.F.Out,"", ClassDat,Gbl.RowEvenOdd); if (ICanViewScore) fprintf (Gbl.F.Out,"%.2lf", NumQstsInThisTest ? ScoreInThisTest / (double) NumQstsInThisTest : 0.0); fprintf (Gbl.F.Out,""); /* Write score over Tst_SCORE_MAX */ fprintf (Gbl.F.Out,"", ClassDat,Gbl.RowEvenOdd); if (ICanViewScore) fprintf (Gbl.F.Out,"%.2lf", NumQstsInThisTest ? ScoreInThisTest * Tst_SCORE_MAX / (double) NumQstsInThisTest : 0.0); fprintf (Gbl.F.Out,""); /* Link to show this result */ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); if (ICanViewTest) { Act_FormStart (Gbl.Action.Act == ActSeeMyTstRes ? ActSeeOneTstResMe : ActSeeOneTstResOth); Tst_PutParamTstCod (TstCod); fprintf (Gbl.F.Out,"", Gbl.Prefs.IconsURL, Txt_View_test, Txt_View_test); Act_FormEnd (); } fprintf (Gbl.F.Out,"" ""); if (Gbl.Test.AllowTeachers) NumTestResultsVisibleByTchs++; } /***** Write totals for this user *****/ switch (Gbl.Usrs.Me.Role.Logged) { case Rol_STD: ICanViewTotalScore = ItsMe && Gbl.Test.Config.FeedbackType != Tst_FEEDBACK_NOTHING; break; case Rol_NET: case Rol_TCH: case Rol_DEG_ADM: case Rol_CTR_ADM: case Rol_INS_ADM: ICanViewTotalScore = ItsMe || NumTestResultsVisibleByTchs; break; case Rol_SYS_ADM: ICanViewTotalScore = true; break; default: ICanViewTotalScore = false; break; } fprintf (Gbl.F.Out,"" "" "%s: %u" "", Gbl.RowEvenOdd, Txt_Visible_tests,NumTestResultsVisibleByTchs); /* Write total number of questions */ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); if (NumTestResultsVisibleByTchs) fprintf (Gbl.F.Out,"%u",NumTotalQsts); fprintf (Gbl.F.Out,""); /* Write total number of questions not blank */ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); if (NumTestResultsVisibleByTchs) fprintf (Gbl.F.Out,"%u",NumTotalQstsNotBlank); fprintf (Gbl.F.Out,""); /* Write total score */ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); if (ICanViewTotalScore) fprintf (Gbl.F.Out,"%.2lf",TotalScoreOfAllTests); fprintf (Gbl.F.Out,""); /* Write average score per question */ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); if (ICanViewTotalScore) fprintf (Gbl.F.Out,"%.2lf", NumTotalQsts ? TotalScoreOfAllTests / (double) NumTotalQsts : 0.0); fprintf (Gbl.F.Out,""); /* Write score over Tst_SCORE_MAX */ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); if (ICanViewTotalScore) fprintf (Gbl.F.Out,"%.2lf", NumTotalQsts ? TotalScoreOfAllTests * Tst_SCORE_MAX / (double) NumTotalQsts : 0.0); fprintf (Gbl.F.Out,""); /* Last cell */ fprintf (Gbl.F.Out,"" "", Gbl.RowEvenOdd); } else fprintf (Gbl.F.Out,"" "" "" "" "" "" "" "", Gbl.RowEvenOdd, Gbl.RowEvenOdd, Gbl.RowEvenOdd, Gbl.RowEvenOdd, Gbl.RowEvenOdd, Gbl.RowEvenOdd, Gbl.RowEvenOdd); /***** 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 NumTestResults) { bool ShowPhoto; char PhotoURL[PATH_MAX + 1]; Act_Action_t NextAction; /***** Show user's photo and name *****/ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); ShowPhoto = Pho_ShowingUsrPhotoIsAllowed (UsrDat,PhotoURL); Pho_ShowUsrPhoto (UsrDat,ShowPhoto ? PhotoURL : NULL, "PHOTO45x60",Pho_ZOOM,false); fprintf (Gbl.F.Out,""); /***** Start form to go to user's record card *****/ fprintf (Gbl.F.Out,"", Gbl.RowEvenOdd); switch (UsrDat->Roles.InCurrentCrs.Role) { case Rol_STD: NextAction = ActSeeRecOneStd; break; case Rol_NET: case Rol_TCH: NextAction = ActSeeRecOneTch; break; default: NextAction = ActUnk; Lay_ShowErrorAndExit ("Wrong role."); break; } Act_FormStart (NextAction); Usr_PutParamUsrCodEncrypted (UsrDat->EncryptedUsrCod); Act_LinkFormSubmit (UsrDat->FullName,"AUTHOR_TXT",NULL); /***** Show user's ID *****/ ID_WriteUsrIDs (UsrDat,NULL); /***** Show user's name *****/ fprintf (Gbl.F.Out,"
%s",UsrDat->Surname1); if (UsrDat->Surname2[0]) fprintf (Gbl.F.Out," %s",UsrDat->Surname2); if (UsrDat->FirstName[0]) fprintf (Gbl.F.Out,",
%s",UsrDat->FirstName); /***** End form *****/ Act_FormEnd (); fprintf (Gbl.F.Out,""); } /*****************************************************************************/ /******************** Write parameter with code of test **********************/ /*****************************************************************************/ static void Tst_PutParamTstCod (long TstCod) { Par_PutHiddenParamLong ("TstCod",TstCod); } /*****************************************************************************/ /********************* Get parameter with code of test ***********************/ /*****************************************************************************/ static long Tst_GetParamTstCod (void) { /***** Get code of test *****/ return Par_GetParToLong ("TstCod"); } /*****************************************************************************/ /******************* Show one test result of another user ********************/ /*****************************************************************************/ void Tst_ShowOneTestResult (void) { extern const char *Hlp_ASSESSMENT_Tests_test_results; extern const char *Txt_Test_result; extern const char *Txt_ROLES_SINGUL_Abc[Rol_NUM_ROLES][Usr_NUM_SEXS]; extern const char *Txt_Date; extern const char *Txt_Today; 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; time_t TstTimeUTC = 0; // Test result UTC date-time, initialized to avoid warning unsigned NumQstsNotBlank; double TotalScore; bool ShowPhoto; char PhotoURL[PATH_MAX + 1]; bool ItsMe; bool ICanViewTest; bool ICanViewScore; /***** Get the code of the test *****/ if ((TstCod = Tst_GetParamTstCod ()) == -1L) Lay_ShowErrorAndExit ("Code of test is missing."); /***** Get test result data *****/ Tst_GetTestResultDataByTstCod (TstCod,&TstTimeUTC,&Gbl.Test.NumQsts,&NumQstsNotBlank,&TotalScore); Gbl.Test.Config.FeedbackType = Tst_FEEDBACK_FULL_FEEDBACK; // Initialize feedback to maximum /***** Check if I can view this test result *****/ ItsMe = (Gbl.Usrs.Other.UsrDat.UsrCod == Gbl.Usrs.Me.UsrDat.UsrCod); switch (Gbl.Usrs.Me.Role.Logged) { case Rol_STD: ICanViewTest = ItsMe; if (ItsMe) { Tst_GetConfigTstFromDB (); // To get feedback type ICanViewScore = Gbl.Test.Config.FeedbackType != Tst_FEEDBACK_NOTHING; } else ICanViewScore = false; break; case Rol_TCH: case Rol_DEG_ADM: case Rol_CTR_ADM: case Rol_INS_ADM: switch (Gbl.Action.Act) { case ActSeeOneTstResMe: ICanViewTest = ICanViewScore = ItsMe; break; case ActSeeOneTstResOth: ICanViewTest = ICanViewScore = ItsMe || Gbl.Test.AllowTeachers; break; default: ICanViewTest = ICanViewScore = false; break; } break; case Rol_SYS_ADM: ICanViewTest = ICanViewScore = true; break; default: ICanViewTest = ICanViewScore = false; break; } if (ICanViewTest) // I am allowed to view this test result { /***** Get questions and user's answers of the test result from database *****/ Tst_GetTestResultQuestionsFromDB (TstCod); /***** Start frame *****/ Lay_StartRoundFrame (NULL,Txt_Test_result,NULL, Hlp_ASSESSMENT_Tests_test_results, false); // Not closable Lay_WriteHeaderClassPhoto (false,false, Gbl.CurrentIns.Ins.InsCod, Gbl.CurrentDeg.Deg.DegCod, Gbl.CurrentCrs.Crs.CrsCod); /***** Start table *****/ Lay_StartTableWideMargin (10); /***** Header row *****/ /* Get data of the user who made the test */ if (!Usr_ChkUsrCodAndGetAllUsrDataFromUsrCod (&Gbl.Usrs.Other.UsrDat)) Lay_ShowErrorAndExit ("User does not exists."); if (!Usr_CheckIfICanViewWrkTstAtt (&Gbl.Usrs.Other.UsrDat)) Lay_ShowErrorAndExit ("You can not view this test result."); /* User */ fprintf (Gbl.F.Out,"" "" "%s:" "" "", Txt_ROLES_SINGUL_Abc[Gbl.Usrs.Other.UsrDat.Roles.InCurrentCrs.Role][Gbl.Usrs.Other.UsrDat.Sex]); ID_WriteUsrIDs (&Gbl.Usrs.Other.UsrDat,NULL); 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,"
"); ShowPhoto = Pho_ShowingUsrPhotoIsAllowed (&Gbl.Usrs.Other.UsrDat,PhotoURL); Pho_ShowUsrPhoto (&Gbl.Usrs.Other.UsrDat,ShowPhoto ? PhotoURL : NULL, "PHOTO45x60",Pho_ZOOM,false); fprintf (Gbl.F.Out,"" ""); /* Test date */ fprintf (Gbl.F.Out,"" "" "%s:" "" "" "" "" "", Txt_Date,TstTimeUTC, (unsigned) Gbl.Prefs.DateFormat,Txt_Today); /* Number of questions */ fprintf (Gbl.F.Out,"" "" "%s:" "" "" "%u (%u %s)" "" "", Txt_Questions, Gbl.Test.NumQsts,NumQstsNotBlank,Txt_non_blank_QUESTIONS); /* Score */ fprintf (Gbl.F.Out,"" "" "%s:" "" "", 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)" "", Txt_out_of_PART_OF_A_SCORE,Tst_SCORE_MAX); /* Tags present in this test */ fprintf (Gbl.F.Out,"" "" "%s:" "" "", Txt_Tags); Tst_ShowTstTagsPresentInATestResult (TstCod); fprintf (Gbl.F.Out,"" ""); /***** Write answers and solutions *****/ Tst_ShowTestResult (TstTimeUTC); /***** Write total mark of test *****/ if (ICanViewScore) Tst_ShowTstTotalMark (TotalScore); /***** End table *****/ Lay_EndTable (); /***** End frame *****/ Lay_EndRoundFrame (); } else // I am not allowed to view this test result Lay_ShowErrorAndExit ("You can not view this test result."); } /*****************************************************************************/ /************************* Show the result of a test *************************/ /*****************************************************************************/ static void Tst_ShowTestResult (time_t TstTimeUTC) { 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; time_t EditTimeUTC; 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 row[ 1] UNIX_TIMESTAMP(EditTime) row[ 2] AnsType row[ 3] Shuffle row[ 4] Stem row[ 5] Feedback row[ 6] ImageName row[ 7] ImageTitle row[ 8] ImageURL row[ 9] NumHits row[10] NumHitsNotBlank row[11] Score */ /***** If this question has been edited later than test time ==> don't show question ****/ EditTimeUTC = Dat_GetUNIXTimeFromStr (row[1]); ThisQuestionHasBeenEdited = false; // if (TstTimeUTC) if (EditTimeUTC > TstTimeUTC) ThisQuestionHasBeenEdited = true; if (ThisQuestionHasBeenEdited) /***** Question has been edited *****/ fprintf (Gbl.F.Out,"" "" "%u" "" "" "%s" "" "", Gbl.RowEvenOdd,NumQst + 1, Gbl.RowEvenOdd,Txt_Question_modified); 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_WriteQstAndAnsTest (NumQst,QstCod,row, &ScoreThisQst, // Not used here &AnswerIsNotBlank); // Not used here } } else /***** Question does not exists *****/ fprintf (Gbl.F.Out,"" "" "%u" "" "" "%s" "" "", Gbl.RowEvenOdd,NumQst + 1, Gbl.RowEvenOdd,Txt_Question_removed); /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } } /*****************************************************************************/ /********* Get data of a test result using its test result code **************/ /*****************************************************************************/ static void Tst_GetTestResultDataByTstCod (long TstCod,time_t *TstTimeUTC, unsigned *NumQsts,unsigned *NumQstsNotBlank,double *Score) { char Query[512]; MYSQL_RES *mysql_res; MYSQL_ROW row; /***** Make database query *****/ sprintf (Query,"SELECT UsrCod,AllowTeachers," "UNIX_TIMESTAMP(TstTime)," "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 result 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 result (row[1]) */ Gbl.Test.AllowTeachers = (row[1][0] == 'Y'); /* Get date-time (row[2] holds UTC date-time) */ *TstTimeUTC = Dat_GetUNIXTimeFromStr (row[2]); /* 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]) */ Str_SetDecimalPointToUS (); // To get the decimal point as a dot if (sscanf (row[5],"%lf",Score) != 1) *Score = 0.0; Str_SetDecimalPointToLocal (); // Return to local system } /***** Free structure that stores the query result *****/ DB_FreeMySQLResult (&mysql_res); } /*****************************************************************************/ /************ Store user's answers of an test result into database ***********/ /*****************************************************************************/ static void Tst_StoreOneTestResultQstInDB (long TstCod,long QstCod,unsigned NumQst,double Score) { char Query[256 + Tst_MAX_BYTES_INDEXES_ONE_QST + Tst_MAX_BYTES_ANSWERS_ONE_QST]; char Indexes[Tst_MAX_BYTES_INDEXES_ONE_QST + 1]; char Answers[Tst_MAX_BYTES_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 *****/ Str_SetDecimalPointToUS (); // To print the floating point as a dot 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); Str_SetDecimalPointToLocal (); // Return to local system DB_QueryINSERT (Query,"can not insert a question of a test result"); } /*****************************************************************************/ /************ Get the questions of a test result from database ***************/ /*****************************************************************************/ static void Tst_GetTestResultQuestionsFromDB (long TstCod) { char Query[256]; MYSQL_RES *mysql_res; MYSQL_ROW row; unsigned NumQst; /***** Get questions of a test result 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 result"); /***** 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]) */ Str_Copy (Gbl.Test.StrIndexesOneQst[NumQst],row[1], Tst_MAX_BYTES_INDEXES_ONE_QST); /* Get answers selected by user for this question (row[2]) */ Str_Copy (Gbl.Test.StrAnswersOneQst[NumQst],row[2], Tst_MAX_BYTES_ANSWERS_ONE_QST); /* 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 results made by a user ********************/ /*****************************************************************************/ void Tst_RemoveTestResultsMadeByUsrInAllCrss (long UsrCod) { char Query[512]; /***** Remove test results 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 test results made by a user"); sprintf (Query,"DELETE FROM tst_exams" " WHERE UsrCod=%ld", UsrCod); DB_QueryDELETE (Query,"can not remove test results made by a user"); } /*****************************************************************************/ /************** Remove test results made by a user in a course ***************/ /*****************************************************************************/ void Tst_RemoveTestResultsMadeByUsrInCrs (long UsrCod,long CrsCod) { char Query[512]; /***** Remove test results 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 test results 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 test results made by a user in a course"); } /*****************************************************************************/ /****************** Remove all test results made in a course *****************/ /*****************************************************************************/ void Tst_RemoveCrsTestResults (long CrsCod) { char Query[512]; /***** Remove questions of test results made in the course *****/ 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 test results made in a course"); /***** Remove test results made in the course *****/ sprintf (Query,"DELETE FROM tst_exams WHERE CrsCod=%ld", CrsCod); DB_QueryDELETE (Query,"can not remove test results made in a course"); } /*****************************************************************************/ /******************* Remove all test exams made in a course ******************/ /*****************************************************************************/ void Tst_RemoveCrsTests (long CrsCod) { char Query[512]; /***** Remove tests status in the course *****/ sprintf (Query,"DELETE FROM tst_status WHERE CrsCod=%ld",CrsCod); DB_QueryDELETE (Query,"can not remove status of tests of a course"); /***** Remove test configuration of the course *****/ sprintf (Query,"DELETE FROM tst_config WHERE CrsCod=%ld", CrsCod); DB_QueryDELETE (Query,"can not remove configuration of tests of a course"); /***** Remove associations between test questions and test tags in the course *****/ sprintf (Query,"DELETE FROM tst_question_tags" " USING tst_questions,tst_question_tags" " WHERE tst_questions.CrsCod=%ld" " AND tst_questions.QstCod=tst_question_tags.QstCod", CrsCod); DB_QueryDELETE (Query,"can not remove tags associated to questions of tests of a course"); /***** Remove test tags in the course *****/ sprintf (Query,"DELETE FROM tst_tags WHERE CrsCod=%ld", CrsCod); DB_QueryDELETE (Query,"can not remove tags of test of a course"); /***** Remove test answers in the course *****/ sprintf (Query,"DELETE FROM tst_answers USING tst_questions,tst_answers" " WHERE tst_questions.CrsCod=%ld" " AND tst_questions.QstCod=tst_answers.QstCod", CrsCod); DB_QueryDELETE (Query,"can not remove answers of tests of a course"); /***** Remove files with images associated to test questions in the course *****/ Tst_RemoveAllImgFilesFromAnsOfAllQstsInCrs (CrsCod); Tst_RemoveAllImgFilesFromStemOfAllQstsInCrs (CrsCod); /***** Remove test questions in the course *****/ sprintf (Query,"DELETE FROM tst_questions WHERE CrsCod=%ld", CrsCod); DB_QueryDELETE (Query,"can not remove test questions of a course"); }