sub createButtons{
($outfile,$filename)=@_;
$replace = 'ay';
$find = 'DFT';
if(index($filename, $find) != -1){
$filenameDFT = $filename;
$filenameLAY = $filename;
$filenameLAY =~s/$find/$replace/;
print $outfile " Layout
DfT\n
\n";
}
#print "$filenameDFT\n";
else
{
$filenameLAY = $filename;
$filenameDFT= $filename;
$filenameDFT =~s/$replace/$find/;
print $outfile " Layout
DfT\n
\n";
}
return(@OutputButtons)
}