Bei den Kunden- und Lieferantenstammdaten werden in den Berichten standardmäßig nur...

diff --git a/SL/CT.pm b/SL/CT.pm
index d9a7ac7..82e360c 100644 (file)
--- 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 a091ff9..4ad5c3b 100644 (file)
--- 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 1b17685..4377e95 100644 (file)
--- 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 d45d635..1a1c150 100644 (file)
--- 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',