sub buildInsert { my $fieldsArray = shift; my $values = shift; my ($removed, $fid); if (!shift) { $removed = ''; $fid = undef; } else { $removed = shift; $fid = shift; } my $colCount = getColumns; my $firstField = 1; my $insertString = ""; my $valueString = ""; my $value; for(my $i = 0; $i<$colCount; $i++) { #print $fieldsArray[$i]; exit; my $foo = $fieldsArray->[$i]; if(defined $fid || $foo !='FID') { $value = $values->[$i]; if ($firstField != 1) { $insertString .= ",$fieldsArray->[$i]"; $valueString .= ",'$value'"; } else { $insertString .= "$fieldsArray->[$i]"; $valueString .= "$value'"; $firstField = 0; } } } my $table; if ($removed) { $table = "removed"; } else { $table = "fingerprints"; } if($fid) { $insertString = "FID," . $insertString; $valueString = $fid . "," . $valueString; } return "INSERT INTO $table (".$insertString.")VALUES(".$valueString.");"; }