while($db->FetchRow()){				
        my %hash = $db->DataHash(@$fields_ref);
        push (@data, \%hash);
    }

##</code><code>##

    while($db->FetchRow()){				
        push (@data, $db->DataHash(@$fields_ref));
    }


##</code><code>##

    while ($data[$x]){
        my ($i,@orderdata,%myhash);
        foreach $i (1 .. $numpix){
            if ($i == $data[$x]{'picorder'}){
$myhash{'orderline'} = "<option value=\"$i\" selected>$i</option>";
                }else{
$myhash{'orderline'} = "<option value=\"$i\" selected>$i</option>";}
            push (@orderdata, \%myhash);    
        }
        $data[$x]{'orderdata'} = \@orderdata;
        #transform anaglyph data for checkboxes
        if ($data[$x]{'anaglyph'} eq "Yes"){
$data[$x]{'anaglyph'}="checked";}
        $x++;
    }