further and further it goes... (not yet ready)

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

diff --git a/selfforum-cgi/shared/Template/_thread.pm b/selfforum-cgi/shared/Template/_thread.pm
index 8c3cbbb240cf9d17b222fb92e2adb722a7c9ae96..0cea038ab6649bdc92f0bcb0b104eb00e50e6952 100644 (file)
--- 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]) {