public function get_TableColumns()
{
return TableColumn::from_property(array("Table_id" => $this->id));
}
public function get_RCode()
{
$code = "";
$next = $this->get_next_TestSection();
$next_counter = $next != null ? $next->counter : 0;
$end_of_loop = $this->is_end_of_loop();
$loop = null;
$loop_vals = null;
if ($end_of_loop) {
$loop = $this->get_section_loop();
$loop_vals = $loop->get_values();
$next_counter = $loop->counter;
}
$vals = $this->get_values();
switch ($this->TestSectionType_id) {
case DS_TestSectionType::START:
$test = Test::from_mysql_id($this->Test_id);
if ($test == null) {
return sprintf("stop('Invalid test id: %s in section #%s')", $this->Test_id, $this->counter);
}
$code = sprintf("\n print('Starting test with id: %s')\n CONCERTO_TEST_ID <<- %s\n return(%d)\n ", $this->Test_id, $this->Test_id, $next_counter);
break;
case DS_TestSectionType::END:
$code = sprintf("\n update.session.status(%d) \n update.session.counter(%d)\n return(%d)\n ", TestSession::TEST_SESSION_STATUS_COMPLETED, $next_counter, $next_counter);
break;
case DS_TestSectionType::CUSTOM:
$cs = CustomSection::from_mysql_id($vals[0]);
if ($cs == null) {
return sprintf("stop('Invalid custom section #%s')", $this->counter);
}
$parameters = $cs->get_parameter_CustomSectionVariables();
$returns = $cs->get_return_CustomSectionVariables();
$code = "";
foreach ($parameters as $param) {
$val = $param->name;
for ($j = 0; $j < $vals[1] * 2; $j = $j + 2) {
if ($vals[3 + $j] == $param->name && isset($vals[3 + $j + 1]) && $vals[3 + $j + 1] != "") {
$val = $vals[3 + $j + 1];
break;
}
}
$code .= sprintf("\n %s <- %s\n ", $param->name, $val);
}
$code .= $cs->code;
foreach ($returns as $ret) {
$val = $ret->name;
for ($j = 0; $j < $vals[2] * 2; $j = $j + 2) {
if ($vals[3 + $vals[1] * 2 + $j] == $ret->name && isset($vals[3 + $vals[1] * 2 + $j]) && $vals[3 + $vals[1] * 2 + $j] != "") {
$val = $vals[3 + $vals[1] * 2 + $j + 1];
break;
}
}
$code .= sprintf("\n %s <<- %s\n ", $val, $ret->name);
}
$code .= sprintf("\n return(%d)\n ", $this->end == 0 ? $next_counter : -2);
break;
case DS_TestSectionType::R_CODE:
$code = sprintf("\n %s\n return(%d)\n ", $vals[0], $this->end == 0 ? $next_counter : -2);
break;
case DS_TestSectionType::LOWER_LEVEL_R_CODE:
$code = sprintf("\n %s\n ", $vals[0]);
break;
case DS_TestSectionType::QTI_INITIALIZATION:
$ai = QTIAssessmentItem::from_mysql_id($vals[0]);
if ($ai == null) {
return sprintf("stop('Invalid QTI assessment item id: %s in section #%s')", $vals[0], $this->counter);
}
$map = QTIAssessmentItem::get_mapped_variables($this->id);
$result = $ai->validate($map, null, $this->id);
if (json_decode($result)->result != 0) {
return sprintf("stop('Validation failed on QTI assessment item id: %s in section #%s')", $vals[0], $this->counter);
}
$qtir = $ai->get_QTI_ini_R_code($map, $this->id);
$code = sprintf("\n %s\n return(%d)\n ", $qtir, $this->end == 0 ? $next_counter : -2);
break;
case DS_TestSectionType::QTI_RESPONSE_PROCESSING:
$ts = TestSection::from_property(array("counter" => $vals[0], "Test_id" => $this->Test_id), false);
if ($ts == null) {
return sprintf("stop('Invalid test section id: %s in section #%s')", $vals[0], $this->counter);
}
$tsvals = $ts->get_values();
$ai = QTIAssessmentItem::from_mysql_id($tsvals[0]);
if ($ai == null) {
return sprintf("stop('Invalid QTI assessment item id: %s in section #%s')", $tsvals[0], $this->counter);
}
$map = QTIAssessmentItem::get_mapped_variables($ts->id);
$result = $ai->validate($map, null, $ts->id);
if (json_decode($result)->result != 0) {
return sprintf("stop('Validation failed on QTI assessment item id: %s in section #%s')", $tsvals[0], $this->counter);
}
$qtir = $ai->get_response_processing_R_code();
$code = sprintf("\n %s\n return(%d)\n ", $qtir, $this->end == 0 ? $next_counter : -2);
break;
case DS_TestSectionType::LOAD_HTML_TEMPLATE:
$template_id = $vals[0];
$template = Template::from_mysql_id($template_id);
if ($template == null) {
return sprintf("stop('Invalid template id: %s in section #%s')", $template_id, $this->counter);
}
$code = sprintf("\n update.session.template_id(%d)\n if(!exists('TIME_LIMIT')) TIME_LIMIT <<- 0\n update.session.time_limit(TIME_LIMIT)\n update.session.status(%d)\n update.session.counter(%d)\n update.session.template_testsection_id(%d)\n update.session.HTML(%d,%d,%d)\n update.session.effects('%s','%s','%s','%s')\n return(%d)\n ", $template_id, TestSession::TEST_SESSION_STATUS_TEMPLATE, $next_counter, $this->id, $this->Test_id, $this->id, $template_id, addcslashes($template->effect_show, "'"), addcslashes($template->effect_hide, "'"), addcslashes($template->effect_show_options, "'"), addcslashes($template->effect_hide_options, "'"), $this->end == 0 ? -1 : -2);
break;
case DS_TestSectionType::GO_TO:
$code = "";
foreach ($this->get_parent_loops_counters() as $loop) {
$target = TestSection::from_property(array("Test_id" => $this->Test_id, "counter" => $vals[0]), false);
if ($target != null) {
$target_loops = $target->get_parent_loops_counters();
if (!in_array($loop, $target_loops)) {
$code .= sprintf("\n %s <<- FALSE\n ", TestSection::build_for_initialization_variable($this->Test_id, $loop));
}
}
}
$code .= sprintf("\n return(%d)\n ", $vals[0] == 0 ? $next_counter : $vals[0]);
break;
case DS_TestSectionType::IF_STATEMENT:
$contents = TestSection::from_property(array("Test_id" => $this->Test_id, "parent_counter" => $this->counter));
$is_empty = count($contents) == 0;
$code = "";
$next_not_child = $this->get_next_not_child_TestSection();
$next_not_child_counter = $next_not_child->counter;
if ($end_of_loop) {
$next_not_child_counter = $next_counter;
} else {
$is_end_of_loop = $this->is_end_of_loop(false);
if ($is_end_of_loop) {
$parent_loop = $this->get_section_loop();
if ($parent_loop != null) {
$next_not_child_counter = $parent_loop->counter;
}
}
}
if ($is_empty) {
$code .= sprintf("\n return(%d)\n ", $next_not_child_counter);
break;
}
$additional_conds = "";
$i = 3;
while (isset($vals[$i])) {
$additional_conds .= sprintf("%s %s %s %s", $vals[$i], $vals[$i + 1], $vals[$i + 2], $vals[$i + 3]);
$i += 4;
}
$code .= sprintf("\n if(%s %s %s %s) {\n return(%d)\n }\n else {\n return(%d)\n }\n ", $vals[0], $vals[1], $vals[2], $additional_conds, $next->counter, $next_not_child_counter);
break;
case DS_TestSectionType::TEST:
$test = Test::from_mysql_id($vals[0]);
if ($test == null) {
return sprintf("stop('Invalid test id: %s in section #%s')", $vals[0], $this->counter);
} else {
$code = sprintf("\n CONCERTO_TEST_ID <<- %s\n ", $test->id);
$parameters = $test->get_parameter_TestVariables();
$params_code = "";
$returns = $test->get_return_TestVariables();
$returns_code = "";
foreach ($parameters as $param) {
$val = $param->name;
for ($j = 0; $j < $vals[1] * 2; $j = $j + 2) {
if ($vals[3 + $j] == $param->name && isset($vals[3 + $j + 1]) && $vals[3 + $j + 1] != "") {
$val = $vals[3 + $j + 1];
break;
}
}
$params_code .= sprintf("\n %s <- %s\n ", $param->name, $val);
}
foreach ($returns as $ret) {
$val = $ret->name;
for ($j = 0; $j < $vals[2] * 2; $j = $j + 2) {
if ($vals[3 + $vals[1] * 2 + $j] == $ret->name && isset($vals[3 + $vals[1] * 2 + $j]) && $vals[3 + $vals[1] * 2 + $j] != "") {
$val = $vals[3 + $vals[1] * 2 + $j + 1];
break;
}
}
$returns_code .= sprintf("\n %s <<- %s\n ", $val, $ret->name);
}
$code .= sprintf("\n %s\n ", $params_code);
$sections = TestSection::from_property(array("Test_id" => $test->id));
foreach ($sections as $section) {
if ($section->TestSectionType_id != DS_TestSectionType::END) {
$code .= $section->get_RFunction();
} else {
$end_code = sprintf("\n CONCERTO_TEST_ID <<- %s\n %s\n return(%d)\n ", $this->Test_id, $returns_code, $next_counter);
$code .= sprintf("\n %s <<- function(){\n print('Start of section with index: %s')\n %s\n }\n ", 'CONCERTO_Test' . $vals[0] . 'Section2', 2, $end_code);
}
}
$code .= "\n return(1)\n ";
}
break;
case DS_TestSectionType::LOOP:
$contents = TestSection::from_property(array("Test_id" => $this->Test_id, "parent_counter" => $this->counter));
$is_empty = count($contents) == 0;
$next_not_child = $this->get_next_not_child_TestSection();
$next_not_child_counter = $next_not_child->counter;
if ($end_of_loop) {
$next_not_child_counter = $next_counter;
} else {
$is_end_of_loop = $this->is_end_of_loop(false);
if ($is_end_of_loop) {
$parent_loop = $this->get_section_loop();
if ($parent_loop != null) {
$next_not_child_counter = $parent_loop->counter;
}
}
}
$code = "";
if ($is_empty) {
$code .= sprintf("\n return(%d)\n ", $next_not_child_counter);
break;
}
if ($vals[0] == 1) {
$code = sprintf("\n if(%s %s %s) {\n return(%d)\n }\n else {\n return(%d)\n }\n ", $vals[1], $vals[2], $vals[3], $next->counter, $next_not_child_counter);
} else {
$code = sprintf("\n if(exists('%s') && %s) {\n %s <<- %s + as.numeric(%s)\n }\n else {\n %s <<- TRUE\n %s <<- as.numeric(%s)\n }\n if(%s %s %s) {\n return(%d)\n }\n else {\n %s <<- FALSE\n return(%d)\n }\n ", $this->get_for_initialization_variable(), $this->get_for_initialization_variable(), $vals[1], $vals[1], $vals[5], $this->get_for_initialization_variable(), $vals[1], $vals[4], $vals[1], $vals[2], $vals[3], $next->counter, $this->get_for_initialization_variable(), $next_not_child_counter);
}
break;
case DS_TestSectionType::FOR_LOOP:
$contents = TestSection::from_property(array("Test_id" => $this->Test_id, "parent_counter" => $this->counter));
$is_empty = count($contents) == 0;
$next_not_child = $this->get_next_not_child_TestSection();
$next_not_child_counter = $next_not_child->counter;
if ($end_of_loop) {
$next_not_child_counter = $next_counter;
} else {
$is_end_of_loop = $this->is_end_of_loop(false);
if ($is_end_of_loop) {
$parent_loop = $this->get_section_loop();
if ($parent_loop != null) {
$next_not_child_counter = $parent_loop->counter;
}
}
}
$code = "";
if ($is_empty) {
$code .= sprintf("\n return(%d)\n ", $next_not_child_counter);
break;
}
$code = sprintf("\n if(exists('%s') && %s) {\n %s <<- %s + 1\n }\n else {\n %s <<- TRUE\n %s <<- 1\n }\n\n CONCERTO_TEMP_FOR_INDEX <- 1\n \n for(CONCERTO_TEMP_FOR_VALUE in %s){\n if(CONCERTO_TEMP_FOR_INDEX==%s){\n %s <<- CONCERTO_TEMP_FOR_VALUE\n return(%d)\n break\n }\n CONCERTO_TEMP_FOR_INDEX <- CONCERTO_TEMP_FOR_INDEX+1\n }\n \n %s <<- FALSE\n return(%d)\n ", $this->get_for_initialization_variable(), $this->get_for_initialization_variable(), $this->get_for_index_variable(), $this->get_for_index_variable(), $this->get_for_initialization_variable(), $this->get_for_index_variable(), $vals[1], $this->get_for_index_variable(), $vals[0], $next->counter, $this->get_for_initialization_variable(), $next_not_child_counter);
break;
case DS_TestSectionType::WHILE_LOOP:
$contents = TestSection::from_property(array("Test_id" => $this->Test_id, "parent_counter" => $this->counter));
$is_empty = count($contents) == 0;
$next_not_child = $this->get_next_not_child_TestSection();
$next_not_child_counter = $next_not_child->counter;
if ($end_of_loop) {
$next_not_child_counter = $next_counter;
} else {
$is_end_of_loop = $this->is_end_of_loop(false);
if ($is_end_of_loop) {
$parent_loop = $this->get_section_loop();
if ($parent_loop != null) {
$next_not_child_counter = $parent_loop->counter;
}
}
}
$code = "";
if ($is_empty) {
$code .= sprintf("\n return(%d)\n ", $next_not_child_counter);
break;
}
$additional_conds = "";
$i = 3;
while (isset($vals[$i])) {
$additional_conds .= sprintf("%s %s %s %s", $vals[$i], $vals[$i + 1], $vals[$i + 2], $vals[$i + 3]);
$i += 4;
}
$code = sprintf("\n if(%s %s %s %s) {\n return(%d)\n }\n else {\n return(%d)\n }\n ", $vals[0], $vals[1], $vals[2], $additional_conds, $next->counter, $next_not_child_counter);
break;
case DS_TestSectionType::TABLE_MOD:
$type = $vals[0];
$set_count = $vals[2];
$where_count = $vals[1];
$table = Table::from_mysql_id($vals[3]);
if ($table == null) {
return sprintf("stop('Invalid table id: %s in section #%s')", $vals[3], $this->counter);
}
$set = "";
for ($i = 0; $i < $vals[2]; $i++) {
$column = TableColumn::from_property(array("Table_id" => $vals[3], "index" => $vals[4 + $i * 2]), false);
if ($column == null) {
return sprintf("stop('Invalid table column index: %s of table id: %s in section #%s')", $vals[4 + $i * 2], $vals[3], $this->counter);
}
if ($i > 0) {
$set .= ",";
}
$set .= sprintf("`%s`='\",dbEscapeStrings(CONCERTO_DB_CONNECTION,toString(%s)),\"'", $column->name, $vals[4 + $i * 2 + 1]);
}
$where = "";
for ($i = 0; $i < $vals[1]; $i++) {
$j = 4 + $vals[2] * 2 + $i * 4;
$column = TableColumn::from_property(array("Table_id" => $vals[3], "index" => $vals[$j + 1]), false);
if ($column == null) {
return sprintf("stop('Invalid table column index: %s of table id: %s in section #%s')", $vals[$j + 1], $vals[3], $this->counter);
}
if ($i > 0) {
$where .= sprintf("%s", $vals[$j]);
}
$where .= sprintf("`%s` %s '\",dbEscapeStrings(CONCERTO_DB_CONNECTION,toString(%s)),\"'", $column->name, $vals[$j + 2], $vals[$j + 3]);
}
$sql = "";
if ($type == 0) {
$sql .= sprintf("INSERT INTO `%s` SET %s", $table->get_table_name(), $set);
}
if ($type == 1) {
$sql .= sprintf("UPDATE `%s` SET %s WHERE %s", $table->get_table_name(), $set, $where);
}
if ($type == 2) {
$sql .= sprintf("DELETE FROM `%s` WHERE %s", $table->get_table_name(), $where);
}
$code = sprintf('
CONCERTO_SQL <- paste("%s",sep="")
CONCERTO_SQL_RESULT <- dbSendQuery(CONCERTO_DB_CONNECTION,CONCERTO_SQL)
return(%d)
', $sql, $this->end == 0 ? $next_counter : -2);
break;
case DS_TestSectionType::SET_VARIABLE:
$type = $vals[2];
$columns_count = $vals[0];
$conds_count = $vals[1];
if ($type == 0) {
$table = Table::from_mysql_id($vals[5]);
if ($table == null) {
return sprintf("stop('Invalid table id: %s in section #%s')", $vals[5], $this->counter);
}
$column = TableColumn::from_property(array("Table_id" => $table->id, "index" => $vals[6]), false);
if ($column == null) {
return sprintf("stop('Invalid table column index: %s of table id: %s in section #%s')", $vals[6], $table->id, $this->counter);
}
$sql = sprintf("SELECT `%s`", $column->name);
for ($i = 1; $i <= $columns_count; $i++) {
$column = TableColumn::from_property(array("Table_id" => $table->id, "index" => $vals[6 + $i]), false);
if ($column == null) {
return sprintf("stop('Invalid table column index: %s of table id: %s in section #%s')", $vals[6 + $i], $table->id, $this->counter);
}
$sql .= sprintf(",`%s`", $column->name);
}
$sql .= sprintf(" FROM `%s` ", $table->get_table_name());
if ($conds_count > 0) {
$sql .= sprintf("WHERE ");
$j = 7 + $columns_count;
for ($i = 1; $i <= $conds_count; $i++) {
if ($i > 1) {
$link = $vals[$j];
$j++;
} else {
$j++;
}
$cond_col = TableColumn::from_property(array("Table_id" => $table->id, "index" => $vals[$j]), false);
if ($cond_col == null) {
return sprintf("stop('Invalid table column index: %s of table id: %s in section #%s')", $vals[$j], $table->id, $this->counter);
}
$j++;
$operator = $vals[$j];
$j++;
$exp = $vals[$j];
$j++;
if ($i > 1) {
$sql .= sprintf("%s `%s` %s '\",dbEscapeStrings(CONCERTO_DB_CONNECTION,toString(%s)),\"' ", $link, $cond_col->name, $operator, $exp);
} else {
$sql .= sprintf("`%s` %s '\",dbEscapeStrings(CONCERTO_DB_CONNECTION,toString(%s)),\"' ", $cond_col->name, $operator, $exp);
}
}
}
$code = sprintf('
CONCERTO_SQL <- paste("%s",sep="")
CONCERTO_SQL_RESULT <- dbSendQuery(CONCERTO_DB_CONNECTION,CONCERTO_SQL)
%s <<- fetch(CONCERTO_SQL_RESULT,n=-1)
return(%d)
', $sql, $vals[4], $this->end == 0 ? $next_counter : -2);
break;
}
if ($type == 1) {
$code = sprintf('
%s <<- {
%s
}
return(%d)
', $vals[4], $vals[3], $this->end == 0 ? $next_counter : -2);
break;
}
}
return TestSection::replace_invalid_code($code);
}
}
$logged_user = User::get_logged_user();
if ($logged_user == null) {
echo json_encode(array());
exit;
}
$obj = Table::from_mysql_id($_GET['oid']);
if ($obj == null || !$logged_user->is_object_readable($obj)) {
echo json_encode(array());
exit;
}
$cols = array();
$i = 0;
echo "[";
if ($obj->has_table()) {
$cols = TableColumn::from_property(array("Table_id" => $obj->id));
$sql = sprintf("SELECT * FROM `%s`", $obj->get_table_name());
$z = mysql_query($sql);
while ($r = mysql_fetch_array($z)) {
if ($i > 0) {
echo ",";
}
$row = array();
foreach ($cols as $col) {
$row[$col->name] = $r[$col->name];
}
echo json_encode($row);
$i++;
}
}
echo "]";
