bagder: curl-www/dl mktable.pl,1.7,1.8

Update of /cvsroot/curl/curl-www/dl
In directory labb:/tmp/cvs-serv18060

Modified Files:
	mktable.pl 
Log Message:
more (hidden) quick-links and a different oslink box


Index: mktable.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/mktable.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- mktable.pl	10 Oct 2004 07:56:21 -0000	1.7
+++ mktable.pl	15 Apr 2005 10:30:51 -0000	1.8
@@ -82,11 +82,12 @@
     $os{$$_{'os'}}=1;
 }
 
+print "<div class=\"oslinks\">\n";
 my $p=0;
 for(sort keys %os) {
     if($_ ne "-") {
         if($p) {
-            print ",\n";
+            print "<br>\n";
         }
         my $anch=$_;
         $anch =~ s/[^a-zA-Z0-9]//g;
@@ -94,6 +95,7 @@
         $p++;
     }
 }
+print "</div>\n";
 
 print "\n<p><table class=\"download2\" cellpadding=\"0\" cellspacing=\"0\">\n";
     print "<tr>\n";    
@@ -167,6 +169,15 @@
             $aname= "<a name=\"$anch\"></a>";
             $shown{$s}=$anch;
         }
+        my $c = "${s}${f}";
+        if($f && ($f ne "-")) {
+            if(!$shown{"$c"}) {
+                my $anch="$c";
+                $anch =~ s/[^a-zA-Z0-9]//g;
+                $aname .= "<a name=\"$anch\"></a>";
+                $shown{"$c"}=$anch;
+            }
+        }
         my $img;
         if($$per{'img'}) {
             my $alt = "$os";

_______________________________________________
http://cool.haxx.se/mailman/listinfo/curl-www-commits