Help for this page

Select Code to Download

Select or download this

while( @result_array = $query->fetchrow_array ) {
   my $col = $self->{fields}{$result_array[2]};
   $col->{Object_ID}  = $result_array[0];
   # and so on ...
}

Select or download this

my @name =  qw|Object_ID ID ...|;
while( @result_array = $query->fetchrow_array ) {
...
   $self->{fields}{$result_array[2]}{Value}  = "";
    $self->{display_order}{$result_array[16]} = $result_array[2];
}