X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/ba659b53059e637777865e646f0f2a6fb7f2988e..8bd9a0d82f7e21d9340a4470258e2cad2638deca:/selfforum-cgi/shared/Template/_conf.pm

diff --git a/selfforum-cgi/shared/Template/_conf.pm b/selfforum-cgi/shared/Template/_conf.pm
index b94d01d..626815b 100644
--- a/selfforum-cgi/shared/Template/_conf.pm
+++ b/selfforum-cgi/shared/Template/_conf.pm
@@ -1,54 +1,60 @@
-# Template/_conf.pm
+package Template::_conf;
 
-# ====================================================
-# Autor: n.d.p. / 2001-02-20
-# lm   : n.d.p. / 2001-02-20
-# ====================================================
-# Funktion:
-#      Bereitstellung der Ausgabeparameter
-#      durch Kombination von User und Adminkonf.
-# ====================================================
+################################################################################
+#                                                                              #
+# File:        shared/Template/_conf.pm                                        #
+#                                                                              #
+# Authors:     André Malo <nd@o3media.de>, 2001-06-16                          #
+#                                                                              #
+# Description: combine user and default config                                 #
+#                                                                              #
+################################################################################
 
 use strict;
+use vars qw(
+  @EXPORT
+  $VERSION
+);
 
-package Template::_conf;
-
-use vars qw(@ISA @EXPORT);
-
-# ====================================================
-# Funktionsexport
-# ====================================================
+################################################################################
+#
+# Version check
+#
+$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
-require Exporter;
-@ISA    = qw(Exporter);
+################################################################################
+#
+# Export
+#
+use base qw(Exporter);
 @EXPORT = qw(get_view_params);
 
-################################
-# sub get_view_params
+### get_view_params () #########################################################
+#
+# determine output parameters
+#
+# Params: $param - hashref
+#
+# Return: hashref
 #
-# Ausgabeparameter bestimmen
-################################
-
 sub get_view_params ($) {
   my $param = shift;
   my $default = $param -> {adminDefault};
   my %hash;
 
-  %hash = (quoteChars    => $default -> {View} -> {quoteChars},
-           sortedMsg     =>  $default -> {View} -> {sortMessages},
-           sortedThreads => $default -> {View} -> {sortThreads}
-          );
+  %hash = (
+    quoting       => $default -> {View} -> {quoting},
+    quoteChars    => $default -> {View} -> {quoteChars},
+    sortedMsg     => $default -> {View} -> {sortMessages},
+    sortedThreads => $default -> {View} -> {sortThreads}
+  );
 
   \%hash;
 }
 
-# ====================================================
-# Modulinitialisierung
-# ====================================================
-
-# making require happy
+# keep 'require' happy
 1;
 
-# ====================================================
-# end of Template::_conf
-# ====================================================
\ No newline at end of file
+#
+#
+### end of Template::_conf #####################################################