<?php


function templ($tmp)
 {
 $file_t = file($tmp);
 $count_t = count($file_t);
 $tests = 0;
 for ($te=0; $te<$count_t; $te++) { echo $file_t[$te];}
 };

if ( isset($HTTP_GET_VARS['Serie']) ) {

  $serie = $HTTP_GET_VARS['Serie'];
  $sort = "name";
}
else {

  $serie = "all";
}

$modSel = 0;
if ( isset($HTTP_GET_VARS['modul']) ) {

  $modSel = 1;
  $myMod= $HTTP_GET_VARS['modul'];
  $sort = "name";
}

$dateSel = 0;
if ( isset($HTTP_GET_VARS['date']) ) {

  $dateSel = 1;
  $myDate= $HTTP_GET_VARS['date'];
  $sort = "name";
}

templ("prodHeader.html");

$dir    = './';
$dated  = array();
$dh  = opendir($dir);

if ( !strcmp($sort,"name") && strcmp($serie,"all") && strcmp($serie,"recent") ) {

  while (false !== ($filename = readdir($dh))) {
    $files[] = $filename;
  }
  closedir($dh);
  rsort($files);

} else {

  while (false !== ($file = readdir($dh))) {
    if (substr($file,0,1)=="M")
      $dated[]=array(filectime($path.$file),$file);   #2-D array
							}
  closedir($dh);  
  
  if ($dated) {
    
    rsort($dated); #sorts by filemtime
		     
                  # done! Show the files sorted by modification date
			
    foreach ($dated as $file) {
      $files[] = $file[1];
      $dates[] = $file[0];
# echo "$file[0] $file[1]<br>\n";  #file[0]=Unix timestamp; file[1]=filename
    }
  }
}

$m = count($files);
$monthN = array("01","02","03","04","05","06","07","08","09","10","11","12");
$monthS = array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");


$old   = './old';
$olddh  = opendir($old);
while (false !== ($oldnames = readdir($olddh))) {
  $olddirs[] = $oldnames;
}
$nod = count($olddirs);


