use Data::Dumper;
+use SL::DBUtils;
+
sub projects {
$main::lxdebug->enter_sub();
my $sortorder = ($form->{sort}) ? $form->{sort} : "projectnumber";
- my $query = qq|SELECT p.id, p.projectnumber, p.description
+ my $query = qq|SELECT p.id, p.projectnumber, p.description, p.active
FROM project p
WHERE 1 = 1|;
FROM project p, orderitems o
WHERE p.id = o.project_id)";
}
+ if ($form->{active} eq "active") {
+ $query .= " AND p.active";
+ } elsif ($form->{active} eq "inactive") {
+ $query .= " AND NOT p.active";
+ }
$query .= qq|
ORDER BY $sortorder|;
# connect to database
my $dbh = $form->dbconnect($myconfig);
- map { $form->{$_} =~ s/\'/\'\'/g } (projectnumber, description);
+ my @values = ($form->{projectnumber}, $form->{description});
if ($form->{id}) {
- $query = qq|UPDATE project SET
- projectnumber = '$form->{projectnumber}',
- description = '$form->{description}'
- WHERE id = $form->{id}|;
+ $query =
+ qq|UPDATE project SET projectnumber = ?, description = ?, active = ? | .
+ qq|WHERE id = ?|;
+ push(@values, $form->{active} ? 't' : 'f', $form->{id});
} else {
- $query = qq|INSERT INTO project
- (projectnumber, description)
- VALUES ('$form->{projectnumber}', '$form->{description}')|;
+ $query =
+ qq|INSERT INTO project (projectnumber, description, active) | .
+ qq|VALUES (?, ?, 't')|;
}
- $dbh->do($query) || $form->dberror($query);
+ do_query($form, $dbh, $query, @values);
$dbh->disconnect;
# connect to database
my $dbh = $form->dbconnect($myconfig);
- map { $form->{$_} =~ s/\'/\'\'/g } (partsgroup);
-
+ map { $form->{$_} =~ s/\'/\'\'/g } qw(partsgroup);
$form->{discount} /= 100;
if ($form->{id}) {
WHERE $where
ORDER BY $sortorder|;
}
-print STDERR "asdfasdf-$query\n";
$sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
# connect to database
my $dbh = $form->dbconnect($myconfig);
- map { $form->{$_} =~ s/\'/\'\'/g } (pricegroup);
+ map { $form->{$_} =~ s/\'/\'\'/g } qw(pricegroup);
$form->{discount} /= 100;
#
sub get_pricegroup {
$main::lxdebug->enter_sub();
-print STDERR "PE.pm-get_pricegroup\n";
+
my ($self, $myconfig, $form) = @_;
# connect to database
$sth->finish;
$dbh->disconnect;
-#print (STDERR " ", Dumper($form));
+
$main::lxdebug->leave_sub();
}