Re: [Mason] Passing data between components.

[Brian A. <bri...@se...>]

Ken Williams wrote:

>
>
>>
>> <%perl>
>> while ( ($id, $mdid, $data, $period, $data_type, $display_as) = 
>> $sth->fetchrow_array) {
>>          $count++;   
>>          delete $session{CSP_INDDATA};  #added to try to figure out 
>> this problem
>>          %ind_data = ();   #added to try to figure out this problem.
>>           #The next line should pull all the data for an indicator 
>> from the database.
>>          %ind_data = $m->comp('/csp2/Elements/IndicatorData.mas', 
>> period=>$period, mdid=>$mdid);
>
>
>
>
> Add a debugging step here, like the one in your other component:
>
>     foreach my $year (reverse sort keys %ind_data) {
>        if ($year) {
>          warn "year = $year $ind_data{$year}{10}\n";   
>        }
>      }
>

Okay I added that step in.    And I get exactly the results I would expect.

year = 2002  1
year = 2001  7
year = 2000  1
year = 1999  18
year = 1998  26

year = 2002  9
year = 2001  18
year = 2000  8
year = 1999  47
year = 1998  64
year = 1997  40
year = 1996  46
year = 1995  40


So apparently there is some sort of issue with passing around a 
reference to the hash?  Or the execution of things or something.




-- 
Brian Avis
SEARHC Medical Clinic
Juneau, AK 99801
(907) 463-4049
Have a nice diurnal anomaly!