for($num=0; $num<$m; $num++) {

  $prev='';
  for($od=0; $od<$nod; $od++) {
    if ($files[$num]==$olddirs[$od] ) {
      
      $prev = "<a
href=http://cmspixel.phys.ethz.ch/moduleTests/moduleDB/shortTests/old/prodTable.php?modul=$files[$num]> previous test </a>";
    }
  }

  $take = 0;
  if ( $modSel ) { 
    
    if ( $files[$num]{0}==$myMod{0} && $files[$num]{1}==$myMod{1}  && $files[$num]{2}==$myMod{2} && 
	 $files[$num]{3}==$myMod{3} && $files[$num]{4}==$myMod{4} ) { $take = 1; }
  }
  else if (  !strcmp($serie, "all") || !strcmp($serie, "recent") ) { 
 
    if ( $files[$num]{0}=="M" ) { $take = 1; }
  }
  else {
 
    if ($files[$num]{0}=="M" && 
	$files[$num]{1}==substr($serie, 0, 1) && 
	$files[$num]{2}==substr($serie, 1, 2) )  { $take = 1; }
  }

  if ( !strcmp($serie, "recent") && $num>23 ) { exit; }
  if ( !strcmp($serie, "all") && $num>1000 ) { exit; }

  if ( $take ) {

    $subs = array();
    $sh  = opendir($files[$num]);
    while (false !== ($subname = readdir($sh))) {
      $subs[] = $subname;
    }
    closedir($sh);

    rsort($subs);
    $s = count($subs);

    for($mum=0; $mum<$s; $mum++) {

      if($subs[$mum]{0}=="T" && $subs[$mum]{5} == "" ) {

	$moduleTemp = '';
	$module = '';
	$app = '';
	$testNrTemp = '';
	$testNr = '';
        $pi=0; $ma=0; $bu=0; $tr=0; $ad=0;
	$rocs=0; $root=0;
	$date=''; $datr=''; $daca='';
	$c=''; $t=''; $n=''; $pr='';
	$temp=0; $sollTemp=0;$cycl=''; $cy='';
	$i=0; $ivVar=0; $ivDP=0; $slope=0;
	$tbm1=1; $tbm2=1;
	$iv150 = ''; $iv150_2 = '';
	$grade = '';
	$mount = '';
	$finalGrade = '';
	$fullGrade = '';
	$shortGrade = '';
	$reGrade = '';
	$com=$prev.' ';
	$mis=' ';
	$tempWarning=' ';
	$noiB=0; $noiC=0; $trmB=0; $trmC=0;
	$gainB=0; $gainC=0; $pedB=0; $pedC=0;
	$highCur = 0;
	$perfDef = 0;
	$regraded = 0;

        $path = $files[$num]."/".$subs[$mum];
        #echo "$path\n";
        $ft = date("d.m.y",fileatime($path."/summaryTest.txt"));
        $handle = fopen($path."/summaryTest.txt", "r");
        $li = 0;
        while ($userinfo = fscanf($handle, "%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\n"))  {

          $li = $li +1;

	  // if($li==1)  { ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"Directory") )  {
	
	    $moduleTemp = 'M'.$userinfo[1]{1+11}.$userinfo[1]{2+11}.$userinfo[1]{3+11}.$userinfo[1]{4+11};
	    $moduleNr   = $userinfo[1]{2+11}.$userinfo[1]{3+11}.$userinfo[1]{4+11};

	    $day   = $userinfo[1]{10+11}.$userinfo[1]{11+11};
	    $month = $userinfo[1]{8+11}.$userinfo[1]{9+11};
	    $year = $userinfo[1]{6+11}.$userinfo[1]{7+11};
	    
	    for ( $i=0; $i<12;$i++ ) {
	      if (!strcmp($month, $monthN[$i]) ) {
		
		$date = $monthS[$i].' '.$day.' 20'.$year;
	      }
	    }
	  }
	  
	  // if($li==2)  { ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"ModuleNr") ) {
	    
            $testNrTemp = $userinfo[3]; 
	    $testDir = $userinfo[2].'/'. $userinfo[3];
            $link    = $userinfo[2].$userinfo[3];

	    if (!strcmp($testNrTemp, "T+17a") ) { 
	      $module     =  '<FONT COLOR=#cc0055> '.$moduleTemp.' </FONT>'; 
	      $testNr     =  '<FONT COLOR=#cc0055> '.$testNrTemp.' </FONT>'; 
	    }	 
	    else if (!strcmp($testNrTemp, "T-10a") ) { 
	      $module     =  '<FONT COLOR=#3366ff> '.$moduleTemp.' </FONT>'; 
	      $testNr     =  '<FONT COLOR=#3366ff> '.$testNrTemp.' </FONT>'; 
	      $testNrTemp = "T-10b"; # for the link
				       }
	    else {
	      $module     = $moduleTemp; 
	      $testNr     = $testNrTemp;
	    }
          }
	  
	  $alvl = "";
	  if (file_exists($path."/alvl_$link.gif")) {
	    $alvl = "fits";
	  }
          //if($li==3)  { //------------------------------------------------------------------
	  if( !strcmp($userinfo[0],"Defects") ) {
	    
            $pi=$userinfo[1];
            $ma=$userinfo[2];
	    if ( $ma > 0 ) { 
	      $ma='<FONT COLOR=#cc0000>'.$ma.'</FONT>'; 
	    }
            $bu=$userinfo[3];
            $tr=$userinfo[4];
            $ad=$userinfo[5];
          }

          //if($li==3)  { //------------------------------------------------------------------
	  if( !strcmp($userinfo[0],"PerfDefects") ) {
	    
            $no=$userinfo[1];
            $th=$userinfo[2];
            $ga=$userinfo[3];
            $pe=$userinfo[4];
            $pa=$userinfo[5];
	    $perfDef=1;
          }
	  
	  // if($li==4) {  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"ROCS") ) {
	    
	    $rocs = $userinfo[5];
	    $defB = $userinfo[6];
	    $defC = $userinfo[7];

	    if ( $defC > 0 ) { 
	      $rocs   = $rocs.'<FONT COLOR=#cc0000> ('.$defC.'C)</FONT>'; 
	    }
	    
	  }
	  
// 	  // if($li==6)  {  ------------------------------------------------------------------
//           if( !strcmp($userinfo[0],"Tested") && $moduleNr < 50 ) {

//             $date=$userinfo[4].' '.$userinfo[5];
// 	  }
	  
	  // if($li==7)  {  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"Trimming") ) {

           $t=$userinfo[1];
	  }
	  

	  // if($li==8)  {  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"phCalibration") ) {

           $pr=$userinfo[1];
           $c=$userinfo[1];
	  }

	  // if($li==9){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"Temp") ) {

	    if ( $userinfo[2] != -100 ) {
	      $temp=sprintf("%01.2f+-%01.2f", $userinfo[1],$userinfo[2]);
	      $sollTemp=$userinfo[4];
	    }
	    else {
	      $temp=$userinfo[4];
	      $sollTemp=$userinfo[4];
	    }
	    if ( abs($temp - $sollTemp) > 1 ) {
	      $temp = '<FONT COLOR=#cc0000><B>'.$temp.'</B></FONT>';
	      $tempWarning='<FONT COLOR=#cc0000><B>T not '.$sollTemp.'!</B></FONT>';
	    }
	  }

	  // if($li==10){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"Thermal") ) {

	    if (!strcmp($userinfo[2],"yes"))  {
	      $cy= $userinfo[2];
	      if( $userinfo[4] != -100 ) {
		$cycl=sprintf("(%01.1f+-%01.1f)", $userinfo[3], $userinfo[4]);
	      }
	    }
	    else {
	      $cy = $userinfo[2];
	    }
	  }

	  // if($li==17)  {  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"TBM1") ) {

            $tbm1=$userinfo[1];
            if ( $tbm1 != 0 )   {
	      
	      $com=' '.$com.' TBM1: <a
href="http://cmspixel.phys.ethz.ch/moduleTests/moduleDB/tbmDefects.html"> Err '.$tbm1.'</a>.';
	    }
	  }
	  
	  // if($li==18)  {  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"TBM2") ) {
	    
            $tbm2=$userinfo[1];
            if ( $tbm2 != 0 )   {
	      
	      $com=' '.$com.' TBM2: <a
href="http://cmspixel.phys.ethz.ch/moduleTests/moduleDB/tbmDefects.html"> Err '.$tbm2.'</a>.';
	      
	    }
	  }

	  // if($li==18)  {  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"LogErrors") ) {
	    
            $err=$userinfo[1];

            if ( $err == 0 )   {
	      
	      $err='-';
	    
	    } else if ( $err > 0 ) {

	      $err='<FONT COLOR=#cc0000>'.$err.'</FONT>';
	    
	    } else { 

	      $err='???';
	    
	    } 
	  }
          if( !strcmp($userinfo[0],"I") ) {

	    $i=$userinfo[2];
	    
	    if($i==0 || $i=='') { $iv150=''; }
	    else {
	      
	      $iv150=sprintf("%01.2f uA",$i);
	      
	      if ( $sollTemp < 0 ) { 
		
		$i10   = sprintf("%01.2f uA", $i/12.10188635);
		$iv150_2 = '('.$i10.')';
		
		if ( $i > 15 ) { 
		  $iv150   = '<FONT COLOR=#cc0000>'.$iv150.'</FONT>'; 
		  $iv150_2 = '<FONT COLOR=#cc0000>'.$iv150_2.'</FONT>';
		}

		else if ( $i > 3 ) {
		  $iv150   = '<FONT COLOR=#ff3300>'.$iv150.'</FONT>'; 
		  $iv150_2 = '<FONT COLOR=#ff3300>'.$iv150_2.'</FONT>'; 
		}
	      }
	      
	      if ( $sollTemp > 0 ) { 
		
		$iv150_2 = '';

		if ( $i > 10 ) { 
		  $iv150   = '<FONT COLOR=#cc0000>'.$iv150.'</FONT>';  
		}

		else if ( $i > 2 ) { 
		  $iv150   = '<FONT COLOR=#ff3300>'.$iv150.'</FONT>';
		}
	      }
	    }
	  }


	  // if($li==19)  {  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"SwitchOn") ) {

	    $i=$userinfo[1];
	    
	    if($i==0 || $i=='') { $switchOn ='-'; }
	    else {
	      
	      $switchOn=sprintf("%01.2f uA",$i);
	    }
	  }

	  // if($li==19)  {  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"Current") ) {

	    $i=$userinfo[1];
	    
	    if($i==0 || $i=='') { $current='-'; }
	    else {
	      
	      $current=sprintf("%01.2f uA",$i);

	      if ( $sollTemp < 0 ) { 
		
		$i17   = sprintf("%01.2f uA", $i*12.10188635);
		$current_2 = $i17;
		$current = '('.$current.')';
		
		if ( $i17 > 15 ) { 
		  $highCur   = 1;
		  $current   = '<FONT COLOR=#cc0000>'.$current.'</FONT>'; 
		  $current_2 = '<FONT COLOR=#cc0000>'.$current_2.'</FONT>';
		}

		else if ( $i > 3 ) {
		  $current   = '<FONT COLOR=#ff3300>'.$current.'</FONT>'; 
		  $current_2 = '<FONT COLOR=#ff3300>'.$current_2.'</FONT>'; 
		}
	      }
	      
	      if ( $sollTemp > 0 ) { 
		
		$current_2 = '';

		if ( $i > 10 ) { 
		  $highCur   = 1;
		  $current   = '<FONT COLOR=#cc0000>'.$current.'</FONT>';  
		}

		else if ( $i > 2 ) { 
		  $current   = '<FONT COLOR=#ff3300>'.$current.'</FONT>';
		}
	      }
	    }
	  }


	  // if($li==19)  {  ------------------------------------------------------------------
