Rev Author Line No. Line
909 miho 1 <?php
2 echo "<tr>\n";
3 /*Naètení adresáøe*/
4 $adresar1 = opendir($path.$folder."/".$HTTP_GET_VARS["file"]);
5 while ($soubor1 = readdir($adresar1)){
6 if ((Is_Dir($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1)) && (substr($soubor1,0,1) <> ".") && (substr($soubor1,0,1) <> "!")) {
7 /*Nastavení suffixu u obrázkù*/
8 $img = $soubor1."_Small.jpg";
9  
10 /*Pokud existuje náhled obrázku, zobraz ho*/
11 if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$img)) { echo "<td><A HREF=\"image.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\" TARGET=\"_blank\"><img src=\"thumb.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\" border=\"0\"></a></td>\n";
12 } else { echo "<td><img src=\"thumb.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\"></td>\n"; }
13 /*Pokud existuje HTML dokumentace k modulu vytvoø na ni odkaz*/
14 if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html")) {
15 echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html\">".$soubor1."</a></td>\n";
16 } else { echo "<td>".$soubor."<b>".$soubor1."</b></td>\n"; }
17 /*Pokud existuje PDF dokumentace k modulu zobraz odkaz*/
18 if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf")) {
19 echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf\">PDF</a></td>\n";
20 } else { echo "\n<td>-</td>\n"; }
21 /*WebSVN odkaz*/
22 echo "<td><a href=\"http://www.mlab.cz/WebSVN/listing.php?repname=MLAB&amp;path=/Modules/".$HTTP_GET_VARS["file"]."/".$soubor1."/\">WebSVN</a></td>\n";
23 /*Pokud existuje struèné info, zobraz ho*/
24 if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1)) {
25 $fp = FOpen ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1, "r");
26 $data = FRead ($fp, FileSize ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1));
27 FClose ($fp);
28 echo "<td>".wordwrap($data, 50, "<br>")."</td>\n";
29 } else { echo "\n<td><i>No description available</i></td>\n"; }
30 echo "</tr>\n\n";
31 }
32 }
33  
34 ?>