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 "]";