Revision 8c7e4493
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 29 | 29 |
); |
| 30 | 30 |
|
| 31 | 31 |
%db_encoding_to_charset = map { $_->{dbencoding}, $_->{charset} } @db_encodings;
|
| 32 |
%charset_to_db_encoding = map { $_->{charset}, $_->{dbencoding} } @db_encodings;
|
|
| 32 | 33 |
|
| 33 | 34 |
use constant DEFAULT_CHARSET => 'ISO-8859-15'; |
| 34 | 35 |
|
| ... | ... | |
| 49 | 50 |
my $dbh = $form->dbconnect($myconfig); |
| 50 | 51 |
|
| 51 | 52 |
my (@filter_values, $filter); |
| 52 |
if ($form->{"partnumber"}) {
|
|
| 53 |
$filter .= qq| AND (partnumber ILIKE ?)|; |
|
| 54 |
push(@filter_values, '%' . $form->{"partnumber"} . '%');
|
|
| 53 |
|
|
| 54 |
foreach (qw(partnumber description)) {
|
|
| 55 |
next unless $form->{$_};
|
|
| 56 |
|
|
| 57 |
$filter .= qq| AND ($_ ILIKE ?)|; |
|
| 58 |
push @filter_values, '%' . $form->{$_} . '%';
|
|
| 55 | 59 |
} |
| 56 |
if ($form->{"description"}) {
|
|
| 57 |
$filter .= qq| AND (description ILIKE ?)|; |
|
| 58 |
push(@filter_values, '%' . $form->{"description"} . '%');
|
|
| 60 |
|
|
| 61 |
if ($form->{no_assemblies}) {
|
|
| 62 |
$filter .= qq| AND (NOT COALESCE(assembly, 'f'))|; |
|
| 63 |
} |
|
| 64 |
|
|
| 65 |
if ($form->{no_services}) {
|
|
| 66 |
$filter .= qq| AND (COALESCE(inventory_accno_id, 0) > 0)|; |
|
| 59 | 67 |
} |
| 68 |
|
|
| 60 | 69 |
substr($filter, 1, 3) = "WHERE" if ($filter); |
| 61 | 70 |
|
| 62 | 71 |
$order_by =~ s/[^a-zA-Z_]//g; |
Auch abrufbar als: Unified diff
Umstellung der Benutzerverwaltung von Dateien im Verzeichnis "users" auf die Verwendung einer Authentifizierungsdatenbank.
Es ist erforderlich, die Dateien doc/UPGRADE und doc/INSTALL/index.html zu lesen und die angesprochenen Punkte auszuführen, um nach einem Upgrade weiter arbeiten zu können.