projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Beim Drucken von noch nicht gespeicherten Angeboten etc sollte das vom Benutzer ausge...
[kivitendo-erp.git]
/
SL
/
PE.pm
diff --git
a/SL/PE.pm
b/SL/PE.pm
index
1532e79
..
5a23fb7
100644
(file)
--- a/
SL/PE.pm
+++ b/
SL/PE.pm
@@
-136,7
+136,7
@@
sub save_project {
# connect to database
my $dbh = $form->dbconnect($myconfig);
# connect to database
my $dbh = $form->dbconnect($myconfig);
- map { $form->{$_} =~ s/\'/\'\'/g }
(projectnumber,
description);
+ map { $form->{$_} =~ s/\'/\'\'/g }
qw(projectnumber
description);
if ($form->{id}) {
$query = qq|UPDATE project SET
if ($form->{id}) {
$query = qq|UPDATE project SET
@@
-218,8
+218,7
@@
sub save_partsgroup {
# connect to database
my $dbh = $form->dbconnect($myconfig);
# 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}) {
$form->{discount} /= 100;
if ($form->{id}) {
@@
-332,7
+331,6
@@
sub pricegroups {
WHERE $where
ORDER BY $sortorder|;
}
WHERE $where
ORDER BY $sortorder|;
}
-print STDERR "asdfasdf-$query\n";
$sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
$sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
@@
-361,7
+359,7
@@
sub save_pricegroup {
# connect to database
my $dbh = $form->dbconnect($myconfig);
# connect to database
my $dbh = $form->dbconnect($myconfig);
- map { $form->{$_} =~ s/\'/\'\'/g } (pricegroup);
+ map { $form->{$_} =~ s/\'/\'\'/g }
qw
(pricegroup);
$form->{discount} /= 100;
$form->{discount} /= 100;
@@
-385,7
+383,7
@@
sub save_pricegroup {
#
sub get_pricegroup {
$main::lxdebug->enter_sub();
#
sub get_pricegroup {
$main::lxdebug->enter_sub();
-print STDERR "PE.pm-get_pricegroup\n";
+
my ($self, $myconfig, $form) = @_;
# connect to database
my ($self, $myconfig, $form) = @_;
# connect to database
@@
-416,7
+414,7
@@
print STDERR "PE.pm-get_pricegroup\n";
$sth->finish;
$dbh->disconnect;
$sth->finish;
$dbh->disconnect;
-#print (STDERR " ", Dumper($form));
+
$main::lxdebug->leave_sub();
}
$main::lxdebug->leave_sub();
}