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 |
- |
|
|