Lines 338-344
sub calculate {
Link Here
|
338 |
$linefilter[0] =~ s/\*/%/g; |
338 |
$linefilter[0] =~ s/\*/%/g; |
339 |
$strsth .= " AND $line LIKE ? "; |
339 |
$strsth .= " AND $line LIKE ? "; |
340 |
} |
340 |
} |
341 |
$strsth .= " group by $linefield collate utf8_bin order by $lineorder "; |
341 |
$strsth .= " group by $linefield order by $lineorder "; |
342 |
$debug and warn $strsth; |
342 |
$debug and warn $strsth; |
343 |
push @loopfilter, { crit => 'SQL =', sql => 1, filter => $strsth }; |
343 |
push @loopfilter, { crit => 'SQL =', sql => 1, filter => $strsth }; |
344 |
my $sth = $dbh->prepare($strsth); |
344 |
my $sth = $dbh->prepare($strsth); |
Lines 427-433
sub calculate {
Link Here
|
427 |
$strsth2 .= " AND $column LIKE ? " ; |
427 |
$strsth2 .= " AND $column LIKE ? " ; |
428 |
} |
428 |
} |
429 |
|
429 |
|
430 |
$strsth2 .= " group by $colfield collate utf8_bin order by $colorder "; |
430 |
$strsth2 .= " group by $colfield order by $colorder "; |
431 |
$debug and warn $strsth2; |
431 |
$debug and warn $strsth2; |
432 |
push @loopfilter, { crit => 'SQL =', sql => 1, filter => $strsth2 }; |
432 |
push @loopfilter, { crit => 'SQL =', sql => 1, filter => $strsth2 }; |
433 |
my $sth2 = $dbh->prepare($strsth2); |
433 |
my $sth2 = $dbh->prepare($strsth2); |
Lines 556-562
sub calculate {
Link Here
|
556 |
} else { |
556 |
} else { |
557 |
$strcalc .= " $colfield "; |
557 |
$strcalc .= " $colfield "; |
558 |
} |
558 |
} |
559 |
$strcalc .= " collate utf8_bin "; |
|
|
560 |
|
559 |
|
561 |
$strcalc .= " ORDER BY "; |
560 |
$strcalc .= " ORDER BY "; |
562 |
if($line_attribute_type) { |
561 |
if($line_attribute_type) { |
563 |
- |
|
|