my $list;
foreach $a(0..$#my_array){
	$list .= qq¿<TR>\n¿;
	foreach $b(0,1,8,16,14){
		if($b == 0){
			$list .= qq¿\t<TD >${'flag_'.$languages[$my_array[$a][20]][1]} ¿;
			$list .= &build_link("?act=subscriptions_view&what=$my_array[$a][0]&m0=$m0&m1=1",$target,$my_array[$a][0]);
				$list .= qq¿\t</TD>¿;
			}
			elsif($b == 1){
[Note: $email is null: Included - script fails.  Excluded - script completes. ?!? DEBUG should find out why.]
				$list .= qq¿\t<TD >$email $my_array[$a][2] $my_array[$a][1] </TD>¿;
			}
			elsif($b == 14){
				$list .= qq¿\t<TD ALIGN="right" >$cat[$my_array[$a][14]][0]</TD>¿;
			}
			elsif($b == 16){
				$list .= qq¿\t<TD ALIGN="right" >$diff[$my_array[$a][16]][0]</TD>¿;
			}
			else{
				$list .= qq¿\t<TD ALIGN="right" >$my_array[$a][$b]</TD>¿;
			}
		}
		$list .= qq¿</TR>\n¿;
	}
	$list .= qq¿</TABLE>\n $files_found <P> \$email = $email ¿;
return $list;