=head1 AUTHOR
Michael Brehler <*****@*****.**>,
Georg Zeplin <*****@*****.**>,
=head1 COPYRIGHT
University of LE<uuml>beck, Germany, 2011
=cut
ENDOFDOCUMENTATION
*/
require_once '../eqtl/header.php';
$upper_tit = '<div id="headline">Ensembl Compara interface for Expression QTL</div>';
show_large_header("Intergenomics - Syntenies for selected regions", true, $upper_tit, '../eqtl/', array('css/style.css', 'css/prettyPhoto.css'));
?>
<script
src="js/jquery-1.4.4.min.js" type="text/javascript" charset="utf-8"></script>
<script
src="js/jquery.prettyPhoto.js" type="text/javascript" charset="utf-8"></script>
<script
src="js/mouseposition.js" type="text/javascript"></script>
<?php
require_once 'qtl_functions.php';
require_once 'db_functions.php';
require_once 'utils.php';
require_once 'fill_related_projects.php';
fill_compara_array();
foreach ($compara_array as $project_name => $project_info) {
echo '<option value="' . implode("+", explode(" ", $project_name)) . '" ' . ($project_name == $projects[$index] ? 'selected="selected">' : '>') . $project_name . ' (' . $project_info['species'] . ')</option>';
}
echo '</select>';
}
$species_str = 'species';
$reg_str = 'regions';
$args = $_GET;
require_once 'db_functions.php';
require_once 'qtl_functions.php';
require_once 'utils.php';
require_once 'fill_related_projects.php';
fill_compara_array();
require_once '../eqtl/header.php';
$upper_tit = '<div id="headline">Ensembl Compara interface for Expression QTL</div>';
show_large_header("Intergenomics", true, $upper_tit, '../eqtl/', array('css/style.css', 'css/prettyPhoto.css'));
global $compara_array;
$proj_str = 'projects';
if (!isset($args[$proj_str])) {
//no project selected
$projects = array();
} else {
$projects = $args[$proj_str];
}
// enlarge project array with NULLs
$n = count($projects);
while ($n < 2) {
$projects[] = NULL;
$n++;
}
if (isset($args['err'])) {
$is_homo2[$homo2] = true;
}
}
}
deleteNonHomos($loci2stable_ids_ex2, $is_homo2);
break;
default:
$homos_exist = true;
break;
}
//warn($loci2stable_ids_ex1[0]);
//exit();
if (!$homos_exist) {
// no homologies found
require_once '../eqtl/header.php';
show_large_header("Intergenomics - Details", true, "Ensembl Compara interface for Expression QTL", '../eqtl/', array('css/style.css', 'css/prettyPhoto.css'));
warn("Sorry, no homologies found for the given region.");
echo <<<END
\t<button onclick="javascript:history.back();">Back to the syntenic regions.</button>
END;
include '../eqtl/footer.php';
include 'html/footer.html';
exit;
}
// display -----------------------
$cols = 250;
// width of left offset
$rows = 157;
// heigth of above offset
include 'utils/write_detail_table.php';
$scroll_width = 16;
