aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perllib/Problems.pm2
-rwxr-xr-xweb-admin/index.cgi5
2 files changed, 5 insertions, 2 deletions
diff --git a/perllib/Problems.pm b/perllib/Problems.pm
index 44498aa73..bb57cbbb5 100644
--- a/perllib/Problems.pm
+++ b/perllib/Problems.pm
@@ -353,7 +353,7 @@ sub update_search {
problem_id=? or comment.email ilike '%'||?||'%' or comment.name ilike '%'||?||'%' or
comment.text ilike '%'||?||'%' or comment.cobrand_data ilike '%'||?||'%')
$site_restriction
- order by created", $search_n, $search_n, $search, $search,
+ order by (state='hidden'),created", $search_n, $search_n, $search, $search,
$search, $search);
return $updates;
}
diff --git a/web-admin/index.cgi b/web-admin/index.cgi
index 2ea68d065..95d500728 100755
--- a/web-admin/index.cgi
+++ b/web-admin/index.cgi
@@ -87,6 +87,7 @@ sub html_head($$) {
<style type="text/css">
dt { clear: left; float: left; font-weight: bold; }
dd { margin-left: 8em; }
+.hidden { color: #999999; }
</style>
</head>
<body>
@@ -660,7 +661,9 @@ sub admin_show_updates {
$url);
}
my $cobrand = $_->{cobrand} . '<br>' . $_->{cobrand_data};
- print $q->Tr({}, $q->td([ $url, $_->{state}, ent($_->{name} || ''),
+ my $attr = {};
+ $attr{-class} = 'hidden' if $_->{state} eq 'hidden';
+ print $q->Tr($attr, $q->td([ $url, $_->{state}, ent($_->{name} || ''),
ent($_->{email}), $_->{created}, $cobrand, ent($_->{text}),
$q->a({ -href => NewURL($q, page=>'update_edit', id=>$_->{id}) }, 'Edit')
]));