Folks,
I am having a problem dereferencing a hash and am hoping somebody can
assist. I am getting the error:
Can't use string ("napMD_ProgressCode") as a HASH ref
while "strict refs" in use
for the code below. I have tried various combinations of brackets and
plus signs in the subroutine to dereference the HoH to no avail.
Thanks in advance for setting me straight on how to do this properly.
Andrew Koebrick
==========
use strict;
my %napMD_ProgressCode = (
1 => {
Code => 'ProgCd',
Name => 'MD_ProgressCode',
Definition => 'status of the dataset or progress of a
review'
},
2 => {
Code => '001',
Name => 'completed',
Definition => 'production of the data has been
completed'
},
3 => {
Code => '002',
Name => 'historicalArchive',
Definition => 'data has been stored in an offline
storage facility'
}
);
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');
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
