- allow for obsoletion of testgroups. Only display testgroups that are not marked as obsolete.

webtools/litmus/Litmus/DB/Testgroup.pm

@@ -37,7 +37,7 @@ use base 'Litmus::DBI';
 
 Litmus::DB::Testgroup->table('test_groups');
 
-Litmus::DB::Testgroup->columns(All => qw/testgroup_id product_id name expiration_days/);
+Litmus::DB::Testgroup->columns(All => qw/testgroup_id product_id name expiration_days obsolete/);
 
 Litmus::DB::Testgroup->column_alias("testgroup_id", "testgroupid");
 Litmus::DB::Testgroup->column_alias("product_id", "product");

webtools/litmus/run_tests.cgi

@@ -103,7 +103,7 @@ sub page_pickGroupSubgroup {
     }
     
     # get all groups for the product:
-    my @groups = Litmus::DB::Testgroup->search(product => $sysconfig->product());
+    my @groups = Litmus::DB::Testgroup->search(product => $sysconfig->product(), obsolete => 'No');
     
     # all possible subgroups per group:
     my %subgroups;