Mercurial > hg > reproctool-df

comparison reproctool.cgi @ 6:c80353ce6afc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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;