X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/408b8a7b8262c7808c79bba94f09026a9db2ac04..33dc5903af2c531fdd07df0ac1591c55ea13c5d3:/selfforum-cgi/shared/Template/_conf.pm

diff --git a/selfforum-cgi/shared/Template/_conf.pm b/selfforum-cgi/shared/Template/_conf.pm
index 6f1e130..626815b 100644
--- a/selfforum-cgi/shared/Template/_conf.pm
+++ b/selfforum-cgi/shared/Template/_conf.pm
@@ -1,52 +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;
-
-# ====================================================
-# Funktionsexport
-# ====================================================
+################################################################################
+#
+# Version check
+#
+$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
+################################################################################
+#
+# Export
+#
 use base qw(Exporter);
-@Template::_conf::EXPORT = qw(get_view_params);
+@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 = (quoting       => $default -> {View} -> {quoting},
-           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 #####################################################