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 ---
--
- Vicki
Vicki Brown ZZZ Journeyman Sourceror:
P.O. Box 1269 zz |\ _,,,---,,_ Scripts & Philtres
San Bruno, CA zz /,`.-'`' -. ;-;;,_ Perl, Unix, MacOS
94066 USA |,4- ) )-,_. ,\ ( `'-'
mailto:[EMAIL PROTECTED] '---''(_/--' `-'\_) http://www.cfcl.com/~vlb
