Revision 59f8f1fa
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/PE.pm | ||
|---|---|---|
| 37 | 37 |
|
| 38 | 38 |
use Data::Dumper; |
| 39 | 39 |
|
| 40 |
use SL::DBUtils; |
|
| 41 |
|
|
| 40 | 42 |
sub projects {
|
| 41 | 43 |
$main::lxdebug->enter_sub(); |
| 42 | 44 |
|
| ... | ... | |
| 47 | 49 |
|
| 48 | 50 |
my $sortorder = ($form->{sort}) ? $form->{sort} : "projectnumber";
|
| 49 | 51 |
|
| 50 |
my $query = qq|SELECT p.id, p.projectnumber, p.description |
|
| 52 |
my $query = qq|SELECT p.id, p.projectnumber, p.description, p.active
|
|
| 51 | 53 |
FROM project p |
| 52 | 54 |
WHERE 1 = 1|; |
| 53 | 55 |
|
| ... | ... | |
| 70 | 72 |
FROM project p, orderitems o |
| 71 | 73 |
WHERE p.id = o.project_id)"; |
| 72 | 74 |
} |
| 75 |
if ($form->{active} eq "active") {
|
|
| 76 |
$query .= " AND p.active"; |
|
| 77 |
} elsif ($form->{active} eq "inactive") {
|
|
| 78 |
$query .= " AND NOT p.active"; |
|
| 79 |
} |
|
| 73 | 80 |
|
| 74 | 81 |
$query .= qq| |
| 75 | 82 |
ORDER BY $sortorder|; |
| ... | ... | |
| 136 | 143 |
# connect to database |
| 137 | 144 |
my $dbh = $form->dbconnect($myconfig); |
| 138 | 145 |
|
| 139 |
map { $form->{$_} =~ s/\'/\'\'/g } qw(projectnumber description);
|
|
| 146 |
my @values = ($form->{projectnumber}, $form->{description});
|
|
| 140 | 147 |
|
| 141 | 148 |
if ($form->{id}) {
|
| 142 |
$query = qq|UPDATE project SET
|
|
| 143 |
projectnumber = '$form->{projectnumber}',
|
|
| 144 |
description = '$form->{description}'
|
|
| 145 |
WHERE id = $form->{id}|;
|
|
| 149 |
$query = |
|
| 150 |
qq|UPDATE project SET projectnumber = ?, description = ?, active = ? | .
|
|
| 151 |
qq|WHERE id = ?|;
|
|
| 152 |
push(@values, $form->{active} ? 't' : 'f', $form->{id});
|
|
| 146 | 153 |
} else {
|
| 147 |
$query = qq|INSERT INTO project
|
|
| 148 |
(projectnumber, description)
|
|
| 149 |
VALUES ('$form->{projectnumber}', '$form->{description}')|;
|
|
| 154 |
$query = |
|
| 155 |
qq|INSERT INTO project (projectnumber, description, active) | .
|
|
| 156 |
qq|VALUES (?, ?, 't')|;
|
|
| 150 | 157 |
} |
| 151 |
$dbh->do($query) || $form->dberror($query);
|
|
| 158 |
do_query($form, $dbh, $query, @values);
|
|
| 152 | 159 |
|
| 153 | 160 |
$dbh->disconnect; |
| 154 | 161 |
|
Auch abrufbar als: Unified diff
Bei Projekten ein Flag "aktiv" hinzugefügt.