[EMAIL PROTECTED] schreef:
> use strict;
> my %napMD_ProgressCode = (
> [...]
> );
>
> sub drawInputRowControlled{
> my $ControlList = $_[0];
> my %ControlList = %$ControlList; #Problem line
>
> for my $i (sort keys %ControlList) {
> print qq{
> <input type="checkbox"
> name='status'
> value="$ControlList{$i}{Code}">
> $ControlList{$i}{Name}
> </option>
> <br>
> }
> }
> }
>
> drawInputRowControlled('napMD_ProgressCode');
You are crossing an ugly border there, by the way that you are trying
to convert a string to the name of a data structure.
Make it: drawInputRowControlled(\%napMD_ProgressCode);
Then inside the sub you can use $_[0]->{$key}{Code}
or $ControlList->{$key}{Code}.
You use the values 1..3 for your first key level, and sort, so why don't
you use an @array[0..2] for that level?
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
