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;