DOS->Unix

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

diff --git a/selfforum-cgi/shared/Template/_conf.pm b/selfforum-cgi/shared/Template/_conf.pm
index b94d01ddffb4eb7e81f2852dc4837651ad1d1db2..6f1e130c9be63aef2ea4ee44f4f3077be13bdd9c 100644 (file)
--- a/selfforum-cgi/shared/Template/_conf.pm
+++ b/selfforum-cgi/shared/Template/_conf.pm
@@ -13,15 +13,12 @@ use strict;
 
 package Template::_conf;
 
 
 package Template::_conf;
 

-use vars qw(@ISA @EXPORT);
-

 # ====================================================
 # Funktionsexport
 # ====================================================
 
 # ====================================================
 # Funktionsexport
 # ====================================================
 

-require Exporter;
-@ISA    = qw(Exporter);
-@EXPORT = qw(get_view_params);
+use base qw(Exporter);
+@Template::_conf::EXPORT = qw(get_view_params);

 
 ################################
 # sub get_view_params
 
 ################################
 # sub get_view_params


@@ -34,8 +31,9 @@ sub get_view_params ($) {
   my $default = $param -> {adminDefault};
   my %hash;
 
   my $default = $param -> {adminDefault};
   my %hash;
 

-  %hash = (quoteChars    => $default -> {View} -> {quoteChars},
-           sortedMsg     =>  $default -> {View} -> {sortMessages},
+  %hash = (quoting       => $default -> {View} -> {quoting},
+           quoteChars    => $default -> {View} -> {quoteChars},
+           sortedMsg     => $default -> {View} -> {sortMessages},

            sortedThreads => $default -> {View} -> {sortThreads}
           );
 
            sortedThreads => $default -> {View} -> {sortThreads}
           );