lreminder: undo rewriting <br> to empty string

[lugs.git] / make-html / make-html.pl

diff --git a/make-html/make-html.pl b/make-html/make-html.pl
index 6b66bc9d96cee62cbee68254238369a75dd7b01f..be6d14525cae6f6ec7d7dd20a19c797a6ca2cb77 100755 (executable)
--- a/make-html/make-html.pl
+++ b/make-html/make-html.pl
@@ -3,13 +3,13 @@
 # Konvertiert die LUGS-Terminliste (im ASCII Format) in ein HTML-File
 #
 # (c) 1996-1998               Roland Alder
 # Konvertiert die LUGS-Terminliste (im ASCII Format) in ein HTML-File
 #
 # (c) 1996-1998               Roland Alder

-# (c) 2007-2008, 2011-2013    Steven Schubiger
+# (c) 2007-2008, 2011-2014    Steven Schubiger

 
 use strict;
 use warnings;
 use lib qw(lib);
 
 
 use strict;
 use warnings;
 use lib qw(lib);
 

-my $VERSION = '0.03';
+my $VERSION = '0.04';

 
 #-----------------------
 # Start of configuration
 
 #-----------------------
 # Start of configuration


@@ -34,9 +34,10 @@ my $Config = {
        winti         => 'd6d6ce',      # ex http://www.stadt-winterthur.ch/
        innerschweiz  => '8abed7',      # ex http://www.luzern.ch/
        kreuzlingen   => 'f9f9f9',      # ehemals aargau (ex http://www.ag.ch/)
        winti         => 'd6d6ce',      # ex http://www.stadt-winterthur.ch/
        innerschweiz  => '8abed7',      # ex http://www.luzern.ch/
        kreuzlingen   => 'f9f9f9',      # ehemals aargau (ex http://www.ag.ch/)

-       uzwil         => 'e2b1a5',      # wie heisst diese Farbe? :)

        stgallen      => 'e2b1a5',      # wie heisst diese Farbe? :)
        gnupingu      => 'ffd133',      # von http://www.gnupingu.ch/
        stgallen      => 'e2b1a5',      # wie heisst diese Farbe? :)
        gnupingu      => 'ffd133',      # von http://www.gnupingu.ch/

+       debian        => 'ffa500',      # orange
+       hackerfunk    => '99b2cd',      # blau/grau

     },
     ical_dir    => 'ical',
 };
     },
     ical_dir    => 'ical',
 };


@@ -74,7 +75,7 @@ use constant true => 1;
 
 use File::Copy qw(copy);
 use File::Temp qw(tempfile);
 
 use File::Copy qw(copy);
 use File::Temp qw(tempfile);

-use LUGS::Events::Parser;
+use LUGS::Events::Parser ();

 
 # Return a new instance of our class.
 sub new
 
 # Return a new instance of our class.
 sub new


@@ -368,7 +369,7 @@ __DATA__
 # fussnoten
 -
 <p>
 # fussnoten
 -
 <p>

-<font size="-1">Alle Angaben ohne Gew&auml;hr, letzte Änderung der Terminliste: [% AENDERUNG %]</font>
+<font size="-1">Alle Angaben ohne Gew&auml;hr, letzte &Auml;nderung der Terminliste: [% AENDERUNG %]</font>

 
 # blank
 -
 
 # blank
 -