Mercurial > hg > reproctool-df
comparison reproctool.cgi @ 7:e30154411e63
Even a more cheapy solution, but like this we re at least not changing db data to fit it to the IGB
author | df |
---|---|
date | Sun, 25 Jan 2009 12:31:34 +0000 |
parents | c80353ce6afc |
children | ccd5e74fa58e 6b98a17fbe22 |
comparison
equal
deleted
inserted
replaced
6:c80353ce6afc | 7:e30154411e63 |
---|---|
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 | |
123 if ($col == $cols) | 119 if ($col == $cols) |
124 { | 120 { |
125 print "</tr><tr>\n"; | 121 print "</tr><tr>\n"; |
126 $col = 0; | 122 $col = 0; |
127 } | 123 } |
149 $img = "typeicon:07_15"; | 145 $img = "typeicon:07_15"; |
150 } | 146 } |
151 | 147 |
152 print "<td width='64' class='item'>"; | 148 print "<td width='64' class='item'>"; |
153 print "<a href='$link'>" if defined $link; | 149 print "<a href='$link'>" if defined $link; |
154 print "<img src='$img' width='64' height='64' border='1' alt='$htmlItemName' />"; | 150 print "<img src='$img' width='64' height='64' border='1' alt=\"$item->{name}\" />"; |
155 print "</a>" if defined $link; | 151 print "</a>" if defined $link; |
156 print "<br />"; | 152 print "<br />"; |
157 print "<font color='$colour'>" if defined $colour; | 153 print "<font color='$colour'>" if defined $colour; |
158 print $text; | 154 print $text; |
159 print "</font>" if defined $colour; | 155 print "</font>" if defined $colour; |