Pick which Company you wish to modify:

##

##

##

sub build_select_field_from_db {
# --------------------------------------------------------
# Builds a SELECT field from the database. 
    my ($column, $value, $name) = @_;
    my (@fields, $field, @selectfields, @lines, $line, $ouptut);
    
    my ($fieldnum, $found, $i) = 0;
    for ($i = 0; $i <= $#db_cols; $i++) {
        if ($column eq $db_cols[$i]) {
            $fieldnum = $i; $found = 1;
            last;
        }
    }
    if (!$found) {
        return "error building select field: no fields specified!";
    }
    open (DB, "<$db_file_name") or &cgierr("unable to open $db_file_name. Reason: $!");
        @lines = ;
    close DB;
    LINE: foreach $line (@lines) {
        if ($line =~ /^#/) { next LINE; }       # Skip comment lines.   
  if ($line =~ /^\s*$/) { next LINE; } # Skip Blank Lines.
        chomp ($line);                       
        
        @fields = &split_decode ($line);
        if (!(grep $_ eq $fields[$fieldnum], @selectfields)) {
            push (@selectfields, $fields[$fieldnum]);
        }
    }
 if ($name) { $output = qq|