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);
 }
Example #2
0
 public static function calculate_all_xml_hashes()
 {
     //CustomSection - calculate xml_hash
     $sql = "SELECT `id` FROM `CustomSection`";
     $z = mysql_query($sql);
     while ($r = mysql_fetch_array($z)) {
         set_time_limit(0);
         $obj = CustomSection::from_mysql_id($r[0]);
         $obj->xml_hash = $obj->calculate_xml_hash();
         $obj->mysql_save();
     }
     //Table - calculate xml_hash
     $sql = "SELECT `id` FROM `Table`";
     $z = mysql_query($sql);
     while ($r = mysql_fetch_array($z)) {
         set_time_limit(0);
         $obj = Table::from_mysql_id($r[0]);
         $obj->xml_hash = $obj->calculate_xml_hash();
         $obj->mysql_save();
     }
     //Template - calculate xml_hash
     $sql = "SELECT `id` FROM `Template`";
     $z = mysql_query($sql);
     while ($r = mysql_fetch_array($z)) {
         set_time_limit(0);
         $obj = Template::from_mysql_id($r[0]);
         $obj->xml_hash = $obj->calculate_xml_hash();
         $obj->mysql_save();
     }
     //Test - calculate xml_hash
     $sql = "SELECT `id` FROM `Test`";
     $z = mysql_query($sql);
     while ($r = mysql_fetch_array($z)) {
         set_time_limit(0);
         $obj = Test::from_mysql_id($r[0]);
         $obj->xml_hash = $obj->calculate_xml_hash();
         $obj->mysql_save();
     }
 }
    echo "<script>location.reload();</script>";
    die(Language::string(278));
}
if (isset($oid)) {
    if (!$logged_user->is_module_writeable($class_name)) {
        die(Language::string(81));
    }
    $parameters = $obj->get_parameter_CustomSectionVariables();
    $returns = $obj->get_return_CustomSectionVariables();
    $code = $obj->code;
} else {
    if (!$logged_user->is_module_writeable($_POST['class_name'])) {
        die(Language::string(81));
    }
    $oid = $_POST['oid'];
    $obj = CustomSection::from_mysql_id($oid);
    if (!$logged_user->is_object_editable($obj)) {
        die(Language::string(81));
    }
    $parameters = array();
    if (array_key_exists("parameters", $_POST)) {
        foreach ($_POST['parameters'] as $par) {
            array_push($parameters, json_decode($par));
        }
    }
    $returns = array();
    if (array_key_exists("returns", $_POST)) {
        foreach ($_POST['returns'] as $ret) {
            array_push($returns, json_decode($ret));
        }
    }
 public function get_CustomSection()
 {
     return CustomSection::from_mysql_id($this->CustomSection_id);
 }
        </optgroup>
        <?php 
$sql = $logged_user->mysql_list_rights_filter("CustomSection", "`name` ASC");
$z = mysql_query($sql);
if (mysql_num_rows($z) > 0) {
    ?>
            <optgroup label="<?php 
    echo Language::string(148);
    ?>
" class="<?php 
    echo User::view_class();
    ?>
">
                <?php 
    while ($r = mysql_fetch_array($z)) {
        $cs = CustomSection::from_mysql_id($r[0]);
        ?>
                    <option id="optionSectionType<?php 
        echo DS_TestSectionType::CUSTOM;
        ?>
" value="<?php 
        echo DS_TestSectionType::CUSTOM;
        ?>
:<?php 
        echo $cs->id;
        ?>
" class="<?php 
        echo User::view_class();
        ?>
" ><?php 
        echo $cs->name;
Example #6
0
 public function export($xml = null, $sub_test = false, $main_test = null)
 {
     if ($xml == null) {
         $xml = new DOMDocument('1.0', 'UTF-8');
         $export = $xml->createElement("export");
         $export->setAttribute("version", Ini::$version);
         $xml->appendChild($export);
         $xpath = new DOMXPath($xml);
     } else {
         $xpath = new DOMXPath($xml);
         $export = $xpath->query("/export");
         $export = $export->item(0);
     }
     //append subobjects of test
     $tests_ids = array();
     array_push($tests_ids, $this->id);
     $templates_ids = array();
     $custom_sections_ids = array();
     $tables_ids = array();
     $qtiai_ids = array();
     $loader = $this->get_loader_Template();
     if ($loader != null) {
         if (!in_array($loader->id, $templates_ids)) {
             $template = $loader;
             if ($template != null) {
                 $present_templates = $xpath->query("/export/Template");
                 $exists = false;
                 foreach ($present_templates as $obj) {
                     if ($template->xml_hash == $obj->getAttribute("xml_hash")) {
                         $exists = true;
                         break;
                     }
                 }
                 if (!$exists) {
                     $element = $template->to_XML();
                     $obj = $xml->importNode($element, true);
                     $export->appendChild($obj);
                     array_push($templates_ids, $loader->id);
                 }
             }
         }
     }
     $sql = sprintf("SELECT \n            `TestSection`.`id`,`TestSectionValue`.`value`,`TestSection`.`TestSectionType_id` \n            FROM `TestSection` \n            LEFT JOIN `TestSectionValue` ON `TestSectionValue`.`TestSection_id`=`TestSection`.`id`\n            WHERE \n            (`TestSection`.`TestSectionType_id`=13 AND `TestSectionValue`.`index`=0 OR\n            `TestSection`.`TestSectionType_id`=2 AND `TestSectionValue`.`index`=0 OR\n            `TestSection`.`TestSectionType_id`=9 AND `TestSectionValue`.`index`=0 OR\n            `TestSection`.`TestSectionType_id`=11 AND `TestSectionValue`.`index`=0 OR\n            `TestSection`.`TestSectionType_id`=8 AND `TestSectionValue`.`index`=3 OR\n            `TestSection`.`TestSectionType_id`=5 AND `TestSectionValue`.`index`=5) AND `TestSection`.`Test_id`=%d ORDER BY `TestSection`.`TestSectionType_id` ASC", $this->id);
     $z = mysql_query($sql);
     while ($r = mysql_fetch_array($z)) {
         switch ($r[2]) {
             //templates
             case 2:
                 if (!in_array($r[1], $templates_ids)) {
                     $template = Template::from_mysql_id($r[1]);
                     if ($template != null) {
                         $present_templates = $xpath->query("/export/Template");
                         $exists = false;
                         foreach ($present_templates as $obj) {
                             if ($template->xml_hash == $obj->getAttribute("xml_hash")) {
                                 $exists = true;
                                 break;
                             }
                         }
                         if ($exists) {
                             break;
                         }
                         $element = $template->to_XML();
                         $obj = $xml->importNode($element, true);
                         $export->appendChild($obj);
                         array_push($templates_ids, $r[1]);
                     }
                 }
                 break;
                 //QTIAssessmentItem
             //QTIAssessmentItem
             case 13:
                 if (!in_array($r[1], $qtiai_ids)) {
                     $qtiai = QTIAssessmentItem::from_mysql_id($r[1]);
                     if ($qtiai != null) {
                         $present_qtiai = $xpath->query("/export/QTIAssessmentItem");
                         $exists = false;
                         foreach ($present_qtiai as $obj) {
                             if ($qtiai->xml_hash == $obj->getAttribute("xml_hash")) {
                                 $exists = true;
                                 break;
                             }
                         }
                         if ($exists) {
                             break;
                         }
                         $element = $qtiai->to_XML();
                         $obj = $xml->importNode($element, true);
                         $export->appendChild($obj);
                         array_push($qtiai_ids, $r[1]);
                     }
                 }
                 break;
                 //custom sections
             //custom sections
             case 9:
                 if (!in_array($r[1], $custom_sections_ids)) {
                     $custom_section = CustomSection::from_mysql_id($r[1]);
                     if ($custom_section != null) {
                         $present_custom_sections = $xpath->query("/export/CustomSection");
                         $exists = false;
                         foreach ($present_custom_sections as $obj) {
                             if ($custom_section->xml_hash == $obj->getAttribute("xml_hash")) {
                                 $exists = true;
                                 break;
                             }
                         }
                         if ($exists) {
                             break;
                         }
                         $element = $custom_section->to_XML();
                         $obj = $xml->importNode($element, true);
                         $export->appendChild($obj);
                         array_push($custom_sections_ids, $r[1]);
                     }
                 }
                 break;
                 //tables
             //tables
             case 8:
                 if (!in_array($r[1], $tables_ids)) {
                     $table = Table::from_mysql_id($r[1]);
                     if ($table != null) {
                         $present_tables = $xpath->query("/export/Table");
                         $exists = false;
                         foreach ($present_tables as $obj) {
                             if ($table->xml_hash == $obj->getAttribute("xml_hash")) {
                                 $exists = true;
                                 break;
                             }
                         }
                         if ($exists) {
                             break;
                         }
                         $element = $table->to_XML();
                         $obj = $xml->importNode($element, true);
                         $export->appendChild($obj);
                         array_push($tables_ids, $r[1]);
                     }
                 }
                 break;
             case 5:
                 $sql2 = sprintf("SELECT * FROM `TestSectionValue` WHERE `TestSection_id`=%d AND `index`=2 AND `value`=0", $r[0]);
                 $z2 = mysql_query($sql2);
                 while ($r2 = mysql_fetch_array($z2)) {
                     if (!in_array($r[1], $tables_ids)) {
                         $table = Table::from_mysql_id($r[1]);
                         if ($table != null) {
                             $present_tables = $xpath->query("/export/Table");
                             $exists = false;
                             foreach ($present_tables as $obj) {
                                 if ($table->xml_hash == $obj->getAttribute("xml_hash")) {
                                     $exists = true;
                                     break;
                                 }
                             }
                             if ($exists) {
                                 break;
                             }
                             $element = $table->to_XML();
                             $obj = $xml->importNode($element, true);
                             $export->appendChild($obj);
                             array_push($tables_ids, $r[1]);
                         }
                     }
                 }
                 break;
                 //tests
             //tests
             case 11:
                 if (!in_array($r[1], $tests_ids)) {
                     $test = Test::from_mysql_id($r[1]);
                     if ($test != null) {
                         if ($main_test != null && $main_test->id == $test->id) {
                             break;
                         }
                         $present_tests = $xpath->query("/export/Test");
                         $exists = false;
                         foreach ($present_tests as $obj) {
                             if ($test->xml_hash == $obj->getAttribute("xml_hash")) {
                                 $exists = true;
                                 break;
                             }
                         }
                         if ($exists) {
                             break;
                         }
                         $xml = $test->export($xml, true, $main_test != null ? $main_test : $this);
                         $element = $test->to_XML();
                         $obj = $xml->importNode($element, true);
                         $export->appendChild($obj);
                         array_push($tests_ids, $r[1]);
                     }
                 }
                 break;
         }
     }
     if (!$sub_test) {
         $element = $this->to_XML();
         $obj = $xml->importNode($element, true);
         $export->appendChild($obj);
     }
     return $sub_test ? $xml : $xml->saveXML();
 }