All pastes #507851 Raw Edit

Untitled

public text v1 · immutable
·published 2007-05-24 19:35 UTC
rendered paste body
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.");";
}