From c7bffefd26718a316f989fefa780a7edd95444f9 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 4 Apr 2007 08:55:22 +0000
Subject: [PATCH] =?utf8?q?Bei=20den=20Kunden-=20und=20Lieferantenstammdate?=
 =?utf8?q?n=20werden=20in=20den=20Berichten=20standardm=C3=A4=C3=9Fig=20nu?=
 =?utf8?q?r=20noch=20die=20g=C3=BCltigen=20angezeigt;=20die=20ung=C3=BClti?=
 =?utf8?q?gen=20k=C3=B6nnen=20=C3=BCber=20Radiobuttons=20trotzdem=20angeze?=
 =?utf8?q?igt=20werden.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/CT.pm          |  6 ++++++
 bin/mozilla/ct.pl | 11 ++++++++++-
 locale/de/all     |  1 +
 locale/de/ct      |  1 +
 4 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/SL/CT.pm b/SL/CT.pm
index d9a7ac704..82e360cc7 100644
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -624,6 +624,12 @@ sub search {
     $form->{l_invnumber} = $form->{l_ordnumber} = $form->{l_quonumber} = "";
   }
 
+  if ($form->{obsolete} eq "Y") {
+    $where .= qq| AND obsolete|;
+  } elsif ($form->{obsolete} eq "N") {
+    $where .= qq| AND NOT obsolete|;
+  }
+
   my $query =
     qq|SELECT ct.*, b.description AS business | .
     qq|FROM $cv ct | .
diff --git a/bin/mozilla/ct.pl b/bin/mozilla/ct.pl
index a091ff955..4ad5c3bf8 100644
--- a/bin/mozilla/ct.pl
+++ b/bin/mozilla/ct.pl
@@ -110,6 +110,15 @@ sub search {
     . $locale->text('All') . qq|
 	  <input name=status class=radio type=radio value=orphaned>&nbsp;|
     . $locale->text('Orphaned') . qq|</td>
+	</tr>
+	<tr>
+	  <td></td>
+	  <td><input name="obsolete" class="radio" type="radio" value="all">&nbsp;|
+    . $locale->text('All') . qq|
+	  <input name="obsolete" class="radio" type="radio" value="Y">&nbsp;|
+    . $locale->text('Obsolete') . qq|
+	  <input name="obsolete" class="radio" type="radio" value="N" checked>&nbsp;|
+    . $locale->text('Not obsolete') . qq|</td>
 	</tr>
 	<tr>
 	  <th align=right nowrap>| . $locale->text('Include in Report') . qq|</th>
@@ -299,7 +308,7 @@ sub list_names {
   CT->search(\%myconfig, \%$form);
 
   $callback =
-    "$form->{script}?action=list_names&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}";
+    "$form->{script}?action=list_names&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}&obsolete=$form->{obsolete}";
   $href = $callback;
 
   @columns =
diff --git a/locale/de/all b/locale/de/all
index 1b176852e..4377e9586 100644
--- a/locale/de/all
+++ b/locale/de/all
@@ -702,6 +702,7 @@ gestartet',
   'Non-taxable Sales'           => 'Nicht zu versteuernde Verkäufe',
   'Not Discountable'            => 'Nicht rabattierfähig',
   'Not delivered'               => 'Nicht geliefert',
+  'Not obsolete'                => 'Gültig',
   'Notes'                       => 'Bemerkungen',
   'Nothing selected!'           => 'Es wurde nichts ausgewählt!',
   'Nothing to delete!'          => 'Es konnte nichts gelöscht werden!',
diff --git a/locale/de/ct b/locale/de/ct
index d45d635b1..1a1c150ca 100644
--- a/locale/de/ct
+++ b/locale/de/ct
@@ -69,6 +69,7 @@ $self->{texts} = {
   'No employee was found matching the search parameters.' => 'Es wurde kein Angestellter gefunden, auf den die Suchparameter zutreffen.',
   'No part was found matching the search parameters.' => 'Es wurde kein Artikel gefunden, auf den die Suchparameter zutreffen.',
   'No project was found matching the search parameters.' => 'Es wurde kein Projekt gefunden, auf das die Suchparameter zutreffen.',
+  'Not obsolete'                => 'Gültig',
   'Notes'                       => 'Bemerkungen',
   'Number'                      => 'Nummer',
   'Obsolete'                    => 'Ungültig',
-- 
2.20.1