//           if( !strcmp($userinfo[0],"Current") ) {

// 	    $i=$userinfo[1];
	    
// 	    if($i==0 || $i=='') { $iv150=''; }
// 	    else {
	      
// 	      $iv150=sprintf("%01.2f muA",$i);
	      
// 	      if ( $sollTemp < 0 ) { 

// 		if ( $i*12.1018863 < 10. ) { 
// 		  $iv150 = sprintf("%01.2f muA", $i*12.10188635);
// 		} else if ( $i*12.1018863 < 100. ) { 
// 		  $iv150 = sprintf("%01.2f muA", $i*12.10188635);
// 		} else { 
// 		  $iv150 = '> 100 muA';
// 		}


// 		if ( $i < 10. ) { 
// 		  $iv150_2=sprintf("(%01.2f muA)",$i);
// 		} else if ( $i < 99. ) { 
// 		  $iv150_2=sprintf("(%01.1f muA)",$i);
// 		} else if ( $i < 100. ) {  
// 		  $iv150_2=sprintf("(%01.0f muA)",$i);
// 		} else {
// 		  $iv150_2 = '> 100 muA';
// 		}

// 		$i = $i*12.1018863;
		
// 		if ( $i > 15 ) { 
// 		  $iv150   = '<FONT COLOR=#cc0000>'.$iv150.'</FONT>'; 
// 		}

