Mercurial > hg > reproctool-df
comparison reproctool.cgi @ 6:c80353ce6afc
Cheap solution to make ALT work on eve :(
author | df |
---|---|
date | Sun, 25 Jan 2009 12:28:41 +0000 |
parents | 42268fc087a9 |
children | e30154411e63 |
comparison
equal
deleted
inserted
replaced
5:42268fc087a9 | 6:c80353ce6afc |
---|---|
114 <table> | 114 <table> |
115 END | 115 END |
116 | 116 |
117 for my $item (@output) | 117 for my $item (@output) |
118 { | 118 { |
119 # Due to some IGB limitations, we cant use escapeHTML(). So the workaround is useing "'s. | |
120 my $htmlItemName=$item->{name}; | |
121 $htmlItemName=~s/'/"/g; | |
122 | |
119 if ($col == $cols) | 123 if ($col == $cols) |
120 { | 124 { |
121 print "</tr><tr>\n"; | 125 print "</tr><tr>\n"; |
122 $col = 0; | 126 $col = 0; |
123 } | 127 } |
145 $img = "typeicon:07_15"; | 149 $img = "typeicon:07_15"; |
146 } | 150 } |
147 | 151 |
148 print "<td width='64' class='item'>"; | 152 print "<td width='64' class='item'>"; |
149 print "<a href='$link'>" if defined $link; | 153 print "<a href='$link'>" if defined $link; |
150 print "<img src='$img' width='64' height='64' border='1' alt='$item->{name}' />"; | 154 print "<img src='$img' width='64' height='64' border='1' alt='$htmlItemName' />"; |
151 print "</a>" if defined $link; | 155 print "</a>" if defined $link; |
152 print "<br />"; | 156 print "<br />"; |
153 print "<font color='$colour'>" if defined $colour; | 157 print "<font color='$colour'>" if defined $colour; |
154 print $text; | 158 print $text; |
155 print "</font>" if defined $colour; | 159 print "</font>" if defined $colour; |