[ic] [query] hashref into scratches... this should work me thinks

[Peter]

On 03/12/10 11:45, Paul Jordan wrote:
> 
> I am not perl guru, but from what I read in the docs and archives, I
> believe this should work but I'm not getting any joy.
> 
> [query table=mytable ml=1 hashref=foo sql=|
>    SELECT  bin, bat, baz
>    FROM    mytable
>    WHERE   code = 1001
> | /]
> [calc]
>    my %bar = $Tmp->{foo};
>    while (my ($k,$v) = each %bar) { $Tag->tmp($k, $v) }
> [/calc]
> 
> results ====<br />
> Bin: [scratch bin]<br />
> Bat: [scratch bat]<br />
> Baz: [scratch baz]

[perl mytable]
	my $db = $Db{mytable};
	@{$Scratch}{qw{bin bat baz}} = $db->get_slice(1001, [qw{bin bat baz}]);
	return;
[/perl]


Peter