On Wed, 18 Sep 2002, Simon Tomlinson wrote: > > > Apologies, that was bad typing in my email. I rearrange the algorithm to make it >easier to read. Here is my exact source and the exact output. Even without the >space there, it still doesn't work!! > > Any ideas? > Simon. > > > sub getEvents > { > my @rows = &getDBTable($tbl_events); > my @colDefs = (""); > @colDefs = split(",",substr($rows[0], index($rows[0],":")+1)); > my $rowCount = -1; > my @rowCols; > > foreach $row (@rows) > { > if ($rowCount > -1) > { > my %tempCols = &getCols($row, @colDefs); > > foreach $key (keys %tempCols) > { > print "WORKS: $key $tempCols{$key}<br>\n"; > } > $rowCols[$rowCount] = %tempCols;
You are assigning a hash to a scalar here, you will have to assign the reference of the hash instead. $rowCols[$rowCount] = \%tempCols; > } > > my %event = $rowCols[$rowCount]; And change this too my %event = %{$rowCols[$rowCount]}; or remove the my line and change the foreach as foreach $key (keys %{rowCols[$rowCount]}) > foreach $key (keys %event) > { > print "DOESN'T WORK: $key $event{$key}<br>\n"; > } > > $rowCount = $rowCount + 1; > } > return @rowCols; > } -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]