Author: joeyh
Date: 2005-06-20 04:07:52 +0000 (Mon, 20 Jun 2005)
New Revision: 1243
Modified:
data/checklist
Log:
add fancy html colors
Modified: data/checklist
==================================================================---
data/checklist 2005-06-20 03:46:47 UTC (rev 1242)
+++ data/checklist 2005-06-20 04:07:52 UTC (rev 1243)
@@ -19,12 +19,19 @@
my %data;
-my @urgencies=("high", "medium", "low",
"unknown");
my %needkernel=qw/2.4.27 0 2.6.11 0/;
my $list_unknown=1; #set to 1 to display kernel images with unknown source
version
my $sources=$ENV{SOURCES_FILE};
my $need_rebuild=0;
+my @urgencies=("high", "medium", "low",
"unknown");
+my %colormap=(
+ high => "#FF0000",
+ medium => "#FF9999",
+ low => "#FFFFFF",
+ unknown => "#FFFFFF"
+);
+
my $unprop = my $unprop_all = my $unfixed = my $todos = 0;
sub record {
@@ -152,15 +159,13 @@
print ", " if $items > 0;
if ($html) {
- # TODO: replace with html for shades of red.
- if ($i->{urgency} eq ''high'') {
- print "!!!";
- }
- elsif ($i->{urgency} eq ''medium'') {
- print "!";
- }
+ my $color=$colormap{$i->{urgency}};
+ print "<span style=\"background:$color\">";
}
print $i->{item};
+ if ($html) {
+ print "</span>";
+ }
$items++;
}