Mercurial > hg > reproctool-df
comparison reproctool.cgi @ 10:de10d02dc715
Using item images for non-IGB browsers
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Sun, 25 Jan 2009 13:14:07 +0000 |
parents | 6b98a17fbe22 |
children | f749981ad862 |
comparison
equal
deleted
inserted
replaced
9:6b98a17fbe22 | 10:de10d02dc715 |
---|---|
120 | 120 |
121 <body> | 121 <body> |
122 <table> | 122 <table> |
123 END | 123 END |
124 | 124 |
125 my $igb = ($ENV{HTTP_USER_AGENT} =~ /EVE-minibrowser/i); | |
126 | |
125 for my $item (@output) | 127 for my $item (@output) |
126 { | 128 { |
127 if ($col == $cols) | 129 if ($col == $cols) |
128 { | 130 { |
129 print "</tr><tr>\n"; | 131 print "</tr><tr>\n"; |
133 my ($style, $img, $text, $link, $colour); | 135 my ($style, $img, $text, $link, $colour); |
134 | 136 |
135 if (defined $item->{id}) | 137 if (defined $item->{id}) |
136 { | 138 { |
137 $style = "meta$item->{meta}"; | 139 $style = "meta$item->{meta}"; |
138 $img = "typeicon:$item->{id}"; | 140 if ($igb) |
139 $link = "showinfo:$item->{id}"; | 141 { |
142 $img = "typeicon:$item->{id}"; | |
143 $link = "showinfo:$item->{id}"; | |
144 } | |
145 else | |
146 { | |
147 $img = "$img_http_path/icons/icons_items_png/64_64/icon$item->{icon}.png"; | |
148 } | |
149 | |
140 if ($item->{meta} == 4) | 150 if ($item->{meta} == 4) |
141 { | 151 { |
142 $text = $item->{name}; | 152 $text = $item->{name}; |
143 $colour = "#FF0000"; | 153 $colour = "#FF0000"; |
144 } | 154 } |