fo_delete.pl needed access to this configuration file.

[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..01100a5d272968d1b02d12b49b2dc32a644e42cc 100644 (file)
--- a/selfforum-cgi/shared/Template/_conf.pm
+++ b/selfforum-cgi/shared/Template/_conf.pm
@@ -1,52 +1,63 @@
-# 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>                                      #
+#                                                                              #
+# Description: combine user and default config                                 #
+#                                                                              #
+################################################################################

 
 use strict;
 
 use strict;

+use vars qw(
+  @EXPORT
+);

 
 

-package Template::_conf;
-
-# ====================================================
-# Funktionsexport
-# ====================================================
+################################################################################
+#
+# Version check
+#
+# last modified:
+#    $Date$ (GMT)
+# by $Author$
+#
+sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'}

 
 

+################################################################################
+#
+# 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 #####################################################
\ No newline at end of file