modified version check

[selfforum.git] / selfforum-cgi / shared / Template / Archive.pm

diff --git a/selfforum-cgi/shared/Template/Archive.pm b/selfforum-cgi/shared/Template/Archive.pm
index 7e97addba3e87a4a6b95350430ad3ea6abc3e0bd..d3706a43d88647bc297360fb4346bcc9fa20c034 100644 (file)
--- 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                                      #
 #                                                                              #
 #                                                                              #
 # 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;
 #                                                                              #
 # Description: archive display                                                 #
 #                                                                              #
 ################################################################################
 
 use strict;

+use vars qw(
+  @EXPORT
+  $VERSION
+);

 
 use Lock qw(:READ);
 use Encode::Posting;
 
 use Lock qw(:READ);
 use Encode::Posting;


@@ -35,12 +40,18 @@ use Template;
 use Template::_conf;
 use Template::_thread;
 
 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);
 ################################################################################
 #
 # Export
 #
 use base qw(Exporter);

-@Template::Archive::EXPORT = qw(
+@EXPORT = qw(

     print_overview_as_HTML
     print_year_as_HTML
     print_month_as_HTML
     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;
 
 #
 #
 1;
 
 #
 #

-### end of Template::Archive ###################################################
+### end of Template::Archive ###################################################
\ No newline at end of file