version checks added, fixed comments

[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..626815b5f995c10b7d52cbfb57f782ae8ccbf913 100644 (file)
--- 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 #####################################################