cvs commit: www/scripts manage_news.pl

lizardo at linuxfromscratch.org lizardo at linuxfromscratch.org
Wed Nov 26 12:16:13 PST 2003


lizardo     03/11/26 13:16:13

  Modified:    scripts  manage_news.pl
  Log:
  manage_news.pl: Little modification on output.
  
  Revision  Changes    Path
  1.22      +4 -4      www/scripts/manage_news.pl
  
  Index: manage_news.pl
  ===================================================================
  RCS file: /home/cvsroot/www/scripts/manage_news.pl,v
  retrieving revision 1.21
  retrieving revision 1.22
  diff -u -r1.21 -r1.22
  --- manage_news.pl	26 Nov 2003 18:49:09 -0000	1.21
  +++ manage_news.pl	26 Nov 2003 20:16:13 -0000	1.22
  @@ -17,7 +17,7 @@
   # along with this program; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
   
  -# $Id: manage_news.pl,v 1.21 2003/11/26 18:49:09 lizardo Exp $
  +# $Id: manage_news.pl,v 1.22 2003/11/26 20:16:13 lizardo Exp $
   
   use strict;
   use warnings;
  @@ -181,11 +181,11 @@
       }
       my @show_as_links = splice(@{[$mime_entity->parts]}, $show_content, $show_link);
       if (@show_as_links) {
  -        print "<ul>\n";
  +        print "<div class=\"oldnews\">\n\t<h3>Previous news:</h3>\n\t<ul>\n";
           foreach my $part (@show_as_links) {
  -            print "\t<li>" . mime2link($part) . "</li>\n";
  +            print "\t\t<li>" . mime2link($part) . "</li>\n";
           }
  -        print "</ul>\n";
  +        print "\t</ul>\n</div>\n";
       }
       #my $year = isodate2any(${[$mime_entity->parts]}[0]->head, '%Y');
       #print "<p><a href=\"${lfs_url}news/${section}${year}/\">Read previous news</a></p>\n";
  
  
  



More information about the website mailing list