projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fehler bei Lieferadressen die Anfuehrungszeichen im Namen enthalten
[kivitendo-erp.git]
/
SL
/
Form.pm
diff --git
a/SL/Form.pm
b/SL/Form.pm
index
32ff29e
..
4bea5f0
100644
(file)
--- a/
SL/Form.pm
+++ b/
SL/Form.pm
@@
-349,7
+349,7
@@
sub isblank {
sub header {
$main::lxdebug->enter_sub();
sub header {
$main::lxdebug->enter_sub();
- my ($self) = @_;
+ my ($self
, $extra_code
) = @_;
if ($self->{header}) {
$main::lxdebug->leave_sub();
if ($self->{header}) {
$main::lxdebug->leave_sub();
@@
-439,6
+439,7
@@
function fokus(){document.$self->{fokus}.focus();}
</script>
</script>
+ $extra_code
</head>
|;
</head>
|;
@@
-838,7
+839,7
@@
sub parse_template {
} else {
} else {
- @{ $mail->{attachments} } = ($self->{tmpfile}) unless ($
form
->{do_not_attach});
+ @{ $mail->{attachments} } = ($self->{tmpfile}) unless ($
self
->{do_not_attach});
$mail->{message} =~ s/\r\n/\n/g;
$myconfig->{signature} =~ s/\\n/\n/g;
$mail->{message} =~ s/\r\n/\n/g;
$myconfig->{signature} =~ s/\\n/\n/g;
@@
-1261,7
+1262,7
@@
sub get_shipto {
my $sth = $dbh->prepare($query);
$sth->execute || $self->dberror($query);
$ref = $sth->fetchrow_hashref(NAME_lc);
my $sth = $dbh->prepare($query);
$sth->execute || $self->dberror($query);
$ref = $sth->fetchrow_hashref(NAME_lc);
- map { $
form
->{$_} = $ref->{$_} } keys %$ref;
+ map { $
self
->{$_} = $ref->{$_} } keys %$ref;
$sth->finish;
$dbh->disconnect;
}
$sth->finish;
$dbh->disconnect;
}
@@
-1534,7
+1535,7
@@
sub all_vc {
FROM language
ORDER BY 1|;
$sth = $dbh->prepare($query);
FROM language
ORDER BY 1|;
$sth = $dbh->prepare($query);
- $sth->execute || $
form
->dberror($query);
+ $sth->execute || $
self
->dberror($query);
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $self->{languages} }, $ref;
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $self->{languages} }, $ref;
@@
-1546,7
+1547,7
@@
sub all_vc {
FROM printers
ORDER BY 1|;
$sth = $dbh->prepare($query);
FROM printers
ORDER BY 1|;
$sth = $dbh->prepare($query);
- $sth->execute || $
form
->dberror($query);
+ $sth->execute || $
self
->dberror($query);
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $self->{printers} }, $ref;
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $self->{printers} }, $ref;
@@
-1559,7
+1560,7
@@
sub all_vc {
FROM payment_terms
ORDER BY 1|;
$sth = $dbh->prepare($query);
FROM payment_terms
ORDER BY 1|;
$sth = $dbh->prepare($query);
- $sth->execute || $
form
->dberror($query);
+ $sth->execute || $
self
->dberror($query);
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $self->{payment_terms} }, $ref;
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $self->{payment_terms} }, $ref;
@@
-1585,7
+1586,7
@@
sub language_payment {
FROM language
ORDER BY 1|;
my $sth = $dbh->prepare($query);
FROM language
ORDER BY 1|;
my $sth = $dbh->prepare($query);
- $sth->execute || $
form
->dberror($query);
+ $sth->execute || $
self
->dberror($query);
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $self->{languages} }, $ref;
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $self->{languages} }, $ref;
@@
-1597,7
+1598,7
@@
sub language_payment {
FROM printers
ORDER BY 1|;
$sth = $dbh->prepare($query);
FROM printers
ORDER BY 1|;
$sth = $dbh->prepare($query);
- $sth->execute || $
form
->dberror($query);
+ $sth->execute || $
self
->dberror($query);
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $self->{printers} }, $ref;
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $self->{printers} }, $ref;
@@
-1609,7
+1610,7
@@
sub language_payment {
FROM payment_terms
ORDER BY 1|;
$sth = $dbh->prepare($query);
FROM payment_terms
ORDER BY 1|;
$sth = $dbh->prepare($query);
- $sth->execute || $
form
->dberror($query);
+ $sth->execute || $
self
->dberror($query);
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $self->{payment_terms} }, $ref;
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
push @{ $self->{payment_terms} }, $ref;
@@
-1620,7
+1621,7
@@
sub language_payment {
$query = qq|SELECT id, description
FROM buchungsgruppen|;
$sth = $dbh->prepare($query);
$query = qq|SELECT id, description
FROM buchungsgruppen|;
$sth = $dbh->prepare($query);
- $sth->execute || $
form
->dberror($query);
+ $sth->execute || $
self
->dberror($query);
$self->{BUCHUNGSGRUPPEN} = [];
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
$self->{BUCHUNGSGRUPPEN} = [];
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
@@
-1733,7
+1734,7
@@
sub create_links {
$query = qq|SELECT id, description
FROM tax_zones|;
$sth = $dbh->prepare($query);
$query = qq|SELECT id, description
FROM tax_zones|;
$sth = $dbh->prepare($query);
- $sth->execute || $
form
->dberror($query);
+ $sth->execute || $
self
->dberror($query);
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {