Lines 776-782
sub _parseSQLLine
Link Here
|
776 |
my $stmt = SQL::Statement->new($line, $parser); |
776 |
my $stmt = SQL::Statement->new($line, $parser); |
777 |
my $where = $stmt->where(); |
777 |
my $where = $stmt->where(); |
778 |
if ($where && $where->op() eq '=' && $line =~ /^\s*DELETE/) { |
778 |
if ($where && $where->op() eq '=' && $line =~ /^\s*DELETE/) { |
779 |
$line =~ s/frameworkcode='.+?'/frameworkcode='$frameworkcode';/ unless ($_ =~ /frameworkcode='$frameworkcode'/); |
779 |
$line =~ s/frameworkcode='.*?'/frameworkcode='$frameworkcode';/ unless ($_ =~ /frameworkcode='$frameworkcode'/); |
780 |
} else { |
780 |
} else { |
781 |
my @arrFields; |
781 |
my @arrFields; |
782 |
my @arrValues; |
782 |
my @arrValues; |
Lines 817-823
sub _parseSQLLine
Link Here
|
817 |
if ($error) { |
817 |
if ($error) { |
818 |
$line .= ';' unless ($line =~ /;$/); |
818 |
$line .= ';' unless ($line =~ /;$/); |
819 |
if ($line =~ /^\s*DELETE/) { |
819 |
if ($line =~ /^\s*DELETE/) { |
820 |
$line =~ s/frameworkcode='.+?'/frameworkcode='$frameworkcode'/ unless ($_ =~ /frameworkcode='$frameworkcode'/); |
820 |
$line =~ s/frameworkcode='.*?'/frameworkcode='$frameworkcode'/ unless ($_ =~ /frameworkcode='$frameworkcode'/); |
821 |
} elsif ($line =~ /^\s*INSERT\s+INTO\s+(.*?)\s+\((.*?frameworkcode.*?)\)\s+VALUES\s+\((.+)\)\s*;\s*$/) { |
821 |
} elsif ($line =~ /^\s*INSERT\s+INTO\s+(.*?)\s+\((.*?frameworkcode.*?)\)\s+VALUES\s+\((.+)\)\s*;\s*$/) { |
822 |
my $table = $1; |
822 |
my $table = $1; |
823 |
my $fields = $2; |
823 |
my $fields = $2; |
824 |
- |
|
|