View | Details | Raw Unified | Return to bug 7360
Collapse All | Expand All

(-)a/C4/ImportExportFramework.pm (-3 / +2 lines)
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
- 

Return to bug 7360