public static function run($r)
 {
     $result = $r[0];
     $result_file = new pts_result_file($result);
     $result_file_identifiers = $result_file->get_system_identifiers();
     $rename_identifier = pts_user_io::prompt_text_menu('Select the test run to rename', $result_file_identifiers);
     $rename_identifier_new = pts_user_io::prompt_user_input('Enter the new identifier');
     foreach (array('test-logs', 'system-logs', 'installation-logs') as $dir_name) {
         if (is_dir(PTS_SAVE_RESULTS_PATH . $r[0] . '/' . $dir_name . '/' . $rename_identifier)) {
             rename(PTS_SAVE_RESULTS_PATH . $r[0] . '/' . $dir_name . '/' . $rename_identifier, PTS_SAVE_RESULTS_PATH . $r[0] . '/' . $dir_name . '/' . $rename_identifier_new);
         }
     }
     $result_file->rename_run($rename_identifier, $rename_identifier_new);
     pts_client::save_test_result($result_file->get_file_location(), $result_file->get_xml());
     pts_client::display_web_page(PTS_SAVE_RESULTS_PATH . $r[0] . '/index.html');
 }
 public function merge($result_merges_to_combine, $pass_attributes = 0)
 {
     if (!is_array($result_merges_to_combine) || empty($result_merges_to_combine)) {
         return false;
     }
     foreach ($result_merges_to_combine as $i => &$merge_select) {
         if (!$merge_select instanceof $merge_select) {
             $merge_select = new pts_result_merge_select($merge_select);
         }
         if (!is_file($merge_select->get_result_file())) {
             if (defined('PTS_SAVE_RESULTS_PATH') && is_file(PTS_SAVE_RESULTS_PATH . $merge_select->get_result_file() . '/composite.xml')) {
                 $merge_select->set_result_file(PTS_SAVE_RESULTS_PATH . $merge_select->get_result_file() . '/composite.xml');
             } else {
                 unset($result_merges_to_combine[$i]);
             }
         }
     }
     if (empty($result_merges_to_combine)) {
         return false;
     }
     foreach ($result_merges_to_combine as &$merge_select) {
         $result_file = new pts_result_file($merge_select->get_result_file(), true);
         if ($merge_select->get_rename_identifier()) {
             $result_file->rename_run(null, $merge_select->get_rename_identifier());
         }
         $this->add_to_result_file($result_file);
         unset($result_file);
     }
 }