X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/9218fb0859abdc5a09758bed809b26902ae179d6..1e5e0364f9fc5f0a3dbac69f9affbb3931115a58:/selfforum-cgi/shared/Posting/_lib.pm?ds=inline diff --git a/selfforum-cgi/shared/Posting/_lib.pm b/selfforum-cgi/shared/Posting/_lib.pm index 1f6de85..ca29f30 100644 --- a/selfforum-cgi/shared/Posting/_lib.pm +++ b/selfforum-cgi/shared/Posting/_lib.pm @@ -4,8 +4,8 @@ package Posting::_lib; # # # File: shared/Posting/_lib.pm # # # -# Authors: André Malo , 2001-06-11 # -# Frank Schoenmann , 2001-06-04 # +# Authors: André Malo # +# Frank Schönmann # # # # Description: Message access interface, time format routines # # # @@ -14,19 +14,22 @@ package Posting::_lib; use strict; use vars qw( @EXPORT_OK - $VERSION ); use Encode::Plain; $Encode::Plain::utf8 = 1; -use Time::German; +use Time::German ':overwrite_internal_localtime'; use XML::DOM; ################################################################################ # # Version check # -$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +# last modified: +# $Date$ (GMT) +# by $Author$ +# +sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'} ################################################################################ # @@ -399,7 +402,8 @@ sub sort_thread ($$) { for (@smsg) { ++$z; splice @smsg,$z,0,@{$mhash{$_ -> {mid}}} if ($_ -> {answers}); - delete $_ -> {kids};} + delete $_ -> {kids}; + } # return \@smsg; @@ -590,7 +594,7 @@ sub create_forum_xml_string ($$) { my $xml = ''."\n" . ' {dtd}.'">'."\n" - . ''; + . ''; for $thread (sort {$b <=> $a} keys %$threads) { $xml .= '';