jablonka.czprosek.czf

hotsanic

Subversion Repositories:
[/] [trunk/] [modules/] [system/] [makeindex.pl] - Diff between revs 1 and 27

Show entire file Ignore whitespace

Rev 1 Rev 27
Line 72... Line 72...
} }
$num=@res; $num=@res;
for ($nn=$num;$nn<$count;$nn++) { print IDXFILE "\n1## <td></td><td></td>";} for ($nn=$num;$nn<$count;$nn++) { print IDXFILE "\n1## <td></td><td></td>";}
   
@res = grep /cpu/, @db; @res = grep /cpu/, @db;
  print IDXFILE "
  2## <td>";
for (@res) { for (@res) {
($link_name = $_) =~ s/_/:/; ($link_name = $_) =~ s/_/:/;
print IDXFILE " print IDXFILE "
2## <td><a href=\"",$MODNAME,"/$_.html\"><img src=\"system/thumb-$_.",$IMAGEFORMAT,"\"></a></td> 2## <a href=\"",$MODNAME,"/$_.html\"><img src=\"system/thumb-$_.",$IMAGEFORMAT,"\"></a>
2## <td valign=top><a href=\"",$MODNAME,"/$_.html\">$link_name</a></td>"; 2## <a href=\"",$MODNAME,"/$_.html\">$link_name</a>";
  }
  print IDXFILE "
  2## </td>";
  for ($i = 0; $i < 2 * @res - 1; ++$i) {
  print IDXFILE "
  2## <td></td>";
} }
$num=@res; $num=@res;
for ($nn=$num;$nn<$count;$nn++) { print IDXFILE "\n2## <td></td><td></td>";} for ($nn=$num;$nn<$count;$nn++) { print IDXFILE "\n2## <td></td><td></td>";}
   
@res = grep /load/, @db; @res = grep /load/, @db;

Powered by WebSVN 2.2.1