// 		else if ( $i > 3 ) {
// 		  $iv150   = '<FONT COLOR=#ff3300>'.$iv150.'</FONT>'; 
// 		}
// 	      }
	      
// 	      if ( $sollTemp > 0 ) { 
		
// 		$iv150_2 = '';

// 		if ( $i > 10 ) { 
// 		  $iv150   = '<FONT COLOR=#cc0000>'.$iv150.'</FONT>';  
// 		}

// 		else if ( $i > 2 ) {   
// 		  $iv150   = '<FONT COLOR=#ff3300>'.$iv150.'</FONT>';
// 		}
// 	      }
// 	    }
// 	  }

	  // if($li==20){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"I150/I100") ) {

	    $ivVar=$userinfo[1];
	    if ( $ivVar > 0 ) { 
	      $slope=sprintf("%01.2f",$ivVar);
	    }
	    else {
	      $slope = '';
	    }

	    if ( $ivVar > 2 ) {
	      $slope='<FONT COLOR=#ff3300> '.$slope.' </FONT>'; }
	  }

	  // if($li==21){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"iv") ) {

	    $ivDP=$userinfo[2];
	    if ( $ivDP < 1 &&  $ivDP != 0 ) {$com=$com.' incompl. iv-data: '.$iDP.' meas.';}
	  }

	  // if($li==22){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"Grade") ) {

	    $grade=$userinfo[1];
	  }

	  // if($li==22){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"position") ) {

	    $mount=$userinfo[1];
	  }

	  // if($li==28){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"MeanParameter1") ) {

	    $parB=$userinfo[1];
	    $parC=$userinfo[2];

	    if ( $parB == 0 && $parC == 0 ) {

		$pr = 'ok';
	    }
	    else if ( $parB > 0 && $parC == 0 ) {
	      $pr = '<FONT COLOR=#ff3300>'.$parB.'B</FONT>';
	    }
	    else if ( $parB > 0 && $parC > 0) {
	      $pr = '<FONT COLOR=#ff3300>'.$parB.'B</FONT>/<FONT COLOR=#cc0000>'.$parC.'C</FONT>';
	    }
	    else if ( $parC > 0 && $parB == 0 ) {
	      $pr = '<FONT COLOR=#cc0000>'.$parC.'C</FONT>';
	    }
	    else {
	      $pr = '-';
	    }
	  }

	  // if($li==28){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"Noise") ) {

	    $noiB=$userinfo[1];
	    $noiC=$userinfo[2];

	    if ( $noiB == 0 && $noiC == 0 ) {

		$n = 'ok';
	    }
	    else if ( $noiB > 0 && $noiC == 0 ) {
	      $n = '<FONT COLOR=#ff3300>'.$noiB.'B</FONT>';
	    }
	    else if ( $noiB > 0 && $noiC > 0) {
	      $n = '<FONT COLOR=#ff3300>'.$noiB.'B</FONT>/<FONT COLOR=#cc0000>'.$noiC.'C</FONT>';
	    }
	    else if ( $noiC > 0 && $noiB == 0 ) {
	      $n = '<FONT COLOR=#cc0000>'.$noiC.'C</FONT>';
	    }
	    else {
	      $n = '-';
	    }
	  }

	  // if($li==29){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"VcalThrWidth") ) {

	    $trmB=$userinfo[1];
	    $trmC=$userinfo[2];

	    if ( $trmB == 0 && $trmC == 0 ) {
	      if ( strcmp($t, "no") ) {
		$t = 'ok';
	      }
	    }
	    else if ( $trmB > 0 && $trmC == 0 ) {
	      $t = '<FONT COLOR=#ff3300>'.$trmB.'B</FONT>';
	    }
	    else if ( $trmB > 0 && $trmC > 0 ) {
	      $t = '<FONT COLOR=#ff3300>'.$trmB.'B</FONT>/<FONT COLOR=#cc0000>'.$trmC.'C</FONT>';
	    }
	    else if ( $trmC > 0 && $trmB == 0 ) {
	      $t = '<FONT COLOR=#cc0000>'.$trmC.'C</FONT>';
	    }
	    else {
	      $t = '-';
	    }
	  }

	  // if($li==30){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"RelGainWidth") ) {

	    $gainB=$userinfo[1];
	    $gainC=$userinfo[2];
	    
	    if (  $gainB == 0 && $gainC == 0 ) {
	      
	      if ( !strcmp($c, "yes") ) {
		$c = '';
	      }
	    }
	    else if ( $gainB > 0 && $gainC == 0 ) {
	      $c = '<FONT COLOR=#ff3300>'.$gainB.'B</FONT> Gain';
	    }
	    else if ( $gainB > 0 && $gainC > 0 ) {
	      $c = '<FONT COLOR=#ff3300>'.$gainB.'B</FONT>/<FONT COLOR=#cc0000>'.$gainC.'C</FONT> Gain';
	    }
	    else if ( $gainC > 0 && $gainB == 0 ) {
	      $c = '<FONT COLOR=#cc0000>'.$gainC.'C</FONT> Gain';
	    }
	    else {
	      $c = '-';
	    }
	  }

	  // if($li==31){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"PedSpread") ) {

	    $pedB=$userinfo[1];
	    $pedC=$userinfo[2];

	    if (  $gainB == 0 && $gainC == 0 &&
		  $pedB  == 0 && $pedC  == 0 ) {
	      
	      if ( strcmp($c, "no") ) {
		$c = 'ok';
	      }
	    }
	    else if ( $pedB > 0 && $pedC == 0 ) {
	      $c = $c.'  '.'<FONT COLOR=#ff3300>'.$pedB.'B</FONT> Ped';
	    }
	    else if ( $pedB > 0 && $pedC > 0 ) {
	      $c = $c.'  '.'<FONT COLOR=#ff3300>'.$pedB.'B</FONT>/<FONT COLOR=#cc0000>'.$pedC.'C</FONT>  Ped';
	    }
	    else if ( $pedC > 0 && $pedB == 0 ) {
	      $c = $c.'  <FONT COLOR=#cc0000>'.$pedC.'C</FONT> Ped';
	    }
	  }

	  // if($li==34){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"RATIO") ) {

	    if ( $userinfo[1] > 5 ) {
	      $com=$com.'I_recalc > 5 x I_meas'; 
	    }
	  }

	  // if($li==35){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"Grade") ) {

	    if (!strcmp($userinfo[1], "A") ) { $grade =  '<FONT COLOR=#009c66> a </FONT>'; }
	    if (!strcmp($userinfo[1], "B") ) { $grade =  '<FONT COLOR=#3366ff> b </FONT>'; }
	    if (!strcmp($userinfo[1], "C") ) { $grade =  '<FONT COLOR=#cc0000> c </FONT>'; }
	  }

	  // if($li==35){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"shortTest") ) {

	    if (!strcmp($userinfo[2], "A") ) { $shortGrade =  '<FONT COLOR=#009c66> a </FONT>'; }
	    if (!strcmp($userinfo[2], "B") ) { $shortGrade =  '<FONT COLOR=#3366ff> b </FONT>'; }
	    if (!strcmp($userinfo[2], "C") ) { $shortGrade =  '<FONT COLOR=#cc0000> c </FONT>'; }
	  }

	  // if($li==35){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"fullTest") ) {

	    $fullGrade =  $userinfo[2];

	    if (!strcmp($userinfo[2], "A") ) { $fullGrade =  '<FONT COLOR=#009c66> '.$userinfo[2].' </FONT>'; }
	    if (!strcmp($userinfo[2], "B") ) { $fullGrade =  '<FONT COLOR=#3366ff> '.$userinfo[2].' </FONT>'; }
	    if (!strcmp($userinfo[2], "C") ) { $fullGrade =  '<FONT COLOR=#cc0000> '.$userinfo[2].' </FONT>'; }
	  }

	  // if($li==35){  ------------------------------------------------------------------
          if( !strcmp($userinfo[0],"FINAL") ) {

	    if (!strcmp($userinfo[2], "A") ) { $finalGrade =  '<FONT COLOR=#009c66> '.$userinfo[2].' </FONT>'; }
	    if (!strcmp($userinfo[2], "B") ) { $finalGrade =  '<FONT COLOR=#3366ff> '.$userinfo[2].' </FONT>'; }
	    if (!strcmp($userinfo[2], "C") ) { $finalGrade =  '<FONT COLOR=#cc0000> '.$userinfo[2].' </FONT>'; }
	  }

	  // if($li==36){  ------------------------------------------------------------------	  
	  if (!strcmp($module, "") ) { $module = $moduleTemp; }
	  
	  // commments:
	  // if($li==15 || $li==16 || $li==17 ||$li==18 || $li==37 ) {
	  if (!strcmp($userinfo[2],"Vcal") ||
 	      !strcmp($userinfo[2],"SCurve") ||
 	      !strcmp($userinfo[2],"Par1") ||
 	      !strcmp($userinfo[2],"Gain") ||
 	      !strcmp($userinfo[2],"Ped") ) {
	    
	    $com=$com.' ';
	    $ar = count($userinfo);
	    if($ar>1) {
	      
	      for($en=0; $en<$ar+10; $en++) {
		
		$com=$com.' '.$userinfo[$en];
	      }
	    }
	  }

	  if( !strcmp($userinfo[0],"Regrading:") ) {
	    
	    $regraded=1;
	    $ar = count($userinfo);
	    
	    $reGrade=$reGrade.'<FONT COLOR=#cc0000>*';
	    
	    for($en=1; $en<$ar+10; $en++) {
	      
	      $reGrade=$reGrade.' '.$userinfo[$en];
	    }

	    $reGrade=$reGrade.'</FONT>';
	  }

	  if( !strcmp($userinfo[0],"Missing:") ) {

	    $tmp_mis = ''; $files_mis=0;

	    $mis=$mis.' <FONT COLOR=#ff3300><I><small> MISSING: ';
	    $ar = count($userinfo);
	    
	    for($en=1; $en<$ar+10; $en++) {

	      if ( $files_mis == 1 ) { $mis= $mis.''.$tmp_mis; $files_mis = 0; }

	      if( !strcmp($userinfo[$en],"Files:") ) {

		$tmp_mis = " FILES:";
		$files_mis = 1;
		continue;
	      }
	      
	      $mis=$mis.' '.$userinfo[$en];
	    }

	    $mis=$mis.'</I></small></FONT>';
	  }

	  if( !strcmp($userinfo[0],"Comment:") ) {
 	     	    	      
	    $com=$com.' ';
	    $ar = count($userinfo);
	    
	    for($en=1; $en<$ar+10; $en++) {
	      
	      $com=$com.' '.$userinfo[$en];
	    }
	  }

	  if( !strcmp($userinfo[0],"Half-Module") ) {
	    
	    $app='H-';
	  }
	}
		
	fclose($handle);
		
	if ( $highCur ){
	  // $com =  $com.' <FONT COLOR=#006600><I>switch-on: '.$switchOn.'</I></FONT> ';
	}


	$pdef   = '';
	if ( $perfDef ) {
		  $pdef   = '<BR><FONT COLOR=#424242>'.$no.'/'.$th.'/'.$ga.'/'.$pe.'/'.$pa.'</FONT>'; 
	}

	if ( $regraded ) {
	  $com = $reGrade.'<br>'.$com;
	  $finalGrade = $finalGrade.'<FONT COLOR=#cc0000>*</FONT>';
	}

	echo "	<TBODY>";
	echo "		<TR>"; 	
 	echo "			<TD ><b>$finalGrade</b></FONT></TD>";
	echo "			<TD HEIGHT=17 SIZE=4><b>$app<a href=\"$testDir/$link.gif\">$module<a href=\"$testDir/$link.gif\"></b></FONT></TD>";
	echo "			<TD ><a href=\"$testDir/$link.html\">$testNr</a></FONT></TD>";
	echo "			<TD >$date</FONT></TD>";
 	echo "			<TD ><b>$grade</b></FONT></TD>";
	// 	echo "			<TD ><b>$shortGrade</b></FONT></TD>";
	echo "			<TD ><a href=\"http://cmspixel.phys.ethz.ch/moduleTests/moduleDB/prodTable.php?modul=$moduleTemp\">$fullGrade</a></FONT></TD>";

	echo "			<TD >$iv150 $iv150_2</FONT></TD>";
	echo "			<TD >$pi/$ma/$bu/$tr/$ad $pdef</FONT></TD>";
	echo " ";
	echo "			<TD >$rocs</FONT></TD>";
// 	echo "			<TD >$n </FONT></TD>";
// 	echo "			<TD >$t </FONT></TD>";
	echo "			<TD >$pr </FONT></TD>";
	echo "			<TD >$c </FONT></TD>";
	echo "			<TD ><a href=\"$testDir/alvl_$link.gif\">$alvl</a></FONT></TD>";
// 	echo "			<TD >$iv150 $iv150_2</FONT></TD>";
// 	echo "			<TD >$slope</FONT></TD>";
	echo "			<TD ><a href=\"$testDir/../tProfile.gif\">$temp</a></FONT></TD>";
// 	if ( $cycl ){
// 	  echo "			<TD ><a href=\"$testDir/../tProfile.gif\">$cy</a>   $cycl</FONT></TD>";
// 	}
// 	else {
// 	  echo "			<TD >$cy</FONT></TD>";
// 	}
	echo " ";
	echo "			<TD> $mount </FONT></TD>";
	echo "			<TD >$err</a></FONT></TD>";
	echo "			<TD ALIGN=LEFT>$tempWarning $com $mis</FONT></TD>";
	echo "	</TBODY>";
	
      }
    }    
  }
}

templ("footer.html");

?>
