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 6f1e130c9be63aef2ea4ee44f4f3077be13bdd9c..626815b5f995c10b7d52cbfb57f782ae8ccbf913 100644 (file)
--- 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 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);
 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;
 
 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;
 }
 
 
   \%hash;
 }
 

-# ====================================================
-# Modulinitialisierung
-# ====================================================
-
-# making require happy
+# keep 'require' happy

 1;
 
 1;
 

-# ====================================================
-# end of Template::_conf
-# ====================================================
\ No newline at end of file
+#
+#
+### end of Template::_conf #####################################################