accessing scratch variables within [discount][/discount] tags

[Tim Shea <tim@valutech.net>]

Hi All,

Almost time to quit for the night - this is the only thing that seems to be 
holding up my custom pricing routine. (Yes, I'm doing it the hard way. )

I've snipped out all of the code except what looked like was needed to ask 
for help:

[set name=PricingData interpolate=1][data base="prices" field="prices" 
key="[item-code]"][/set]
[scratch PricingData]

(...this works so far...)

[discount [item-code] interpolate=1]
	my $pricingdata = $Safe{'scratch'}->{'PricingData'};
	.
	.
	.
[/discount]

This generates and error:
Can't locate object method "scratch" via package "PricingData" at (eval 
2242) line 5.

Any help would be greatly appreciated.

Fatigued Cheers,
Tim