X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9caaa245e1bc3309a7d8f198228dbfd9d4555bee..c7bffefd26718a316f989fefa780a7edd95444f9:/bin/mozilla/ct.pl

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 =