X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/ba659b53059e637777865e646f0f2a6fb7f2988e..179c09ecd60241b7e77990d7af0fbdfa93bbc7e9:/selfforum-cgi/shared/Template/_thread.pm

diff --git a/selfforum-cgi/shared/Template/_thread.pm b/selfforum-cgi/shared/Template/_thread.pm
index 8c3cbbb..0cea038 100644
--- a/selfforum-cgi/shared/Template/_thread.pm
+++ b/selfforum-cgi/shared/Template/_thread.pm
@@ -12,8 +12,6 @@ use strict;
 
 package Template::_thread;
 
-use vars qw(@ISA @EXPORT);
-
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 use Posting::_lib qw(short_hr_time);
 use Template;
@@ -23,9 +21,8 @@ use Template::_query;
 # Funktionsexport
 # ====================================================
 
-require Exporter;
-@ISA    = qw(Exporter);
-@EXPORT = qw(html_thread);
+use base qw(Exporter);
+@Template::_thread::EXPORT = qw(html_thread);
 
 ################################
 # sub html_thread
@@ -85,7 +82,7 @@ sub html_thread ($$$) {
     my $end   = $start + $msg -> [$start] -> {answers};
     $start++;
     @indexes = ($start..$end);
-    $oldlevel = $startlevel = $msg -> [$par -> {start}] -> {level};}
+    $oldlevel = $startlevel = $msg -> [$start] -> {level};}
 
   # HTML erzeugen
   for (@$msg[@indexes]) {