Vicki Brown wrote:
>
> It took me a while to find the problem... when I did I was somewhat amused
>
> --- Begin Forward ---
>
> if (...) {
> my @item_parts = split(/\n/, $item);
> printf ORDER ("\n%4d %-50s %3.2f %3.2f\n",
> $quantity, $item_parts[0], $price, $ext);
> } else {
> printf ORDER ("\n%4d %-50s %3.2f %3.2f\n",
> } $quantity, $item, $price, $ext);
>
> --- End Forward ---*chuckle* That's a good one. John -- use Perl; program fulfillment
