$outfunc{'baking'} = 'outputrecipebake';
sub outputrecipebake
{
my $file = shift;
$name = $recipe{$file}{'Name'};
$name =~ s/\s//g;
$recipe{$file}{'Ingredients'} =~ s/\\n/
\n/g;
$recipe{$file}{'Ingredients'} =~ s/:SEP:/
$recipe{$file}{'Name'} ($recipe{$file}{'Yields'}) | \n"; print OUT "$recipe{$file}{'Trival'} | \n";
print OUT " ||
$recipe{$file}{'Ingredients'} | \n) if $recipe{$file}{'Image'} ne ""; print OUT qq( | $recipe{$file}{'Ingredients'} | \n) if $recipe{$file}{'Image'} eq ""; print OUT " |
$recipe{$file}{'Type'} | |||
$recipe{$file}{'Comment'} | \n"; print OUT "