From b29783a3f0cff568b5d344d4fd34fe65840bea46 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Mon, 18 May 2009 10:06:20 +0000 Subject: [PATCH] Beim Anlegen von Wiedervorlagen die Kunden- bzw. Lieferanten-ID nicht mit als Referenz speichern. MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Werden in den Ein- und Verkaufsbelegen die Lieferanten bzw. Kunden mit einer Drop-Down-Box dargestellt, so wurde die Datenbank-ID des Lieferanten/Kunden mit in die Referenz übernommen, weil der reguläre Ausdruck die ID nicht entfernt hat (".*?" matcht nun mal auf den leeren String). Fix für Bug 999. --- bin/mozilla/ir.pl | 2 +- bin/mozilla/is.pl | 2 +- bin/mozilla/oe.pl | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl index 342304d9b..440ee6e40 100644 --- a/bin/mozilla/ir.pl +++ b/bin/mozilla/ir.pl @@ -411,7 +411,7 @@ sub form_header { "duedate", "BL", "trigger2"); my $follow_up_vc = $form->{vendor}; - $follow_up_vc =~ s/--.*?//; + $follow_up_vc =~ s/--\d*\s*$//; my $follow_up_trans_info = "$form->{invnumber} ($follow_up_vc)"; $form->{javascript} .= qq||; diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl index d2f27c925..9bc225e88 100644 --- a/bin/mozilla/is.pl +++ b/bin/mozilla/is.pl @@ -565,7 +565,7 @@ sub form_header { $credittext = $locale->text('Credit Limit exceeded!!!'); my $follow_up_vc = $form->{customer}; - $follow_up_vc =~ s/--.*?//; + $follow_up_vc =~ s/--\d*\s*$//; my $follow_up_trans_info = "$form->{invnumber} ($follow_up_vc)"; $onload = ($form->{resubmit} && ($form->{format} eq "html")) ? qq|window.open('about:blank','Beleg'); document.invoice.target = 'Beleg';document.invoice.submit()| diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl index c86de3763..b337842ff 100644 --- a/bin/mozilla/oe.pl +++ b/bin/mozilla/oe.pl @@ -342,7 +342,7 @@ sub form_header { $credittext = $locale->text('Credit Limit exceeded!!!'); my $follow_up_vc = $form->{ $form->{vc} eq 'customer' ? 'customer' : 'vendor' }; - $follow_up_vc =~ s/--.*?//; + $follow_up_vc =~ s/--\d*\s*$//; $TMPL_VAR{follow_up_trans_info} = ($form->{type} =~ /_quotation$/ ? $form->{quonumber} : $form->{ordnumber}) . " ($follow_up_vc)"; if ($form->{id}) { -- 2.20.1