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

(-)a/C4/ImportExportFramework.pm (-3 / +2 lines)
Lines 761-767 sub _parseSQLLine Link Here
761
    my $line;
761
    my $line;
762
    my $numLines = 0;
762
    my $numLines = 0;
763
    while (<$dom>) {
763
    while (<$dom>) {
764
        chomp $_;
764
        s/[\r\n]+$//;
765
        $line = $_;
765
        $line = $_;
766
        # we don't want to execute any sql statement, only the ones dealing with frameworks
766
        # we don't want to execute any sql statement, only the ones dealing with frameworks
767
        next unless ($line =~ /^\s*(?i:DELETE\s+FROM|INSERT\s+INTO)\s+(?:marc_tag_structure|marc_subfield_structure)/);
767
        next unless ($line =~ /^\s*(?i:DELETE\s+FROM|INSERT\s+INTO)\s+(?:marc_tag_structure|marc_subfield_structure)/);
Lines 1148-1154 sub _import_table_csv Link Here
1148
        if ($row =~ /(?:".*?",?)+/) {
1148
        if ($row =~ /(?:".*?",?)+/) {
1149
            @arrData = split('","', $row);
1149
            @arrData = split('","', $row);
1150
            $arrData[0] = substr($arrData[0], 1) if ($arrData[0] =~ /^"/);
1150
            $arrData[0] = substr($arrData[0], 1) if ($arrData[0] =~ /^"/);
1151
            chomp $arrData[$#arrData];
1151
            $arrData[$#arrData] =~ s/[\r\n]+$//;
1152
            chop $arrData[$#arrData] if ($arrData[$#arrData] =~ /"$/);
1152
            chop $arrData[$#arrData] if ($arrData[$#arrData] =~ /"$/);
1153
            if (@arrData) {
1153
            if (@arrData) {
1154
                if ($arrData[0] eq '#-#' && $arrData[$#arrData] eq '#-#') {
1154
                if ($arrData[0] eq '#-#' && $arrData[$#arrData] eq '#-#') {
1155
- 

Return to bug 6723