www/prep/gnumaint gm-generate.pl

[Therese Godefroy]

CVSROOT:        /webcvs/www
Module name:    www
Changes by:     Therese Godefroy <th_g> 22/06/12 04:20:34

Modified files:
        prep/gnumaint  : gm-generate.pl 

Log message:
        (generate-logos_html) Replace dl list with ul; link thumbnail to its 
source.

CVSWeb URLs:
http://web.cvs.savannah.gnu.org/viewcvs/www/prep/gnumaint/gm-generate.pl?cvsroot=www&r1=1.27&r2=1.28

Patches:
Index: gm-generate.pl
===================================================================
RCS file: /webcvs/www/www/prep/gnumaint/gm-generate.pl,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -b -r1.27 -r1.28
--- gm-generate.pl      15 May 2021 19:18:30 -0000      1.27
+++ gm-generate.pl      12 Jun 2022 08:20:34 -0000      1.28
@@ -1,4 +1,4 @@
-# $Id: gm-generate.pl,v 1.27 2021/05/15 19:18:30 th_g Exp $
+# $Id: gm-generate.pl,v 1.28 2022/06/12 08:20:34 th_g Exp $
 # The generate actions for the gm script (see --help message).
 # 
 # Copyright 2007, 2008, 2009, 2010, 2012, 2013, 2014, 2020
@@ -27,7 +27,7 @@
 # 
 sub generate_logos_html {
   my $autostamp = &generated_by_us ();
-  my @ret = ("<!-- File $autostamp -->\n<dl>\n");
+  my @ret = ("<!-- File $autostamp -->\n<ul>\n");
   
   my %pkgs = &read_gnupackages ();
   for my $pkgname (sort keys %pkgs) {
@@ -35,13 +35,13 @@
     my $logo = $pkgs{$pkgname}->{"logo"};
     next unless $logo;
     
-    push (@ret, qq!<dt><a href="/software/$pkgname/">$pkgname</a></dt>!);
-    push (@ret, qq!<dd><img alt="$pkgname" !
-                . qq!src="/graphics/pkg-logos-250x100/$pkgname.250x100.png" />!
-                . qq!\n</dd>\n!);
+    push (@ret, qq!<li><a href="/software/$pkgname/">$pkgname</a><br />!);
+    push (@ret, qq!<a href="$logo"><img alt="$pkgname" !
+                . qq!src="/graphics/pkg-logos-250x100/$pkgname.250x100.png" 
/></a>!
+                . qq!\n</li>\n!);
   }
 
-  push (@ret, "</dl>\n<!-- End file $autostamp -->");
+  push (@ret, "</ul>\n<!-- End file $autostamp -->");
 
   return @ret;
 }