cvs commit: www manage_news.pl

lizardo at linuxfromscratch.org lizardo at linuxfromscratch.org
Fri Sep 5 12:50:03 PDT 2003


lizardo     03/09/05 13:50:03

  Modified:    .        manage_news.pl
  Log:
  Fixed newly introduced bugs on manage_news.pl.
  
  Revision  Changes    Path
  1.4       +3 -2      www/manage_news.pl
  
  Index: manage_news.pl
  ===================================================================
  RCS file: /home/cvsroot/www/manage_news.pl,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- manage_news.pl	5 Sep 2003 19:30:18 -0000	1.3
  +++ manage_news.pl	5 Sep 2003 19:50:03 -0000	1.4
  @@ -205,10 +205,11 @@
               $news_id =~ s/\W+//g;
           }
           # Output the actual XHTML code
  -        print NEWS "\t<h3 id=\"$news_id\"><a href=\"$archive_url#$news_id\">" .
  +        print "\t<h3 id=\"$news_id\"><a href=\"$archive_url#$news_id\">" .
           Get_header($part->head, "title") . "</a></h3>\n" .
           "\t\t<h4>" . Get_header($part->head, "author") . " - " .
  -        Get_header($part->head, "date") . "</h4>\n";
  +        Get_header($part->head, "date") . "</h4>\n" .
  +        $part->bodyhandle->as_string . "\n";
       }
       if (Get_header($entity->head, "section") =~ /^general$/i) {
           print <<EOF;
  
  
  



More information about the website mailing list