new kernel implemented (not only programming style changes), several bugs fixed,...

[selfforum.git] / selfforum-cgi / user / fo_view.pl

diff --git a/selfforum-cgi/user/fo_view.pl b/selfforum-cgi/user/fo_view.pl
index 8da8f6d938b9142d2c0ab9d9bcc96e7ce2670f72..cd29709f6c0e697c98de9b5cc4ded387a0b2ed8b 100644 (file)
--- a/selfforum-cgi/user/fo_view.pl
+++ b/selfforum-cgi/user/fo_view.pl
@@ -1,10 +1,10 @@
-#!/usr/bin/perl -wT
+#!/usr/bin/perl -w

 
 ################################################################################
 #                                                                              #
 # File:        user/fo_view.pl                                                 #
 #                                                                              #
 
 ################################################################################
 #                                                                              #
 # File:        user/fo_view.pl                                                 #
 #                                                                              #

-# Authors:     André Malo <nd@o3media.de>, 2001-03-31                          #
+# Authors:     André Malo <nd@o3media.de>, 2001-04-01                          #

 #                                                                              #
 # Description: display the forum main file or a single posting                 #
 #                                                                              #
 #                                                                              #
 # Description: display the forum main file or a single posting                 #
 #                                                                              #


@@ -25,8 +25,8 @@ use CGI::Carp qw(fatalsToBrowser);
 
 use Conf;
 use Conf::Admin;
 
 use Conf;
 use Conf::Admin;

-use autouse 'Template::Forum'   => qw(print_forum_as_HTML($$$));
-use autouse 'Template::Posting' => qw(print_posting_as_HTML($$$));
+use Template::Forum;
+use Template::Posting;

 
 use CGI qw(param header);
 
 
 use CGI qw(param header);
 


@@ -54,7 +54,7 @@ if (defined ($tid) and defined ($mid)) {
       thread       => $tid,
       posting      => $mid,
       adminDefault => $adminDefault,
       thread       => $tid,
       posting      => $mid,
       adminDefault => $adminDefault,

-      messages     => $show_posting -> {messages},
+      messages     => $conf -> {template} -> {messages},

       form         => $show_posting -> {form},
       cgi          => $cgi,
       tree         => $tree
       form         => $show_posting -> {form},
       cgi          => $cgi,
       tree         => $tree


@@ -76,4 +76,4 @@ else {
 
 #
 #
 
 #
 #

-### end of fo_view.pl ##########################################################
+### end of fo_view.pl ##########################################################
\ No newline at end of file