mirror of https://github.com/acanas/swad-core.git
813 lines
30 KiB
C
813 lines
30 KiB
C
// swad_rubric_database.c: assessment rubrics, operations with database
|
|
|
|
/*
|
|
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-2023 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 <http://www.gnu.org/licenses/>.
|
|
*/
|
|
/*****************************************************************************/
|
|
/********************************* Headers ***********************************/
|
|
/*****************************************************************************/
|
|
|
|
#define _GNU_SOURCE // For asprintf
|
|
#include <stdio.h> // For asprintf
|
|
#include <stdlib.h> // For free
|
|
|
|
#include "swad_database.h"
|
|
#include "swad_error.h"
|
|
#include "swad_rubric_database.h"
|
|
#include "swad_rubric_criteria.h"
|
|
#include "swad_global.h"
|
|
|
|
/*****************************************************************************/
|
|
/**************************** Private constants ******************************/
|
|
/*****************************************************************************/
|
|
|
|
#define RubCri_AFTER_LAST_CRITERION ((unsigned)((1UL << 31) - 1)) // 2^31 - 1, don't change this number because it is used in database
|
|
|
|
// Fields in database for minimum/maximum criterion values
|
|
static const char *RubCri_ValuesFields[RubCri_NUM_VALUES] =
|
|
{
|
|
[RubCri_MIN] = "MinVal",
|
|
[RubCri_MAX] = "MaxVal",
|
|
};
|
|
|
|
/*****************************************************************************/
|
|
/************** External global variables from others modules ****************/
|
|
/*****************************************************************************/
|
|
|
|
extern struct Globals Gbl;
|
|
|
|
/*****************************************************************************/
|
|
/*************************** Create a new rubric *****************************/
|
|
/*****************************************************************************/
|
|
|
|
long Rub_DB_CreateRubric (const struct Rub_Rubric *Rubric,const char *Txt)
|
|
{
|
|
return
|
|
DB_QueryINSERTandReturnCode ("can not create new rubric",
|
|
"INSERT INTO rub_rubrics"
|
|
" (CrsCod,UsrCod,Title,Txt)"
|
|
" VALUES"
|
|
" (%ld,%ld,'%s','%s')",
|
|
Gbl.Hierarchy.Crs.CrsCod,
|
|
Gbl.Usrs.Me.UsrDat.UsrCod,
|
|
Rubric->Title,
|
|
Txt);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/************************** Update an existing rubric ************************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_UpdateRubric (const struct Rub_Rubric *Rubric,const char *Txt)
|
|
{
|
|
DB_QueryUPDATE ("can not update rubric",
|
|
"UPDATE rub_rubrics"
|
|
" SET CrsCod=%ld,"
|
|
"Title='%s',"
|
|
"Txt='%s'"
|
|
" WHERE RubCod=%ld",
|
|
Gbl.Hierarchy.Crs.CrsCod,
|
|
Rubric->Title,
|
|
Txt,
|
|
Rubric->RubCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/************** Get list of all rubrics in the current course ****************/
|
|
/*****************************************************************************/
|
|
|
|
unsigned Rub_DB_GetListRubrics (MYSQL_RES **mysql_res)
|
|
{
|
|
return (unsigned)
|
|
DB_QuerySELECT (mysql_res,"can not get rubrics",
|
|
"SELECT RubCod" // row[0]
|
|
" FROM rub_rubrics"
|
|
" WHERE CrsCod=%ld"
|
|
" ORDER BY Title",
|
|
Gbl.Hierarchy.Crs.CrsCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/********************* Get rubric data using its code ************************/
|
|
/*****************************************************************************/
|
|
|
|
unsigned Rub_DB_GetRubricDataByCod (MYSQL_RES **mysql_res,long RubCod)
|
|
{
|
|
return (unsigned)
|
|
DB_QuerySELECT (mysql_res,"can not get rubric data",
|
|
"SELECT RubCod," // row[0]
|
|
"CrsCod," // row[1]
|
|
"UsrCod," // row[2]
|
|
"Title" // row[3]
|
|
" FROM rub_rubrics"
|
|
" WHERE RubCod=%ld"
|
|
" AND CrsCod=%ld", // Extra check
|
|
RubCod,
|
|
Gbl.Hierarchy.Crs.CrsCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/********************** Get rubric title from database ***********************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_GetRubricTitle (long RubCod,char Title[Rub_MAX_BYTES_TITLE + 1])
|
|
{
|
|
DB_QuerySELECTString (Title,Rub_MAX_BYTES_TITLE,"can not get rubric title",
|
|
"SELECT Title" // row[0]
|
|
" FROM rub_rubrics"
|
|
" WHERE RubCod=%ld"
|
|
" AND CrsCod=%ld", // Extra check
|
|
RubCod,
|
|
Gbl.Hierarchy.Crs.CrsCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/********************** Get rubric text from database ************************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_GetRubricTxt (long RubCod,char Txt[Cns_MAX_BYTES_TEXT + 1])
|
|
{
|
|
DB_QuerySELECTString (Txt,Cns_MAX_BYTES_TEXT,"can not get rubric text",
|
|
"SELECT Txt" // row[0]
|
|
" FROM rub_rubrics"
|
|
" WHERE RubCod=%ld",
|
|
RubCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/******************* Check if the title of a rubric exists *******************/
|
|
/*****************************************************************************/
|
|
|
|
bool Rub_DB_CheckIfSimilarRubricExists (const struct Rub_Rubric *Rubric)
|
|
{
|
|
return
|
|
DB_QueryEXISTS ("can not check similar rubrics",
|
|
"SELECT EXISTS"
|
|
"(SELECT *"
|
|
" FROM rub_rubrics"
|
|
" WHERE CrsCod=%ld"
|
|
" AND Title='%s'"
|
|
" AND RubCod<>%ld)",
|
|
Gbl.Hierarchy.Crs.CrsCod,
|
|
Rubric->Title,
|
|
Rubric->RubCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/******************** Get number of courses with rubrics *********************/
|
|
/*****************************************************************************/
|
|
// Returns the number of courses with rubrics in this location
|
|
|
|
unsigned Rub_DB_GetNumCoursesWithRubrics (HieLvl_Level_t Scope)
|
|
{
|
|
/***** Get number of courses with rubrics from database *****/
|
|
switch (Scope)
|
|
{
|
|
case HieLvl_SYS:
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of courses with rubrics",
|
|
"SELECT COUNT(DISTINCT CrsCod)"
|
|
" FROM rub_rubrics");
|
|
case HieLvl_CTY:
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of courses with rubrics",
|
|
"SELECT COUNT(DISTINCT rub_rubrics.CrsCod)"
|
|
" FROM ins_instits,"
|
|
"ctr_centers,"
|
|
"deg_degrees,"
|
|
"crs_courses,"
|
|
"rub_rubrics"
|
|
" WHERE ins_instits.CtyCod=%ld"
|
|
" AND ins_instits.InsCod=ctr_centers.InsCod"
|
|
" AND ctr_centers.CtrCod=deg_degrees.CtrCod"
|
|
" AND deg_degrees.DegCod=crs_courses.DegCod"
|
|
" AND crs_courses.CrsCod=rub_rubrics.CrsCod",
|
|
Gbl.Hierarchy.Cty.CtyCod);
|
|
case HieLvl_INS:
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of courses with rubrics",
|
|
"SELECT COUNT(DISTINCT rub_rubrics.CrsCod)"
|
|
" FROM ctr_centers,"
|
|
"deg_degrees,"
|
|
"crs_courses,"
|
|
"rub_rubrics"
|
|
" WHERE ctr_centers.InsCod=%ld"
|
|
" AND ctr_centers.CtrCod=deg_degrees.CtrCod"
|
|
" AND deg_degrees.DegCod=crs_courses.DegCod"
|
|
" AND crs_courses.CrsCod=rub_rubrics.CrsCod",
|
|
Gbl.Hierarchy.Ins.InsCod);
|
|
case HieLvl_CTR:
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of courses with rubrics",
|
|
"SELECT COUNT(DISTINCT rub_rubrics.CrsCod)"
|
|
" FROM deg_degrees,"
|
|
"crs_courses,"
|
|
"rub_rubrics"
|
|
" WHERE deg_degrees.CtrCod=%ld"
|
|
" AND deg_degrees.DegCod=crs_courses.DegCod"
|
|
" AND crs_courses.CrsCod=rub_rubrics.CrsCod",
|
|
Gbl.Hierarchy.Ctr.CtrCod);
|
|
case HieLvl_DEG:
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of courses with rubrics",
|
|
"SELECT COUNT(DISTINCT rub_rubrics.CrsCod)"
|
|
" FROM crs_courses,"
|
|
"rub_rubrics"
|
|
" WHERE crs_courses.DegCod=%ld"
|
|
" AND crs_courses.CrsCod=rub_rubrics.CrsCod",
|
|
Gbl.Hierarchy.Deg.DegCod);
|
|
case HieLvl_CRS:
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of courses with rubrics",
|
|
"SELECT COUNT(DISTINCT CrsCod)"
|
|
" FROM rub_rubrics"
|
|
" WHERE CrsCod=%ld",
|
|
Gbl.Hierarchy.Crs.CrsCod);
|
|
default:
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/*************************** Get number of rubrics ***************************/
|
|
/*****************************************************************************/
|
|
// Returns the number of rubrics in this location
|
|
|
|
unsigned Rub_DB_GetNumRubrics (HieLvl_Level_t Scope)
|
|
{
|
|
/***** Get number of rubrics from database *****/
|
|
switch (Scope)
|
|
{
|
|
case HieLvl_SYS:
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of rubrics",
|
|
"SELECT COUNT(*)"
|
|
" FROM rub_rubrics");
|
|
case HieLvl_CTY:
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of rubrics",
|
|
"SELECT COUNT(*)"
|
|
" FROM ins_instits,"
|
|
"ctr_centers,"
|
|
"deg_degrees,"
|
|
"crs_courses,"
|
|
"rub_rubrics"
|
|
" WHERE ins_instits.CtyCod=%ld"
|
|
" AND ins_instits.InsCod=ctr_centers.InsCod"
|
|
" AND ctr_centers.CtrCod=deg_degrees.CtrCod"
|
|
" AND deg_degrees.DegCod=crs_courses.DegCod"
|
|
" AND crs_courses.CrsCod=rub_rubrics.CrsCod",
|
|
Gbl.Hierarchy.Cty.CtyCod);
|
|
case HieLvl_INS:
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of rubrics",
|
|
"SELECT COUNT(*)"
|
|
" FROM ctr_centers,"
|
|
"deg_degrees,"
|
|
"crs_courses,"
|
|
"rub_rubrics"
|
|
" WHERE ctr_centers.InsCod=%ld"
|
|
" AND ctr_centers.CtrCod=deg_degrees.CtrCod"
|
|
" AND deg_degrees.DegCod=crs_courses.DegCod"
|
|
" AND crs_courses.CrsCod=rub_rubrics.CrsCod",
|
|
Gbl.Hierarchy.Ins.InsCod);
|
|
case HieLvl_CTR:
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of rubrics",
|
|
"SELECT COUNT(*)"
|
|
" FROM deg_degrees,"
|
|
"crs_courses,"
|
|
"rub_rubrics"
|
|
" WHERE deg_degrees.CtrCod=%ld"
|
|
" AND deg_degrees.DegCod=crs_courses.DegCod"
|
|
" AND crs_courses.CrsCod=rub_rubrics.CrsCod",
|
|
Gbl.Hierarchy.Ctr.CtrCod);
|
|
case HieLvl_DEG:
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of rubrics",
|
|
"SELECT COUNT(*)"
|
|
" FROM crs_courses,"
|
|
"rub_rubrics"
|
|
" WHERE crs_courses.DegCod=%ld"
|
|
" AND crs_courses.CrsCod=rub_rubrics.CrsCod",
|
|
Gbl.Hierarchy.Deg.DegCod);
|
|
case HieLvl_CRS:
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of rubrics",
|
|
"SELECT COUNT(*)"
|
|
" FROM rub_rubrics"
|
|
" WHERE CrsCod=%ld",
|
|
Gbl.Hierarchy.Crs.CrsCod);
|
|
default:
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/******************************** Remove rubric ******************************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_RemoveRubric (long RubCod)
|
|
{
|
|
DB_QueryDELETE ("can not remove rubric",
|
|
"DELETE FROM rub_rubrics"
|
|
" WHERE RubCod=%ld",
|
|
RubCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/********************** Remove the rubrics of a course ***********************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_RemoveCrsRubrics (long CrsCod)
|
|
{
|
|
DB_QueryDELETE ("can not remove course rubrics",
|
|
"DELETE FROM rub_rubrics"
|
|
" WHERE CrsCod=%ld",
|
|
CrsCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/********************** Create a new rubric criterion ************************/
|
|
/*****************************************************************************/
|
|
|
|
long Rub_DB_CreateCriterion (const struct RubCri_Criterion *Criterion)
|
|
{
|
|
extern const char *Rsc_ResourceTypesDB[Rsc_NUM_TYPES];
|
|
long CriCod;
|
|
|
|
Str_SetDecimalPointToUS (); // To write the decimal point as a dot
|
|
CriCod =
|
|
DB_QueryINSERTandReturnCode ("can not create new criterion",
|
|
"INSERT INTO rub_criteria"
|
|
" (RubCod,CriInd,Type,Cod,%s,%s,Weight,Title)"
|
|
" VALUES"
|
|
" (%ld,%u,'%s',%ld,%.15lg,%.15lg,%.15lg,'%s')",
|
|
RubCri_ValuesFields[RubCri_MIN],
|
|
RubCri_ValuesFields[RubCri_MAX],
|
|
Criterion->RubCod,
|
|
Criterion->CriInd,
|
|
Rsc_ResourceTypesDB[Criterion->Link.Type],
|
|
Criterion->Link.Cod,
|
|
Criterion->Values[RubCri_MIN],
|
|
Criterion->Values[RubCri_MAX],
|
|
Criterion->Weight,
|
|
Criterion->Title);
|
|
Str_SetDecimalPointToLocal (); // Return to local system
|
|
|
|
return CriCod;
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/********************* Update criterion title in database ********************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_UpdateCriterionTitle (const struct RubCri_Criterion *Criterion)
|
|
{
|
|
DB_QueryUPDATE ("can not update the title of a criterion",
|
|
"UPDATE rub_criteria"
|
|
" SET Title='%s'"
|
|
" WHERE CriCod=%ld"
|
|
" AND RubCod=%ld", // Extra check
|
|
Criterion->Title,
|
|
Criterion->CriCod,
|
|
Criterion->RubCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/******** Update the link to a resource in a criterion given its code ********/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_UpdateCriterionLink (const struct RubCri_Criterion *Criterion)
|
|
{
|
|
extern const char *Rsc_ResourceTypesDB[Rsc_NUM_TYPES];
|
|
|
|
DB_QueryUPDATE ("can not update link of criterion",
|
|
"UPDATE rub_criteria"
|
|
" SET Type='%s',"
|
|
"Cod=%ld"
|
|
" WHERE CriCod=%ld",
|
|
Rsc_ResourceTypesDB[Criterion->Link.Type],
|
|
Criterion->Link.Cod,
|
|
Criterion->CriCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/********************* Update criterion value in database ********************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_UpdateCriterionValue (const struct RubCri_Criterion *Criterion,
|
|
RubCri_ValueRange_t ValueRange)
|
|
{
|
|
Str_SetDecimalPointToUS (); // To write the decimal point as a dot
|
|
DB_QueryUPDATE ("can not update the value of a criterion",
|
|
"UPDATE rub_criteria"
|
|
" SET %s=%.15lg"
|
|
" WHERE CriCod=%ld"
|
|
" AND RubCod=%ld", // Extra check
|
|
RubCri_ValuesFields[ValueRange],Criterion->Values[ValueRange],
|
|
Criterion->CriCod,
|
|
Criterion->RubCod);
|
|
Str_SetDecimalPointToLocal (); // Return to local system
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/********************* Update criterion weight in database *******************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_UpdateCriterionWeight (const struct RubCri_Criterion *Criterion)
|
|
{
|
|
Str_SetDecimalPointToUS (); // To write the decimal point as a dot
|
|
DB_QueryUPDATE ("can not update the value of a criterion",
|
|
"UPDATE rub_criteria"
|
|
" SET Weight=%.15lg"
|
|
" WHERE CriCod=%ld"
|
|
" AND RubCod=%ld", // Extra check
|
|
Criterion->Weight,
|
|
Criterion->CriCod,
|
|
Criterion->RubCod);
|
|
Str_SetDecimalPointToLocal (); // Return to local system
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/************ Update indexes of criteria greater than a given one ************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_UpdateCriteriaIndexesInRubricGreaterThan (const struct RubCri_Criterion *Criterion)
|
|
{
|
|
DB_QueryUPDATE ("can not update indexes of criteria",
|
|
"UPDATE rub_criteria"
|
|
" SET CriInd=CriInd-1"
|
|
" WHERE RubCod=%ld"
|
|
" AND CriInd>%u",
|
|
Criterion->RubCod,
|
|
Criterion->CriInd);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/****************** Change index of a criterion in a rubric ******************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_UpdateCriterionIndex (long CriInd,long CriCod,long RubCod)
|
|
{
|
|
DB_QueryUPDATE ("can not exchange indexes of criteria",
|
|
"UPDATE rub_criteria"
|
|
" SET CriInd=%ld"
|
|
" WHERE CriCod=%ld"
|
|
" AND RubCod=%ld", // Extra check
|
|
CriInd,
|
|
CriCod,
|
|
RubCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/************ Lock table to make the exchange of criteria atomic ***********/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_LockTable (void)
|
|
{
|
|
DB_Query ("can not lock tables to move rubric criterion",
|
|
"LOCK TABLES rub_criteria WRITE");
|
|
DB_SetThereAreLockedTables ();
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/******************* Get number of criteria of a rubric *********************/
|
|
/*****************************************************************************/
|
|
|
|
unsigned Rub_DB_GetNumCriteriaInRubric (long RubCod)
|
|
{
|
|
/***** Get nuumber of criteria in a rubric from database *****/
|
|
return (unsigned)
|
|
DB_QueryCOUNT ("can not get number of criteria of a rubric",
|
|
"SELECT COUNT(*)"
|
|
" FROM rub_criteria"
|
|
" WHERE RubCod=%ld",
|
|
RubCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/********* Get criterion code given rubric and index of criterion ************/
|
|
/*****************************************************************************/
|
|
|
|
long Rub_DB_GetCriCodFromCriInd (long RubCod,unsigned CriInd)
|
|
{
|
|
long CriCod;
|
|
|
|
CriCod = DB_QuerySELECTCode ("can not get criterion code",
|
|
"SELECT CriCod"
|
|
" FROM rub_criteria"
|
|
" WHERE RubCod=%ld"
|
|
" AND CriInd=%u",
|
|
RubCod,
|
|
CriInd);
|
|
if (CriCod <= 0)
|
|
Err_WrongCriterionExit ();
|
|
|
|
return CriCod;
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/********** Get criterion index given rubric and code of criterion ***********/
|
|
/*****************************************************************************/
|
|
// Return 0 is criterion is not present in rubric
|
|
|
|
unsigned Rub_DB_GetCriIndFromCriCod (long RubCod,long CriCod)
|
|
{
|
|
return DB_QuerySELECTUnsigned ("can not get criterion index",
|
|
"SELECT CriInd"
|
|
" FROM rub_criteria"
|
|
" WHERE RubCod=%ld"
|
|
" AND CriCod=%ld",
|
|
RubCod,
|
|
CriCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/**************** Get maximum criterion index in a rubric ********************/
|
|
/*****************************************************************************/
|
|
// Criterion index can be 1, 2, 3...
|
|
// Return 0 if no criteria
|
|
|
|
unsigned Rub_DB_GetMaxCriterionIndexInRubric (long RubCod)
|
|
{
|
|
/***** Get maximum criterion index in a rubric from database *****/
|
|
return DB_QuerySELECTUnsigned ("can not get last criterion index",
|
|
"SELECT MAX(CriInd)"
|
|
" FROM rub_criteria"
|
|
" WHERE RubCod=%ld",
|
|
RubCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/********* Get previous criterion index to a given index in a rubric *********/
|
|
/*****************************************************************************/
|
|
// Input criterion index can be 1, 2, 3... n-1
|
|
// Return criterion index will be 1, 2, 3... n if previous criterion exists, or 0 if no previous criterion
|
|
|
|
unsigned Rub_DB_GetPrevCriterionIndexInRubric (long RubCod,unsigned CriInd)
|
|
{
|
|
/***** Get previous criterion index in a rubric from database *****/
|
|
// Although indexes are always continuous...
|
|
// ...this implementation works even with non continuous indexes
|
|
return DB_QuerySELECTUnsigned ("can not get previous criterion index",
|
|
"SELECT COALESCE(MAX(CriInd),0)"
|
|
" FROM rub_criteria"
|
|
" WHERE RubCod=%ld"
|
|
" AND CriInd<%u",
|
|
RubCod,
|
|
CriInd);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/*********** Get next criterion index to a given index in a rubric ***********/
|
|
/*****************************************************************************/
|
|
// Input criterion index can be 0, 1, 2, 3... n-1
|
|
// Return criterion index will be 1, 2, 3... n if next criterion exists, or big number if no next criterion
|
|
|
|
unsigned Rub_DB_GetNextCriterionIndexInRubric (long RubCod,unsigned CriInd)
|
|
{
|
|
/***** Get next criterion index in a rubric from database *****/
|
|
// Although indexes are always continuous...
|
|
// ...this implementation works even with non continuous indexes
|
|
return DB_QuerySELECTUnsigned ("can not get next criterion index",
|
|
"SELECT COALESCE(MIN(CriInd),%u)"
|
|
" FROM rub_criteria"
|
|
" WHERE RubCod=%ld"
|
|
" AND CriInd>%u",
|
|
RubCri_AFTER_LAST_CRITERION, // End of criteria has been reached
|
|
RubCod,
|
|
CriInd);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/********************* Get criteria in a given rubric ************************/
|
|
/*****************************************************************************/
|
|
|
|
unsigned Rub_DB_GetCriteria (MYSQL_RES **mysql_res,long RubCod)
|
|
{
|
|
return (unsigned)
|
|
DB_QuerySELECT (mysql_res,"can not get criteria",
|
|
"SELECT CriCod," // row[0]
|
|
"RubCod," // row[1]
|
|
"CriInd," // row[2]
|
|
"Type," // row[3]
|
|
"Cod," // row[4]
|
|
"%s," // row[5]
|
|
"%s," // row[6]
|
|
"Weight," // row[7]
|
|
"Title" // row[8]
|
|
" FROM rub_criteria"
|
|
" WHERE RubCod=%ld"
|
|
" ORDER BY CriInd",
|
|
RubCri_ValuesFields[RubCri_MIN],
|
|
RubCri_ValuesFields[RubCri_MAX],
|
|
RubCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/***************** Get rubric criterion data using its code ******************/
|
|
/*****************************************************************************/
|
|
|
|
unsigned Rub_DB_GetCriterionDataByCod (MYSQL_RES **mysql_res,long CriCod)
|
|
{
|
|
return (unsigned)
|
|
DB_QuerySELECT (mysql_res,"can not get criterion data",
|
|
"SELECT CriCod," // row[0]
|
|
"RubCod," // row[1]
|
|
"CriInd," // row[2]
|
|
"Type," // row[3]
|
|
"Cod," // row[4]
|
|
"%s," // row[5]
|
|
"%s," // row[6]
|
|
"Weight," // row[7]
|
|
"Title" // row[8]
|
|
" FROM rub_criteria"
|
|
" WHERE CriCod=%ld",
|
|
RubCri_ValuesFields[RubCri_MIN],
|
|
RubCri_ValuesFields[RubCri_MAX],
|
|
CriCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/************** Check if the title of a rubric criterion exists **************/
|
|
/*****************************************************************************/
|
|
|
|
bool Rub_DB_CheckIfSimilarCriterionExists (const struct RubCri_Criterion *Criterion,
|
|
const char Title[RubCri_MAX_BYTES_TITLE + 1])
|
|
{
|
|
return
|
|
DB_QueryEXISTS ("can not check similar criterion",
|
|
"SELECT EXISTS"
|
|
"(SELECT *"
|
|
" FROM rub_criteria,"
|
|
"rub_rubrics"
|
|
" WHERE rub_criteria.RubCod=%ld"
|
|
" AND rub_criteria.Title='%s'"
|
|
" AND rub_criteria.CriCod<>%ld"
|
|
" AND rub_criteria.RubCod=rub_rubrics.RubCod"
|
|
" AND rub_rubrics.CrsCod=%ld)", // Extra check
|
|
Criterion->RubCod,
|
|
Title,
|
|
Criterion->CriCod,
|
|
Gbl.Hierarchy.Crs.CrsCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/**************** Get average number of criteria per rubric ******************/
|
|
/*****************************************************************************/
|
|
|
|
double Rub_DB_GetNumCriteriaPerRubric (HieLvl_Level_t Scope)
|
|
{
|
|
/***** Get number of criteria per rubric from database *****/
|
|
switch (Scope)
|
|
{
|
|
case HieLvl_SYS:
|
|
return
|
|
DB_QuerySELECTDouble ("can not get number of criteria per rubric",
|
|
"SELECT AVG(NumCriteria)"
|
|
" FROM (SELECT COUNT(rub_criteria.CriCod) AS NumCriteria"
|
|
" FROM rub_rubrics,"
|
|
"rub_criteria"
|
|
" WHERE rub_rubrics.RubCod=rub_criteria.RubCod"
|
|
" GROUP BY rub_criteria.RubCod) AS NumCriteriaTable");
|
|
case HieLvl_CTY:
|
|
return
|
|
DB_QuerySELECTDouble ("can not get number of criteria per rubric",
|
|
"SELECT AVG(NumCriteria)"
|
|
" FROM (SELECT COUNT(rub_criteria.CriCod) AS NumCriteria"
|
|
" FROM ins_instits,"
|
|
"ctr_centers,"
|
|
"deg_degrees,"
|
|
"crs_courses,"
|
|
"rub_rubrics,"
|
|
"rub_criteria"
|
|
" WHERE ins_instits.CtyCod=%ld"
|
|
" AND ins_instits.InsCod=ctr_centers.InsCod"
|
|
" AND ctr_centers.CtrCod=deg_degrees.CtrCod"
|
|
" AND deg_degrees.DegCod=crs_courses.DegCod"
|
|
" AND crs_courses.CrsCod=rub_rubrics.CrsCod"
|
|
" AND rub_rubrics.RubCod=rub_criteria.RubCod"
|
|
" GROUP BY rub_criteria.RubCod) AS NumCriteriaTable",
|
|
Gbl.Hierarchy.Cty.CtyCod);
|
|
case HieLvl_INS:
|
|
return
|
|
DB_QuerySELECTDouble ("can not get number of criteria per rubric",
|
|
"SELECT AVG(NumCriteria)"
|
|
" FROM (SELECT COUNT(rub_criteria.CriCod) AS NumCriteria"
|
|
" FROM ctr_centers,"
|
|
"deg_degrees,"
|
|
"crs_courses,"
|
|
"rub_rubrics,"
|
|
"rub_criteria"
|
|
" WHERE ctr_centers.InsCod=%ld"
|
|
" AND ctr_centers.CtrCod=deg_degrees.CtrCod"
|
|
" AND deg_degrees.DegCod=crs_courses.DegCod"
|
|
" AND crs_courses.CrsCod=rub_rubrics.CrsCod"
|
|
" AND rub_rubrics.RubCod=rub_criteria.RubCod"
|
|
" GROUP BY rub_criteria.RubCod) AS NumCriteriaTable",
|
|
Gbl.Hierarchy.Ins.InsCod);
|
|
case HieLvl_CTR:
|
|
return
|
|
DB_QuerySELECTDouble ("can not get number of criteria per rubric",
|
|
"SELECT AVG(NumCriteria)"
|
|
" FROM (SELECT COUNT(rub_criteria.CriCod) AS NumCriteria"
|
|
" FROM deg_degrees,"
|
|
"crs_courses,"
|
|
"rub_rubrics,"
|
|
"rub_criteria"
|
|
" WHERE deg_degrees.CtrCod=%ld"
|
|
" AND deg_degrees.DegCod=crs_courses.DegCod"
|
|
" AND crs_courses.CrsCod=rub_rubrics.CrsCod"
|
|
" AND rub_rubrics.RubCod=rub_criteria.RubCod"
|
|
" GROUP BY rub_criteria.RubCod) AS NumCriteriaTable",
|
|
Gbl.Hierarchy.Ctr.CtrCod);
|
|
case HieLvl_DEG:
|
|
return
|
|
DB_QuerySELECTDouble ("can not get number of criteria per rubric",
|
|
"SELECT AVG(NumCriteria)"
|
|
" FROM (SELECT COUNT(rub_criteria.CriCod) AS NumCriteria"
|
|
" FROM crs_courses,"
|
|
"rub_rubrics,"
|
|
"rub_criteria"
|
|
" WHERE crs_courses.DegCod=%ld"
|
|
" AND crs_courses.CrsCod=rub_rubrics.CrsCod"
|
|
" AND rub_rubrics.RubCod=rub_criteria.RubCod"
|
|
" GROUP BY rub_criteria.RubCod) AS NumCriteriaTable",
|
|
Gbl.Hierarchy.Deg.DegCod);
|
|
case HieLvl_CRS:
|
|
return
|
|
DB_QuerySELECTDouble ("can not get number of criteria per rubric",
|
|
"SELECT AVG(NumCriteria)"
|
|
" FROM (SELECT COUNT(rub_criteria.CriCod) AS NumCriteria"
|
|
" FROM rub_rubrics,"
|
|
"rub_criteria"
|
|
" WHERE rub_rubrics.CrsCod=%ld"
|
|
" AND rub_rubrics.RubCod=rub_criteria.RubCod"
|
|
" GROUP BY rub_criteria.RubCod) AS NumCriteriaTable",
|
|
Gbl.Hierarchy.Crs.CrsCod);
|
|
default:
|
|
Err_WrongScopeExit ();
|
|
return 0.0; // Not reached
|
|
}
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/*********************** Remove criterion from a rubric **********************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_RemoveCriterionFromRubric (const struct RubCri_Criterion *Criterion)
|
|
{
|
|
DB_QueryDELETE ("can not remove rubric criterion",
|
|
"DELETE FROM rub_criteria"
|
|
" WHERE CriCod=%ld"
|
|
" AND RubCod=%ld", // Extra check
|
|
Criterion->CriCod,
|
|
Criterion->RubCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/**************************** Remove rubric criteria *************************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_RemoveRubricCriteria (long RubCod)
|
|
{
|
|
DB_QueryDELETE ("can not remove rubric criteria",
|
|
"DELETE FROM rub_criteria"
|
|
" WHERE RubCod=%ld",
|
|
RubCod);
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/**************** Remove the criteria in rubrics of a course *****************/
|
|
/*****************************************************************************/
|
|
|
|
void Rub_DB_RemoveCrsRubricCriteria (long CrsCod)
|
|
{
|
|
DB_QueryDELETE ("can not remove criteria in course rubrics",
|
|
"DELETE FROM rub_criteria"
|
|
" USING rub_rubrics,"
|
|
"rub_criteria"
|
|
" WHERE rub_rubrics.CrsCod=%ld"
|
|
" AND rub_rubrics.RubCod=rub_criteria.RubCod",
|
|
CrsCod);
|
|
}
|