\n");
printf("\n\n");
printf("\n");
printf("show plots\n");
printf("\n");
printf("\n");
printf("\n");
//init
$seq=0;
if (!empty($_GET["seq"]))
$seq=str_replace(" ", "", $_GET["seq"]);
$tabnum=1;
if (!empty($_GET["tabnum"]))
$tabnum=$_GET["tabnum"];
$type2="calib";
if (!empty($_GET["type2"]))
$type2=$_GET["type2"];
$next=0;
$prev=0;
if (!empty($seq))
{
//decision whether next or previous plot has been chosen
if (!empty($_GET["next"]))
$tabnum=$tabnum+1;
if (!empty($_GET["prev"]))
$tabnum=$tabnum-1;
//be careful: this has to be adapted in case tabs are removed or new tabs are added
//number of tabs for calib*.root, signal*.root and star*.root
if ($seq > 200000)
$signaltabs=12;
else
$signaltabs=14;
$calibtabs=11;
$startabs=20;
//in case the tab does not exist, because it's one the far
//go to next type
if (($type2=="calib" && $tabnum==($calibtabs+1))
|| ($type2=="signal" && $tabnum==($signaltabs+1))
|| ($type2=="star" && $tabnum==($startabs+1)))
{
$tabnum=1;
switch ($type2)
{
case "calib":
$type2="signal";
break;
case "signal":
$type2="star";
break;
case "star":
$type2="calib";
break;
}
}
//in case the tab does not exist, because it's 0
//go to previous type
if ($tabnum==0)
{
switch($type2)
{
case "calib":
$type2="star";
$tabnum=$startabs;
break;
case "signal":
$type2="calib";
$tabnum=$calibtabs;
break;
case "star":
$type2="signal";
$tabnum=$signaltabs;
break;
}
}
//get link for plot
$type=gettypename($type2);
$plot=getplotname($seq, $tabnum, $type, $type2);
$next=$tabnum+1;
$prev=$tabnum-1;
}
printf("\n");
printf("\n");
printf("\n");
?>