Revision 05c6840d
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 8 | 8 |
|
| 9 | 9 |
package Common; |
| 10 | 10 |
|
| 11 |
use utf8; |
|
| 12 |
use strict; |
|
| 13 |
|
|
| 11 | 14 |
use Time::HiRes qw(gettimeofday); |
| 12 | 15 |
use Data::Dumper; |
| 13 | 16 |
|
| ... | ... | |
| 15 | 18 |
|
| 16 | 19 |
use vars qw(@db_encodings %db_encoding_to_charset %charset_to_db_encoding); |
| 17 | 20 |
|
| 18 |
use strict; |
|
| 19 |
|
|
| 20 | 21 |
@db_encodings = ( |
| 21 | 22 |
{ "label" => "ASCII", "dbencoding" => "SQL_ASCII", "charset" => "ASCII" },
|
| 22 | 23 |
{ "label" => "UTF-8 Unicode", "dbencoding" => "UNICODE", "charset" => "UTF-8" },
|
| ... | ... | |
| 286 | 287 |
|
| 287 | 288 |
my $query = |
| 288 | 289 |
qq!SELECT id, name, customernumber, (street || ', ' || zipcode || city) AS address FROM customer ! . |
| 289 |
qq!WHERE $filter business_id = (SELECT id FROM business WHERE description = 'H?ndler') ! .
|
|
| 290 |
qq!WHERE $filter business_id = (SELECT id FROM business WHERE description = ?') ! .
|
|
| 290 | 291 |
qq!ORDER BY $order_by $order_dir!; |
| 292 |
push @filter_values, $::locale->{iconv_utf8}->convert('Händler');
|
|
| 291 | 293 |
my $sth = $dbh->prepare($query); |
| 292 | 294 |
$sth->execute(@filter_values) || |
| 293 | 295 |
$form->dberror($query . " (" . join(", ", @filter_values) . ")");
|
| ... | ... | |
| 373 | 375 |
my $base_path = substr($ENV{'SCRIPT_NAME'}, 1);
|
| 374 | 376 |
$base_path =~ s|[^/]+$||; |
| 375 | 377 |
$base_path =~ s|/$||; |
| 376 |
# wo kommt der wert f?r dir her? es wird doch gar nichts ?bergeben? fix f?r strict my $dir jb 21.2.
|
|
| 378 |
# wo kommt der wert für dir her? es wird doch gar nichts übergeben? fix für strict my $dir jb 21.2.
|
|
| 377 | 379 |
if (opendir my $dir, $path) {
|
| 378 | 380 |
foreach my $file (sort { lc $a cmp lc $b } readdir $dir) {
|
| 379 | 381 |
next if (($file eq '.') || ($file eq '..')); |
Auch abrufbar als: Unified diff
Dateiencodings auf UTF-8 geändert
Fix für Bug 1375.