X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/e2d088aad735c205c587bd920cb79254e28501ec..bca3eed65c50f585248ae3a1cc8bb6a74e4e8bb8:/selfforum-cgi/shared/Template/Archive.pm?ds=sidebyside

diff --git a/selfforum-cgi/shared/Template/Archive.pm b/selfforum-cgi/shared/Template/Archive.pm
index 7e97add..d3706a4 100644
--- a/selfforum-cgi/shared/Template/Archive.pm
+++ b/selfforum-cgi/shared/Template/Archive.pm
@@ -4,13 +4,18 @@ package Template::Archive;
 #                                                                              #
 # File:        shared/Template/Archive.pm                                      #
 #                                                                              #
-# Authors:     Frank Schoenmann <fs@tower.de>, 2001-06-08                      #
+# Authors:     Andre Malo       <nd@o3media.de>, 2001-06-16                    #
+#              Frank Schoenmann <fs@tower.de>,   2001-06-08                    #
 #                                                                              #
 # Description: archive display                                                 #
 #                                                                              #
 ################################################################################
 
 use strict;
+use vars qw(
+  @EXPORT
+  $VERSION
+);
 
 use Lock qw(:READ);
 use Encode::Posting;
@@ -35,12 +40,18 @@ use Template;
 use Template::_conf;
 use Template::_thread;
 
+################################################################################
+#
+# Version check
+#
+$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+
 ################################################################################
 #
 # Export
 #
 use base qw(Exporter);
-@Template::Archive::EXPORT = qw(
+@EXPORT = qw(
     print_overview_as_HTML
     print_year_as_HTML
     print_month_as_HTML
@@ -371,9 +382,9 @@ sub print_thread_as_HTML($$$) {
 }
 
 
-# keep require happy
+# keep 'require' happy
 1;
 
 #
 #
-### end of Template::Archive ###################################################
+### end of Template::Archive ###################################################
\ No newline at end of file