" ;
$count = 0 ;
$t = readafile ( $textsourcefile ) ;
$t = explode ( "\n" , $t ) ;
foreach ( $t AS $x )
{
$y = explode ( ':' , $x , 2 ) ;
if ( count ( $y ) == 2 )
{
$language = trim ( strtolower ( $y[0] ) ) ; # language id
if ( isset ( $n[$language] ) ) # Only if there's a number to show
{
$ltext = $y[1] ; # Language text
$noa = $n[$language] ; # Number of articles
$ltext = str_replace ( "###" , "{$noa}" , $ltext ) ;
if ( isset ( $shade[$language] ) ) $s = " bgcolor='#" . $shade[$language] . "'" ;
else $s = "" ;
$ltext = "{$ltext}\n" ;
if ( $count == 0 ) $l .= "" ;
$l .= $ltext ;
if ( $count == $perrow-1 )
{
$l .= "
" ;
$count = 0 ;
}
else $count++ ;
}
}
}
if ( $count != 0 ) $l .= "" ;
$l .= "" ;
print "" ;
print $l ;
print "" ;
?>