X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/408b8a7b8262c7808c79bba94f09026a9db2ac04..33dc5903af2c531fdd07df0ac1591c55ea13c5d3:/selfforum-cgi/shared/Template/_thread.pm?ds=sidebyside diff --git a/selfforum-cgi/shared/Template/_thread.pm b/selfforum-cgi/shared/Template/_thread.pm index 5f105a6..c47f28c 100644 --- a/selfforum-cgi/shared/Template/_thread.pm +++ b/selfforum-cgi/shared/Template/_thread.pm @@ -4,27 +4,37 @@ package Template::_thread; # # # File: shared/Template/_thread.pm # # # -# Authors: Andre Malo , 2001-04-02 # +# Authors: Andre Malo , 2001-06-16 # # # # Description: convert parsed thread to HTML # # # ################################################################################ use strict; +use vars qw( + @EXPORT + $VERSION +); use Encode::Plain; $Encode::Plain::utf8 = 1; use Posting::_lib qw(short_hr_time); use Template; use Template::_query; +################################################################################ +# +# Version check +# +$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; + ################################################################################ # # Export # use base qw(Exporter); -@Template::_thread::EXPORT = qw(html_thread); +@EXPORT = qw(html_thread); -### sub html_thread ($$$) ###################################################### +### html_thread () ############################################################# # # create HTML string # @@ -173,7 +183,7 @@ sub html_thread ($$$) { \$html; } -# keep require happy +# keep 'require' happy 1; #